[R] Renouveler une tentative

[Ks10]

Bonjour,

J'aimerais pouvoir offrir 5 chances d'entrer un mot de passe et après sa refuser l'accès si ce n'est toujours pas le bon.

Voila un exemple de mon code :

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=

$tentative = "1"
$password = "bonjour"

Global $Form1 = GUICreate("Form1", X, X, X, X)
Global $label = GuiCtrlCreateLabel("Tentative :", X, X, X, X)
Global $label2 = GuiCtrlCreateLabel($tentative, X, X, X, X)
Global $pass = GuiCtrlCreateInput("", X, X, X, X)
Global $button = GuiCtrlCreateButton("OK", X, X, X, X)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg

  Case $button
        If $pass = $password Then
               Msgbox(64, "Informations", "Mot de passe correct"
        Else
              Msgbox(64, "Informations", "Recommencer, mot de passe incorrect")
              GuiCtrlDelete($label2)
              $label2 = GuiCtrlCreateLabel($tentative + "1", X, X, X, X)
        Endif 


  Case $GUI_EVENT_CLOSE
   Exit

 EndSwitch
WEnd
 

Comment faire pour renouveler cette action 4 fois si il se trompe 4 fois ? Et bien evidemment toujours incrémenter la valeur jusqu'a ce qu'elle ateigne 5.

Si mon code n'est pas correct, n'hésitez pas à me corriger.

Merci d'avance

[walkson]

Bonjour,
Pas pratique les "X" dans l'exemple
Je n'ai pas testé mais je pense à cela:

Code : Tout sélectionner

  Case $button
      $tentative = 1
      do
        If $pass = $password Then
               Msgbox(64, "Informations", "Mot de passe correct"
               ExitLoop
        Else
              Msgbox(64, "Informations", "Recommencer, mot de passe incorrect")
              GUICtrlSetData($label2,$tentative)
              $tentative = $tentative + 1
              
        Endif 
    Until $tentative = 5

[Ks10]

Désolé pour les " X " , je suis au bureau & je n'est pas mon code sous les yeux x)

Avec ce code, si le code est bon il sortira automatiquement de la boucle " do " ?
Dans le contraire il renouvelle jusqu'a ce que tentative atteigne 5 c'est ça ?

Merci pour ton code je le test ce soir & je vous tien au courant.

[walkson]

Aprés un test, ceci marche mieux

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 347, 236, 192, 124)
Global $pass = GUICtrlCreateInput("", 32, 24, 273, 21,$ES_PASSWORD)
Global $Label1 = GUICtrlCreateLabel("", 40, 56, 156, 33)
Global $Button1 = GUICtrlCreateButton("Button1", 88, 120, 65, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$password = "bonjour"
$tentative = 0
While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

  Case $Button1
       $valpass = GUICtrlRead($pass)
      Do
        If $tentative = 4 Then ExitLoop
        If $valpass = $password Then
               Msgbox(64, "Informations", "Mot de passe correct")
               ExitLoop
        Else
              Msgbox(64, "Informations", "Recommencer, mot de passe incorrect",1)
              $tentative = $tentative + 1
              GUICtrlSetData($label1,"il reste " & 4 - $tentative  & " tentative(s)")
                ExitLoop
        Endif

        Until $tentative
 EndSwitch
WEnd

Il y a, peut être, plus simple ?

[Ks10]

Je te remercie pour ce code, il est fonctionnel oui
Je l'est adapter a mon code ^^

Merci encore une fois.