Instrução Randomize

Inicia o gerador de números aleatórios que a função Rnd utiliza.

Sintaxe:


Randomize [Number]

Parâmetros:

Número: qualquer número inteiro. É utilizado como semente para inicializar o gerador de números aleatórios. Sementes iguais geram sequências aleatórias iguais pela função Rnd. Se o parâmetro for omitido, a instrução Randomize será ignorada.

Ícone Nota

A menos que se deseje obter uma sequência previsível de números, não é necessário utilizar a instrução Randomize, já que o gerador de números aleatórios será iniciado automaticamente durante o primeiro uso; o sistema proporcionará um gerador de números aleatórios que produzirá números não determinístico distribuídos de maneira uniforme. Se o sistema não contar com nenhum gerador, será usado uma gerador com base na hora do sistema.


A instrução Randomize só afeta a função BASIC Rnd. Outros geradores de números aleatórios (por exemplo a função do Calc ALEATÓRIO(), etc.) não são afetadas por ela.

Códigos de erro:

5 Chamada de procedimento inválida

Exemplo:


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) ) ' Intervalo de 0 a 9
        iSpectral(iVar) = iSpectral(iVar) +1
    Next iCount
    sText = " | "
    For iCount = 0 To 9
        sText = sText & iSpectral(iCount) & " | "
    Next iCount
    MsgBox sText,0,"Distribuição espectral"
End Sub

♥ Doe para nosso projeto! ♥