by Betha Joy (1 Submission)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 5th January 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
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
VBcoders
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
