One more problem I am trying to do another calculator:
here is the code:
The problem is in Equal button why elseif isn't working?
here is the code:
HTML Code:
Public Class Form1
Private Sub PLus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PLus.Click
Dim num1 As Double = TextBox1.Text
Dim num2 As Double = TextBox2.Text
Label1.Text = "+"
End Sub
Private Function p() As Double
Dim num1 As Double = TextBox1.Text
Dim num2 As Double = TextBox2.Text
Dim answer As Double = Val(num1) + Val(num2)
Return answer
End Function
Private Function mu() As Double
Dim num1 As Double = TextBox1.Text
Dim num2 As Double = TextBox2.Text
Dim answer As Double = Val(num1) * Val(num2)
Return answer
End Function
Private Function m() As Double
Dim num1 As Double = TextBox1.Text
Dim num2 As Double = TextBox2.Text
Dim answer As Double = Val(num1) - Val(num2)
Return answer
End Function
Private Function d() As Double
Dim num1 As Double = TextBox1.Text
Dim num2 As Double = TextBox2.Text
Dim answer As Double = Val(num1) / Val(num2)
Return answer
End Function
Private Sub minus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles minus.Click
Dim num1 As Double = TextBox1.Text
Dim num2 As Double = TextBox2.Text
Label1.Text = "-"
End Sub
Private Sub multi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles multi.Click
Dim num1 As Double = TextBox1.Text
Dim num2 As Double = TextBox2.Text
Label1.Text = "X"
End Sub
Private Sub Dev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dev.Click
Dim num1 As Double = TextBox1.Text
Dim num2 As Double = TextBox2.Text
Label1.Text = "/"
End Sub
Private Sub equal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles equal.Click
if p() then
Label2.Text = (p())
elseif
End Sub
End Class