[R] Progress bar

[Mikaas]

Voila me reste plus que cette élément et mon script sera enfin terminé
J'ai regardé un peu sur le forum les exemples de progress bar mais je n'arrive pas a les adapters a mon script.

Voici mon script :

► Afficher le texte

Code : Tout sélectionner

Hotkeyset("{F1}", "CODE1")
Func CODE1()
    DirCopy($RAC_1 & "\" & $DOC_2, $RAC_1 & "\" & "SERO_1", 1)
    


    Dim $iMsgBoxAnswer
    $iMsgBoxAnswer = MsgBox(270340,"PARTIE 1","Installation Terminée, Lancer PARTIE 2")
    Select
        Case $iMsgBoxAnswer = 6
            Run(@ScriptDir & "\PARTIE 2.exe" ) ;Yes

        Case $iMsgBoxAnswer = 7
            Exit;No
    EndSelect
EndFunc   ;==>CODE1

Je cherche a faire progresser la bar entre le lancement de ma func ( F1 ) et la fin de l'installation ( COPIE )
Sachant que le temps peut varier entre 1 min à 5 min ( voir plus selon les ordi. )

J'ai trouvé celle ci mais je ne sais pas comment l'adpater si une personne pouvais me le faire dans un post explicatif merci beaucoup !

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstantsEx.au3>

; PROGRESS
GuiCtrlCreateProgress(60, 80, 150, 20)
GuiCtrlSetData(-1, 60)
GuiCtrlCreateLabel("Progress:", 5, 82)

; GUI MESSAGE LOOP
GuiSetState()
While GuiGetMsg() <> $GUI_EVENT_CLOSE
WEnd

Bientot fini

[DJSIR]

Genre :
ProgressOn, ProgressSet et ProgressOff ?

[Mikaas]

Bien possible oui
du moment que ca prenne au debut de la copie et finisse a ca fin avec un design pas trop moche je suis preneur

[Mikaas]

voila j'ai réussi a lancer la progress bar mais la progression ne concorde pas avec le temps reel de copie

une idee s'il vous plait ?

► Afficher le texte

Code : Tout sélectionner

Func CODE1()
            ProgressOn("PARTIE 1", "Installation en cours, Veuillez Patienter...", "0 %")
        For $i = 10 to 100 step 10
            sleep(100)
            ProgressSet( $i, $i & " % ")

    DirCopy($RAC_1 & "\" & $DOC_2, $RAC_1 & "\" & "SERO_1", 1)

        ProgressSet( $i, $i & " % ")
        Next
        ProgressSet(100 , "Terminé", "Installation Complete")
        sleep(500)
        ProgressOff()

    Dim $iMsgBoxAnswer
    $iMsgBoxAnswer = MsgBox(270340,"PARTIE 1","Installation Terminée, Lancer PARTIE 2")
    Select
        Case $iMsgBoxAnswer = 6
            Run(@ScriptDir & "\PARTIE 2.exe" ) ;Yes
            Exit 0

        Case $iMsgBoxAnswer = 7
            Exit 0 ;No
    EndSelect
EndFunc   ;==>CODE1

merci

[Tlem]

La copie avec une barre de progression ne peut fonctionner comme ceci.
En effet, la fonction DirCopy() va effectuer la copie mais sans mettre la barre de progression à jour.
Pour cela il faut décomposer la copie et faire la mise à jour au fur et à mesure, mais même comme cela, le pourcentage ne peut être fiable.

Je vous conseil plutôt de jeter un oeil sur ces liens :
- http://www.autoitscript.com/forum/index ... t&p=732787
- http://www.autoitscript.com/forum/index ... t&p=717740

Je n'ai pris que les deux premiers liens que je trouvais intéressent, mais il y en a d'autres.

[Mikaas]

Merci en faite j'ai fait comme cela :

- une progress bar de 0% à 100% (recherche des elements)
- Lance la copie du dossier avec une progress bar (installation en cours "sans %")
- une progress bar de 0% à 100% (installation terminé)

et ca passe ca fait pas trop moche

Merci quand meme

enfin fini mon projet <!!>