Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Como Evito Que Aparezca Este Error En Mi Aplicacion
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Como Evito Que Aparezca Este Error En Mi Aplicacion 
 
Me entretuve con este juego que lo había hecho en c++ y ahora en gambas para dejar herencia
pero tengo el problemita que cuando no se inserta ningún numero me marca error y no se como evitarlo, aunque por defecto el textbox1="0" , he tratado de varias maneras y sigue siendo error.
Una ayuda por favor.
Enlacehttp://dl.dropbox.com/u/13566068/Aciertalo.tar.gz
pantallazo_5_1291328139_404891
' gambas class file
'En este juego el computador genera un numero aleatorio de 1 a 100
'y nosotros debemos acertarlo
'declaramos las variables que usaremso en nuestro progrma
PUBLIC MiNumero AS Integer    'el numero que nosotros escribimos
PUBLIC RamNumero AS Integer  'el numero al azar que escoge el computador
PUBLIC Contador AS Integer  'el contador de intentos

PUBLIC SUB Form_Open()
'cuendo se ejecute la aplicacion abre la ventana en el centro
ME.Center
Contador = 0
TextBox1.Text = "0"
'Cuando se abra la aplicacion el boton Reinicio no se ve
ButtonReinicio.Visible = FALSE
END

PUBLIC SUB ButtonOK_Click()
'Cada vez que hacemos clic en el boton OK se incrementa el contador de intentos
Contador = Contador + 1
'asignamos valor numerico al textbox y le asignamos este valor a la variable MiNumero
MiNumero = Val(TextBox1.text)
'AQUI TENGO EL PROBLEMA, ME SALE ERROR SI EL NUMERO ES CERO O NADA
'AUNQUE LE HE ASIGNADO EL 0 AL TEXTBOX
IF Val(MiNumero) = 0 THEN
TextBox2.Text = "Por favor ingresa un numero"
ENDIF
IF MiNumero < RamNumero THEN
TextBox2.Text = "Tomaste el numero " & MiNumero & " y es menor"
ENDIF

IF MiNumero > RamNumero THEN
TextBox2.Text = "Tomaste el numero " & MiNumero & " y es mayor"
ENDIF

IF MiNumero = RamNumero THEN
TextBox2.Text = "Has tomado el numero " & MiNumero & " y es igual"
ButtonReinicio.Visible = TRUE
ENDIF

TextBox1.SetFocus
TextBox3.Text = Contador
END

PUBLIC SUB ButtonInicio_Click()
ButtonOK.Visible = TRUE
ButtonInicio.Visible = FALSE
ButtonReinicio.Visible = FALSE
TextBox1.Visible = TRUE
Label1.visible = TRUE
RamNumero = Int(Rnd(1, 100))
TextBox1.SetFocus
END

PUBLIC SUB ButtonReinicio_Click()
ButtonOK.Visible = TRUE
ButtonInicio.Visible = FALSE
TextBox1.Visible = TRUE
Label1.visible = TRUE
RamNumero = Int(Rnd(1, 100))
TextBox1.SetFocus
ButtonReinicio.Visible = FALSE
Contador = 0
TextBox1.Text = "0"
TextBox1.SetFocus
TextBox3.text = "0"
END

 

 



 
última edición por ivanovichenco el Viernes, 03 Diciembre 2010, 00:25; editado 1 vez 
ivanovichenco - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Evito Que Aparezca Este Error En Mi Aplicacion 
 
Puede ser que el error te lo de en esta linea:

TextBox3.Text = Contador


Yo lo convertia primero Contador en texto, asi:

TextBox3.Text = str$(Contador)


Aqui tambien te puede dar problemas.
MiNumero = Val(TextBox1.text)

IF Val(MiNumero) = 0 THEN


Mirate las ordenes:
Determinar que tipo de dato almacena una variable.

Por ejemplo, si:

IsFloat(expresión): devuelve TRUE si la expresión almacena un tipo de dato flotante

IsInteger(expresión): devuelve TRUE si la expresión almacena un tipo de dato entero

IsNull(expresión): devuelve TRUE si la expresión es NULA

IsNumber(expresión): devuelve TRUE si la expresión almacena un tipo de dato que sea numero

IsString(expresión): devuelve TRUE si la expresión almacena un tipo de dato string

Antes de evaluar:
MiNumero = Val(TextBox1.text)

y
IF Val(MiNumero) = 0 THEN

 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Evito Que Aparezca Este Error En Mi Aplicacion 
 
Julio, gracias por la lección. Lo aplicare para ver como me va con el problemita.
 



 
ivanovichenco - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Evito Que Aparezca Este Error En Mi Aplicacion 
 
Las funciones IsXXXX() que menciona jsbsan quedan obsoletas en gambas 3. En su lugar tienes la función TypeOf(), que te devuelve la constante del tipo. No preguntes If istring(mivariable) , sino if typeOf(mivariable)=gb.string....

Es lo mismo en gambas 2, pero nadie sabe cuándo uno va a querer actualizar su aplicación a gambas 3 y no cuesta nada ser precavidos.


Suerte
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Evito Que Aparezca Este Error En Mi Aplicacion 
 
Gracias por la info.
 



 
ivanovichenco - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Evito Que Aparezca Este Error En Mi Aplicacion 
 
Habra que hacer un manual para la transicion entre gambas2 y gambas3, saber que cosas cambian...


Saludos
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Evito Que Aparezca Este Error En Mi Aplicacion 
 
Ojala alguno tenga esa intencion y lo haga.
 



 
ivanovichenco - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
10.00 10 10 1
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Wsdl - Alguien Se Peleo Con Algun Tipo De ... arubioc Aplicaciones/Fragmentos de Código 2 Miercoles, 26 Septiembre 2012, 09:11 Ver último mensaje
arubioc
No hay nuevos mensajes Error Al Instalar La Aplicacion Compilada. Cubel General 10 Viernes, 02 Agosto 2013, 10:18 Ver último mensaje
Cubel
No hay nuevos mensajes Error De Aplicacion[solucionado] xmuno General 10 Martes, 21 Junio 2016, 21:17 Ver último mensaje
jguardon
No hay nuevos mensajes A Ver Si Pueden Reproducir Este Error De A... v3ctor General 2 Lunes, 21 Octobre 2019, 19:47 Ver último mensaje
tincho
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario