Hilfe
Rand
Aufruf
Parameter
Rückgabewert
Beschreibung
Beispiel
Siehe auch
wert = Rand ([min,] max)
Parameter
min | der niedrigste Wert, der zurückgegeben werden soll |
max | der höchste Wert, der zurückgegeben werden soll |
Rückgabewert
Eine zufällige Ganzzahl, die zwischen den eingestellten Werten liegt.
Beschreibung
Diese Funktion ermittelt eine Zufallszahl. Der minimale und maximale Wert kann eingestellt werden. Es wird immer nur eine Ganzzahl zurückgeliefert. Die Funktion Rnd funktioniert ähnlich, liefert aber Kommazahlen.
Bei jedem Start werden immer die selben Werte zurückgeliefert. Um dies zu umgehen, sollte vorher SeedRnd
benutzt werden. SeedRnd
kann auch benutzt werden, um ein bestimmtes Spiel (Kartenspiel usw.) nochmal zu spielen.


Übergibt man der Funktion nur einen Parameter, so erzeugt sie eine Zufalls zwischen 1 und der übergebenen Zahl.
Beispiel
Dieses Beispiel erstellt einen Regen. Die Koordinate für Punkte werden in Feldern abgespeichert:
Graphics 640,480,0,1
SetBuffer BackBuffer ()
Dim x(100), y(100), v(100)
For i = 0 To 100
x(i) = Rand (0,639)
y(i) = Rand (0,479)
v(i) = Rand (1,10)
Next
While Keyhit (1) = 0
Cls
For i = 0 TO 100
y(i) = y(i) + v(i)
If y(i) > 479 Then y(i) = 0 : v(i) = Rand (1,10)
Plot x(i),y(i)
Next
Flip
Wend
SetBuffer BackBuffer ()
Dim x(100), y(100), v(100)
For i = 0 To 100
x(i) = Rand (0,639)
y(i) = Rand (0,479)
v(i) = Rand (1,10)
Next
While Keyhit (1) = 0
Cls
For i = 0 TO 100
y(i) = y(i) + v(i)
If y(i) > 479 Then y(i) = 0 : v(i) = Rand (1,10)
Plot x(i),y(i)
Next
Flip
Wend
Siehe auch

