by Razcal (1 Submission)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 9th May 2006
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Project Calculator
API Declarations
Dim ope1 As Double
Dim ope2 As Double
Dim sign As String
Dim num1 As Double
Dim num As Double
ope1 = lblDisp.Caption
lblDisp.Caption = ""
sign = cmdAdd(Index).Caption
End Sub
Private Sub cmdBack_Click()
If lblDisp.Caption <> "" Then
lblDisp.Caption = Mid(lblDisp.Caption, 1, Len(lblDisp.Caption) - 1)
End If
End Sub
Private Sub cmdC_Click()
If cmdC Then
lblDisp.Caption = ""
cmdC = False
End If
lblDisp.Caption = ""
End Sub
Private Sub cmdCE_Click()
lblDisp.Caption = ""
num = Empty
num1 = Empty
End Sub
Private Sub cmddiv_Click(Index As Integer)
ope1 = lblDisp.Caption
lblDisp.Caption = ""
sign = cmddiv(Index).Caption
End Sub
Private Sub cmdDot_Click()
If InStr(lblDisp.Caption, ".") Then
Exit Sub
Else
lblDisp.Caption = lblDisp.Caption & "."
End If
End Sub
Private Sub cmdEight_Click(Index As Integer)
If lblDisp.Caption = "" Then
lblDisp.Caption = cmdEight(Index).Caption
Else
lblDisp.Caption = lblDisp.Caption & cmdEight(Index).Caption
End If
End Sub
Private Sub cmdEqual_Click()
ope2 = lblDisp.Caption
If sign = "-" Then
lblDisp.Caption = ope1 - ope2
ElseIf sign = "+" Then
lblDisp.Caption = ope1 + ope2
ElseIf sign = "*" Then
lblDisp.Caption = ope1 * ope2
ElseIf sign = "/" Then
If Val(lblDisp.Caption) = 0 Then
MsgBox "Cannot divide by zero!", vbInformation + vbOKOnly
Exit Sub
End If
lblDisp.Caption = ope1 / ope2
End If
End Sub
Private Sub cmdFive_Click(Index As Integer)
If lblDisp.Caption = "" Then
lblDisp.Caption = cmdFive(Index).Caption
Else
lblDisp.Caption = lblDisp.Caption & cmdFive(Index).Caption
End If
End Sub
Private Sub cmdFour_Click(Index As Integer)
If lblDisp.Caption = "" Then
lblDisp.Caption = cmdFour(Index).Caption
Else
lblDisp.Caption = lblDisp.Caption & cmdFour(Index).Caption
End If
End Sub
Private Sub cmdmul_Click(Index As Integer)
ope1 = lblDisp.Caption
lblDisp.Caption = ""
sign = cmdmul(Index).Caption
End Sub
Private Sub cmdOver_Click(Index As Integer)
If Val(lblDisp.Caption) <> 0 Then
lblDisp.Caption = 1 / Val(lblDisp.Caption)
End If
End Sub
Private Sub cmdPlusminus_Click(Index As Integer)
lblDisp.Caption = lblDisp.Caption * (-1)
End Sub
Private Sub cmdNine_Click(Index As Integer)
If lblDisp.Caption = "" Then
lblDisp.Caption = cmdNine(Index).Caption
Else
lblDisp.Caption = lblDisp.Caption & cmdNine(Index).Caption
End If
End Sub
Private Sub cmdOne_Click(Index As Integer)
If lblDisp.Caption = "" Then
lblDisp.Caption = cmdOne(Index).Caption
Else
lblDisp.Caption = lblDisp.Caption & cmdOne(Index).Caption
End If
End Sub
Private Sub cmdSeven_Click(Index As Integer)
If lblDisp.Caption = "" Then
lblDisp.Caption = cmdSeven(Index).Caption
Else
lblDisp.Caption = lblDisp.Caption & cmdSeven(Index).Caption
End If
End Sub
Private Sub cmdSix_Click(Index As Integer)
If lblDisp.Caption = "" Then
lblDisp.Caption = cmdSix(Index).Caption
Else
lblDisp.Caption = lblDisp.Caption & cmdSix(Index).Caption
End If
End Sub
Private Sub cmdSqrt_Click()
If lblDisp.Caption < 0 Then
MsgBox "Can't Calculate the square root of a negative number.", vbInformation + vbOKOnly
Else
lblDisp.Caption = Sqr(Val(lblDisp.Caption))
End If
End Sub
Private Sub cmdsub_Click(Index As Integer)
ope1 = lblDisp.Caption
lblDisp.Caption = ""
sign = cmdsub(Index).Caption
End Sub
Private Sub cmdThree_Click(Index As Integer)
If lblDisp.Caption = "" Then
lblDisp.Caption = cmdThree(Index).Caption
Else
lblDisp.Caption = lblDisp.Caption & cmdThree(Index).Caption
End If
End Sub
Private Sub cmdTwo_Click(Index As Integer)
If lblDisp.Caption = "" Then
lblDisp.Caption = cmdTwo(Index).Caption
Else
lblDisp.Caption = lblDisp.Caption & cmdTwo(Index).Caption
End If
End Sub
Private Sub cmdZero_Click(Index As Integer)
If lblDisp.Caption = "" Then
lblDisp.Caption = cmdZero(Index).Caption
Else
lblDisp.Caption = lblDisp.Caption & cmdZero(Index).Caption
End If
End Sub