Άρθρωμα
Περιεχόμενα
Δείκτης 🔎︎

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