✔ Problem mit Zufall

[Mailyn]

Hi,

Ich will ein kleines MiniGame programmieren. Sinn ist, dass man mit der eigenen Figur über den Bildschirm fahren muss und einen Gegenstand immer wieder aufsammeln muss
Sobald Spielfigur den Gegenstand berührt, wird dieser Code ausgelöst:

       If (Spielfigur.Left + Spielfigur.Width) >= Gegenstand.Left _
            And (Spielfigur.Top + Spielfigur.Height) >= Gegenstand.Top _
            And Spielfigur.Left <= (Gegenstand.Left + Gegenstand.Width) _
            And Spielfigur.Top <= (Gegenstand.Top + Gegenstand.Height) Then
'was jetzt 
           End if

Nun soll der Gegenstand auf einer beliebig anderen Stelle auf dem Bildschirm wieder auftauchen! Geht das mit Randomize?

MfG
Mailyn

 

[Shakie]

Mit Randomize initialisierst du den Zufallsgenerator lediglich. Mit Rnd kannst du dir dann eine Zufallszahl zwischen 0 und 1 ausgeben lassen.

 

[Mailyn]

Mit Randomize initialisierst du den Zufallsgenerator lediglich. Mit Rnd kannst du dir dann eine Zufallszahl zwischen 0 und 1 ausgeben lassen.

Mh... dann würde mir das wohl nicht viel bringen, oder?

Was gäbe es denn noch für Möglichkeiten per Zufall zu bestimmen, wo das Image demnächst auftaucht?

MfG
Mailyn

 

[D@nger]

Hallo,
klar geht das:

 Dim Zufall
    Randomize
    Zufall = Int((76 * Rnd) + 1)   ' Ganze Zufallszahl im Bereich von 1 bis 76 erzeugen.
    MsgBox Zufall

 

[Shakie]

Genau, nur dass du halt statt 76 einfach die Breite deines Spielfeldes (minus die Breite des Gegenstandes) nimmst.

 

[Mailyn]

Danke! Genau was ich gemeint hab

MfG
Mailyn