[R] Comment placer la boucle ?

[FoX]

J'ai enfin créé mon script de base, fonctionnel, grace aux aides diverses, le forum et les membres. Cependant j'ai placé une boucle For/Next qui ne fonctionne pas, et je ne comprends mon erreur

► Afficher le texte

Code : Tout sélectionner

#ce ----------------------------------------------------------------------------
For $i = 0 To 300 Step 1
    $Process = Run("C:\Windows\twain_32\escndv\escndv.exe")
    WinWait("EPSON Scan")
    WinActivate("EPSON Scan")
    Send("!s")
    WinWait("EPSON TIFF Plug-in")
    
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ProgressConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    
    $cpt = 0
    $sec = 30
    $barre= 0
    $i = 0
    #Region ### START Koda GUI section ###
    $Form1 = GUICreate("",466, 129, -1, -1)
    GUICtrlSetCursor (-1, 1)
    $Label1 = GUICtrlCreateLabel("Veuillez changer de page", 0, 22, 465, 58, $SS_CENTER)
    GUICtrlSetFont(-1, 20, 800, 0, "Calibri")
    GUICtrlSetColor(-1, 0x0066FF)
    $Label2 = GUICtrlCreateLabel("Scanner en attente", 68, 64, 332, 17, $SS_CENTER)
    $Progress1 = GUICtrlCreateProgress(126, 88, 210, 21)
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section #
      While 1
         If $barre = 0 Then
            $i = $i + 1
            $cpt = $cpt + 1
            GUICtrlSetData($Progress1,$i)
            Sleep(300)
         EndIf
         If $i = 100 Then
            $barre = 1
            GUIDelete("")
         EndIf
         WEnd
Next

 

Le script appelle le programme du scanner, il attend l'acces au logiciel, fait de cette fenetre la fenetre active.
Il lance une numérisation et attend l'apparition de la fenetre Plug-in EPSON, qui effectue l'enregistrement de l'image scannée..
A ce moment, une GUI apparait, avec une barre de progression, pour une durée de 30sec pour indiquer qu'il faut changer de page.
La GUI se ferme et logiquement le script devrait reprendre au debut avec la boucle (For/Next), mais il ne se passe rien.

J'avoue que j'en suis qu'a mon 3eme jour d'apprentissage sur AutoIT et qu'une pt etre qu'une grosse boulette est cachée dans le script.

[tatane]

Bonsoir,

Vous restez tout simplement bloqué dans la boucle While 1 / Wend. Il vous faut une condition de sortie et la commande de sortie "ExitLoop".

Code : Tout sélectionner

      While 1
         If $barre = 0 Then
            $i = $i + 1
            $cpt = $cpt + 1
            GUICtrlSetData($Progress1,$i)
            Sleep(300)
         EndIf
         If $i = 100 Then
            $barre = 1
            GUIDelete("")
            ExitLoop
         EndIf
     WEnd

[FoX]

effectivement, c'etait vraiment tout bete, j'avais tenté le ContinueLoop mais pas le ExitLoop.

Apres avoir placé la bonne balise, je me suis apercu au second tour de script que mes constantes étaient mal placées. Je les ai repositionnées en haut de script et maintenant tout fonctionne.