Problem mit meinem Lotto System

  • VB6

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von Derfuhr.

    Problem mit meinem Lotto System

    Moin Community,
    Ich habe mal wieder ein doofes Problem. Ich muss ein Lotto-Spiel programmieren welches auch bisher fehlerfrei läuft, nur gibts da eine Sache. Ich muss jetzt prüfen lassen ob die Zahlen im Array Doppelt vorhanden sind, und wenn ja, sollen sie ersetzt werden mit einem anderen Wert damit sie nicht mehr gleich sind. An sich klingt das ziemlich einfach nur steige ich in meinem Code selber gerade kaum noch durch und verzweifle gerade daran. Egal was ich mache, sobald ich die Lottozahlen anzeigen lasse gibt es manchmal trotzdem eine Zahl doppelt.
    Hier habt ihr den Sourcecode, ich hoffe ich kriege irgendwie Hilfe!

    Visual Basic-Quellcode

    1. Private Sub btn_auswerten_Click()
    2. Randomize
    3. 'Zahlenvergabe
    4. Ziehung = 0
    5. While Ziehung < 6
    6. Ziehung = Ziehung + 1
    7. Do
    8. ' Zufallszahl zwischen 1 und 49
    9. Zahl = Int(49 * Rnd + 1)
    11. ' Prüfen ob Zufallszahl bereits gezogen wurde
    12. Ergebnis = True
    13. For I = 1 To Ziehung
    14. If ZahlenArray(I) = Zahl Then
    15. Ergebnis = False: Exit For
    16. End If
    17. Next I
    18. Loop Until Ergebnis = True
    20. ZahlenArray(Ziehung) = Zahl
    22. 'Array Werte werden sortiert nach Größe.
    23. For K = 1 To 6
    24. For I = 1 To 7
    25. If ZahlenArray(K) > ZahlenArray(I) Then
    26. temp = ZahlenArray(K)
    27. ZahlenArray(K) = ZahlenArray(I)
    28. ZahlenArray(I) = temp
    29. End If
    30. Next I
    31. Next K
    32. Wend
    34. ' Lottozahlen anzeigen
    35. For I = 1 To 6
    36. lbl_ziehung(I).Caption = ZahlenArray(I)
    37. Next I
    39. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ReisenderHippie“ ()

    ReisenderHippie schrieb:

    ' Prüfen ob Zufallszahl bereits gezogen wurde
    Du verwendest das Ergebnis nicht.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hier ein Beispiel einer Lotto-Simulation 6 aus 49 mit Zusatzzahl:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private rnd As New Random
    4. Private numbers As List(Of Integer)
    6. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    7. numbers = New List(Of Integer)
    8. While numbers.Count < 7
    9. Dim number As Integer = rnd.Next(1, 50)
    10. If Not numbers.Contains(number) Then
    11. numbers.Add(number)
    12. End If
    13. End While
    14. MessageBox.Show(String.Join(","c, numbers))
    15. End Sub
    17. End Class


    Edit: Sorry hatte zu spät bemerkt, dasses um VB6 geht X/

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Derfuhr“ ()

    Und hier eine 6 aus 49 Simulation ohne Zusatzzahl :) :

    C#-Quellcode

    1. Random rand = new Random();
    2. HashSet<int> result = new HashSet<int>();
    3. while (result.Count < 6)
    4. result.Add(rand.Next(1, 49));

    Deine, sich nicht wiederholenden Zahlen, stecken nun im HashSet 'result'.

    Edit: Sorry ich hatte auch zu spät bemerkt, dass es um VB6 geht :whistling:

    Schau dir mal meins und das von dort an, komischerweise krieg ich trotzdem manchmal einfach so doppelte Zahlen. Und dazu kommt noch das die Zahlen teilweise unter 6 sind, die mir angezeigt werden.

    //EDIT:
    Ich habe das generieren der Zahlen von dem übernommen und überarbeitet auf meine Labels, Variablen usw. An sich geht es nur sind manchmal doppelte zahlen & zahlen unter 6 dabei.

    man fühl ich mich scheiße weil ich VB6 lernen muss...unser Lehrer sagt "Das gute an VB6 ist das es pure Programmierung ist in der viele Funktionen die heute selbstverständlich sind nicht vorhanden sind, die du selber programmieren musst, daran lernst du alle grundlagen und das denken schneller". Irgendwo stimmt das zwar..aber...vb6...ernsthaft? ._.

    So hab nun extra die alte CD rausgesucht um das mal anzutesten, der Code bei vbarchiv den @diylab postete funktioniert bei mir einwandfrei. Hier nun auch aufsteigend sortiert:

    Visual Basic-Quellcode

    1. Dim Lottozahl(7) As Integer
    3. Private Sub Command1_Click()
    4. Randomize -Timer
    5. Dim Ziehung As Integer
    6. Dim i As Integer
    7. Dim Result As Boolean
    8. Dim Zahl As Integer
    9. Ziehung = 0
    10. While Ziehung < 7
    11. Ziehung = Ziehung + 1
    12. Do
    13. Zahl = Int(49 * Rnd + 1)
    14. Result = True
    15. For i = 1 To Ziehung - 1
    16. If Lottozahl(i) = Zahl Then
    17. Result = False: Exit For
    18. End If
    19. Next i
    20. Loop Until Result = True
    21. Lottozahl(Ziehung) = Zahl
    22. Wend
    23. Sortieren
    24. End Sub
    26. Private Sub Sortieren()
    27. Dim temp As Integer
    28. For i = 2 To 6
    29. For j = i To 2 Step -1
    30. If Lottozahl(j) < Lottozahl(j - 1) Then
    31. temp = Lottozahl(j)
    32. Lottozahl(j) = Lottozahl(j - 1)
    33. Lottozahl(j - 1) = temp
    34. End If
    35. Next
    36. Next
    37. Dim Msg As String
    38. Msg = "Die Lottozahlen lauten: "
    39. For i = 1 To 7
    40. Select Case i
    41. Case 1 To 5
    42. Msg = Msg & Format$(Lottozahl(i)) & ", "
    43. Case 6
    44. Msg = Msg & Format$(Lottozahl(i)) & " und die Zusatzzahl lautet: "
    45. Case 7
    46. Msg = Msg & Format$(Lottozahl(i)) & "."
    47. End Select
    48. Next i
    49. MsgBox Msg
    50. End Sub


    Irgendwie hat dein Lehrer schon recht, so lernt manns wirklich besser. Aber zum produktieven Einsatz ist VB.Net besser geeignet.

    ReisenderHippie schrieb:

    Natürlich benutze ich das Ergebnis
    Natürlich...
    Sieh Dir bitte Deinen Code daraufhin noch mal an.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Was Dein Lehrer da züchtet, sind Menschen, die dann später (falls sie jemals wieder Programmieren) mit modernen Werkzeugen aktueller Programmiersprachen nicht umgehen können und bestenfalls prozedurales Programmieren kennen und am allerbesten in einem Projekt 1000 globale Variablen verwenden die dann diesem Teil zu einem putzigen Eigenleben verhelfen.
    Ich kenne selbst solch einen Unhold, der 10 Jahre VBA-Access gebrauchte und mir in 2 Jahren alle meine .NET Projekte (die er pflegen musste) bis zur Unkenntlichkeit zerballert hat - dieser Wurm :D .

    Ja C bzw. C++ find ich schon eine feine Sache, versteh grad net wirklich warum ihr mit VB anfangt, wenn ihr eh mit C/C++ weitermacht. Wenn es dem Lehrer nur darum geht, das im es Framework so viele selbstverstädliche Funktionen gibt, die ihr vonne Picke auf lernen(entwickeln zu lernen) sollt, hättet ihr direkt von anfang an die C-Syntax geniessen sollen.

    Ich z.B. hab damals mit VB.Net angefangen, weil es massenweise Codes via google gibt, hätte ich damals jemandem gehabt der mir das richtig in C/C++ erklärt, hätte ich niemals mit VB.net angefangen und müsste mich jetzt nicht(auch wenn ich es will) mit C/C++ mehr oder weniger "quälen". Obwohl ich sagen muss, das das Net.Framework auch in sehr mächtiges Werkzeug ist.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Derfuhr“ ()

Facebook
Telefonspende