Random Bug

TIecIh · 3. August 2014, 00:14

Hallo, ich habe ein Problem:
Ich möchte, dass nach erneutem "Laden" immer eine Unterschiedliche Zahl ausgegeben wird doch ich habe manchmal einen Bug, sodass immer die Gleiche Zahl ausgegeben wird.
Wie kann man das ändern?

VB.NET-Quellcode

Randomize()
Dim value As Integer = CInt(Int((Label9.Text * Rnd()) + 0)) 'Label9.Text = höchste Zahl
For Each Item In ListView1.Items(value).SubItems(1).Text
TextBox1.AppendText(Item.ToString)
Next

LG

ThuCommix · 3. August 2014, 00:19

Benutze die Klasse Random und nicht rnd. Random darf nur einmal in der Klasse instanziert werden, damit zuverlässige Werte raus kommen.

TIecIh · 3. August 2014, 00:30

Ungefähr so?:

VB.NET-Quellcode

Dim rnd1 As New Random()
Dim value As Integer = CInt(Int((Label9.Text * rnd1.Next()) + 0))
For Each Item In ListView1.Items(value).SubItems(1).Text
TextBox1.AppendText(Item.ToString)
Next

ThuCommix · 3. August 2014, 00:31

Korrekt, nur das Random nicht in der Funktion deklariert werden sollte, sondern außerhalb, sodass nicht jedes mal ein neues Random Objekt erstellt wird.

TIecIh · 3. August 2014, 00:36

Hmm der Bug besteht immernoch, ich habe

VB.NET-Quellcode

Dim rnd1 As New Random()

Vor die Funktion gesetzt

ThuCommix · 3. August 2014, 00:40

Könntest du mal deinen gesamten Quellcode posten?

TIecIh · 3. August 2014, 00:44

Ich möchte nicht den gesamten Quellcode reinstellen aber hier die Sub:

VB.NET-Quellcode

Dim rnd1 As New Random()
Private Sub TabPage2_Enter(sender As System.Object, e As System.EventArgs) Handles TabPage2.Enter
Try
Dim value As Integer = CInt(Int((Label9.Text * rnd1.Next()) + 0))
For Each Item In ListView1.Items(value).SubItems(1).Text
TextBox1.AppendText(Item.ToString)
Next
If TextBox4.Text = TextBox1.Text Then
RichTextBox4.Focus()
Else
TextBox4.Text = TextBox1.Text
End If
Dim Nummer As Integer = TextBox1.Text - 1
For Each Item In ListView1.Items(Nummer).SubItems(3).Text
RichTextBox3.AppendText(Item.ToString)
Next
For Each Item In ListView1.Items(Nummer).SubItems(4).Text
TextBox2.AppendText(Item.ToString)
Next
For Each Item In ListView1.Items(Nummer).SubItems(5).Text
TextBox3.AppendText(Item.ToString)
Next

ThuCommix · 3. August 2014, 00:53

Versuche mal rnd1.Next(0, 9999999)

TIecIh · 3. August 2014, 01:09

Ne funktioniert leider nicht, ich habe wieder Randomize ausprobiert, dass funktioniert sogar besser als mit der Klasse, aber eben mit dem Bug

ThuCommix · 3. August 2014, 01:10

Mir werden die verschiedene Zufallszahlen ohne Probleme generiert. Sowas passiert eigentlich nur, wenn man Random immer wieder neu instanziert.

TIecIh · 3. August 2014, 01:14

Also liegt es daran, dass nach jedem Random Vorgang der Tab erneut aufgerufen wird, um den Vorgang zu wiederholen.

RodFromGermany · 3. August 2014, 09:57

TIecIh schrieb:

VB.NET-Quellcode

Label9.Text * rnd1.Next()

Option Strict On
oder was soll das Produkt aus einem String und einer Zahl sein?

TIecIh · 3. August 2014, 10:09

Wie kann ich dann die Zahl nehmen, die gerade in Label9 steht?
Außerdem funktioniert die Hälfte des Cods nicht mehr

RodFromGermany · 3. August 2014, 10:17

Du weist es:

TIecIh schrieb:

VB.NET-Quellcode

Dim value As Integer = CInt(Int((Label9.Text * Rnd()) + 0))

Trenne GUI und Daten.
Rechne mit Daten, nicht mit dem Inhalt von Controls.
Hole Dir den Wert aus dem Control, konvertiere ihn in eine Zahl und arbeite damit.
Zum Anzeigen des Ergebnisses wird der Wert wieder in einen String konvertiert.

TIecIh schrieb:

die Hälfte des Cods

Das sind wahrscheinlich nur Konvertierungen von String in Integer,m Double und so.
Mach dies explizit:

VB.NET-Quellcode

Dim ival = Integer.Parse(TEXT)
Dim dval = Double.Parse(TEXT)

TIecIh · 3. August 2014, 10:26

Wie könnte man dann

VB.NET-Quellcode

If ListView1.Items.Count > -1 Then
Label9.Text = ListView1.Items.Count + 1
Else

die Listview1.Items Konvertiernen?

RodFromGermany · 3. August 2014, 11:40

TIecIh schrieb:

Konvertiernen?

So:

VB.NET-Quellcode

Label9.Text = (ListView1.Items.Count + 1).ToString

TIecIh · 3. August 2014, 16:00

Ah ok Danke, (ich meinte natürlich Konvertieren)

VB.NET-Quellcode

Private Sub Deserialize(ByVal path As String, ByVal lv As ListView)
Dim f As New IO.FileStream(path, IO.FileMode.Open)
Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
lv.Items.Clear()
lv.Items.AddRange(bf.Deserialize(f))
f.Close()
End Sub

Als letztes, wie sieht dann lv.Items.AddRange(bf.Deserialize(f)) aus?

RodFromGermany · 3. August 2014, 17:11

TIecIh schrieb:

AddRange

Da müsste das entsprechende Array serialisiert worden sein.
Machst Du

VB.NET-Quellcode

Using f As New IO.FileStream(path, IO.FileMode.Open)
' f verwenden
End Using

TIecIh · 3. August 2014, 17:47

VB.NET-Quellcode

Private Sub Serialize(ByVal path As String, ByVal lv As ListView)
Dim f As New IO.FileStream(path, IO.FileMode.Create)
Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
Dim l(lv.Items.Count - 1) As ListViewItem
lv.Items.CopyTo(l, 0)
bf.Serialize(f, l)
f.Close()
End Sub
Private Sub Deserialize(ByVal path As String, ByVal lv As ListView)
Dim f As New IO.FileStream(path, IO.FileMode.Open)
Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
lv.Items.Clear()
lv.Items.AddRange(bf.Deserialize(f))
f.Close()
End Sub

Wo soll ich das einbinden?

RodFromGermany · 3. August 2014, 18:20

TIecIh schrieb:

einbinden

Ich kann das jetzt nicht probieren, aber ich denke, dass das so nicht funktioniert.
Einbinden musst Du es da, wo Du es brauchst. Als ob ich die innere Struktur Deines Programms kennen würde.
Und:

VB.NET-Quellcode

Using f As New IO.FileStream(path, IO.FileMode.Create)
Dim bf As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
Dim l(lv.Items.Count - 1) As ListViewItem
lv.Items.CopyTo(l, 0)
bf.Serialize(f, l)
End Using

Random Bug

Random Bug

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

TIecIh schrieb:

VB.NET-Quellcode

TIecIh schrieb:

VB.NET-Quellcode

TIecIh schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

TIecIh schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

TIecIh schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

TIecIh schrieb:

VB.NET-Quellcode

Ähnliche Themen

8 Benutzer haben hier geschrieben