[..] Minuteur

[Mopoio]

Bonjour,

Un de mes amis m'a demandé de lui faire un minuteur qui ferait une alerte toutes les 2h.
J'ai donc crée un code qui gère le temps et décomte en h-min-sec. Je pense que les variables utilisées changent bien mais le problème est qu'à l'affichage les valeurs ne changent pas.
Ellles ne changent que si je re-lance la fenêtre.

Savez-vous d'ou vient le problème et comment je peut le régler svp ?

[GhostLine]

Ca serait judicieux de donner ton code ici, histoire que les gens puissent voir ce que tu as utilisé

[Mopoio]

Effectivement.

Je ne mets pas le code en entier, trop est useless, le laisse juste la partie concernée :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Label4 = GUICtrlCreateLabel("Temps restant :", 312, 24, 45, 20)
$Group1 = GUICtrlCreateGroup(" ", 304, 56, 161, 89)
$TpsH1 = GUICtrlCreateLabel(" ", 320, 96, 45, 20)
$Label6 = GUICtrlCreateLabel(":", 340, 96, 45, 20)
$TpsMin1 = GUICtrlCreateLabel(" ", 350, 96, 45, 20)
$Label8 = GUICtrlCreateLabel(":", 370, 96, 45, 20)
$TpsS1 = GUICtrlCreateLabel(" ", 380, 96, 45, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TpsH = 1
$TpsMin = 59
$TpsS = 59
GUISetState(@SW_SHOW)
Func Temps()

        $TpsH1 = GUICtrlCreateLabel($TpsH , 320, 96, 45, 20)
        $TPsMin1 = GUICtrlCreateLabel($TpsMin , 350, 96, 45, 20)
        $TpsS1 = GUICtrlCreateLabel($TpsS , 380, 96, 45, 20)

    While 1


             Sleep(980)
     $TpsS = $TpsS - 1

     If      $TpsS <= 0 then
         $TpsMin = $TpsMin - 1
         $TpsS = 59
     EndIf

     If          $TpsMin <= 0 Then
         $TpsH = $TpsH - 1
         $TpsMin = 59
     EndIf

     If          $TpsH <= 0 and $TpsMin <= 0 and $TpsS <= 0 Then
         $TpsH = 1
        $TpsMin = 59
        $TpsS = 59
        ExitLoop

        EndIf


     WEnd
 sleep (7200000)
    EndFunc
 

[Tlem]

sleep (7200000) va mettre votre script en pause pendant 2 heure et donc pendant ce temps il ne peut rien faire de plus.

Sur le forum, il y à quelques exemples de timer ou minuteur. Regardez leur code et vous comprendrez mieux.

[Narmeke]

Si je vous dis actualiser les labels !

[Yogui]

si je dit lire la doc ...

je n'ai pas de GUICreate dans le code ... donc pas de création de "fenêtre" ou mettre vos labels

Vous avez une fonction mais elle n'est pas appelée ?

Ce n'est qu'un bout de code mais bon ...

Bref après avoir déclaré la form et fait ce que Tlem à indiqué dans son message j'ai ça :

► Afficher le texte

Code : Tout sélectionner

#include <Timers.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 633, 447, 192, 124)
$Label4 = GUICtrlCreateLabel("Temps restant :", 312, 24, 45, 20)
$Group1 = GUICtrlCreateGroup(" ", 304, 56, 161, 89)
$TpsH1 = GUICtrlCreateLabel(" ", 320, 96, 45, 20)
$Label6 = GUICtrlCreateLabel(":", 340, 96, 45, 20)
$TpsMin1 = GUICtrlCreateLabel(" ", 350, 96, 45, 20)
$Label8 = GUICtrlCreateLabel(":", 370, 96, 45, 20)
$TpsS1 = GUICtrlCreateLabel(" ", 380, 96, 45, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TpsH = 1
$TpsMin = 59
$TpsS = 59
GUISetState(@SW_SHOW)


$TpsH1 = GUICtrlCreateLabel($TpsH, 320, 96, 45, 20)
$TpsMin1 = GUICtrlCreateLabel($TpsMin, 350, 96, 45, 20)
$TpsS1 = GUICtrlCreateLabel($TpsS, 380, 96, 45, 20)
Local $starttime = _Timer_Init()
Do
    _temps()
Until _Timer_Diff($starttime) > 7200000

MsgBox(0, "", "GO")

Func _temps()
    Sleep(980)
    $TpsS = $TpsS - 1
    GUICtrlSetData($TpsS1, $TpsS)

    If $TpsS <= 0 Then
        $TpsMin = $TpsMin - 1
        $TpsS = 59
        GUICtrlSetData($TpsMin1, $TpsMin)
        GUICtrlSetData($TpsS1, $TpsS)
    EndIf

    If $TpsMin <= 0 Then
        $TpsH = $TpsH - 1
        $TpsMin = 59
    EndIf

    If $TpsH <= 0 And $TpsMin <= 0 And $TpsS <= 0 Then
        $TpsH = 1
        $TpsMin = 59
        $TpsS = 59
    EndIf
EndFunc   ;==>_temps

[Mopoio]

Merci pour vos réponses, tout marche très bien maintenant

[Yogui]

Merci de modifier la Balise dans le titre de la demande si le problème est Résolu