• Home
 · 
• Math/Dates
 · 
• Calculator

Calculator

Calculator

Rate Calculator

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub C1_Click()
If Display.Caption = "" Then
MsgBox "Hey man! Give me something to destroy!", 64 + vbOKOnly, "Mad Guy"
Else: Display.Caption = ""
End If
End Sub

Private Sub C2_Click()
If InStr(Display.Caption, "") Then
Exit Sub
Else: Display.Caption = Display.Caption + "."
End If
End Sub

Private Sub C3_Click()
oper1 = Val(Display.Caption)
oper = "+"
Display.Caption = " "
End Sub

Private Sub C4_Click()
oper1 = Val(Display.Caption)
oper = "-"
Display.Caption = " "
End Sub

Private Sub C5_Click()
oper1 = Val(Display.Caption)
oper = "*"
Display.Caption = " "
End Sub

Private Sub C6_Click()
oper1 = Val(Display.Caption)
oper = "/"
Display.Caption = " "
End Sub

Private Sub C7_Click()
Dim res As Double
oper2 = Val(Display.Caption)
If oper = "+" Then res = oper1 + oper2
If oper = "-" Then res = oper1 - oper2
If oper = "*" Then res = oper1 * oper2
If oper = "/" And oper2 <> "0" Then res = oper1 / oper2
Display.Caption = res
End Sub

Private Sub Digits_Click(Index As Integer)
If cleardisplay Then
Display.Caption = ""
cleardisplay = False
End If
Display.Caption = Display.Caption + Digits(Index).Caption
End Sub

Private Sub Form_Load()

End Sub