Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249528 (10964)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Zufallsgenerator (wie geht das mit @Rnd)
Daniel Joos
| Datum:08.08.01 14:48 (danieljoos@t-online.de) |
Ich wollte einen Zufallsgenerator in Profan programieren. Ich möchte, dass Profan unter den Zahlen 0-32 irgendeine aussucht und mit dem Befehl Print schreibt. Wie kann ich das machen? PS.: Ich hab es schon mal mit dem Befehl @Rnd probiert, aber ich hab es dann nicht mehr geblickt. Daniel Joos
Jörg Sellmeyer
| Datum:08.08.01 15:39 (joerse@gmx.de) |
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
Frank Abbing
| Datum: 08.08.01 20:20 (frankabbing@12move.de) |
Hallo, ich glaube, das ist für einen Anfänger schon recht kompliziert. Für einfache Zufallszahlen reicht ja: Randomize REM nur einmal am Anfang des Programms Let zahl%=@Rnd(33) REM für eine Zahl zwischen 0 bis 32 Let zahl%=@Add(@Rnd(16),10) REM für Zahlen zwischen 10 bis 26 Frank

| Zurück zur Übersicht