Título: Ayuda con los condicionales. Publicado por: luiggy2 en 3 Diciembre 2007, 15:35 pm El otro dia estaba leyando la revista HACKxCRACK y decidi hacer una calculadora.
Todo iba bien hasta que al escribir If xxxxxxxxxxxxx Then y probarlo me salia que el valor " Then" no funcionaba (me aparecia subrayado en rojo) Alguien podria decirme como solucionarlo. Gracias Título: Re: Ayuda con los condicionales. Publicado por: ~~ en 3 Diciembre 2007, 16:16 pm Escribe la linea completa y te digo, aunke la estructura es simple
Código: if 10 = 10 then De todas formas leete algun tuto de VB d verdad, no te restrinjas a los de hack x crack q no aprendes nada xD Título: Re: Ayuda con los condicionales. Publicado por: luiggy2 en 4 Diciembre 2007, 16:40 pm Este es el código del boton de la suma
Código:
La caja de texto se llama TxtOper y el valor que se ha dado antes es LongValor Gracias. Espero su respuesta Título: Re: Ayuda con los condicionales. Publicado por: ~~ en 4 Diciembre 2007, 16:42 pm Código: If StrOper = "+" Then Título: Re: Ayuda con los condicionales. Publicado por: luiggy2 en 5 Diciembre 2007, 16:10 pm Da igual, ni separando el If (que fue un problema de copia) funciona.
Título: Re: Ayuda con los condicionales. Publicado por: Novlucker en 5 Diciembre 2007, 16:24 pm Citar Da igual, ni separando el If (que fue un problema de copia) funciona. Te lo sigue marcando en rojo o no te da el resultado esperado :huh: Saludos Título: Re: Ayuda con los condicionales. Publicado por: ~~ en 5 Diciembre 2007, 16:29 pm Pues pega el codigo completo, q sera por algun error en el tipo de variable o algo asi
Título: Re: Ayuda con los condicionales. Publicado por: luiggy2 en 6 Diciembre 2007, 14:03 pm Ahi va el codigo:
Código: Private Sub boton_igual_Click() El problema esta en las siguientes linas: Private Sub boton_igual_Click() IfStrOper="+" Then TxtOper = LngValor + TxtOper.Text End If ifStrOper="-" Then TxtOper = LongValor - TxtOper.Text End If IfSrOper="*" Then TxtOper = LongValor - TxtOper.Text End If I StrOper="/" Then TxtOper = LongValor / TxtOper.Text End If End Sub Por cierto he ido probandolo segun lo he ido haciendo y me ha funcionado hasta llegar ahi (boton igual) Gracias. espero sus rspuestas Título: Re: Ayuda con los condicionales. Publicado por: ~~ en 6 Diciembre 2007, 14:16 pm Declara las variables por Dios!!! y prueva asi:
Código: Dim strOper as string Hacer un select case no estaria de mas.. Título: Re: Ayuda con los condicionales. Publicado por: SKL (orignal) en 7 Diciembre 2007, 06:14 am tambien podrias dejar separaciones, no? no va todo junto, osea vos no escribis asi:
Código: ifsData=2then asi es la manera correcta.. Código: if sData = 2 then y como dice E0N... Código
saludos! PD: leete un manualcito que no estaria de mas :D |