Solved
Simple calculator using functions (Visual Basic 6.0)
Posted on 2006-11-19
Hello-
I am trying to write the code for a basic calculator in VB using functions but when I click on the numbers when i run it, they do not appear in the display text (txtResult.text). Here is what I have. Thanks! Jackie
Dim oper As String
Dim myVar As Double
Dim myVar2 As Double
Option Explicit
'CALCULATOR TAB
Private Sub cmdEquals_Click()
Dim result As Double
myVar = txtResult.Text
txtResult.Text = ""
'CALL Calculator
result = Calculator(myVar, myVar2, oper)
txtResult.Text = result
If Val(txtResult.Text) < 0 Then
txtResult.ForeColor = vbRed
Else: txtResult.ForeColor = vbBlack
End If
If Val(txtResult.Text) >= 0 Then
txtResult.ForeColor = vbBlack
Else: txtResult.ForeColor = vbRed
End If
cmdRealDivide.BackColor = vbRed
cmdPlus.BackColor = vbRed
cmdSubtract.BackColor = vbRed
cmdMultiply.BackColor = vbRed
cmdIntegerDivision.BackColor = vbRed
cmdModulus.BackColor = vbRed
cmdExponent.BackColor = vbRed
cmdSquareRoot.BackColor = vbRed
cmdSquared.BackColor = vbRed
cmdNegPos.BackColor = vbRed
End Sub
Private Function Calculator(a As Double, b As Double, c As String) As Double
Dim result As Double 'function to calculate events
If c = "+" Then
result = a + b
ElseIf c = "/" Then
result = a / b
calc = result
ElseIf c = "-" Then
result = a - b
calc = result
ElseIf c = "*" Then
result = a * b
calc = result
ElseIf c = "\" Then
result = a \ b
calc = result
ElseIf c = "M" Then
result = a Mod b
calc = result
ElseIf c = "x^y" Then
result = a ^ b
End If
End Function