Random

14/03/2009 - 10:43 von Jürgen Schmitt | Report spam
Guten Tag zusammen,
weiss nicht, woran es liegt.
Erzeuge Zufallszahlen von 0 - 36.

Beispiel:
Dim i as Long, rndZahl As Long
For i = 1 To 500
rndZahl = RndNum(36, 0) 'von 0 - 36 'Funktionsaufruf
Next

'Funktion in module.bas
Public Function RndNum(ByVal Max As Long, ByVal Min As Long) As Long
'Max = 36, Min = 0
Randomize Timer ' oder Randomize
' (36+1) (0+1)
RndNum = Int(((Max + 1) * Rnd) + (Min + 1)) - 1 'Zahlen in Min/Max
End Function

Jetzt ergibt sich folgendes Ergebnis:

Ziehung
59 0,31,12,22,17, 6,30 *1
172 0,30,15,12,12,11,15 *2
208 0,22, 2,15,23,15,13 *3
246 0,19, 9,21,23,25,19 *4
253 0,21, 5,31,28,20,35 *5

Jetzt beginnen die Wiederholungen
315 0,31,12,22,17, 6,30 *1
428 0,30,15,12,12,11,15 *2
464 0,22, 2,15,23,15,13 *3
502 0,19, 9,21,23,25,19 *4
509 0,21, 5,31,28,20,35 *5

Verstehe nicht, weshalb sich die Zahlenfolgen nach Erscheinen
von '0' nach einer gewissen Anzahl von 'Ziehungen' genau so wiederholen.
Habe schon etliche andere Funktionsaufrufe z.B. aus VBFun, VBarchiv usw.
getestet. Das Ergebnis ist immer àhnlich. Zahlenfolgen nach 0/Zero
werden wiederholt. Das kann es doch nicht sein.
Das Initialisieren durch Randomize, Randomize Timer oder 'Randomize
Time) bringt auch nichs. Nach dem 6., 7. oder 8. Auftreten von 0,
beginnen die Wiederholungen.
Wie erzeugt man 'echte' Zahlen.
Vielen Dank für einen Tip.
Gruss
 

Lesen sie die antworten

#1 Jens Müller
14/03/2009 - 21:23 | Warnen spam
Verstehe nicht, weshalb sich die Zahlenfolgen nach Erscheinen
von '0' nach einer gewissen Anzahl von 'Ziehungen' genau so wiederholen.



Du Initialisierst den Zufallsgenerator mit Randomize Timer jedes Mal neu auf
den selben Timer.

Rufe es nur einmal zu Beginn auf.

Grüße,
Jens

Ähnliche fragen