Project Calculator
Project Calculator
API Declarations
Dim ope1 As Double
Dim ope2 As Double
Dim sign As String
Dim num1 As Double
Dim num As Double
Rate Project Calculator
(1(1 Vote))
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
Project Calculator Comments
No comments yet — be the first to post one!
Post a Comment