Der Code lautet wie folgt:
Kopieren Sie den Codecode wie folgt:
/**
*Autor: schwarzes Vogelherz
*Version:1.0
*/
Dim IntX As Double 'Globale Variable zum Speichern berechneter Werte
Dim IntOperation As Double 'Operationstyp markieren
Dim isBegin As Boolean 'Ob dem Tag ein Wert für IntX zugewiesen wurde
Public Sub Clear() 'Befehlsfunktion löschen
screen.Caption = ""
Sub beenden
Öffentlicher Sub SavaToIntX()
Wählen Sie Case IntOperation aus
Fall 1 'Zusatz
Wenn isBegin = False Dann
IntX = Val(screen.Caption)
isBegin = True
Anders
IntX = IntX + Val(screen.Caption)
Ende wenn
Fall 2 „Subtraktion
Wenn isBegin = False Dann
IntX = Val(screen.Caption)
isBegin = True
Anders
IntX = IntX - Val(screen.Caption)
Ende wenn
Fall 3 „Multiplikation
Wenn isBegin = False Dann
IntX = Val(screen.Caption)
isBegin = True
Anders
IntX = IntX * Val(screen.Caption)
'screen.Caption = IntX
Ende wenn
Fall 4 „Abteilung
Wenn isBegin = False Dann
IntX = Val(screen.Caption)
isBegin = True
Anders
IntX = IntX / Val(screen.Caption)
Ende wenn
Endauswahl
Sub beenden
Privater Unterbefehl0_Click()
screen.Caption = screen.Caption & 0
Sub beenden
Privater Unterbefehl1_Click()
screen.Caption = screen.Caption & 1
Sub beenden
Privater Unterbefehl2_Click()
screen.Caption = screen.Caption & 2
Sub beenden
Privater Unterbefehl3_Click()
screen.Caption = screen.Caption & 3
Sub beenden
Privater Unterbefehl4_Click()
screen.Caption = screen.Caption & 4
Sub beenden
Privater Unterbefehl5_Click()
screen.Caption = screen.Caption & 5
Sub beenden
Privater Unterbefehl6_Click()
screen.Caption = screen.Caption & 6
Sub beenden
Privater Unterbefehl7_Click()
screen.Caption = screen.Caption & 7
Sub beenden
Privater Unterbefehl8_Click()
screen.Caption = screen.Caption & 8
Sub beenden
Privater Unterbefehl9_Click()
screen.Caption = screen.Caption & 9
Sub beenden
Private Sub CommandClear_Click() 'Befehl löschen
isBegin = Falsch
IntOperation = 0
IntX = 0
screen.Caption = ""
Sub beenden
Private Sub CommandEqual_Click() 'Gleichheitszeichenoperation
Wenn IntOperation <> 0, dann „Wenn eine Operationsmarkierung vorhanden ist.“
CallSavaToIntX
IntOperation = 0
isBegin = Falsch
screen.Caption = IntX
Ende wenn
Sub beenden
Private Sub CommandMinus_Click() 'Subtraktionsoperation
Wenn IntOperation <> 0, dann „Wenn eine Operationsmarkierung vorhanden ist.“
CallSavaToIntX
IntOperation = 2
Rufen Sie Clear an
Anders
IntOperation = 2
CallSavaToIntX
Rufen Sie Clear an
Ende wenn
Sub beenden
Private Sub CommandMultiple_Click() 'Multiplikationsoperation
Wenn IntOperation <> 0, dann „Wenn eine Operationsmarkierung vorhanden ist.“
CallSavaToIntX
IntOperation = 3
Rufen Sie Clear an
Anders
IntOperation = 3
CallSavaToIntX
Rufen Sie Clear an
Ende wenn
Sub beenden
Private Sub CommandPlus_Click() 'Additionsoperation
Wenn IntOperation <> 0, dann „Wenn eine Operationsmarkierung vorhanden ist.“
CallSavaToIntX
IntOperation = 1
Rufen Sie Clear an
Anders
IntOperation = 1
CallSavaToIntX
Rufen Sie Clear an
Ende wenn
Sub beenden
Private Sub CommandSlash_Click() 'Divisionsoperation
Wenn IntOperation <> 0, dann „Wenn eine Operationsmarkierung vorhanden ist.“
CallSavaToIntX
IntOperation = 4
Rufen Sie Clear an
Anders
IntOperation = 4
CallSavaToIntX
Rufen Sie Clear an
Ende wenn
Sub beenden