• Home
 · 
• Miscellaneous
 · 
• Calculator

Calculator

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



Rate Calculator

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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