Possibilité 2taper un pwd ne depasse pa 3fois

ena87 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
 Utilisateur anonyme -
Bonjour,
je suis entrain de développer une petite application par vb.net et je veux que la possibilité d'entrer un mot de passe erroné dans un textbox ne sera pas répéter plus que 3 fois
et par suite l'application sera fermée automatiquement
et que à chaque mot de passe erroné un msgbox s'affiche indiquant que le pwd est erronée
j'ai réussi à faire ca mais quand je tape un pwd erroné 3 msgbox s'affiche en mm temps
j'ai pas eu le temps de retaper le pwd une 2éme et une 3éme fois
je veut un aide S.V.P pour ce pb
merci d'avance :))

3 réponses

Utilisateur anonyme
 
Salut crée une variable que tu incrémente de + 1 a chaque erreur ;

tu test si la condition est égale a 3 alors tu quittes, sinon tu incrémente de + 1

jusqu'a que ta variable soit égale a trois
0
Alkaaran Messages postés 285 Date d'inscription   Statut Membre Dernière intervention   37
 
Met en place un compteur, je ne connais pas plus que ca la syntaxe VB.Net (je suis encore au VB6 -_-) mais en algorithme tu peux faire ca :

Dim compteur As integer
compteur = 0

Do
\tIf compteur > 3 Then
Application.Quit
Else
mdp = InputBox( "Entrez le mdp (" & (3 - compteur) & " essais restants)" )
End If
compteur = compteur + 1
Loop Until mdp <> "mot_de_passe_bon"


Un truc dans le genre... :)
0
Utilisateur anonyme
 
j ai utiliser le code en vb6
mais la méthode en dessous

****************************
Static i As Integer
rs.Open "select * from utilisateur where login='" & Trim(cbologin.Text) & "' and pw='" & Trim(txtpw.Text) & "'", cn
If Not rs.EOF Then
frmacceuil.Show
Unload Me
Else
i = i + 1
MsgBox "le login ou le mot de passe incorrecte"
txtpw.Text = ""
cbologin.SetFocus
End If
If i = 3 Then End
rs.Close
Set rs = Nothing
**************************
0