Lottowahrscheinlichkeit 6 aus 49 (out of memory)

Hobbl · 21. Januar 2014, 01:13

Edit by ErfinderDesRades: (Thema verschoben) Bitte richtiges UnterForum wählen!

Ich habe auf Form1 einen Lottozettel mit GDI gezeichnet,
dort kann man 12 x "6 aus 49" ankreuzen.

Nach einem Click auf „Berechnen“ generiert es mir, in einem Timer alle 100ms, 6 Zufallszahlen (keine doppelten), die in Form2 in einem DGV1
angezeigt werden und mit den angekreuzten Zahlen vergleicht.(Treffer zeigt es mir auch
schon im DGV grün an).

In Form2, wird auch in
7 Labeln angezeigt wie oft ein 0er, 1er, 2er …. getroffen wurde.

Unter den Labels sind wieder
7 DGV, die mir das Datum anzeigen wann eben ein 0er, 1er, 5er … getroffen
wird( In Form1 kann man auswählen ob Samstag, Mittwoch oder beides ).

Mit einem Click auf das Datum, kommt auch sofort in DGV1, der entsprechenden Treffer.

Das alles funktioniert auch wunder bar.

Nur ist es halt so, daß ein 6er ziemlich unwahrscheinlich ist (das kann
mehrere 100 oder auch mehrere 1000 Jahre dauern)(Die Berechnung selber dauert
ja auch mehrere Std)

Mir läuft auf jeden Fall mein Arbeitsspeicher über. (fast 1,5 GB von 8 GB) (out of memory schlag mich tot) kommt
als Fehler.

Jetzt hab ich mir gedacht, vielleicht kann man das Ganze mit
einem Dataset lösen und hab mir auch die 4Views von Edr angeschaut.

Dachte mir das man vielleicht alle 500 Jahre, oder alle 200MB das Ganze in mehrere Xml .dateien speichert und bei einem Click auf
das Datum die entsprechende „xml „wieder läd.

Fragen: Bin ich mit einem Dataset auf einem Holzweg?
Wie kann ich "Out of Memory" vermeiden?

LucaWelker · 21. Januar 2014, 06:46

Ich verstehe ehrlich gesagt schon nicht wieso die Berechnung mehrere Stunden dauert?
Oder meinst du gar nicht bei dir im Programm sondern in "echt"?

lg.

Cell · 21. Januar 2014, 07:14

Das klingt für mich eher nach einer Art von Endlosschleife. Vermutlich hast du irgendwo einen Fehler in der Programmierung, die eine Endlosschleife erzeugt. Daher dauert die berechnung auch so lange bis der Speicher irgendwann voll ist. Das würde dann auch die exception erklären.

ThePlexian · 21. Januar 2014, 07:17

Das hört sich danach an, dass du ganz viele ungenutzte Ressourcen im RAM lässt, selbst wenn du sie nicht mehr brauchst. Aber um das zu bestätigen brauchen wir Code

RodFromGermany · 21. Januar 2014, 16:13

Hobbl schrieb:

Holzweg

Sieht so aus.
In Deinem Algo sind mindestens 2 Fehler:

Er dauert zu lange (bezogen auf den 100-ms-Timer-Takt,
Er verschlingt Ressourcen.

==>
Mach Dir einen Elementaralgorithmus, der dauert weniger als 0,5 Millisekunden, mach danach eine GUI dazu.
Schreibe nix zwischendurch auf Platte, denn da ist nix zu schreiben.
Was soll eigentlich dargestellt werden?

Hobbl · 22. Januar 2014, 09:14

Habe das ganze jetzt mal in eine Form gepackt.

Hier mal der Code:

Spoiler anzeigen

Quellcode

Public Class Form1
Private Datum As DateTime = DateTime.Now
Private Lottozahl(6) As Integer
Private GekreuzteZahl(6) As Integer
Private Trefferanzahl As Integer
Private Treffer(6) As Boolean
Private Nr As Integer
Private Anzahltreffer(6) As Integer
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Randomize()
btn_berechnen.Text = "Berechnung starten"
Timer1.Interval = 10
Timer1.Enabled = False
If Datum.DayOfWeek = DayOfWeek.Sunday Then Datum = Datum.AddDays(6) ' Hier wird der nächste Samstag gesucht
If Datum.DayOfWeek = DayOfWeek.Monday Then Datum = Datum.AddDays(5)
If Datum.DayOfWeek = DayOfWeek.Tuesday Then Datum = Datum.AddDays(4)
If Datum.DayOfWeek = DayOfWeek.Wednesday Then Datum = Datum.AddDays(3)
If Datum.DayOfWeek = DayOfWeek.Thursday Then Datum = Datum.AddDays(2)
If Datum.DayOfWeek = DayOfWeek.Friday Then Datum = Datum.AddDays(1)
GekreuzteZahl(1) = 23 'Zahlen ankreuzen
GekreuzteZahl(2) = 45
GekreuzteZahl(3) = 7
GekreuzteZahl(4) = 14
GekreuzteZahl(5) = 46
GekreuzteZahl(6) = 13
Label1.Text = GekreuzteZahl(1).ToString
Label2.Text = GekreuzteZahl(2).ToString
Label3.Text = GekreuzteZahl(3).ToString
Label4.Text = GekreuzteZahl(4).ToString
Label5.Text = GekreuzteZahl(5).ToString
Label6.Text = GekreuzteZahl(6).ToString
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
ZufälligeLottozahlenerstellen()
Trefferberechnen()
DGVs_aktualisieren()
Trefferanzahl = 0
Nr = Nr + 1
Datum = Datum.AddDays(7)
End Sub
Private Sub btn_berechnen_Click(sender As System.Object, e As System.EventArgs) Handles btn_berechnen.Click
Timer1.Enabled = Not Timer1.Enabled
If Timer1.Enabled Then
btn_berechnen.Text = "Berchnung anhalten"
Else
btn_berechnen.Text = "Berechnung fortsetzen"
End If
End Sub
Private Sub ZufälligeLottozahlenerstellen()
Dim z As Integer
Dim Zufallszahl As Integer
Dim Result As Boolean
While z < 6
z = z + 1
Do
Zufallszahl = CInt(Int(49 * Rnd() + 1)) ' Ziehung der Lottozahlen
Result = True
For i = 1 To z - 1
If Lottozahl(i) = Zufallszahl Then ' Doppelte Lottozahlen vermeiden
Result = False : Exit For
End If
Next
Loop Until Result = True
Lottozahl(z) = Zufallszahl
End While
End Sub
Private Sub Trefferberechnen()
For t = 1 To 6
For i = 1 To 6
If GekreuzteZahl(t) = Lottozahl(i) Then
Treffer(i) = True
Trefferanzahl = Trefferanzahl + 1
End If
Next
Next
End Sub
Private Sub DGVs_aktualisieren()
DGV_Hauptanzeige.Rows.Add(Nr.ToString, (Datum.ToString("ddd. dd.MM.yyyy")), 1, Lottozahl(1), Lottozahl(2), Lottozahl(3), Lottozahl(4), Lottozahl(5), Lottozahl(6), Trefferanzahl.ToString & "er")
For w = 1 To 6
If Treffer(w) = True Then
DGV_Hauptanzeige.Rows(Nr).Cells(w + 2).Style.BackColor = Color.DarkGreen 'Treffer werden im DGV_Hauptanzeige grün hinterlegt
DGV_Hauptanzeige.Rows(Nr).Cells(w + 2).Style.ForeColor = Color.White
Treffer(w) = False
End If
Next
If Trefferanzahl = 0 Then
Anzahltreffer(0) = Anzahltreffer(0) + 1
lbl_0er.Text = Anzahltreffer(0).ToString & " mal 0 Richtige"
DGV_0er.Rows.Add(Nr.ToString, Datum.ToString("ddd. dd.MM.yyyy"))
ElseIf Trefferanzahl = 1 Then
Anzahltreffer(1) = Anzahltreffer(1) + 1
lbl_1er.Text = Anzahltreffer(1).ToString & " mal 1 Richtiger"
DGV_1er.Rows.Add(Nr.ToString, Datum.ToString("ddd. dd.MM.yyyy"))
ElseIf Trefferanzahl = 2 Then
Anzahltreffer(2) = Anzahltreffer(2) + 1
lbl_2er.Text = Anzahltreffer(2).ToString & " mal 2 Richtige"
DGV_2er.Rows.Add(Nr.ToString, Datum.ToString("ddd. dd.MM.yyyy"))
ElseIf Trefferanzahl = 3 Then
Anzahltreffer(3) = Anzahltreffer(3) + 1
lbl_3er.Text = Anzahltreffer(3).ToString & " mal 3 Richtige"
DGV_3er.Rows.Add(Nr.ToString, Datum.ToString("ddd. dd.MM.yyyy"))
ElseIf Trefferanzahl = 4 Then
Anzahltreffer(4) = Anzahltreffer(4) + 1
lbl_4er.Text = Anzahltreffer(4).ToString & " mal 4 Richtige"
DGV_4er.Rows.Add(Nr.ToString, Datum.ToString("ddd. dd.MM.yyyy"))
ElseIf Trefferanzahl = 5 Then
Anzahltreffer(5) = Anzahltreffer(5) + 1
lbl_5er.Text = Anzahltreffer(5).ToString & " mal 5 Richtige"
DGV_5er.Rows.Add(Nr.ToString, Datum.ToString("ddd. dd.MM.yyyy"))
ElseIf Trefferanzahl = 6 Then
Anzahltreffer(6) = Anzahltreffer(6) + 1
lbl_6er.Text = Anzahltreffer(6).ToString & " mal 6 Richtige"
DGV_6er.Rows.Add(Nr.ToString, Datum.ToString("ddd. dd.MM.yyyy"))
Timer1.Enabled = False 'Erst bei 6 Richtige wird die Berechnung angehalten
btn_berechnen.Text = "Berechnung fortsetzen"
End If
End Sub
Private Sub DGV_0er_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_0er.CellContentClick
DGV_Hauptanzeige.FirstDisplayedScrollingRowIndex = DGV_0er.CurrentRow.Cells(0).Value
End Sub
Private Sub DGV_1er_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_1er.CellContentClick
DGV_Hauptanzeige.FirstDisplayedScrollingRowIndex = DGV_1er.CurrentRow.Cells(0).Value
End Sub
Private Sub DGV_2er_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_2er.CellContentClick
DGV_Hauptanzeige.FirstDisplayedScrollingRowIndex = DGV_2er.CurrentRow.Cells(0).Value
End Sub
Private Sub DGV_3er_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_3er.CellContentClick
DGV_Hauptanzeige.FirstDisplayedScrollingRowIndex = DGV_3er.CurrentRow.Cells(0).Value
End Sub
Private Sub DGV_4er_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_4er.CellContentClick
DGV_Hauptanzeige.FirstDisplayedScrollingRowIndex = DGV_4er.CurrentRow.Cells(0).Value
End Sub
Private Sub DGV_5er_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_5er.CellContentClick
DGV_Hauptanzeige.FirstDisplayedScrollingRowIndex = DGV_5er.CurrentRow.Cells(0).Value
End Sub
Private Sub DGV_6er_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_6er.CellContentClick
DGV_Hauptanzeige.FirstDisplayedScrollingRowIndex = DGV_6er.CurrentRow.Cells(0).Value
End Sub
End Class

Das ganze ist schon sowas wie eine Endlosschleife, weil die Berechnung eben erst bei einem 6er anhält.

So sieht das ganze zur Laufzait aus:

ErfinderDesRades · 22. Januar 2014, 09:48

offensichtlich zeigst du insgesamt ungefähr 10000 Datensätze an, davon 5000 mit 11 Spalten. Kann schon sein, dass das bisserl viel ist, weil du die Datenhaltung ja auch direkt in den DGVs machst, anstatt in einem typisierten Dataset.

guggemol Daten laden, speichern, verarbeiten
Dein Fall ist noch viel einfacher, du brauchst ja nur eine einzige Tabelle.
Diese Tabelle kannst du ja über mehrere BindingSources verschieden gefiltert an verschiedene DGVs binden - ich denke, 10000 Datensätze machen die dann schon mit - sicher bin ich aber nicht.

Weil im richtigen Leben guckt niemand jemals eine Tabelle mit mehr als 1000 Datensätzen an.

RodFromGermany · 22. Januar 2014, 10:09

@Hobbl:: Ignoriere die Nuller und ggf. auch die Einer.

Hobbl · 22. Januar 2014, 10:15

ErfinderDesRades schrieb:

Hmm! Zahlen ignorieren.

Bei dieser Berechnung ist noch nicht mal eine Superzahl oder eine Super6 dabei, geschweige denn ein Spiel77.
So sieht die zweite Form aus:

Aber ich glaube auch das die 0er und 1er raus müssen, das sind mehr als 80% an Daten.

RodFromGermany · 22. Januar 2014, 10:57

@Hobbl:: Löse das Problem (zunächst) ohne GUI.

Hobbl · 22. Januar 2014, 11:24

Ok!
Werde das ganze dann doch mal mit einem Dataset probieren.(Danke an EdR für die tollen Filme)
Und die 0er, 1er, 2er kommen raus!(nur ignorieren ist "glaub ich" auch nicht gut).

Der kleinste Gewinn geht eh erst mit einem 2er+Zz los.

Lottowahrscheinlichkeit 6 aus 49 (out of memory)

Lottowahrscheinlichkeit 6 aus 49 (out of memory)

Hobbl schrieb:

Quellcode

ErfinderDesRades schrieb:

Tags

Ähnliche Themen

6 Benutzer haben hier geschrieben