mikrocontroller.net

Forum: PC-Programmierung Byteviewer Control mit Zufallszahlen füllen VB 2008


Autor: Rnd (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
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

Autor: Timmo H. (masterfx)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Also bei mir gehts. Läuft 5000 mal durch.

Autor: Rnd (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Bei mir widerholen sich die Werte nach 256 Zeichen wieder :-(

Autor: spess53 (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
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

Autor: Timmo H. (masterfx)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
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.

Antwort schreiben

Die Angabe einer E-Mail-Adresse ist freiwillig. Wenn Sie automatisch per E-Mail über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.

Wichtige Regeln - erst lesen, dann posten!

  • Groß- und Kleinschreibung verwenden
  • Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang

Formatierung (mehr Informationen...)

  • [c]C-Code[/c]
  • [avrasm]AVR-Assembler-Code[/avrasm]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] - Link zu Artikel
  • Verweis auf anderen Beitrag einfügen: Rechtsklick auf Beitragstitel,
    "Adresse kopieren", und in den Text einfügen




Bild automatisch verkleinern, falls nötig
Bitte das JPG-Format nur für Fotos und Scans verwenden!
Zeichnungen und Screenshots im PNG- oder
GIF-Format hochladen. Siehe Bildformate.
Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt.
Bitte hier nur auf die ursprüngliche Frage antworten,
für neue Fragen einen neuen Beitrag erstellen.

Mit dem Abschicken bestätigst du, die Nutzungsbedingungen anzuerkennen.