• Home
 · 
• Math/Dates
 · 
• Simple Calculator

Simple Calculator

Simple Calculator

API Declarations


Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5
Dim number1 As Double
Dim number2 As Double
Dim numrecall As Double
Dim numrecallb As Double
Dim operation As String
'flashing
Private Declare Function FlashWindow Lib "user32" (ByVal hWnd As Long, ByVal bInvert As Long) As Long



Rate Simple Calculator

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    frmAbout.Show
End Sub

Private Sub cmdBackspace_Click()
txtNumber.Text = _
                    Mid(txtNumber, 1, Len(txtNumber.Text) - 1)
If txtNumber.Text = "" Then
    txtNumber = "0."
End If
End Sub

Private Sub cmdC_Click()
    number2 = txtNumber
'    number2 = ""
    txtNumber = "0."
End Sub

Private Sub cmdCE_Click()
    txtNumber = "0."
End Sub

Private Sub cmdDiv_Click()
    number1 = Val(txtNumber)
    operation = "/"
    txtNumber = "0."
End Sub

Private Sub cmdEight_Click()
If txtNumber = 0 Then
    txtNumber = 8
Else
    txtNumber = txtNumber & 8
End If
End Sub

Private Sub cmdEqual_Click()
number2 = txtNumber
txtNumber = "0"
    Select Case operation
    Case "+"
        txtNumber = number1 + number2
    Case "-"
        txtNumber = number1 - number2
    Case "*"
        txtNumber = number1 * number2
    Case "/"
        txtNumber = number1 / number2
    End Select
End Sub

Private Sub cmdFive_Click()
If txtNumber = 0 Then
    txtNumber = 5
Else
    txtNumber = txtNumber & 5
End If
End Sub

Private Sub cmdFour_Click()
If txtNumber = 0 Then
    txtNumber = 4
Else
    txtNumber = txtNumber & 4
End If
End Sub

Private Sub cmdFrac_Click()
    number1 = Val(txtNumber)
    txtNumber = (1 / number1)
End Sub

Private Sub cmdMC_Click()
    If txtmem = "M" Then
        numrecall = Val("")
        txtmem = ""
    End If
End Sub

Private Sub cmdMplus_Click()
    numrecall = Val(txtNumber)
    txtmem = "M"
End Sub

Private Sub cmdMR_Click()
    txtNumber = numrecall
End Sub

Private Sub cmdMS_Click()
If txtmem.Text = "" Then
    txtmem = "M"
    numrecall = Val(txtNumber)
Else
    numrecall = Null
End Sub

Private Sub cmdMul_Click()
    number1 = Val(txtNumber)
    operation = "*"
    txtNumber = "0."
End Sub

Private Sub cmdNine_Click()
If txtNumber = 0 Then
    txtNumber = 9
Else
    txtNumber = txtNumber & 9
End If
End Sub

Private Sub cmdOne_Click()
If txtNumber = 0 Then
    txtNumber = 1
Else
    txtNumber = txtNumber & 1
End If
End Sub

Private Sub cmdPercent_Click()
    number1 = Val(txtNumber)
    txtNumber = (number1 / 100)
End Sub

Private Sub cmdPlus_Click()
    number1 = Val(txtNumber)
    operation = "+"
    txtNumber = "0."
End Sub

Private Sub cmdpoint_Click()
    txtNumber = txtNumber & "."
End Sub

Private Sub cmdSeven_Click()
If txtNumber = 0 Then
    txtNumber = 7
Else
    txtNumber = txtNumber & 7
End If
End Sub

Private Sub cmdSix_Click()
If txtNumber = 0 Then
    txtNumber = 6
Else
    txtNumber = txtNumber & 6
End If
End Sub

Private Sub cmdSqrt_Click()
    number1 = Val(txtNumber.Text)
    txtNumber = Math.Sqr(number1)
End Sub

Private Sub cmdSub_Click()
    number1 = Val(txtNumber)
    operation = "-"
    txtNumber = "0."
End Sub

Private Sub cmdThree_Click()
If txtNumber = 0 Or txtNumber = "" Then
    txtNumber = 3
Else
    txtNumber = txtNumber & 3
End If
End Sub

Private Sub cmdTwo_Click()
If txtNumber = 0 Then
    txtNumber = 2
Else
    txtNumber = txtNumber & 2
End If
End Sub

Private Sub cmdZero_Click()
If txtNumber = 0 Then
    txtNumber = 0
End If
End Sub

Private Sub copy_Click()
    numrecallb = txtNumber
End Sub

Private Sub design_Click()

End Sub

Private Sub email_Click()
        ShellExecute hWnd, "open", "mailto:[email protected]", vbNullString, vbNullString, SW_SHOW
End Sub

Private Sub Form_Load()
   Dim lngReturnValue As Long
    lngReturnValue = FlashWindow(frmCalcu.hWnd, True)
End Sub

Private Sub paste_Click()
    txtNumber = numrecallb
End Sub