[R] Manipulation de deux progressbar en temps réel

[loockys]

Salut...
Je voudrais que les progressbars soient utilisable avec un temps prédéfini et manipulante en temps réel.

C'est-à dire que la progressbar1 ce lance, je voudrais pendant sont animation qu'ont puisse lancer la progressbar2,
sans réellement être obligé d'attendre la fin de la progressbar1 pour que la progressbar2 s'anime à son tour.
d'avance merci.

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 303, 253, 192, 124)
$Progress1 = GUICtrlCreateProgress(24, 48, 250, 25)
$Button1 = GUICtrlCreateButton("Lancer", 24, 8, 250, 25)
$Progress2 = GUICtrlCreateProgress(24, 166, 250, 25)
$Button2 = GUICtrlCreateButton("Lancer", 24, 126, 250, 25)
$Label1 = GUICtrlCreateLabel("0", 136, 96, 100, 17)
$Label2 = GUICtrlCreateLabel("0", 136, 205, 100, 17)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            _Btn1()
        Case $Button2
            _Btn2()
    EndSwitch
WEnd

Func _Btn1()
For $i = 0 To 100 step 1
sleep(59)
GUICtrlSetData($Label1, $i)
GUICtrlSetData($Progress1,$i)
Next

EndFunc

Func _Btn2()
For $i = 0 To 100 step 1
sleep(59)
GUICtrlSetData($Label2, $i)
GUICtrlSetData($Progress2,$i)
Next

EndFunc

 

[zeshrek]

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 303, 253, 192, 124)
$Progress1 = GUICtrlCreateProgress(24, 48, 250, 25)
$Button1 = GUICtrlCreateButton("Lancer", 24, 8, 250, 25)
$Progress2 = GUICtrlCreateProgress(24, 166, 250, 25)
$Button2 = GUICtrlCreateButton("Lancer", 24, 126, 250, 25)
$Label1 = GUICtrlCreateLabel("0", 136, 96, 100, 17)
$Label2 = GUICtrlCreateLabel("0", 136, 205, 100, 17)
GUISetState(@SW_SHOW)

Global $ProgressBar1 = 0
Global $ProgressBar2 = 0

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            _Btn1()
        Case $Button2
            _Btn2()
    EndSwitch
    If $ProgressBar1 = 100 Then
        $ProgressBar1 = 0
        AdlibUnRegister("_ProgressBar1")
        GUICtrlSetData($Label1, $ProgressBar1)
        GUICtrlSetData($Progress1, $ProgressBar1)

    EndIf
    If $ProgressBar2 = 100 Then
        $ProgressBar2 = 0
        AdlibUnRegister("_ProgressBar2")
        GUICtrlSetData($Label2, $ProgressBar2)
        GUICtrlSetData($Progress2, $ProgressBar2)

    EndIf

WEnd

Func _Btn1()
    AdlibRegister("_ProgressBar1", 60)
EndFunc   ;==>_Btn1
Func _Btn2()
    AdlibRegister("_ProgressBar2", 60)
EndFunc   ;==>_Btn2

Func _ProgressBar1()
    $ProgressBar1 = $ProgressBar1 + 1
    GUICtrlSetData($Label1, $ProgressBar1)
    GUICtrlSetData($Progress1, $ProgressBar1)
EndFunc   ;==>_ProgressBar1

Func _ProgressBar2()
    $ProgressBar2 = $ProgressBar2 + 1
    GUICtrlSetData($Label2, $ProgressBar2)
    GUICtrlSetData($Progress2, $ProgressBar2)
EndFunc   ;==>_ProgressBar2

De rien

Edit : Au fait, tu auras remarqué que les fonctions sont étrangement identiques, ce qui fait qu'en théorie, tu n'es pas oblihé e faire autant de fonctions que de barres.
Tu peux en faire une seule a laquelle tu passes le N° de la barre a lancer.
J'essaye de te faire ca asap

[loockys]

Encore merci pour les astuces.
Dite moi, j'aimerais intégrer ce morceau de code, le problème c'est que je n'arrive pas à exécuter ce morceau de code en fin de chargement de notre progressbar. Auriez vous une suggestion ou une solution à mon problème. Merci.

► Afficher le texte

Code : Tout sélectionner

Func _Btn1()
AdlibRegister("_ProgressBar1", 60)
    
[color=#00BF00]Global $Resultat, $ch1 = Random(0,3,1)
$Resultat += $ch1
GUICtrlSetData($Craft1, $Resultat)[/color]

EndFunc   ;==>_Btn1
 

[sylvanie]

Regardez plus attentivement le code proposé Par zeshreck.
Toute la parite verte doit se situer dans une fonction nommée _ProgressBar1 qui est appelée par le adlibregister de la fonction _Btn1().
Là je ne sais pas pourquoi vous tentez de cumuler le contenu des 2 fonctions en une ?

[loockys]

Merci infiniment, vous avez répondu à mes attente.

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 303, 253, 192, 124)
$Progress1 = GUICtrlCreateProgress(24, 48, 250, 25)
$Button1 = GUICtrlCreateButton("Lancer", 24, 8, 250, 25)
$Progress2 = GUICtrlCreateProgress(24, 166, 250, 25)
$Button2 = GUICtrlCreateButton("Lancer", 24, 126, 250, 25)
$Label1 = GUICtrlCreateLabel("0", 136, 96, 100, 17)
$Craft1 = GUICtrlCreateLabel("0", 30, 96, 100, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x3399FF)
$Label2 = GUICtrlCreateLabel("0", 136, 205, 100, 17)
GUISetState(@SW_SHOW)

Global $ProgressBar1 = 0
Global $ProgressBar2 = 0


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            _Btn1()
        Case $Button2
            _Btn2()
    EndSwitch
    If $ProgressBar1 = 100 Then
        $ProgressBar1 = 0
        AdlibUnRegister("_ProgressBar1")
        GUICtrlSetData($Label1, $ProgressBar1)
        GUICtrlSetData($Progress1, $ProgressBar1)
        
[color=#00BF00]        Global $Resultat, $ch1 = Random(1,3,1)
        $Resultat += $ch1
        GUICtrlSetData($Craft1, $Resultat)[/color]

    EndIf
    If $ProgressBar2 = 100 Then
        $ProgressBar2 = 0
        AdlibUnRegister("_ProgressBar2")
        GUICtrlSetData($Label2, $ProgressBar2)
        GUICtrlSetData($Progress2, $ProgressBar2)

    EndIf

WEnd

Func _Btn1()
    AdlibRegister("_ProgressBar1", 60)

EndFunc   ;==>_Btn1

Func _Btn2()
    AdlibRegister("_ProgressBar2", 60)
EndFunc   ;==>_Btn2

Func _ProgressBar1()
    $ProgressBar1 = $ProgressBar1 + 1
    GUICtrlSetData($Label1, $ProgressBar1)
    GUICtrlSetData($Progress1, $ProgressBar1)
EndFunc   ;==>_ProgressBar1

Func _ProgressBar2()
    $ProgressBar2 = $ProgressBar2 + 1
    GUICtrlSetData($Label2, $ProgressBar2)
    GUICtrlSetData($Progress2, $ProgressBar2)
EndFunc   ;==>_ProgressBar2
 

[ELGAMALI]

Lorsque je compile le scripte de zeshrek pour obtenir un fichier .exe, l’application ne s’exécute pas, par contre lorsque j’exécute le scripte à partir de Autoit : TOOLS/GO le script marche impeccablement.
Tester sur tous les os Windows xp/7/2003/2000/…
Il est ou le problème merci

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Installation......", 392, 120, 192, 124)
$Progress1 = GUICtrlCreateProgress(24, 75, 250, 25)
$Button1 = GUICtrlCreateButton("Lancer", 24,40, 250, 25)
$Label1 = GUICtrlCreateLabel("0", 275, 12, 150, 120)
GUICtrlSetFont(-1, 75, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Veillez passionter.Vous ête sur le point d'installer XXXXX sur votre ordinateur.", 24, 6, 350, 25, 0)
GUISetState(@SW_SHOW)

Global $ProgressBar1 = 0
Global $ProgressBar2 = 0

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            _Btn1()
            setup()
       
    EndSwitch
    If $ProgressBar1 = 100 Then
        $ProgressBar1 = 0
        AdlibUnRegister("_ProgressBar1")
        GUICtrlSetData($Label1, $ProgressBar1)
        GUICtrlSetData($Progress1, $ProgressBar1)

    EndIf
  if ProcessExists("Relance.exe") Then Exit   
WEnd

Func _Btn1()
    AdlibRegister("_ProgressBar1", 350)
EndFunc   ;==>_Btn1

Func _ProgressBar1()
    $ProgressBar1 = $ProgressBar1 + 1
    GUICtrlSetData($Label1, $ProgressBar1)
    GUICtrlSetData($Progress1, $ProgressBar1)
    If $ProgressBar1 = 100 Then Exit
EndFunc   ;==>_ProgressBar1


Func setup()
    ShellExecute(@ProgramFilesDir&"\ Dossier?\xxx.exe" )  
EndFunc

[ELGAMALI]

La solution est évidente: remplacez : ShellExecute par RunWait

[Tlem]

Question :

Il est ou le problème merci

Réponse :

La solution est évidente: remplacez : ShellExecute par RunWait

ELGAMALI ce vouvoie lui même !!!

[TT22]

La solution est évidente: remplacez remplacer : ShellExecute par RunWait

A une lettre près

[Tlem]

D’où l'importance de 'lortografe' ...