jobenriquez
05-07-2018, 05:59 AM
hi! can someone help me. i am practicing to create a calculator using Microsoft Visual Basic and it's giving me a error: (Compile error: Else without if)
the bold one is the error line
heres the code:
Dim value1 As Double
Dim value2 As Double
Dim op As String
Private Sub Command1_Click()
Text1.Text = Text1.Text + "7"
End Sub
Private Sub Command11_Click()
Text1.Text = Text1.Text + "0"
End Sub
Private Sub Command12_Click()
If op = "+" Then Text1.Text = value1 + Text1.Text
ElseIf op = "-" Then Text1.Text = value1 + Text1.Text
ElseIf op = "*" Then Text1.Text = value1 + Text1.Text
ElseIf op = "/" Then Text1.Text -value1 = Text1.Text
Else: Text1.Text = ""
End If
End Sub
Private Sub Command13_Click()
op = "+"
value1 = Text1.Text
Text1.Text = ""
End Sub
Private Sub Command14_Click()
op = "-"
Text1.Text = value1 + Text1.Text
Text1.Text = ""
End Sub
Private Sub Command2_Click()
Text1.Text = Text1.Text + "8"
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text + "9"
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text + "4"
End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text + "5"
End Sub
Private Sub Command6_Click()
Text1.Text = Text1.Text + "6"
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text + "1"
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text + "2"
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text + "3"
End Sub
the bold one is the error line
heres the code:
Dim value1 As Double
Dim value2 As Double
Dim op As String
Private Sub Command1_Click()
Text1.Text = Text1.Text + "7"
End Sub
Private Sub Command11_Click()
Text1.Text = Text1.Text + "0"
End Sub
Private Sub Command12_Click()
If op = "+" Then Text1.Text = value1 + Text1.Text
ElseIf op = "-" Then Text1.Text = value1 + Text1.Text
ElseIf op = "*" Then Text1.Text = value1 + Text1.Text
ElseIf op = "/" Then Text1.Text -value1 = Text1.Text
Else: Text1.Text = ""
End If
End Sub
Private Sub Command13_Click()
op = "+"
value1 = Text1.Text
Text1.Text = ""
End Sub
Private Sub Command14_Click()
op = "-"
Text1.Text = value1 + Text1.Text
Text1.Text = ""
End Sub
Private Sub Command2_Click()
Text1.Text = Text1.Text + "8"
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text + "9"
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text + "4"
End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text + "5"
End Sub
Private Sub Command6_Click()
Text1.Text = Text1.Text + "6"
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text + "1"
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text + "2"
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text + "3"
End Sub