3 replies to this topic

[kenex]

public Class mathest
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim variable1 As Double
Dim variable2 As Double
If RadioButton1.Checked = True Then
TextBox3.Text = variable1 \ variable2
ElseIf RadioButton2.Checked = True Then
TextBox3.Text = variable1 Mod variable2
ElseIf RadioButton3.Checked = True Then
TextBox3.Text = variable1 ^ variable2
ElseIf RadioButton4.Checked = True Then
TextBox3.Text = variable1 & variable2
End If
End Sub
Private Sub cmdclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdclear.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Private Sub cmdquit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdquit.Click
Me.Close()
End Sub
End Class
pls i need help in the above programme.
when i run the program,it will display -DivideByZeroExcePtion was unhandled

[CommittedC0der]

Quote

public Class mathest
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim variable1 As Double
Dim variable2 As Double
If RadioButton1.Checked = True Then
TextBox3.Text = variable1 \ variable2
ElseIf RadioButton2.Checked = True Then
TextBox3.Text = variable1 Mod variable2
ElseIf RadioButton3.Checked = True Then
TextBox3.Text = variable1 ^ variable2
ElseIf RadioButton4.Checked = True Then
TextBox3.Text = variable1 & variable2
End If
End Sub
Private Sub cmdclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdclear.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Private Sub cmdquit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdquit.Click
Me.Close()
End Sub
End Class
pls i need help in the above programme.
when i run the program,it will display -DivideByZeroExcePtion was unhandled

First please use the [code ] [/ code] tags. The problem is, variable1 and variable2 are declared but have no value try this:

Dim variable1 As Double = 1
        Dim variable2 As Double = 1

Which should work. :)

[kenex]

Thanx, it works:thumbup1:

[CommittedC0der]

No prob. :)