Someone pls help with my program

[hassruby]

Can someone pls help me with some validation that im having a few technical problems with in my program.

First of all, I will explain to you a little about what my program is suppose to do. It consists of a form with two text boxes that allow the user to enter numbers. These numbers will either be added, subtracted, divided or multiplied by each other. The user will type which operant that they wish to use by using an additional text boxed provided on the form. The user will then click the calculate button which will display the result in another text box.

I want to add validation to stop the user from dividing a number by zero so that it stops the program from crashing and giving me a warning message about overflowExcepti on. I have copied and pasted my code for you to view. Thanks

Dim Total As Integer 'Declaration of Variables
Dim FirstNumber As Double
Dim SecondNumber As Double
Dim Operation As String

If IsNumeric(txtAN umber.Text) = True Then

FirstNumber = txtANumber.Text

ElseIf IsNumeric(txtAN umber.Text) = False Then

MsgBox("Please Enter a Numeric Value!", 48)

End If



If IsNumeric(txtBN umber.Text) = True Then

SecondNumber = txtBNumber.Text

ElseIf IsNumeric(txtBN umber.Text) = False Then

MsgBox("Please Enter a Numeric Value!", 48)



End If

If SecondNumber <= 0 Then

MsgBox("Please Enter a Numeric Greater than 0!", 48)


End If


Operation = txtOperation.Te xt

If Operation = "add" Then
Total = FirstNumber + SecondNumber
txtCurrentTotal .Text = Total


End If

If Operation = "subtract" Then
Total = FirstNumber - SecondNumber
txtCurrentTotal .Text = Total

End If

If Operation = "multiply" Then
Total = FirstNumber * SecondNumber
txtCurrentTotal .Text = Total
End If

If Operation = "divide" Then
Total = FirstNumber / SecondNumber
txtCurrentTotal .Text = Total

End If



End Sub

[willakawill]

Can someone pls help me with some validation that im having a few technical problems with in my program.

Hi. This should work:

Dim Total As Integer 'Declaration of Variables
Dim FirstNumber As Double
Dim SecondNumber As Double
Dim Operation As String
 
If IsNumeric(txtANumber.Text) Then
    FirstNumber = CDbl(txtANumber.Text)
Else
    MsgBox "Please Enter a Numeric Value!", 48
    txtANumber.Text = ""
    txtANumber.SetFocus
    Exit Sub
End If
 
 
 
If IsNumeric(txtBNumber.Text) Then
    SecondNumber = CDbl(txtBNumber.Text)
Else
    MsgBox "Please Enter a Numeric Value!", 48
    txtBNumber.Text = ""
    txtBNumber.SetFocus
    Exit Sub
End If
 
If SecondNumber = 0 AND txtOperation.Text = "divide" Then
    MsgBox "Please Enter a number other than 0!", 48
    txtBNumber.Text = ""
    txtBNumber.SetFocus
    Exit Sub
End If
 
 
Operation = txtOperation.Text
 
Select Case Operation
    Case "add"
        Total = FirstNumber + SecondNumber
        txtCurrentTotal.Text = Total
 
    Case "subtract"
        Total = FirstNumber - SecondNumber
        txtCurrentTotal.Text = Total
 
    Case "multiply"
        Total = FirstNumber * SecondNumber
        txtCurrentTotal.Text = Total
 
    Case "divide"
        Total = FirstNumber / SecondNumber
        txtCurrentTotal.Text = Total
 
    Case Else
        MsgBox "Unknown operator"
End Select
 

[albertw]

Hi. This should work:

Dim Total As Integer 'Declaration of Variables
Dim FirstNumber As Double
Dim SecondNumber As Double
Dim Operation As String
 
If IsNumeric(txtANumber.Text) Then
    FirstNumber = CDbl(txtANumber.Text)
Else
    MsgBox "Please Enter a Numeric Value!", 48
    txtANumber.Text = ""
    txtANumber.SetFocus
    Exit Sub
End If
 
 
 
If IsNumeric(txtBNumber.Text) Then
    SecondNumber = CDbl(txtBNumber.Text)
Else
    MsgBox "Please Enter a Numeric Value!", 48
    txtBNumber.Text = ""
    txtBNumber.SetFocus
    Exit Sub
End If
 
If SecondNumber <= 0 Then
    MsgBox "Please Enter a Numeric Value!", 48
    txtBNumber.Text = ""
    txtBNumber.SetFocus
    Exit Sub
End If
 
 
Operation = txtOperation.Text
 
Select Case Operation
    Case "add"
        Total = FirstNumber + SecondNumber
        txtCurrentTotal.Text = Total
 
    Case "subtract"
        Total = FirstNumber - SecondNumber
        txtCurrentTotal.Text = Total
 
    Case "multiply"
        Total = FirstNumber * SecondNumber
        txtCurrentTotal.Text = Total
 
    Case "divide"
        Total = FirstNumber / SecondNumber
        txtCurrentTotal.Text = Total
 
    Case Else
        MsgBox "Unknown operator"
End Select
 

additionally, comparisons are case sensitive
might use
Select Case UCase(Operation ) of select Case LCase(Operation ) instead
to avoid plain typing errors