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!
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
- Private Sub btn_auswerten_Click()
- Randomize
- 'Zahlenvergabe
- Ziehung = 0
- While Ziehung < 6
- Ziehung = Ziehung + 1
- Do
- ' Zufallszahl zwischen 1 und 49
- Zahl = Int(49 * Rnd + 1)
- ' Prüfen ob Zufallszahl bereits gezogen wurde
- Ergebnis = True
- For I = 1 To Ziehung
- If ZahlenArray(I) = Zahl Then
- Ergebnis = False: Exit For
- End If
- Next I
- Loop Until Ergebnis = True
- ZahlenArray(Ziehung) = Zahl
- 'Array Werte werden sortiert nach Größe.
- For K = 1 To 6
- For I = 1 To 7
- If ZahlenArray(K) > ZahlenArray(I) Then
- temp = ZahlenArray(K)
- ZahlenArray(K) = ZahlenArray(I)
- ZahlenArray(I) = temp
- End If
- Next I
- Next K
- Wend
- ' Lottozahlen anzeigen
- For I = 1 To 6
- lbl_ziehung(I).Caption = ZahlenArray(I)
- Next I
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ReisenderHippie“ ()