XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Zufallszahlen: 6 Zufallszahlen aus 49 ohne Doppelungen ermitteln
PRFellow-Vorlage
Ein altes Schätzchen aus Profan-Zeiten ohne Arrays
Autor: Thomas Hölzer
6 Zufallszahlen aus 49 ohne Doppelungen ermitteln
Eignet sich z.B. auch für Shuffle-Funktion eines CD-Players o.ä.
Dim% 49																												 49 Einträge werden benötigt

Proc Ziehung6aus49

    Declare i%,zahl%
    Let i%=1

    While Lt(i%,50)                    Liste füllen

        List% i%=i%
        Inc i%

    Wend

    Let i%=0
    Randomize                          Zufallsgenerator initialisieren

    While Lt(i%,6)                     Solange bis 6 gültige Zahlen gefunden sind...

        Let zahl%=List%(Rnd(50))									 Zufallszahl ermitteln...

        If zahl%                          Nullen immer übergehen

            AddString Format$(0#,zahl%)  	 ggf. führende Null einfügen und speichern
            List% zahl%=0                    Listenplatz ungültig machen
            Inc i%                           Zählvariable erhöhen

        EndIf

    Wend

    ListBox$(Jackpot knacken...,7)
    ClearList

EndProc

Hauptprogramm
Cls
DrawText 200,50,Für neuen Versuch OK wählen

While Neq(%button,2)

    Ziehung6aus49

Wend