Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249528 (10964)
  Suchen
 Zurück zur Übersicht
 AutorThema: Zufallsgenerator (wie geht das mit @Rnd)
Daniel Joos
Datum:08.08.01 14:48 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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