Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Portal » Foro » Gambas » Aplicaciones/Fragmentos de Código

Fecha y hora actual: Martes, 30 Abril 2024, 14:59 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Habilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

Como Evito Que Aparezca Este Error En Mi Aplicacion


Publicar nuevo tema  Responder al tema  		Página 1 de 1
 
 
Como Evito Que Aparezca Este Error En Mi Aplicacion
Autor Mensaje
Desconectado ivanovichenco Sexo: Masculino
Ingeniero Programador
Ingeniero Programador
avatar
Registrado: Septiembre 2010
Mensajes: 274
Edad: 66
Ubicación: columbia.png Neiva, Huila, Rep. de Colombia
 
 
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 
#1  Viernes, 03 Diciembre 2010, 00:18
ivanovichenco - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado jsbsan Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51
Ubicación: spain.png dos hermanas, sevilla
 
 
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!!!
 
#2  Viernes, 03 Diciembre 2010, 01:07
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado ivanovichenco Sexo: Masculino
Ingeniero Programador
Ingeniero Programador
avatar
Registrado: Septiembre 2010
Mensajes: 274
Edad: 66
Ubicación: columbia.png Neiva, Huila, Rep. de Colombia
 
 
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.
 



 
#3  Viernes, 03 Diciembre 2010, 02:36
ivanovichenco - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado shordi Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64
Ubicación: spain.png Albacete
 
 
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
 
#4  Viernes, 03 Diciembre 2010, 07:17
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado ivanovichenco Sexo: Masculino
Ingeniero Programador
Ingeniero Programador
avatar
Registrado: Septiembre 2010
Mensajes: 274
Edad: 66
Ubicación: columbia.png Neiva, Huila, Rep. de Colombia
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Como Evito Que Aparezca Este Error En Mi Aplicacion 
 
Gracias por la info.
 



 
#5  Viernes, 03 Diciembre 2010, 18:35
ivanovichenco - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado jsbsan Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51
Ubicación: spain.png dos hermanas, sevilla
 
 
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!!!
 
#6  Sabado, 04 Diciembre 2010, 02:12
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado ivanovichenco Sexo: Masculino
Ingeniero Programador
Ingeniero Programador
avatar
Registrado: Septiembre 2010
Mensajes: 274
Edad: 66
Ubicación: columbia.png Neiva, Huila, Rep. de Colombia
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Como Evito Que Aparezca Este Error En Mi Aplicacion 
 
Ojala alguno tenga esa intencion y lo haga.
 



 
#7  Sabado, 04 Diciembre 2010, 17:24
ivanovichenco - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
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, 08:11 Ver último mensaje
arubioc
No hay nuevos mensajes Error Al Instalar La Aplicacion Compilada. Cubel General 10 Viernes, 02 Agosto 2013, 09:18 Ver último mensaje
Cubel
No hay nuevos mensajes Error De Aplicacion[solucionado] xmuno General 10 Martes, 21 Junio 2016, 20: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, 18:47 Ver último mensaje
tincho
 

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

Portal » Foro » Gambas » Aplicaciones/Fragmentos de Código

Fecha y hora actual: Martes, 30 Abril 2024, 14:59 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Habilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

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
Puede descargar archivos
No puede publicar eventos en el calendario


  

 
cron