IBM Lotus Symphony


Instruction Randomize [Exécution]

Initialise le générateur de nombre aléatoire.

Syntaxe :

Randomize [Number]

Paramètres :

Number : nombre entier initialisant le générateur de nombre aléatoire. Si vous ne spécifiez pas de nombre, le générateur utilise la valeur active de l'horloge système.

Codes d'erreur

5 Appel de procédure incorrect

Exemple :

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 Plage comprise entre 0 et 9

iSpectral(iVar) = iSpectral(iVar) +1

Next iCount

sText = " | "

For iCount = 0 To 9

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

Next iCount

MsgBox sText,0,"Distribution spectrale"

end sub


Commentaires en retour sur le produit | Documentation complémentaire | Marques