Comunidad Gambas-es

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

Sergio:

Veo varios errores es tu codigo, te explico:

1) Definicion de variables...


En principio esta bien, pero ¿que pasa con los numeros decimales...?, integer solo acepta numero enteros
Lo suyo es que lo definas como float (te aconsejo que no uses single, pruebalo y veras la diferencia..). Echale un vistazo a : TIPOS DE DATOS



2) Al añadir los numeros...
Por ejemplo


Realmente lo que contienes en el Textcalc.text en una cadena de caracteres y le añades el texto "1" y no un numero

Por lo tanto cuando haces:

Citar:

num1 = Txtcalc.Text

Intentas que un variable numerica contenga un texto, y te dara error... tienes que convertir el texto en numero. ¿como se hace eso?, con la funcion Val(texto). ver Funciones de Conversión





Tampoco puedes hacer esto:



Ya que estas sumando dos numero y lo estas pasando a una variable de texto. Para esto hay otra funcion Str$(numero). Que convierte el numero en un texto (o cadena, como la llama asi la ayuda del gambas). ver Funciones de Conversión






3) Division entre Cero

Citar:

además cuando divido 9 / 0 me tira un error también.

Eso eso normal ya que No se puede dividir un numero entre cero.

Por lo tanto lo que tienes es que insertar un codigo que averigue si el num2 es cero, es caso de hacerlo que salga un mensaje diciendo que no se puede dividir por cero, en caso de que sea distinto a cero (num2) , pues entonces si puedes hacer la operación de dividir.

Yo lo haria asi:





Bueno, echale un vistazo a los enlaces que te he dicho (que te serviran para el futuro...), (te lo dice uno que cometia los mismo errores ), y corrige tu codigo,

Si tienes problemas, pues nada a preguntar....

Saludos.

Es que creo que estas intentando sumar numeros pero como cadenas de texto.

Yo lo pondria asi:
>>Cambiaria las propiedades de los botones de los numeros asi:
Group -> num
Tag -> Por el numero que representa (al Btn1, Tag = 1, al Btn2,tag = 2 ...)


Eso como consejo para hacer el codigo mas corto.

El resto, estoy en ello, a ver si consigo hacerlo o ver que es lo que pasa...

hola muchas gracias a los dos. esta calculadora me a servido de mucha ayuda para aprender ,

ademas le estoy poniendo en un proyecto y no quiero que contenga errores. si me funciona pero no como deberia ser.

seguire sus consejos y . le informo de los resultados

muchas gracias. a los dos

atte: sergio - hostinglobal.net

Es que realmente me he quedado con las ganas de intentar hacer una calculadora....porque no sabria como hacerla...

Seguramente haya miles de ejemplos por ahi, pero como reto personal....

AnSnarkista

hola te cuento que las calculadora le hice los cambio que me aconsejaron y funciona bien, siempre con el mismo error, pero ya encontrare la forma de solucionarlo.

pero el ejemplo que esta allí funciona bien solo intenta esta divertido lo de la calculadora.

si la termino esta semana la pondré para que tengas el código sin errores y puedas hacerte una para tus aplicaciones.

atte: sergio - hostinglobal.net

Uuuppss!!
Es que me he liado con otro proyectos que tengo entre manos, y demas he empezado las clases...asi que va a tardar bastante en que me ponga con lo de la calcu...

Saluud!

Compañeros del foro, hace días sigo este foro y lo que he visto me ha despertado el deseo de programar nuevamente. Soy programador y desarrollé en principio con Basic, luego me relacione con DBase, cambié a Clipper. Cuando llegó el boom de los lenguajes visuales, estuve intentando con Visual Basic, pero luego llegó Visual Foxpro y me quedé con este. Comencé a trabajar en una empresa que como plataforma utilizaba Linux, desde allí tuve el deseo de encontrar un lenguaje visual que me permitiera programar para esa plataforma. Con Kylix intenté, pero la verdad es que Pascal no se me da. Pero con gambas es diferente, llevo una semana aprendiendo y la calculadora es mi primer programa, he aquí el código para que sea analizado y se le realicen los respectivos ajustes. Gracias y Exitos.

el_patuleko
Hola, bien venido al gambas, .

Cuando dices:

Citar:

he aquí el código para que sea analizado y se le realicen los respectivos ajustes

¿que le pasa al código: te da algún problema?

Saludos