Hallo,
Hier ist ein Zufallsgenerator, den Du Dir nach Belieben anpassen kannst.
Viel Spaß damit.
Jörg
cls
Proc Liste_füllen
ClearList
WhileLoop 32
AddString str$(&loop)
Wend
MoveListToList(Liste&)
EndProc
Proc eine_Zufallszahl
Declare s$
s$=str$(Rnd(getcount(Liste&)))
Messagebox(s$,"Dies ist eine zufällige Zahl:",0)
EndProc
Proc Reihe_Zufallszahlen
declare n%,s$
n%=getcount(Liste&)
WhileLoop n%
n%=rnd(getcount(Liste&))
s$=s$ + Chr$(13) + GetString$(Liste&,n%)
DeleteString(Liste&,(n%))
Wend
Messagebox(s$,"Dies ist eine Reihe zufälliger Zahlen:",0)
EndProc
declare Liste&,ende%
Liste&=CreateListBox(%HWnd,"",100,50,200,300)
Liste_füllen
Randomize
whilenot ende%
waitinput
if Equ(%mousepressed,2)
eine_Zufallszahl
ElseIf Equ(%mousepressed,1)
Reihe_Zufallszahlen
Liste_füllen
EndIf
Wend
|