hola estoy haciendo una calculadora pero me sale erro al apretar 2 veces el + o - o * o /
esto pasa cuando el campo texbox queda vacío.
ejemplo cuando hago una suma y pongo en el texbox 12 y aprieto la suma en campo me queda en blanco y si le pongo ejemplo 12 y aprieto el igual. me dará 24 como debe de ser,
pero cuan esta esperando otro numero y vuelvo a apretar el botón mas para sumar me arroja el error y no se como parcharlo para que no me lo tire además cuando divido 9 / 0 me tira un error también.
aquí dejo el código:
' gambas class file
PUBLIC num1 AS Integer
PUBLIC num2 AS Integer
PUBLIC op AS String
PUBLIC SUB Form_Open()
END
PUBLIC SUB Btn01_Click()
Txtcalc.Text = Txtcalc.Text & "1"
END
PUBLIC SUB BtnBorrar_Click()
Txtcalc.Text = "0"
LabEqu.Text = NULL
LabEqu.text = "¿?"
END
PUBLIC SUB Btn02_Click()
Txtcalc.Text = Txtcalc.Text & "2"
END
PUBLIC SUB Btn03_Click()
Txtcalc.Text = Txtcalc.Text & "3"
END
PUBLIC SUB Btn04_Click()
Txtcalc.Text = Txtcalc.Text & "4"
END
PUBLIC SUB Btn05_Click()
Txtcalc.Text = Txtcalc.Text & "5"
END
PUBLIC SUB Btn06_Click()
Txtcalc.Text = Txtcalc.Text & "6"
END
PUBLIC SUB Btn07_Click()
Txtcalc.Text = Txtcalc.Text & "7"
END
PUBLIC SUB Btn08_Click()
Txtcalc.Text = Txtcalc.Text & "8"
END
PUBLIC SUB Btn09_Click()
Txtcalc.Text = Txtcalc.Text & "9"
END
PUBLIC SUB Btn000_Click()
Txtcalc.Text = Txtcalc.Text & "."
END
PUBLIC SUB Btn00_Click()
Txtcalc.Text = Txtcalc.Text & "0"
END
PUBLIC SUB BtnMas_Click()
num1 = Txtcalc.Text
LabEqu.Text = "+"
Txtcalc.Text = " "
op = "+"
END
PUBLIC SUB BtnMultiplicar_Click()
num1 = Txtcalc.Text
LabEqu.Text = "x"
Txtcalc.Text = " "
op = "x"
END
PUBLIC SUB BtnMenos_Click()
num1 = Txtcalc.Text
LabEqu.Text = "-"
Txtcalc.Text = " "
op = "-"
END
PUBLIC SUB BtnDividir_Click()
num1 = Txtcalc.Text
LabEqu.Text = "/"
Txtcalc.Text = " "
op = "/"
END
PUBLIC SUB Btn0igual_Click()
IF Txtcalc.text = "" THEN
Txtcalc.text = "0"
END IF
num2 = Txtcalc.Text
IF op = "+" THEN
Txtcalc.Text = num1 + num2
ENDIF
IF op = "-" THEN
Txtcalc.Text = num1 - num2
ENDIF
IF op = "x" THEN
Txtcalc.Text = num1 * num2
ENDIF
IF op = "/" THEN
Txtcalc.Text = num1 / num2
ENDIF
END
espero me ayuden
atte: sergio - hostinglobal.net