Byteviewer Control mit Zufallszahlen füllen VB 2008

[Rnd (Gast)]

Hallo Leute

Ich hoffe ihr könnt mir helfen. Will in VB2008 das Byteviewer Control 
mit Zufallszahlen füllen. Leider will der Code nur bis zur Zelle 255 
arbeiten. Dann fängt er wieder von vorne an :-(

Hier mal mein code (weis könnte man schöner schreiben):

        Dim arr(5000) As Byte
        Dim i As Long
        Dim a As Byte

        For i = 0 To UBound(arr)
            Randomize()
            a = Int(System.Math.Sqrt(Int(Rnd() * 255) * Int(Rnd() * 
255)))
            arr(i) = a
        Next i
        byteviewer.SetBytes(arr)

Weis jemand eine Lösung für dieses Problem?

mfG
Rnd

[Timmo H. (masterfx)]

Also bei mir gehts. Läuft 5000 mal durch.

[Rnd (Gast)]

Bei mir widerholen sich die Werte nach 256 Zeichen wieder :-(

[spess53 (Gast)]

Hi

>Bei mir widerholen sich die Werte nach 256 Zeichen wieder :-(

Nimm mal das Randomize() aus der Schleife raus.

>        For i = 0 To UBound(arr)
>            Randomize()

->        Randomize()
->        For i = 0 To UBound(arr)
          .....

Ab einer bestimmten Anzahl von (Pseudo)-Zufallswerten wird sich das 
immer wiederholen. Stichwort: LFSR

MfG Spess

[Timmo H. (masterfx)]

Jo genau.
Das Randomize() mischt den "Zufallsstapel" von dem durch Rnd() die 
Zahlen gezogen werden. Wenn man Randomize() ständig aufruft wiederholen 
sich die Zahlen irgendwann. Es ist eben nur Psudo-Zufall.