IBM Lotus Symphony


Randomize-Anweisung [Laufzeit]

Initialisiert den Zufallsgenerator.

Syntax:

Randomize [Zahl]

Parameter:

Zahl: Ein beliebiger Integer-Wert, mit dem der Zufallszahlengenerator initialisiert wird. Wird diese Zahl weggelassen, verwendet der Generator den aktuellen Wert des Systemzeitgebers.

Fehlercodes

5 Invalid procedure call

Beispiel:

Sub ExampleRandomize

Dim iVar As Integer, sText As String

Dim iSpectral(10) As Integer

Randomize 2^14-1

For iCount = 1 To 1000

iVar = Int((10 * Rnd) ) REM Bereich von 0 bis 9

iSpectral(iVar) = iSpectral(iVar) +1

Next iCount

sText = " | "

For iCount = 0 To 9

sText = sText & iSpectral(iCount) & " | "

Next iCount

MsgBox sText,0,"Spektrale Verteilung"

end sub


Produktfeedback | Zusätzliche Dokumentation | Marken