Hallo,
habe ein Problem, was ist an dem Quellcode beim Gleizeichen falsch, WICHTIG BITTE EINE INFO
Private Sub CommandButton1_Click()
wert1 = TextBox1.Value
taste = 1
TextBox1.Value = "+"
End Sub
Private Sub CommandButton2_Click()
wert1 = TextBox1.Value
taste = 1
TextBox1.Value = "-"
End Sub
Private Sub CommandButton3_Click()
wert1 = TextBox1.Value
taste = 1
TextBox1.Value = "*"
End Sub
Private Sub CommandButton4_Click()
wert1 = TextBox1.Value
taste = 1
TextBox1.Value = "/"
End Sub
Private Sub CommandButton5_Click()
wert2 = TextBox1.Value
If taste = 1 Then ergebnis = wert1 + wert2
If taste = 2 Then ergebnis = wert1 - wert2
If taste = 3 Then ergebnis = wert1 * wert2
If taste = 4 Then ergebnis = wert1 / wert2
End Sub
Private Sub CommandButton6_Click()
TextBox1.Text = "1"
End Sub
Private Sub CommandButton7_Click()
TextBox1.Text = "2"
End Sub
Private Sub CommandButton8_Click()
TextBox1.Text = "3"
End Sub
Private Sub CommandButton9_Click()
TextBox1.Text = "4"
End Sub
Private Sub CommandButton10_Click()
TextBox1.Text = "5"
End Sub
Private Sub CommandButton11_Click()
TextBox1.Text = "6"
End Sub
Private Sub CommandButton12_Click()
TextBox1.Text = "7"
End Sub
Private Sub CommandButton13_Click()
TextBox1.Text = "8"
End Sub
Private Sub CommandButton14_Click()
TextBox1.Text = "9"
End Sub
Quax Gast |