On Tue, 25 Jan 2005 01:12:32 GMT, "andrew"  wrote:
[snip some code]


I would start off by saying something in the body of the message.


Option Explicit

Public dValue1 As Double, dValue2 As Double
Private sOper As String * 1

Private Sub Form_Load()
    sOper = "*"
    dValue1 = Val(txtMain1.Text)
    dValue2 = Val(txtMain2.Text)

    dResult = Eval(dValue1, sOper, dValue2)
    txtMain2.Text = CStr(dResult)
End Sub

Function Eval(Val1 As Double, Op As String, Val2 As Double) As Double
    Select Case Op
        Case "+"
            Eval = Val1 + Val2
        Case "-"
            Eval = Val1 - Val2
        Case "*"
            Eval = Val1 * Val2
        Case "/"
            Eval = Val1 / Val2
        Case "^"
            Eval = Val1 ^ Val2
        Case Else
            Eval = 0
            ' or could raise an error
    End Select
End Function

--
auric underscore underscore at hotmail dot com
*****
When you say "I wrote a program that crashed Windows", people just stare
at you blankly and say "Hey, I got those with the system, *for free*".
 -- Linus Torvalds


--- UseNet To RIME Gateway {at} 1/25/05 6:44:31 PM ---