Brauche Hilfe bei Slotmaschine

[XIDOS]

Hi Leute
hab mal wieder nen Problem:
Ich möchte eine Slotmaschine bauen wo der Benutzer eine Zahl zwischen 0-9 eingibt und die Slotmaschne 20 Zufallszahlen bildet und ausgibt und es soll geprüft werden wie oft diese Zahl gebildet worden ist. Mein Problem ist es dass die Slotmaschine manche Zahlen zählt manche nicht macnhce doppelt.... also falsch!
Hier mein Code:

Option Explicit
Dim Zahl As Integer
Dim begrenzung As Integer
Dim a As Integer
Dim b As Integer

Private Sub cmd_abbrechen_Click()
End
End Sub

Private Sub cmd_stop_Click()
tmr_takt.Enabled = False
tmr_begrenzung.Enabled = False
End Sub

Private Sub cmd_start_Click()
a = 0
begrenzung = 0
b = txt_ziffer.Text
tmr_takt.Enabled = True
tmr_begrenzung.Enabled = True
End Sub

Private Sub Form_Load()

tmr_takt.Enabled = False
tmr_begrenzung.Enabled = False
txt_ziffer.Text = ""
Randomize

End Sub


Private Sub tmr_begrenzung_Timer()
begrenzung = begrenzung + 1
Select Case begrenzung
Case 0
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 1
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 2
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 3
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 4
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 5
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 6
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 7
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 8
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 9
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 10
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 11
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 12
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 13
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 14
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 15
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 16
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 17
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 18
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 19
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If
Case 20
If Zahl = b Then
    a = a + 1
    lbl_count.Caption = a
End If

End Select
If begrenzung = "20" Then
    tmr_takt.Enabled = False
    tmr_begrenzung.Enabled = False
    lbl_count.Caption = a

End If

End Sub

Private Sub tmr_takt_Timer()
Zahl = Int(10 * Rnd)
lbl_zahl.Caption = Zahl

Select Case Zahl
Case 0
lbl_zahl.BackColor = vbWhite
Case 1
lbl_zahl.BackColor = vbWhite
Case 2
lbl_zahl.BackColor = vbWhite
Case 3
lbl_zahl.BackColor = vbWhite
Case 4
lbl_zahl.BackColor = vbWhite
Case 5
lbl_zahl.BackColor = vbWhite
Case 6
lbl_zahl.BackColor = vbWhite
Case 7
lbl_zahl.BackColor = vbWhite
Case 8
lbl_zahl.BackColor = vbWhite
Case 9
lbl_zahl.BackColor = vbWhite
End Select
End Sub

Ich hoffe ihr könnt mir helfen

 

[XIDOS]

Habs selbst hinbekommen
Wens interesiert hier der Code:

Option Explicit
Dim Zahl As Integer
Dim Begrenzung As Integer
Dim Treffer As Integer
Dim Benutzerzahl As Integer

Private Sub cmd_abbrechen_Click()           'Button zum Abbrechen des Programms'
End                                         'Beendet das Programm'
End Sub

Private Sub cmd_reset_Click()               'Button um alles auf Null zu setzen'
Treffer = 0                                 'Treffer Variable wird mit dem Wert 0 belegt'
Begrenzung = 0                              'Begrenzung Variable wird mit dem Wert 0 belegt'
txt_ziffer.Text = ""                        'Der Inhalt von der TextBox txt_ziffer wird gelöscht'
lbl_count = 0
lbl_zahl = ""
tmr_takt.Enabled = False
tmr_begrenzung.Enabled = False
txt_ziffer.Enabled = True
lbl_warten.Visible = False
lbl_treffer.Visible = True
End Sub

Private Sub cmd_start_Click()
Treffer = 0
Begrenzung = 0
Benutzerzahl = txt_ziffer.Text
tmr_takt.Enabled = True
tmr_begrenzung.Enabled = True
If Benutzerzahl >= 10 Then
    MsgBox "Das geht nicht! Du musst eine Einstellige Zahl eingeben! Drücke 'Reset' um eine neue Zahl einzugeben"
    tmr_takt.Enabled = False
    tmr_begrenzung.Enabled = False
End If
txt_ziffer.Enabled = False
lbl_warten.Visible = True
lbl_treffer.Visible = False
End Sub

Private Sub cmd_stop_Click()
tmr_takt.Enabled = False
tmr_begrenzung.Enabled = False
txt_ziffer.Enabled = True
lbl_warten.Visible = False
lbl_treffer.Visible = True
End Sub

Private Sub Form_Load()

tmr_takt.Enabled = False
tmr_begrenzung.Enabled = False
txt_ziffer.Text = ""
lbl_count = 0
Randomize
lbl_warten.Visible = False
lbl_treffer.Visible = False
End Sub

Private Sub tmr_begrenzung_Timer()
Begrenzung = Begrenzung + 1
Select Case Begrenzung
    Case 0 To 19
    Case 20
    tmr_takt.Enabled = False
    tmr_begrenzung.Enabled = False
    lbl_warten.Visible = False
    lbl_treffer.Visible = True
    If lbl_count = 0 Then
        lbl_glueck.Caption = "Vielleicht hast du nächstes mal mehr Glück"
    End If
End Select
End Sub

Private Sub tmr_takt_Timer()
Zahl = Int(10 * Rnd)
lbl_zahl.Caption = Zahl
If Zahl = Benutzerzahl Then
    Treffer = Treffer + 1
    lbl_count.Caption = Treffer
    txt_ziffer.Enabled = True
End If
Select Case Zahl
    Case 0
    lbl_zahl.BackColor = vbWhite
    Case 1
    lbl_zahl.BackColor = vbWhite
    Case 2
    lbl_zahl.BackColor = vbWhite
    Case 3
    lbl_zahl.BackColor = vbWhite
    Case 4
    lbl_zahl.BackColor = vbWhite
    Case 5
    lbl_zahl.BackColor = vbWhite
    Case 6
    lbl_zahl.BackColor = vbWhite
    Case 7
    lbl_zahl.BackColor = vbWhite
    Case 8
    lbl_zahl.BackColor = vbWhite
    Case 9
    lbl_zahl.BackColor = vbWhite
End Select
End Sub

Und die Exe Datei als Zip: