Calcutor Probleme (VB) Hilfe!!!

[slaves]

weiß nich genau ob das der richtige bereich ist, aber ich habs richtig eilig... Wink

ich soll nen Taschenrechner programmieren für ein Referat,aber ich hab ein Problem:
soweit steht der code schon auch beim debuggen gibt es keine probleme,aber wenn man auf die "tasten" drückt passiert nichts!

p.s.: in virtual basic programmiert

hier der code:

Public Class Form1
Dim zahl1 As String
Dim rechenart As String
Dim Text1 As Integer

Private Sub Command9_click()
Text1 = Text1 + "9"
'Display = Display + 9 '
End Sub
Private Sub Command1_click()
Text1 = Text1 + "1"
'Display = Display + 1 '
End Sub

Private Sub Command2_click()
Text1 = Text1 + "2"
'Display = Display + 2 '
End Sub

Private Sub Command3_click()
Text1 = Text1 + "3"
'Display = Display + 3 '
End Sub
Private Sub Command4_click()
Text1 = Text1 + "4"
'Display = Display + 4 '
End Sub

Private Sub Command5_click()
Text1 = Text1 + "5"
'Display = Display + 5 '
End Sub

Private Sub Command6_click()
Text1 = Text1 + "6"
'Display = Display + 6 '
End Sub

Private Sub Command7_click()
Text1 = Text1 + "7"
'Display = Display + 7 '
End Sub

Private Sub Command8_click()
Text1 = Text1 + "8"
'Display = Display + 8 '
End Sub

Private Sub Command0_click()
Text1 = Text1 + "0"
'Display = Display + 0 '
End Sub

Private Sub Command11_click()
zahl1 = Text1
'die Variable soll genau den Wert des Displays erhalten'
rechenart = "addieren"
'variable "rechenart" soll den Wert "addieren" erhalten'
Text1 = ""
'Display leeren'
End Sub

Private Sub Command12_click()
zahl1 = Text1
'die Variable soll genau den Wert des Displays erhalten'
rechenart = "subtrahieren"
'variable "rechenart" soll den Wert "subtrahieren" erhalten'
Text1 = ""
'Display leeren'
End Sub

Private Sub Command13_click()
zahl1 = Text1
'die Variable soll genau den Wert des Displays erhalten'
rechenart = "multiplizieren"
'variable "rechenart" soll den Wert "multiplizieren" erhalten'
Text1 = ""
'Display leeren'
End Sub

Private Sub Command14_click()
zahl1 = Text1
'die Variable soll genau den Wert des Displays erhalten'
rechenart = "dividieren"
'variable "rechenart" soll den Wert "dividieren" erhalten'
Text1 = ""
'Display leeren'
End Sub

Private Sub CommandC_click()
text1 = ""
zahl1 = ""
'Variable und Display löschen'
End Sub

Private Sub Commandistgleich_click()
If rechenart = "addieren" Then
Text1 = CDbl(zahl1) + CDbl(text1)
'mit cdbl() wird der jeweilige Inhalt in Zahlen umgewandelt'
ElseIf rechenart = "subtrahieren" Then
text1 = CDbl(zahl1) - CDbl(Text1)
ElseIf rechenart = "multiplizieren" Then
text1 = CDbl(zahl1) * CDbl(Text1)
ElseIf rechenart = "dividieren" Then
Text1 = CDbl(zahl1) / CDbl(Text1)
End If
End Sub

End Class


ich hab das gefühl es liegt mit der deklarierung von text1 zusammen...

 

[WHO CARES ??]

Guten Abend slaves

Leider kann ich dir ad-hoc keinen Lösungsansatz bieten - ich verschieb dich deshalb in ein passendes Unterforum.

Viel Erfolg bei der Fehlersuche!
Grüsse WC?? Moderator