Περιεχόμενα

# Πρόταση 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

Παρακαλούμε, υποστηρίξτε μας!