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
' 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
'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