vb6 Zufallszahlen erzeugen

  • VB6

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Neptun.

    vb6 Zufallszahlen erzeugen

    Hallo nocheinmal,

    hab noch ein Problem: Und zwar geht es um Zufallszahlen.
    Folgende Codes habe ich bis jetzt verwendet:

    Visual Basic-Quellcode

    1. Dim X


    Visual Basic-Quellcode

    1. Sub Counting()
    2. X = RandomNumber(1, 30)
    3. For i = 1 To X
    4. text1.Text = X
    5. Next
    6. End Sub


    Visual Basic-Quellcode

    1. Function RandomNumber(ByVal min, ByVal max)
    2. z = Rnd
    3. RandomNumber = Int(min + (max - min + 1) * z)
    4. End Function


    Klappt ganz gut, d.h. die Zahlen 1 bis 30 werden zufällig in text1 wiedergegeben, jedoch ist die Reihenfolge immer die selbe. Kann mir jemand helfen?

    Danke im Voraus :D :D :D

    Hallo Aydo,
    Randomize setzt den Startwert für den Zufallsgenerator. Wenn
    du keinen Parameter angibst, wird die Uhrzeit als Basis zur
    Berechnung des Startwertes genommen. Sollte in ähnlicher Form
    auch in der VB-Hilfe stehen.
    Wieso verwendest du eine Schleife für die Ausgabe? Es wird
    doch immer nur ein Wert in die Textbox eingetragen.
    Gruss,

    Neptun