• Home
 · 
• Math/Dates
 · 
• Calculator (simple coding)

Calculator (simple coding)

Calculator (simple coding)

API Declarations


18 cmd buttons, 1 text box,



Rate Calculator (simple coding)

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

oper2 As Double
oper As String
cleardisplay As Boolean

Private Sub CMD7_Click()
Dim res As Double
oper2 = Val(TXTDISPLAY.Text)
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
TXTDISPLAY.Text = res
End Sub



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

End Sub

Private Sub CMDC3_Click()
oper1 = Val(TXTDISPLAY.Text)
oper = "+"
TXTDISPLAY.Text = " "
End Sub


Private Sub CMDC4_Click()
oper1 = Val(TXTDISPLAY.Text)
oper = "-"
TXTDISPLAY.Text = " "
End Sub

Private Sub CMDC5_Click()
oper1 = Val(TXTDISPLAY.Text)
oper = "*"
TXTDISPLAY.Text = " "
End Sub

Private Sub CMDC6_Click()
oper1 = Val(TXTDISPLAY.Text)
oper = "/"
TXTDISPLAY.Text = " "
End Sub

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

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



Private Sub CMD0_Click()
TXTDISPLAY.Text = TXTDISPLAY.Text & "0"
End Sub

Private Sub CMD00_Click()
TXTDISPLAY.Text = TXTDISPLAY.Text & "00"
End Sub

Private Sub CMD1_Click()
TXTDISPLAY.Text = TXTDISPLAY.Text & "1"
End Sub

Private Sub CMD2_Click()
TXTDISPLAY.Text = TXTDISPLAY.Text & "2"
End Sub

Private Sub CMD3_Click()
TXTDISPLAY.Text = TXTDISPLAY.Text & "3"
End Sub

Private Sub CMD4_Click()
TXTDISPLAY.Text = TXTDISPLAY.Text & "4"
End Sub

Private Sub CMD5_Click()
TXTDISPLAY.Text = TXTDISPLAY.Text & "5"
End Sub

Private Sub CMD6_Click()
TXTDISPLAY.Text = TXTDISPLAY.Text & "6"
End Sub
Private Sub CMDC7_Click()
TXTDISPLAY.Text = TXTDISPLAY.Text & "7"
End Sub


Private Sub CMD8_Click()
TXTDISPLAY.Text = TXTDISPLAY.Text & "8"
End Sub

Private Sub CMD9_Click()
TXTDISPLAY.Text = TXTDISPLAY.Text & "9"
End Sub

Private Sub CMDDOT_Click()
TXTDISPLAY.Text = TXTDISPLAY.Text & "."
End Sub