[Ex] Exemples de ProgressBar

[Tlem]

Voici quelques exemples de progressBar glaner ici et là.

Je les ait regroupées dans une archive Zip ci-jointe.

Ajout d'une version plus récente des scripts (pour AutoIt v3.3.2.0).

[Greenhorn]

Wow, great work, Thierry !

Very useful functions, thank you.

I have also made a ProgressBar, but with Bitmaps.
The core I found at the english forum, but it was not really finished, so I did it ...

The files are attached to this post.


Greetz
Greenhorn

[Tlem]

@Greenhorn Very nice ProgressBar, I love it too.

[Greenhorn]

Thx

Also nice is the following script, using the GDI+ ...
(found http://www.autoitscript.com/forum/index ... t&p=483195)

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
#include <GdiPlus.au3>


Global $ahCallBack[2], $iPrecent

$Gui = GUICreate("Gradient ProgressBar", 400, 300)

GUICtrlCreateLabel("", 9, 9, 302, 22, -1, $WS_EX_STATICEDGE)
GUICtrlCreateLabel("", 9, 39, 302, 22, -1, $WS_EX_STATICEDGE)

GUICtrlCreateLabel("There is  few more colors commented in the script bellow...", 10, 200)

$Status_Label = GUICtrlCreateLabel("0%", 330, 30, 30, 20)

$Button = GUICtrlCreateButton("Start",150,100,50,20)

_GDIPlus_Startup()

$hGraphic1 = _GDIPlus_GraphicsCreateFromHWND($Gui)

$hBitMap = _GDIPlus_BitmapCreateFromGraphics(300, 20, $hGraphic1)

$hGraphic2 = _GDIPlus_ImageGetGraphicsContext($hBitMap)

$hPen = _GDIPlus_PenCreate(0,1)

$Depth = 1.64 ; Min = 1.10  Max = 1.70

For $i = 1 To 20
;~  $PenColor = "0xFF" & Hex(255 - $i, 2) & Hex(Round(240 - $i^$Depth), 2) & "3B" ; Orange
;~  $PenColor = "0xFF" & Hex(255 - $i, 2) & Hex(Round(200 - $i^$Depth), 2) & "FF" ; Magenta
;~  $PenColor = "0xFF" & Hex(80  + $i, 2) & Hex(Round(240 - $i^$Depth), 2) & "3B" ; Green
    $PenColor = "0xFF" & Hex(80  + $i, 2) & Hex(Round(240 - $i^$Depth), 2) & "FF" ; Blue
    _GDIPlus_PenSetColor($hPen, $PenColor)
    _GDIPlus_GraphicsDrawLine($hGraphic2, 0, $i-1, 300, $i-1, $hPen)
Next

_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic2)


$hBitMap_Multiply = _GDIPlus_BitmapCreateFromGraphics(300, 20, $hGraphic1)
$hGraphic2 = _GDIPlus_ImageGetGraphicsContext($hBitMap_Multiply)

For $i = 0 To 15 Step 5
    _GDIPlus_GraphicsDrawImageRectRect($hGraphic2, $hBitMap, 0, 0, 300, 20, 0, $i, 300, 5)
Next

_GDIPlus_GraphicsDispose($hGraphic2)

GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Button
            If $iPrecent = 0 Then _WinAPI_RedrawWindow($Gui)
           
            If GUICtrlRead($Button) = "Stop" Then
                GUICtrlSetData($Button, "Start")
                CallBack_Free($ahCallBack)
               
                ContinueLoop
            EndIf
           
            GUICtrlSetData($Button, "Stop")
           
            $ahCallBack = CallBack_Init("Paint_Proc", 10)
        Case $GUI_EVENT_CLOSE
            If $ahCallBack Then CallBack_Free($ahCallBack)
           
            _GDIPlus_ImageDispose($hBitmap)
            _GDIPlus_ImageDispose($hBitMap_Multiply)
            _GDIPlus_GraphicsDispose($hGraphic1)
            _GDIPlus_Shutdown()
           
            Exit
    EndSwitch
WEnd

Func Paint_Proc($hWnd, $nMsg, $wParam, $lParam)
    $iPrecent += 1
   
    GUICtrlSetData($Status_Label, Round($iPrecent / 3) & "%")
   
    If $iPrecent > 300 Then
        $iPrecent = 0
       
        GUICtrlSetData($Status_Label, "100%")
        GUICtrlSetData($Button, "Start")
        CallBack_Free($ahCallBack)
       
        $ahCallBack = 0
        Dim $ahCallBack[2] = [-1, -1]
    EndIf
   
    _GDIPlus_GraphicsDrawImageRectRect($hGraphic1, $hBitMap, 0, 0, $iPrecent, 20, 10, 10, $iPrecent, 20)
    _GDIPlus_GraphicsDrawImageRectRect($hGraphic1, $hBitMap_Multiply, 0, 0, $iPrecent, 20, 10, 40, $iPrecent, 20)
EndFunc

Func CallBack_Init($sFuncName, $iTime, $sParam = "hwnd;int;int;dword")
    Local $hCallBack = DLLCallbackRegister($sFuncName, "int", $sParam)
   
    Local $aTimer = DllCall("user32.dll", "uint", "SetTimer", _
        "hwnd", 0, "uint", 0, "int", $iTime, "ptr", DllCallbackGetPtr($hCallBack))
   
    Local $ahCallBack[2] = [$hCallBack, $aTimer[0]]
   
    Return $ahCallBack
EndFunc

Func CallBack_Free($ahCallBack)
    If $ahCallBack[0] <> -1 Then DllCallbackFree($ahCallBack[0])
    If $ahCallBack[1] <> -1 Then DllCall("user32.dll", "int", "KillTimer", "hwnd", 0, "uint", $ahCallBack[1])
EndFunc

But it includes at least 15.000 lines of code


Greetz
Greenhorn

[Tlem]

Voici une nouvelle version (qui date de 2008 quand même ) crée par ProgAndy.

Voici le lien du forum Anglais : Progressbar with GDIplus

Mais au cas ou, je rajoute son UDF et l'exemple à ce message.

[Tlem]

J'ai vu fleurir récemment, des demandes pour afficher une ProgressBar sur une opération, dont le temps ne peut être déterminé.
Pour cela, la solution la plus simple, c'est de faire une barre de progression qui "tourne en boucle".
Bon, ce n'est plus réellement une barre de progression dans ce cas, mais au moins il y à quelque chose qui bouge et qui montre que l'application n'est pas plantée.

Le plus gros problème avec une ProgressBar, c'est d'inclure son code dans le code des fonctions et/ou boucles du code principal.

Afin de rendre l'intégration d'une barre de progression dans un code, plus facile, je me suis dit qu'il serait bien de faire cela par fonction, mais sans que celle-ci ne bloque le reste du code. ^^

La solution : AdlibRegister !!!

Pour illustrer cela, vous trouverez ci-dessous l'exemple d'une des barres de progression présenté dans le premier message, modifiée et adaptée pour une intégration rapide et simple.

Vous constaterez que la boucle principale n'a pas beaucoup d’intérêt, mais elle est comme ça, pour vous montrer comment la fonction interagit avec celle-ci.

[timmalos]

Vous pouvez également faire comme ceci : (Marche sous vista/seven, a confirmer sous XP)

Code : Tout sélectionner

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

GUICreate("", 520, 100, -1, -1)
$Progress = GUICtrlCreateProgress(10, 30, 500, 30, $PBS_MARQUEE)
GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30))
GUISetState(@SW_SHOW)

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

 EndSwitch
WEnd

Qui permet d'afficher une barre de progression qui fait des allez-retour comme sous Windows.

Have fun !

[Tlem]

Très juste.
Je viens d'éditer ton code pour donner l'exemple complet.
Je confirme le fonctionnement sous XP, par contre la barre va de gauche à droite continuellement !

L'avantage de gérer le contrôle de cette manière, c'est que même lors du déplacement de la GUI, la barre fonctionne.
Ce qui n'est pas toujours le cas. ^^

[ludoo]

bonjour,
comment faire pour arrêter le progress bar sans fermer la fenêtre .

► Afficher le texte

Vous pouvez également faire comme ceci : (Marche sous vista/seven, a confirmer sous XP)

Code : Tout sélectionner

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

GUICreate("", 520, 100, -1, -1)
$Progress = GUICtrlCreateProgress(10, 30, 500, 30, $PBS_MARQUEE)
GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30))
GUISetState(@SW_SHOW)

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

&nbsp;EndSwitch
WEnd

Qui permet d'afficher une barre de progression qui fait des allez-retour comme sous Windows.

Have fun !

[mikell]

Je confirme le fonctionnement sous XP

Heu sur mon XP SP3 x86 ça marche pas, la barre s'affiche mais reste vide

[Tlem]

J'ai moi aussi XP SP3 x86 et sur mon poste et ça fonctionne.

Edit :

• Windows 98 Se (VirtualPC) => Non supporté par les dernières version de AutoIt.
• Windows 2000 x86 (VirtualPC) => Ne fonctionne pas (pas de curseur défilant)
• XP SP2 x86 (VirtualPC)=> Fonctionne
• XP SP2 x86 En (VirtualPC)=> Fonctionne
• XP SP3 x86 (VirtualBox) => Fonctionne
• Micro XP SP3 x86 v0.82 En(VirtualBox) => Fonctionne
• Windows Seven x86 (VirtualBox) => Fonctionne
• Windows Seven SP1 x86 (VirtualBox) => Fonctionne

[mikell]

J'ai moi aussi XP SP3 x86 et sur mon poste et ça fonctionne.
Edit :

C'est fou ce que ça me console
Je ne doute pas du script, j'aimerais juste comprendre pourquoi sur mon XP ça ne marche pas

BTW dans : GUICtrlSendMsg($Progress, 0x0400+10, 1, Number(30)) c'est pour quoi le "1" ?

[Tlem]

Même si ca ne donne pas la réponse en clair, cela peut aider : http://msdn.microsoft.com/en-us/library ... 85%29.aspx

[mikell]

Ah il voulait se payer ma tête le boss, n'empêche que son lien m'a donné la réponse
(version trop ancienne de comctl32.dll)
Mais vu le bord&l pour actualiser cette dll je préfère faire une croix sur ce script

[Tlem]

Ah il voulait se payer ma tête le boss

Que nenni. J'ai juste cherché une réponse et trouvé ce lien qui donnait quelques explications et autres liens permettant de trouver une réponse !

[ludoo]

Bonjour,
merci pour la piste et merci pour le partage du script
mettre 0 à la place du 1
et après changer la couleur de la progressBar

► Afficher le texte

Code : Tout sélectionner

GUICtrlSendMsg($Progress, 0x0400 + 10, 0, Number(30))
GUICtrlSetColor(-1, 0xFFFFFF)

[Nicoloquinte]

Bonjour

Vous avez un exemple pour mettre une ProgressBar dans une Barre de statut

merci

[Nicoloquinte]

Je croit qu'en fait , il faut juste mettre une progressBar bien positionée

Edit :
J'ai réussi avec :

Code: [Tout sélectionner] [Déplier/Replier]

$StatusBar1 = _GUICtrlStatusBar_Create($GamepadTest)
$progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
_GUICtrlStatusBar_EmbedControl($StatusBar1, 1, GUICtrlGetHandle($progress))

GeSHi © Extension Codebox Plus