Page 1 sur 1
[R] Progress bar
Posté : mar. 29 déc. 2009 11:49
par 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
Re: [..] Progress bar
Posté : mar. 29 déc. 2009 12:32
par DJSIR
Genre :
ProgressOn, ProgressSet et ProgressOff ?
Re: [..] Progress bar
Posté : mar. 29 déc. 2009 12:34
par 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
Re: [..] Progress bar
Posté : mar. 29 déc. 2009 23:39
par 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
Re: [..] Progress bar
Posté : mer. 30 déc. 2009 11:19
par 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.
Re: [..] Progress bar
Posté : mer. 30 déc. 2009 20:29
par 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 <!!>