by Rajkumar (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 28th May 2009
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Calculator
API Declarations
Dim NumberClicked
Dim Value
Dim NumberVal
Dim DisplayOff
Dim DecimalValue
Dim EqualSign
Dim DecimalFlag
Dim Percentage
Dim LastInput
Dim Previous
Dim ReadoutValue
Dim EqualTo
Dim Key
Dim Ready
Dim MaxLength
VBcoders
DecimalFlag &H3D False
LastInput &H3D "NONE"
lblDisplay &H3D Format("0")
End Sub
'Click event procedure for the number Zero ( 0 ) button.
Sub cmdZero_Click()
If Value <&H3D 4 Then
EqualSign &H3D EqualSign + 1
End If
If NumberClicked &H3D 1 Then
lblDisplay &H3D ""
NumberClicked &H3D 0
End If
If Val(lblDisplay) > 0 Or Val(lblDisplay) < 0 Or DecimalValue &H3D Then
lblDisplay &H3D lblDisplay + "0"
Else
lblDisplay &H3D "0"
NumberClicked &H3D 1
End If
If DisplayOff &H3D 0 Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the number One ( 1 ) button.
Sub cmdOne_Click()
lblDisplay &H3D lblDisplay + "1"
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the number Two ( 2 ) button.
Sub cmdTwo_Click()
lblDisplay &H3D lblDisplay + "2"
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the number Three ( 3 ) button.
Sub cmdThree_Click()
lblDisplay &H3D lblDisplay + "3"
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the number Four ( 4 ) button.
Sub cmdFour_Click()
lblDisplay &H3D lblDisplay + "4"
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the number Five ( 5 ) button.
Sub cmdFive_Click()
lblDisplay &H3D lblDisplay + "5"
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the number Six ( 6 ) button.
Sub cmdSix_Click()
lblDisplay &H3D lblDisplay + "6"
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the number Seven ( 7 ) button.
Sub cmdSeven_Click()
lblDisplay &H3D lblDisplay + "7"
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the number Eight ( 8 ) button.
Sub cmdEight_Click()
lblDisplay &H3D lblDisplay + "8"
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the number Nine ( 9 ) button.
Sub cmdNine_Click()
lblDisplay &H3D lblDisplay + "9"
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the Plus ( + ) button.
Sub cmdPlus_Click()
NumberVal &H3D Val(lblDisplay)
lblDisplay &H3D ""
Value &H3D 1
DecimalValue &H3D 0
EqualSign &H3D 1
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the Minus ( - ) button.
Sub cmdMinus_Click()
cmdMinus &H3D "-"
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the Divide ( / ) button.
Sub cmdDivide_Click()
cmdDivide &H3D "/"
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the Multiply ( * ) button.
Sub cmdMultiply_Click()
cmdMultiply &H3D "*"
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the Equal ( &H3D ) button.
Sub cmdEqual_Click()
Assess_Readout
If Key &H3D 1 Then 'for Minus
EqualTo &H3D Previous - ReadoutValue
End If
If Key &H3D 2 Then 'for Multiplied by
EqualTo &H3D Previous * ReadoutValue
End If
If Key &H3D 3 Then 'for Divided by
If ReadoutValue &H3D 0 Then
txtDisplay.Text &H3D "Cannot Divide By Zero"
Ready &H3D 0
Beep
Exit Sub
Else
EqualTo &H3D Previous / ReadoutValue
End If
End If
If Key &H3D 4 Then 'for Plus
EqualTo &H3D Previous + Readout_Value
End If
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the Decimal Point ( . ) button.
Sub cmdDecimal_Click()
If lblDisplay &H3D "" Or NumberClicked &H3D 1 Then
lblDisplay &H3D "0"
End If
If DecimalValue &H3D 0 Then
lblDisplay &H3D lblDisplay + "."
Dec &H3D 1
End If
NumberClicked &H3D 0
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the Square Root ( sqrt) button.
Sub cmdSqRoot_Click()
If lblDisplay > 0 Then
lblDisplay.Text &H3D Sqr(lblDisplay)
Else
lblDisplay.Text &H3D "Infinity"
End If
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the Percent ( % ) button.
Sub cmdPercent_Click()
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the Plus/Minus (+/-) button.
Sub cmdPlusMinus_Click()
If Len(lblDisplay) &H3D 0 Or lblDisplay &H3D "-" Then
lblDisplay &H3D "-"
Exit Sub
End If
lblDisplay &H3D lblDisplay * -1
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the 1/x button.
Sub cmdFraction_Click()
lblDisplay.Text &H3D 1 / lblDisplay.Text
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the Backspace button.
Sub cmdBackSpc_Click()
If (lblDisplay <> "") Then
lblDisplay &H3D Mid(lblDisplay, 1, Len(lblDisplay) - 1)
End If
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the Clear ( C ) button.
Sub cmdC_Click()
lblDisplay &H3D ""
NumberClicked &H3D 1
Value &H3D 0
DecimalValue &H3D 0
Percentage &H3D 0
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the Clear Entry ( CE ) button.
Sub cmdCE_Click()
lblDisplay &H3D ""
DecimalValue &H3D False
Value &H3D "CE"
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the Memory Clear (MC) button.
Sub cmdMC_Click()
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the Memory Record (MR) button.
Sub cmdMR_Click()
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the Memory Store (MS) button.
Sub cmdMS_Click()
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the Memory Plus (M+) button.
Sub cmdMPlus_Click()
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for Copy button (on the Menu Bar).
Sub cmdCopy_Click()
Clipboard.Clear
Clipboard.SetText lblDisplay.Text
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
Sub lblDisplay_Change()
End Sub
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
'Click event procedure for the Paste button (on the Menu Bar).
Sub cmdPaste_Click()
lblDisplay.Text &H3D Clipboard.GetText
If DisplayOff &H3D "0" Then
lblDisplay.SetFocus
End If
End Sub
