Instruction Randomize

Initialise le générateur de nombres aléatoires utilisé par la fonction Rnd.

Syntaxe :


Randomize [Number]

Paramètres :

Nombre : Une valeur entière quelconque. Utilisé comme graine pour initialiser le générateur de nombres aléatoires. Deux graines identiques donnent des séquences de nombres aléatoires identiques par la fonction Rnd. Si ce paramètre est omis, l'instruction Randomize est ignoré.

Sauf si une séquence de nombres aléatoires prévisible est souhaitée, il n'est pas nécessaire d'utiliser l'instruction Randomize, le générateur de nombres aléatoires étant automatiquement initialisé lors de sa première utilisation – l'initialisation est faite à l'aide du générateur de nombres aléatoires fourni par le système, ce qui produit des nombres aléatoires non déterministes uniformément distribués. Si aucun générateur de nombres aléatoires n'est disponible sur le système, l'heure système sera utilisée comme graine.

L'instruction Randomize affecte seulement la fonction BASIC Rnd. Les autres générateurs de nombres aléatoires (par exemple la fonction Calc ALEA(), etc.) ne sont pas affectés.

Codes d'erreur :

5 appel de procédure incorrect

Exemple :


Sub ExampleRandomize
Dim iCount As Integer, iVar As Integer, sText As String
Dim iSpectral(10) As Integer
    Randomize 2^14-1
    For iCount = 1 To 1000
    iVar = Int((10 * Rnd) ) ' 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

Fonction Rnd