Zufallszahl generieren mit RND() ?!?

[crazy_bielefeld]

Hallo,
wenn ich das richtig interpretiere kann der Rnd-Befehl Zufallszahlen generieren,
Nur wenn ich folgendes Listing im Simulator vom AVR-Bascom
starte:


Dim Zufall as word

ziehung:
Zufall = Rnd(5) ' Zufallszahl
print Zufall
waitms 500

goto ziehung

kommt folgendes Ergebnis immer wieder so oft ich das Programm starte, immer
wieder die gleiche Zahlenfolge.

4 3 2 3 0 3 3 2 4 3 3 1
4 3 2 3 0 3 3 2 4 3 3 1
4 3 2 3 0 3 3 2 4 3 3 1
...
....
.....

Wobei ich unter einen Zufallsgenerator mehr verhoffe, hat jemand eine
Lösung und kann mir weiter helfen, sodass ich bei jedem neuen Aufruf
des Labels 'ziehung', neu Werte erhalte zB.

1 4 2 2 3 1 2 2 0 3 2 4
0 2 3 2 4 1 4 4 4 2 1 3
...
....
.....

gruss

[PicNick]

Hi, schau die das "help" von RND() an, da steht alles

[tomkay]

Genau, in der Hilfe steht alles - z.b. das bei jedem Neustart der RND() Befehl immer wieder die selben Zahlen generiert - das hat mich auch schon leicht verwundert, denn eine Zufallszall ist eine Zufallszahl und der RND() Befehl wird dieser Erwartung alles andere als gerecht...

[PicNick]

Ja, das stimmt. Aber du mußt versuchen, die SEED geeignet zu setzen
(z.B. Aktueller Wert irgendeines Timer-Counters)
mfg robert

[crazy_bielefeld]

jo Danke für diese Tips - werde es gleich mal probieren.