[..] Continuer le script avec la progress-bar

[Kaplan]

Bonjour,

Je me suis inspiré de l'un des exemples glanés sur le forum pour créer une progress-bar sans fin.
Le problème est que je ne parviens pas à trouver le moyen de faire continuer l'exécution du script pendant que la progress-bar continue de tourner. Elle boucle à l'infini sans que le traitement se poursuive.
En fin de traitement, j'ai tenté d'introduire un évênement ($mess) destiné à interrompre le processus mais encore faudrait-il que le script s'exécute.

J'ai tenté de rechercher par moi-même sur le forum mais je n'ai pas su trouver la solution adaptée.
J'apprécierais un petit coup de pouce.

Merci par avance.

PS : j'ai allégé l'extrait de code pour le rendre plus lisible ...

► Afficher le texte

Code : Tout sélectionner

HotKeySet("{ESC}", "endscript")
$1deb = 152 ;début progress bar
$1fin = 226 ;fin progress bar
$2fin = $1fin + 112
$pbpos = 40 ;hauteur de la progress bar
$Color2 = 0xFF0000
$Color11 = 0xC0C0C0
$Color12 = 0x00FF66

Local $txtchecked, $surlebur, $chemcons, $chemodif, $param1, $InputChemInv

$Creation = GUICreate("Prog  1.3.2", 595, 115)
GUISetBkColor(0xDCDCDC) ;gris clair

While 1 ; Début de boucle
    $mess = 0

    ; Progress bar
    Local $m = 1
;~  $ab = GUICtrlCreateGraphic($1deb, $pbpos, $1fin, 40)
    $ab = GUICtrlCreateGraphic($1deb, $pbpos, $1fin, 40)
    GUICtrlSetColor(-1, 0X003366)
    GUICtrlSetBkColor($ab, $Color2)
;~  $ba = GUICtrlCreateGraphic($1deb, $pbpos + 2)
    $ba = GUICtrlCreateGraphic($1deb, $pbpos + 100)
    GUICtrlSetBkColor($ba, $Color12)
    GUISetState()
    AdlibRegister("_SliderRight", 30)

    ; Sortie au format TXT
    $fich1 = $chemcons & "\" & @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC
    $fin = RunWait(@ComSpec & " /c " & "BIN\prog" & $param1 & " -q -r " & $chemodif & " > " & $fich1, ".", @SW_HIDE)
    $mess = 1
    MsgBox(64, "Prog  1.3.2", "Le rapport est enregistré dans " & GUICtrlRead($InputChemInv), 2)

WEnd

; Les Fonctions utilisées

Func endscript()
    Exit
EndFunc   ;==>endscript


Func _SliderRight()
    For $m = $1deb To $2fin Step 1
        GUICtrlSetPos($ba, $m, $pbpos + 1, 40, 38)
        Sleep(15)
    Next
    _mess()
    _SliderLeft()
EndFunc

Func _SliderLeft()
    For $m = $2fin To $1deb Step -1
        GUICtrlSetPos($ba, $m, $pbpos + 1, 40, 38)
        Sleep(15)
    Next
    _mess()
    _SliderRight()
EndFunc

Func _mess()
    If $mess = 1 Then
        GUICtrlDelete($ab)
        GUICtrlDelete($ba)
    EndIf
EndFunc
 

[Sea]

Met tes AdlibRegister("_SliderRight", 30) en dehors de ta boucle car en gros ici a chaque fois tu à ta boucles tu dis, Toute les 30ms à partir de maintenant tu va m'exécuter la fonction "_SliderRight".

Et après quelques conseils pour la lisibilité de ton code.
Rajoute une fonction updateProgress qui va t'update ta progression de ta barre (juste la gestion de la GUI) et rajoute une fonction d'écriture de log

[jguinch]

Tu as aussi le style $PBS_MARQUEE qui peut être sympa :

► Afficher le texte

Code : Tout sélectionner

#include <ProgressConstants.au3>

GUICreate("GUI", 400, 50)

$progress = GUICtrlCreateProgress(10, 10, 380, 25,$PBS_MARQUEE )
GUICtrlSendMsg($progress, $PBM_SETMARQUEE, True, 10)

GUISetState()

While GUIGetMsg() <> -3
WEnd
 

[Kaplan]

Merci à jguinch et à Sea pour les réponses.
J'avais déjà essayé le style $PBS_MARQUEE mais je ne parviens pas à modifier la couleur verte de la barre de défilement. J'ai cru lire que cela était impossible. Par ailleurs, je préférais une barre aux contours nets qui fait des allers-retours.

En ce qui concerne le déplacement de AdlibRegister en dehors de la boucle cela me parait difficile dans la situation suivante :

Code : Tout sélectionner

Construction de la GUI
While 1
      While 1
      WEnd
AdlibRegister
traitement des données
Wend
Fonctions
 

En bref, je ne vois pas où le déplacer.
Je vais creuser la piste de l'updateprogress

A suivre ...

[TomAijerrie]

...mais je ne parviens pas à modifier la couleur verte de la barre de défilement. J'ai cru lire que cela était impossible. Par ailleurs, je préférais une barre aux contours nets qui fait des allers-retours.

Extrait de Autoit Help, guictrlsetcolor() :
"Checkbox, Radio, Group or Progress controls cannot be painted if the "Windows XP/Vista style" is used."

En gros, on ne peut pas colorier la barre de progression si le style XP ou Vista est utilisé

Ne pas confondre style et OS :
on peut être sur Seven (par exemple) et avoir un style antérieur
(Panneau de configuration/paramètres d'affichage/thèmes)

Pour le défilement de la barre, je te propose quelquechose comme ça :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Form1", 425, 208, 192, 124)


Global $Label2 = GUICtrlCreateLabel("", 15, 65, 396, 37)
GUICtrlSetBkColor(-1,0)
Global $Label3 = GUICtrlCreateLabel("", 17, 67, 392, 33)
GUICtrlSetBkColor(-1,0xFFFFFF)
Global $Label4 = GUICtrlCreateLabel("", 19, 69, 30, 29)
GUICtrlSetBkColor(-1,0x0000FF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $sec =@SEC

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

EndSwitch
actu()
WEnd

Func actu()
    If $sec <> @SEC Then

        GUICtrlSetPos($Label4,Cos(@SEC * 3.1415926 / 30)*175 + 202)
        $sec = @SEC
    EndIf
EndFunc
 

Il faudrait que tu fournisses un code plus complet car je n'ai toujours pas compris si ton script est plutôt ludique ou au contraire très sérieux.

J’espère t'avoir aidé.

[Kaplan]

Merci pour cette belle barre de progression qui correspond mieux à mon souhait.
Mon code a été posté dans un message plus haut. Je m'en sers dans mon travail.
Je me pose la question de l'intégration de la barre de défilement dans le code étant donné que j'ai déjà essayé sans succès dans mon précédent code.
La fin du RunWait pourrait marquer le moment d'interrompre la barre de défilement mais cette dernière tourne en boucle sans que je parvienne à l'arrêter comme si elle bloquait l'exécution du code.

[TomAijerrie]

En effet, comme ça elle bloque le code.

Dans ton code, on a :

Code : Tout sélectionner

Creation de la GUI
Boucle For...To...
Next
Appel d'une autre boucle For ... To ... Next
Appel de la boucle précédente et ainsi de suite jusqu'à l'appel de la fonction endscript avec la touche echap

Il faudrait plutôt déclarer une variable de progression en mode Gobal, et faire bouger la progressbar en fonction de la valeur de cette variable. Tu peux aussi ajouter une variable Globale pour indiquer le sens de deplacement de la progressbar.

Au lieu d'ajouter la fonction _mess(), met au début de ta fonction de déplacement de la progressbar

Code : Tout sélectionner

If $mess = 1 then
      GUICtrlDelete($ab)
      GUICtrlDelete($ba)
      return
EndIf