Hola a todos este es mi segundo mensaje, tengo un problemita con gambas pues apenas lo estoy conociendo, resulta que como trabajo con visual basic.net se me es fácil trabajar con gambas de hecho le encuentro unas similitudes, en fin tengo el siguiente código y tengo un problema:

Citar:

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()
Numero1.SetFocus
END

PUBLIC SUB bSuma_Click()

  DIM a, b, centinela AS Integer
  centinela = 1
  IF Numero1.Text = "" OR Numero2.Text = "" THEN
     centinela = centinela + 1
     IF centinela = 3 THEN
        Message.Warning("3 intentos fallidos, la aplicación se cerrará por seguridad")
        ME.Close
     ELSE
        Message.Info("Debe ingresar un numero!")
     ENDIF
  ELSE
  a = Numero1.Text
  b = Numero2.Text
  Resultado.Text = a + b
  ENDIF
  
END

PUBLIC SUB bSalir_Click()

  ME.Close

END

Valido que los textbox vayan vacios, cuando los encuentra así uso una variable centinela que se incrementa en 1, luego pregunto que si el centinela llega a 3 envíe un mensaje en este caso warning indicando que se cerrará la aplicación, pero no sigue el orden sino que lo omite, no se si el operador de igualdad sea ese o sea otro pero intento usar == para comparar si es igual y de inmediato entra como si el centinela ya tuviera valor 3, muestra la ventana warning con el mensaje y se cierra.

Si pueden guiarmen y decirme en que me he equivocado les agradeceré.

Hola.

Prueba con este código:



Saludos

Ersolan: al declarar la variable centinela dentro del procedimiento bSuma_Click limitas su ámbito de existencia a esa rutina por lo que cuando ésta termina, el valor guardardo en centinela se pierde. Para que ello no ocurra tienes que ampliar el ámbito de dicha variable, declarándola al principio de la clase del formulario; así la variable tendrá existencia en cualquier rutina escrita dentro de la clase del formulario.


Otras cosas que debes considerar es que gambas evalúa una cadena vacía a FALSE y que realiza automáticamente la conversión de tipos de datos de las variables (incluyendo la propiedad Text de los controles TextBox. También que gambas inicializa automáticamente las variables según su tipo de datos (Boolean -> FALSE, Intenger -> 0, String -> "").



Además podrías evitar la necesidad de lanzar el mensaje error: "Debe ingresar un numero!" controlando la propiedad Enabled del control Button.

Por último, creo que hay un error de concepto en cuanto al control de los intentos fallidos que realizas. Intentas controlar que los controles TextBox no estén vacíos, cuando parece claro que deberías verificar sus valores contra un valor que se sabe es válido (por ejemplo, una contraseña).

De modo que tu código podría ser:

===================
Cómo programar con Gambas

Speed Books: informática libre.

Hola le hice unas modificaciones al codigo, lo que intento hacer con el centinela es esto:

si el usuario envia uno o los dos textbox vacíos 3 veces debe aparecer un mensaje diciendo:
"3 intentos fallidos, la aplicación se cerrará por seguridad"
Es algo que quise hacer y que en visual basic funciona claro se que no puedo comparar vbasic con gambas aunque prácticamente sean similares

Citar:

PUBLIC SUB Numeros_Change()
  bSuma.Enabled = IsDigit(Numero1.Text) AND IsDigit(Numero2.Text)
END

  

quise no usar la orden anterior sino hacerlo simple, reemplazar eso con el centinela pero ya esta solucionado:

Citar:

' gambas class file
PRIVATE centinela AS Integer = 0

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()
'bSuma.Enabled = FALSE
Numero1.SetFocus
END
' PUBLIC SUB Numeros_Change()
 ' bSuma.Enabled = IsDigit(Numero1.Text) AND IsDigit(Numero2.Text)
'END
PUBLIC SUB bSuma_Click()

  DIM a, b AS Integer

  IF Numero1.Text = "" OR Numero2.Text = "" THEN
     centinela = centinela + 1
     IF centinela = 3 THEN
        Message.Warning("3 intentos fallidos, la aplicación se cerrará por seguridad")
        ME.Close
     ELSE
        Message.Info("Debe ingresar un numero!")
     ENDIF
  ELSE
  a = Numero1.Text
  b = Numero2.Text
  Resultado.Text = a + b
  ENDIF
  
END

PUBLIC SUB bSalir_Click()

  ME.Close

END

por cierto gracias fabian omití hacer la variable centinela de tipo public, me dices esto:

Citar:

Gambas evalúa una cadena vacía a FALSE y que realiza automáticamente la conversión de tipos de datos de las variables (incluyendo la propiedad Text de los controles TextBox. También que gambas inicializa automáticamente las variables según su tipo de datos (Boolean -> FALSE, Intenger -> 0, String -> "").

Realmente Funciona, gambas es buenisimo.