[R] Problèmes "Progressbar" et évènements.

[blacksoul305]

Bonjour !

Voilà, je suis entrain de créer un script qui ne sert à rien, qui est pourtant facile et qui me donne tellement de fil à retordre que ça fait près d'une heure que je suis dessus.

J'ai bien organisé mon code pour pouvoir repérer les erreurs facilement et me donner de l'aide aussi .
Voici le code :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiImageList.au3>
#include <ImageListConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


;GUI1
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\******\Bureau\Programmes\Fenêtre Koda\Programme erreur\Fen1.kxf
Local $Fen1 = GUICreate("Mis à jour Windows", 385, 150, 186, 116)
GUISetIcon("C:\Documents and Settings\*******\Bureau\IconExtract\icons\xpsp2res_4.ico")
$ImageList1 = _GUIImageList_Create(16, 16, 5)
_GUIImageList_AddIcon($ImageList1, "C:\Documents and Settings\********\Bureau\IconExtract\icons\xpsp2res_4.ico", 0, True)
Local $Label1 = GUICtrlCreateLabel("Nouvelles mis à jours Windows.", 112, 16, 127, 17)
Local $Label2 = GUICtrlCreateLabel("Mettre à jour l'ordinateur ?", 128, 48, 85, 17)
Local $Button1 = GUICtrlCreateButton("Oui", 96, 96, 49, 25, $WS_GROUP)
Local $Button2 = GUICtrlCreateButton("Non", 207, 96, 49, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;GUI1




While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   MsgBox (0,"Erreur Windows", "Vous avez interrompu la mis à jour")
   Exit

   Case $Button2
       MsgBox (0,"Erreur Windows", "Vous avez interrompu la mis à jour")
       Exit
   Case $Button1
       $Fen1 = GUISetState(@SW_HIDE)

EndSwitch
WEnd




;GUI2
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


#Region ### START Koda GUI section ### Form=c:\documents and settings\**********\bureau\programmes\fenêtre koda\form1.kxf


Local $Form1 = GUICreate("Mis à jours de Windows", 314, 184, 227, 127)
GUISetBkColor(0xD4D0C8)
Local $Group1 = GUICtrlCreateGroup("Mis à jours", 0, 54, 185, 113)
Local $Label1 = GUICtrlCreateLabel("- Suppression des erreurs Windows", 8, 78, 170, 17)
Local $Label2 = GUICtrlCreateLabel("- Réparation des clefs de registres", 8, 142, 164, 17)
Local $Label3 = GUICtrlCreateLabel("- Mis à jours des utilitaires Windows", 8, 110, 170, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Local $Progress1 = GUICtrlCreateProgress(-16, 14, 321, 25)
Local $Group2 = GUICtrlCreateGroup("", 240, 158, 73, 25)
Local $Label4 = GUICtrlCreateLabel("LOL©", 248, 166, 57, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;GUI2

$Pourcentage = 0

While 1
    $nMsg = GuiGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case GUICtrlSetData ( $Progress1, $Pourcentage)
            Sleep ( 1000 )
            $Pourcentage+=1
            MsgBox(64, "Information Windows", "Les mis à jours de Windows ont été installées")

EndSwitch

WEnd

 

Je vous prie de me donner des conseils puis certaines explications à propos des variables. Je m'explique.
Comme d'habitude, j'utilise "F1" afin de trouver des conseils sur les commandes puis, au pire des cas, je copie l'exemple. Il se trouve que je ne comprend pas comment l'exemple est fichu.
Ce que je n'est pas compris :

► Afficher le texte

Code : Tout sélectionner

Opt('MustDeclareVars', 1)

Example()

Func Example()
    Local $progressbar1, $progressbar2, $button, $wait, $s, $msg, $m

__________________________________________________________________
 

Quelles sont ces variables ?

Merci d'avance et désolé pour la gêne et ma stupidité !

[Strofe]

Bonjour

Local --> déclaration des variables

J'ai joué avec ton code

► Afficher le texte

Code : Tout sélectionner

;~ Ajout des includes en début de programme
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

;~ Faut-il oui ou non faire les mises à jour ?
$reponse = MsgBox(4+16,"Mise à jour Windows", "Nouvelles mises à jour Windows" & @CRLF & @CRLF & "Mettre à jour l'ordinateur ?")

;~ Si c'est non alors on arrête tout
If $reponse = 7 then 
    MsgBox (0,"Erreur Windows", "Vous avez interrompu la mis à jour")
    Exit
EndIf

;~ Mise en forme du formulaire
$Form1 = GUICreate("Mises à jour de Windows", 320, 179, 188, 124)
$Progress1 = GUICtrlCreateProgress(0, 16, 320, 25)
$Group1 = GUICtrlCreateGroup("Mises à jour", 8, 56, 305, 97)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x0054E3)
$Lbl_Sup = GUICtrlCreateLabel("- Suppression des erreurs Windows", 24, 80, 210, 20)
GUICtrlSetColor($Lbl_Sup, 0x000000)
GUICtrlSetState($Lbl_Sup, $GUI_HIDE)
$Lbl_Rep = GUICtrlCreateLabel("- Réparation des clefs de registre", 24, 104, 195, 20)
GUICtrlSetColor($Lbl_Rep, 0x000000)
GUICtrlSetState($Lbl_Rep, $GUI_HIDE)
$Lbl_Maj = GUICtrlCreateLabel("- Mise à jour des utilitaires Windows", 24, 128, 214, 20)
GUICtrlSetColor($Lbl_Maj, 0x000000)
GUICtrlSetState($Lbl_Maj, $GUI_HIDE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label4 = GUICtrlCreateLabel("LOL©", 280, 160, 33, 17, $SS_SUNKEN)
GUISetState(@SW_SHOW)

Sleep(1000)

$Maj = 1 ;Variable qui permet de faire apparaître les différents niveaux d'avancement
Do
;~  Gestion des trois niveaux de mise à jour
    Switch $Maj 
        Case 1  ;- Suppression des erreurs Windows
            GUICtrlSetState($Lbl_Sup, $GUI_SHOW)            
        Case 2  ;- Réparation des clefs de registre
            GUICtrlSetState($Lbl_Rep, $GUI_SHOW)
        Case 3  ;- Mise à jour des utilitaires Windows
            GUICtrlSetState($Lbl_Maj, $GUI_SHOW)
    EndSwitch
    
;~  Bar de progression
    For $i = 0 To 100
        $m = GUIGetMsg()
;~      Permet de quitter la mise à jour   
        If $m = $GUI_EVENT_CLOSE Then ExitLoop
            
        GUICtrlSetData($Progress1, $i)
        Sleep(20) ; Durée de la pause  = 20ms 
    Next
    $Maj +=1
;~  Fin du monde virtuel
    If $Maj = 4 Then
        msgbox(0,"C'est pour rire","Bon c'est beau, mais j'ai rien fait")
        $m = $GUI_EVENT_CLOSE
    EndIf
    
Until $m = $GUI_EVENT_CLOSE
 

[blacksoul305]

J'ai joué avec ton code

Oh là là que c'est beau !
Je suis dégoûté du fait que ce n'est pas moi qui l'ai fait. Tu peux me dire ce qui était faux s'il te plaît ?

EDIT: Merci d'avoir détaillé chaque étapes. Néanmoins, pourras-tu m'expliquer quelles sont les variables "$i" et "$m" et aussi "$SS_SUKEN" ?

[Strofe]

Bonsoir

$i --> Variable compteur pour la barre de progression. (de 0 à 100)

$m --> Variable pour récupérer les évennements du formulaire (gui)

Case GUICtrlSetData ( $Progress1, $Pourcentage) --> N'est pas interprétable...

Astuce : je commence toujours avec l'exemple de l'aide et je l'adapte petit à petit à mon besoin.

A+