HILFE HILFE
22.11.2005 16:38:30
Boris
Ich soll ein Spielautomat programmieren habe ich auch geschafft.
Wenn ich einen OptionButton drücke, dann erscheint im TextBox1 mein Einsatz, aber wenn ich in den TextBox1 auch mein Einsatz gebe geht es und das will ich nicht.
Wie kann ich es machen, dass es nur mit den OptionButtons funktioniert.
Mein Code:
Private Sub CommandButton1_Click()
zahl1 = Int((6 * Rnd) + 1)
Select Case zahl1
Case 1
TextBox2.BackColor = RGB(0, 0, 255)
Case 2
TextBox2.BackColor = RGB(0, 255, 0)
Case 3
TextBox2.BackColor = RGB(255, 0, 0)
Case 4
TextBox2.BackColor = RGB(0, 255, 255)
Case 5
TextBox2.BackColor = RGB(255, 0, 255)
Case 6
TextBox2.BackColor = RGB(255, 255, 0)
End Select
zahl2 = Int((6 * Rnd) + 1)
Select Case zahl2
Case 1
TextBox4.BackColor = RGB(0, 0, 255)
Case 2
TextBox4.BackColor = RGB(0, 255, 0)
Case 3
TextBox4.BackColor = RGB(255, 0, 0)
Case 4
TextBox4.BackColor = RGB(0, 255, 255)
Case 5
TextBox4.BackColor = RGB(255, 0, 255)
Case 6
TextBox4.BackColor = RGB(255, 255, 0)
End Select
zahl3 = Int((6 * Rnd) + 1)
Select Case zahl3
Case 1
TextBox3.BackColor = RGB(0, 0, 255)
Case 2
TextBox3.BackColor = RGB(0, 255, 0)
Case 3
TextBox3.BackColor = RGB(255, 0, 0)
Case 4
TextBox3.BackColor = RGB(0, 255, 255)
Case 5
TextBox3.BackColor = RGB(255, 0, 255)
Case 6
TextBox3.BackColor = RGB(255, 255, 0)
End Select
einsatz = TextBox1.Value
If zahl1 = zahl3 And zahl1 = zahl2 Then
gewinn = einsatz * 8
Else
If zahl1 = zahl2 Or zahl1 = zahl3 Or zahl2 = zahl3 Then
gewinn = einsatz * 4
Else
gewinn = 0
End If
End If
konto = konto + gewinn - einsatz
TextBox5.Value = gewinn
TextBox6.Value = konto
End Sub
Private Sub CommandButton2_Click()
Unload Me
MsgBox (" SEE YOU AGAIN !")
End Sub
Private Sub OptionButton1_Click()
TextBox1.Value = "2 "
End Sub
Private Sub OptionButton2_Click()
TextBox1.Value = "5 "
End Sub
Private Sub OptionButton3_Click()
TextBox1.Value = "10 "
End Sub
Private Sub OptionButton4_Click()
TextBox1.Value = "20 "
End Sub
Private Sub OptionButton5_Click()
TextBox1.Value = "50 "
End Sub
Private Sub OptionButton6_Click()
TextBox1.Value = "100 "
End Sub