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

Iniciado por BorecK, 5 Diciembre 2006, 02:25 AM

0 Miembros y 1 Visitante están viendo este tema.

BorecK

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

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  :rolleyes:

ya le intente de varias formas y aun no puedo:

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  ;D con ustedes aprendo mas que es lo que me hace falta...  ;)

SOLUCION:
Gracias a todos por su aporte:

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:

MsgBox "Lo siento, clave incorrecta!"
End


Hilsener.

Red Mx

#2
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


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
Desarrollar Malware Es Causa De Cancer...

BorecK

#3
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!!!  :o