Ukaz Randomize

Inicializira generator naklju─Źnih ┼ítevil, ki ga uporablja funkcija Rnd.

Skladnja:


Randomize [Število]

Parametri:

┼átevilo: poljubna celo┼ítevilska vrednost. Slu┼żi kot seme za inicializacijo generatorja naklju─Źnih ┼ítevil. Enaka semena povzro─Źijo enake nize naklju─Źnih ┼ítevil pri funkciji Rnd. ─îe parameter izpustite, bo ukaz Randomize prezrt.

Ikona opombe

─îe ne ┼żelite napovedljivega niza ┼ítevil, ni potrebe, da uporabite ukaz Randomize, saj bo generator naklju─Źnih ┼ítevil samodejno inicializiran ob prvi uporabi ÔÇô zasajen bo z uporabo sistemsko zagotovljenega generatorja naklju─Źnih ┼ítevil, ki tvori enakomerno porazdeljena, nedeterministi─Źna naklju─Źna ┼ítevila. ─îe tak generator v sistemu ni na voljo, bo za seme uporabljen sistemski ─Źas.


Ukaz Randomize vpliva le na funkcijo BASIC-a Rnd. Na druge generatorje naklju─Źnih ┼ítevil (npr. funkcijo programa Calc RAND() itn.) ne vpliva.

Kode napak:

5 Neveljaven klic procedure

Primer:


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) ) ' Obseg med 0 in 9
        iSpectral(iVar) = iSpectral(iVar) +1
    Next iCount
    sText = " | "
    For iCount = 0 To 9
        sText = sText & iSpectral(iCount) & " | "
    Next iCount
    MsgBox sBesedilo,0,"Spektralna porazdelitev"
End Sub

Podprite nas!