Interface
black light
Messages postés
36
Statut
Membre
-
black light Messages postés 36 Statut Membre -
black light Messages postés 36 Statut Membre -
bonjour,
Alors je dois faire une fenêtre sur la quelle il y a un nom d'utilisateur et un mot de passe. En cas d'erreur il y a possibilité de ressayé 3 fois seulement avant que la fenêtre ne se referme.
voici mon programme "la boucle ne marche pas le nombre d'essai n'est pas limité":
Alors je dois faire une fenêtre sur la quelle il y a un nom d'utilisateur et un mot de passe. En cas d'erreur il y a possibilité de ressayé 3 fois seulement avant que la fenêtre ne se referme.
voici mon programme "la boucle ne marche pas le nombre d'essai n'est pas limité":
var
i:integer;
begin
if (edit1.Text='lou') and (edit2.Text='bdd')
then
begin
showmessage('mot de passe correcte');
form2.Show;
end
else
begin
showmessage('le mot de passe ou le nom d''utilisateur est incorrecte');
for i:=0 to 3 do
begin
edit1.Text:=''; edit2.Text:='';
end
end
end;
end.
2 réponses
-
il faux le faire avec une label (a)
apres ajouté une variable (n) qui calcul le nombre de tentative
donc tu donne une valeur initiale n:=0;
en cas de faux mot de passe
n:=n+1;
a la fin
if n<3 then
begin
n:=n+1;
showmessage ('mdp erroné il vous reste ',3-n,' tntative');
goto a; (il retourne a la saisie de mdp)
end
else
application.terminate;
enfin je vais faire un programe exacte et je vais le poster dans les deux jour prochaines, promis -
