[RESUELTO] Ayuda Para crear password con oportunidades limitadas..

[BorecK]

Hola de nuevo... realmente me la vivire aqui!!! ya me gusto el foro jeje 

Bueno ya termine el problema del post anterior pero despues de la calma surge otro gran problema... tengo otro programa que es un reloj despertador donde puedes agregar diferencias horarias de otros paises pero... me an pedido que le ponga password con oportunidad de dar la clave erronea 3 veces.. una vez fallando las 3 veces debe cerrarse el programa... este es el codigo que le puse al formulario clave y aun no se como darle la funcion de fallar 3 veces... necesido de su enseñanza... jeje 

ya le intente de varias formas y aun no puedo:

Código [Seleccionar] Expandir

Private Sub Clave_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Clave.Text = "RMR" Then
  Unload Me
  FrmReloj.Show
Else
  MsgBox "Clave Incorrecta...", 16, "Error"
End
End If
End If
End Sub

Ese es el codigo y de verdad gracias  con ustedes aprendo mas que es lo que me hace falta... 

SOLUCION:
Gracias a todos por su aporte:

Código [Seleccionar] Expandir

dim control as Integer

Private Sub Clave_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
         If Clave.Text = "RMR" Then
             Unload Me
             FrmReloj.Show
         Else
            MsgBox "Contraseña incorrecta",vbcritical,"Acceso Denegado"
           control=control+1
              if control=3 then
                 End
              end if
        End If
  End If
End Sub

[NekroByte]

Hazlo con un For que se repita tres veces: si el usuario escribe la clave correcta le das que descargue el formulario de login, cargue el otro, y un Exit for, de lo contrario, después del Next puedes añadir algo como:

Código [Seleccionar] Expandir

MsgBox "Lo siento, clave incorrecta!"
End

Hilsener.

[Red Mx]

que onda men tengo mucho que no ando por esta zona VB.


bueno solo pon una variable que es lo mas facil que se me ocurre

Código [Seleccionar] Expandir


dim control as Integer

Private Sub Clave_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
         If Clave.Text = "RMR" Then
             Unload Me
             FrmReloj.Show
         Else
            MsgBox "Contraseña incorrecta",vbcritical,"Acceso Denegado"
           control=control+1
              if control=3 then
                 End
              end if
        End If
  End If
End Sub


Nota: siempre es bueno que acomodes tu codigo es algo que yo no hago pero creeme que es recomendable para la gente que vea tu code sera mas facil de entenderlo

[BorecK]

Si tienes razon Rex mi maestra siempre me regaña por no acomodar el codigo jajajaja gracias por la ayuda... necro una pregunta me podrias explicar en codigo masomenos como pondrias eso de la clave con el for para masomenos razonarlo ? muchas gracias a los dos 

bueno acabo de modificar el post no me funciono REX checando el codigo ya le habia intentado asi y no funciona aun ando checando eso....

[BorecK]

ohhh gracias ya vi cual era el problema..... al declarar la variable control la puse abajo del private sub... muchas gracias ya me funciona!!!