RND() gibt bei Konsolenanwendungen immer die gleiche Zahl aus :help:
Hier ist ein Beispielprogramm:
// --------------------------------- //
// Project: Name Generator
// Start: Tuesday, March 02, 2010
// IDE Version: 7.250
// SETCURRENTDIR("Media") // seperate media and binaries?
INIOPEN "names.txt"
GLOBAL FEname$, MAname$, FAMname$
GLOBAL FEcount, MAcount, FAMcount
FEcount=INIGET$("Female", "Count")
MAcount=INIGET$("Male", "Count")
FAMcount=INIGET$("Family", "Count")
DIM FEnameList$[1000]
DIM MAnameList$[1000]
DIM FAMnameList$[1000]
FOR I=0 TO INIGET$("Female", "Count")-1
FEnameList$[I]=INIGET$("Female",I)
NEXT
FOR I=0 TO INIGET$("Male", "Count")-1
MAnameList$[I]=INIGET$("Male",I)
NEXT
FOR I=0 TO INIGET$("Family", "Count")-1
FAMnameList$[I]=INIGET$("Family",I)
NEXT
FEname$=FEnameList$[RND(FEcount-1)+1]
MAname$=MAnameList$[RND(MAcount-1)+1]
FAMname$=FAMnameList$[RND(FAMcount-1)+1]
STDOUT "Female Name: "+FEname$+" "+FAMname$+"\n"
STDOUT "Male Name: "+MAname$+" "+FAMname$+"\n"
STDOUT "Press any key to continue \n"
///PRINT "Female Name: "+FEname$+" "+FAMname$, 10, 10
///PRINT "Male Name: "+MAname$+" "+FAMname$, 10, 50
///SHOWSCREEN
KEYWAIT
Das fertig kompilierte Programm mit dem names.txt gibts hier: http://remixshare.com/dl/9e67v/Name Generator.app.zip (http://remixshare.com/dl/9e67v/Name%20Generator.app.zip)
Wenn ich das Programm als ein "Fensterprogramm" kompiliere dann funktioniert es, aber ich brauche eine Konsolenanwendung :|
Meine GLBasic Version ist 7.250
QuoteSEEDRND start%
Initialisiert den Zufallszahlgenerator für RND() mit einem Startwert. Beim Programmstart verwendet GLBasic SEEDRND(GETTIMERALL()).
Das hab ich auch schon gelesen aber es hat mich nicht weitergebracht :(
Edit: Würde es funktionieren wenn ich statt GETTIMERALL() die Systemzeit einfüge?
versuchs einfach mal...
Ja es hat funktioniert
SEEDRND MID$(PLATFORMINFO$("time"), 17, 2)
ps: Hattest du heute nen schlechten Tag oder so?
Ne du, war in der Arbeit und da sollte man nicht so "Privat" auf Seiten rumspringen :D
Waren grad lange Tage ;)
Ja das verstehe ich... :D
Nochmal zu SEEDRND
SEEDRND MID$(PLATFORMINFO$("time"), 17, 2)
Das funktioniert zwar teilweise aber es kommen trotzdem oft die gleichen Ergebnisse.
Gibt es dafür eine bessere Lösung? O_O
Edit:
Ich habs :enc:
LOCAL TickCount
INLINE
DECLARE_C_ALIAS(GLBGetTickCount,"kernel32.dll", "GetTickCount",(),int);
TickCount = GLBGetTickCount();
ENDINLINE
SEEDRND TickCount
Sry. Doppelpost
Sauber :)