Πρόταση Randomize

Αρχικοποιεί τη γεννήτρια τυχαίων αριθμών που χρησιμοποιείται από τη συνάρτηση Rnd.

Σύνταξη:


Randomize [Αριθμός]

Παράμετροι:

Αριθμός: Οποιαδήποτε ακέραιη τιμή. Χρησιμοποιείται ως σπόρος για να αρχικοποιήσει τη γεννήτρια τυχαίων αριθμών. Ίδιοι σπόροι καταλήγουν σε αλληλουχίες ίδιων τυχαίων αριθμών από τη συνάρτηση Rnd. Αν παραληφθεί η παράμετρος, η δήλωση Randomize θα αγνοηθεί.

Εκτός και επιθυμείται μια προβλέψιμη αλληλουχία αριθμών, δεν υπάρχει ανάγκη να χρησιμοποιηθεί η δήλωση Randomize, επειδή η γεννήτρια τυχαίων αριθμών θα αρχικοποιηθεί αυτόματα στην πρώτη χρήση – θα δώσει μια γεννήτρια τυχαίων αριθμών που παρέχεται από το σύστημα και παράγει ομοιόμορφα κατανεμημένους, μη αιτιοκρατικούς τυχαίους αριθμούς. Αν δεν υπάρχει τέτοια γεννήτρια διαθέσιμη στο σύστημα, θα χρησιμοποιηθεί ως σπορά ο χρόνος του συστήματος.

Η δήλωση Randomize επηρεάζει μόνο τη συνάρτηση Rnd της BASIC. Οποιεσδήποτε άλλες γεννήτριες τυχαίων αριθμών (παραδείγματος χάρη η συνάρτηση RAND() του Calc, κλπ.) δεν επηρεάζονται.

Κωδικοί σφάλματος:

5 Άκυρη κλήση διαδικασίας

Παράδειγμα:


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) ' Περιοχή από 0 έως 9
        iSpectral(iVar) = iSpectral(iVar) +1
    Next iCount
    sText = " | "
    For iCount = 0 To 9
        sText = sText & iSpectral(iCount) & " | "
    Next iCount
    MsgBox sText,0,"Φασματική κατανομή"
End Sub

Συνάρτηση Rnd