Discussion :

[biboulou]

bonjour
voila je veux creer un non utilisateur et un mots de passe pour une dizaine de personnes

je veux faire un truc le plus simple possible
et que les mots de passe soit visible ou pas c'est pas grave si une personne le desassemble c'est pas grave
j'ai ecrit ca mais ca fait pas
si je tappe le bon utilisateur et le bon mot de passe j'ai erreur erreur et bienvenue
si je tappe pas le bon utilisateur ou pas le bon mot de passe j'ai erreur erreur erreur
j'ai 3 boites de dialogues qui souvrent
il doit etre possible de faire un truc simple sous qu'elle forme ?
merci a+

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        'verification si des caracteres sont rentres
        If String.IsNullOrEmpty(UsernameTextBox.Text) Or String.IsNullOrEmpty(PasswordTextBox.Text) Then
            MsgBox("champ vide ")
            Exit Sub
        End If
 
        'utilisateur1
        If UsernameTextBox.Text = "personne1" And PasswordTextBox.Text = "123456" Then
            MsgBox(" bienvenu")
        End If
        If Not UsernameTextBox.Text = "personne1" Then MsgBox(" erreur")
        If Not PasswordTextBox.Text = "123456" Then MsgBox(" erreur")
 
        'utilisateur2
        If UsernameTextBox.Text = "personne2" And PasswordTextBox.Text = "123123" Then
            MsgBox(" bienvenu")
        End If
        If Not UsernameTextBox.Text = "personne2" Then MsgBox(" erreur")
        If Not PasswordTextBox.Text = "123123" Then MsgBox(" erreur")

[Pol63]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
dim d as new system.collections.generic.dictionary(of string, string)
d.Add("login1","password1") 
d.Add("login2","password2")
'...
 
if not d.containskey(UsernameTextBox.Text) then
  msgbox ("utilisateur inconnu")
  exit sub
end if
 
if d(UsernameTextBox.Text) <> PasswordTextBox.Text then
  msgbox ("mot de passe incorrect")
  exit sub
end if
 
msgbox ("bienvenue")

pour un login non sensible à la casse, il faut mettre le login en minuscule dans le d.add et faire if not d.containskey(UsernameTextBox.Text.ToLower) (et if d(UsernameTextBox.Text.ToLower) <> PasswordTextBox.Text)

[biboulou]

merci
je me suis bien egarer
amicalement a+