by HEMANT KUMAR (1 Submission)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 20th August 2009
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Calculator (simple coding)
API Declarations
18 cmd buttons, 1 text box,
VBcoders
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
