Randomize

Op het moment dat je een script bouwt wil je altijd dat omgevingsvariabelen zoveel mogelijk voorspelbaar zijn. Hoe hoger de voorspelbaarheid van de omgevingsvariabelen, hoe groter de kans dat jouw script de uitkomst zal geven die je verwacht. Er zijn echter ook situaties waarin je juist een onvoorspelbaar onderdeel nodig hebt. Bijvoorbeeld in het geval van een dobbelspel. Met deze functie laat ik je zien hoe je het gooien van een dobbelsteen kunt simuleren. Je kunt deze Randomize functie echter ook inzetten bij andere situaties waarbij een onvoorspelbaar element benodigd is.

Met de onderstaande Randomize functie die ik geschreven heb kun je een willekeurig getal genereren tussen 2 cijfers die je zelf als input meegeeft.De 1e parameter (input variabele ‘Lgetal’) is het laagste getal. De 2e parameter (input variabele ‘Hgetal’) is het hoogste getal. Stel je wilt een dobbelsteen worp simuleren. Dat is een willekeurig getal tussen de 1 en de 6. Je typt dan in een sub de functienaam met als eerste parameter een 1 en de 2e een 6 ‘WillekeurigGetal(1, 6)’ In de onderstaande sub wordt de uitkomst van de worp als berichtbox weergegeven. Let nog even op dat de variabele die je gebruikt om het resultaat in op te slaan hetzelfde gedeclareerd (dim) is als de functie namelijk de integer. Anders kan het resultaat niet opgeslagen worden. Heb je nog een vraag of kom je er niet uit? Laat het weten in de reacties!

Public Function WillekeurigGetal(Lgetal As Integer, Hgetal As Integer) As Integer

    randomize
    WillekeurigGetal = Int((Hgetal * Rnd) + Lgetal)

End Function

Public Sub WillekeurigGetalGenereren()

    Dim uitkomst As Integer
    
    uitkomst = WillekeurigGetal(1, 6)
    
    MsgBox uitkomst

End Sub