VBA Taschenrechner

taschenrechner.vba

' Lizenz: Public Domain
' Autor: Markus Ritzmann
 
Public Ausgabe1 As Byte 'Damit Variable Sub-Uebergreifend gespeichert wird
Public Operator As String 'Damit Variable Sub-Uebergreifend gespeichert wird
 
Private Sub cmd0_Click()
    txt.Text = txt.Text & 0
End Sub
 
Private Sub cmd1_Click()
    txt.Text = txt.Text & 1
End Sub
 
Private Sub cmd2_Click()
    txt.Text = txt.Text & 2
End Sub
 
Private Sub cmd3_Click()
    txt.Text = txt.Text & 3
End Sub
 
Private Sub cmd4_Click()
    txt.Text = txt.Text & 4
End Sub
 
Private Sub cmd5_Click()
    txt.Text = txt.Text & 5
End Sub
 
Private Sub cmd6_Click()
    txt.Text = txt.Text & 6
End Sub
 
Private Sub cmd7_Click()
    txt.Text = txt.Text & 7
End Sub
 
Private Sub cmd8_Click()
    txt.Text = txt.Text & 8
End Sub
 
Private Sub cmd9_Click()
    txt.Text = txt.Text & 9
End Sub
 
Private Sub cmddelete_Click()
    txt.Text = "" 'Anzeigefeld leeren
End Sub
 
Private Sub cmddividieren_Click()
    Ausgabe1 = txt.Text
    txt.Text = ""
    Operator = "/"
End Sub
 
Private Sub cmdenter_Click()
    Ausgabe2 = txt.Text
    Select Case Operator
        Case "+"
            Ergebnis = Ausgabe1 + Ausgabe2
        Case "-"
            Ergebnis = Ausgabe1 - Ausgabe2
        Case "*"
            Ergebnis = Ausgabe1 * Ausgabe2
        Case "/"
            Ergebnis = Ausgabe1 / Ausgabe2
    End Select
    txt.Text = Ergebnis
End Sub
 
Private Sub cmdmal_Click()
    Ausgabe1 = txt.Text
    txt.Text = ""
    Operator = "*"
End Sub
 
Private Sub cmdminus_Click()
    Ausgabe1 = txt.Text
    txt.Text = ""
    Operator = "-"
End Sub
 
Private Sub cmdplus_Click()
    Ausgabe1 = txt.Text
    txt.Text = ""
    Operator = "+"
End Sub