• Home
 · 
• Math/Dates
 · 
• Project Calculator

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
• 2
• 3
• 4
• 5

(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