Visual Basic Taschenrechner

Dim zahl1 As String
Dim rechenart As String


Private Sub cmd_0_Click()
tf_display = tf_display + "0"
'tf_display = tf_display + 0
End Sub


Private Sub cmd_1_Click()
tf_display = tf_display + "1"
'cmd_display = tf_display + 1
End Sub


Private Sub cmd_2_Click()
tf_display = tf_display + "2"
'tf_display = tf_display + 2
End Sub


Private Sub cmd_3_Click()
tf_display = tf_display + "3"
'tf_display = tf_display + 3
End Sub


Private Sub cmd_4_Click()
tf_display = tf_display + "4"
'tf_display = tf_display + 4
End Sub


Private Sub cmd_5_Click()
tf_display = tf_display + "5"
'tf_display = tf_display + 5
End Sub


Private Sub cmd_6_Click()
tf_display = tf_display + "6"
'tf_display = tf_display + 6
End Sub


Private Sub cmd_7_Click()
tf_display = tf_display + "7"
'tf_display = tf_display + 7
End Sub


Private Sub cmd_8_Click()
tf_display = tf_display + "8"
'tf_display = tf_display + 8
End Sub


Private Sub cmd_9_Click()
tf_display = tf_display + "9"
'tf_display = tf_display + 9
End Sub






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


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


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


Private Sub cmd_löschen_Click()
tf_display = ""
zahl1 = ""
'Variable und Display löschen
End Sub


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


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