Validacion Erronea

25/04/2005 - 20:00 por Amaia | Informe spam
Hola gente:

Perdon el intrusismo en esta sección, pero es que la de
visual basic.net, no está disponible. Aun así, puede tener
que ver

Mi duda es que quiero validar a un usuario para que entre
en la BD. Aqui va mi explicación de lo que me pasa:

Si le meto un usuario y password correctos, lo hace bien,
va al formulario correspondiente, pero si le meto un
usuario erróneo, lo que hace, es mirar las tres veces
seguidas, es decir: Lo que tiene que hacer :

1er intento --> mete usuario incorrecto
lo que tiene que aparecer, es otra vez el formulario como
de nuevo,(aunque mostrando una label roja avisando de que
el usuario y/o password es incorrecto) para que se vuelva
a introducir las claves.
Así hasta tres intentos. Si al tercero falla, le sale un
msgbox diciendo que el usuario es incorrecto,y entonces,
le bloquearía la cuenta (esto último no sé como se hace)

Lo que me hace:

1er intento --> mete usuario incorrecto. Pues no da opción
a meter otra vez la clave, sino que hace el bucle 3 veces
seguidas y muestra el msgbox citado anteriormente.

Este es el código del formulario:

Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As
System.EventArgs) Handles Button1.Click

Dim f8 As New Form8
Dim Nombre, Contraseña As String
Dim Veces As Integer = 1
Dim Encontrado As Boolean = False

Do While Veces <= 3 And Encontrado = False

'Captamos el nombre y la contraseña de la caja
inicial

Nombre = TextBox1.Text
Contraseña = TextBox2.Text

'Llamamos a la funcion para validar el nombre y
la contraseña
Encontrado = validar(Nombre, Contraseña)

If Encontrado = False Then

Me.Hide()
Me.Show()
Me.Label2.Visible = True '--> muestra la
label indicativa de que el usuario es erroneo

End If

Console.WriteLine(Encontrado.ToString)
Veces = Veces + 1
Console.WriteLine(Veces.ToString)
Loop

If Encontrado Then

f8.Show()
Me.Hide()
Else
MsgBox("3 Intentos Fallidos. Acceso Sistema
denegado", 48)

End If

End Sub

si alguien me pudiera echar un cable... llevo 3 días a
vueltas con esto, y creo que ya tanto mirar el codigo
estoy bloqueada. Muchas gracias de antemano. Un saludo

AMAIA
 

Leer las respuestas

#1 Giox
25/04/2005 - 20:17 | Informe spam
hola lo que te entiendo es que debes hacer lo siguiente
la variable Veces declararla global fuera del evento

cuando recorre y entra en
If Encontrado = False Then
aumentas Veces y sales del bucle

al final haces esto
If Encontrado Then deberia ser If Veces >= 3 Then

espero que te sirva

Saludos
Giox







"Amaia" escribió en el mensaje
news:000f01c549c0$b5dee780$
Hola gente:

Perdon el intrusismo en esta sección, pero es que la de
visual basic.net, no está disponible. Aun así, puede tener
que ver

Mi duda es que quiero validar a un usuario para que entre
en la BD. Aqui va mi explicación de lo que me pasa:

Si le meto un usuario y password correctos, lo hace bien,
va al formulario correspondiente, pero si le meto un
usuario erróneo, lo que hace, es mirar las tres veces
seguidas, es decir: Lo que tiene que hacer :

1er intento --> mete usuario incorrecto
lo que tiene que aparecer, es otra vez el formulario como
de nuevo,(aunque mostrando una label roja avisando de que
el usuario y/o password es incorrecto) para que se vuelva
a introducir las claves.
Así hasta tres intentos. Si al tercero falla, le sale un
msgbox diciendo que el usuario es incorrecto,y entonces,
le bloquearía la cuenta (esto último no sé como se hace)

Lo que me hace:

1er intento --> mete usuario incorrecto. Pues no da opción
a meter otra vez la clave, sino que hace el bucle 3 veces
seguidas y muestra el msgbox citado anteriormente.

Este es el código del formulario:

Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As
System.EventArgs) Handles Button1.Click

Dim f8 As New Form8
Dim Nombre, Contraseña As String
Dim Veces As Integer = 1
Dim Encontrado As Boolean = False

Do While Veces <= 3 And Encontrado = False

'Captamos el nombre y la contraseña de la caja
inicial

Nombre = TextBox1.Text
Contraseña = TextBox2.Text

'Llamamos a la funcion para validar el nombre y
la contraseña
Encontrado = validar(Nombre, Contraseña)

If Encontrado = False Then

Me.Hide()
Me.Show()
Me.Label2.Visible = True '--> muestra la
label indicativa de que el usuario es erroneo

End If

Console.WriteLine(Encontrado.ToString)
Veces = Veces + 1
Console.WriteLine(Veces.ToString)
Loop

If Encontrado Then

f8.Show()
Me.Hide()
Else
MsgBox("3 Intentos Fallidos. Acceso Sistema
denegado", 48)

End If

End Sub

si alguien me pudiera echar un cable... llevo 3 días a
vueltas con esto, y creo que ya tanto mirar el codigo
estoy bloqueada. Muchas gracias de antemano. Un saludo

AMAIA

Preguntas similares