Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: BorecK en 5 Diciembre 2006, 02:25 am


Título: [RESUELTO] Ayuda Para crear password con oportunidades limitadas..
Publicado por: BorecK en 5 Diciembre 2006, 02:25 am
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:

Código:
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:

Código:
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

Título: Re: Ayuda Para crear password con oportunidades limitadas..
Publicado por: NekroByte en 5 Diciembre 2006, 03:11 am
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:
MsgBox "Lo siento, clave incorrecta!"
End

Hilsener.

Título: Re: Ayuda Para crear password con oportunidades limitadas..
Publicado por: Red Mx en 5 Diciembre 2006, 03:12 am
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:
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

Título: Re: Ayuda Para crear password con oportunidades limitadas..
Publicado por: BorecK en 5 Diciembre 2006, 03:47 am
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....

Título: Re: Ayuda Para crear password con oportunidades limitadas..
Publicado por: BorecK en 5 Diciembre 2006, 03:53 am
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


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines