error numero de intentos ususario contraseña

[d00ze13]

Necesito saber que tengo mal en el codigo, ya que cuando meto mal la password no me deja volver a intentarlo, lo he puesto para que tenga 3 intentos, a ver si alguien me puede ayuda.

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()

Dim cont As Integer
cont = 0
Do While cont < 3
If user.Text = "user" And pass.Text = "prueba" Then
        Unload Me
        Form2.Show
Else
cont = cont + 1
MsgBox "Contraseña inválida No " & CStr(cont), vbCritical
user.Text = ""
pass.Text = ""
End If
Loop
MsgBox "Adios...", vbInformation
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub


[79137913]

HOLA!!!

Es un problema de logica lo tuyo, como haces el dowhile loop analiza 3 veces lo mismo y se cierra.
Asi te va a funcionar.

Código (vb) [Seleccionar] Expandir

Dim cont As Integer
Private Sub Command1_Click()
    IF CONT = 3 THEN MsgBox "Adios...", vbInformation : END
    If user.Text = "user" And pass.Text = "prueba" Then
        Unload Me
        Form2.Show
    Else
        cont = cont + 1
        MsgBox "Contraseña inválida No " & CStr(cont), vbCritical
       user.Text = ""
        pass.Text = ""
    End If
End Sub

Private Sub Command2_Click()
   Unload Me
End Sub


GRACIAS POR LEER!!!

[d00ze13]

gracias maquina ; )
es que aun soy muy noob en esto xD

[79137913]

HOLA!!!

No hay problema estamoss para eso

GRACIAS POR LEER!!!