Istruzione Randomize

Inizializza il generatore di numeri casuali usati dalla funzione Rnd.

Sintassi:


Randomize [Numero]

Parametri:

Numero: qualsiasi numero intero. Usato per inizializzare il generatore di numeri casuali. Valori uguali generano sequenze di numeri casuali uguali dalla funzione Rnd. Se il parametro viene omesso l'istruzione Randomize sarà ignorata.

A meno che non desideriate una sequenza prevedibile di numeri, non è necessario utilizzare l'istruzione Randomize, dato che il generatore di numeri casuale sarà inizializzato durante il suo primo utilizzo: esso sarà popolato utilizzando un generatore di numeri casuali fornito dal sistema, che produce numeri casuali non deterministici distribuiti uniformemente. Se il generatore non è disponibile nel sistema, come valore verrà usata l'ora di sistema.

L'istruzione Randomize interessa solo la funzione Rnd di BASIC. Gli altri generatori di numeri casuali (per esempio, la funzione RAND() di Calc, ecc.) non sono da essa interessati.

Codici di errore:

5 Richiamo di procedura non valido

Esempio:


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) ' Valore numerico compreso tra 0 e 9
        iSpectral(iVar) = iSpectral(iVar) +1
    Next iCount
    sText = " | "
    For iCount = 0 To 9
        sText = sText & iSpectral(iCount) & " | "
    Next iCount
    MsgBox sText,0,"Distribuzione spettrale"
End Sub

Funzione Rnd