Code : Tout sélectionner
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $Form1 = GUICreate("horloge", 298, 53, 306, 235)
Global $Label1 = GUICtrlCreateLabel("Il est:", 8, 8, 29, 17)
Global $Input1 = GUICtrlCreateInput("00", 40, 8, 25, 21)
Global $Label2 = GUICtrlCreateLabel("Heure)", 72, 8, 44, 17)
Global $Input2 = GUICtrlCreateInput("00", 120, 8, 25, 21)
Global $Label3 = GUICtrlCreateLabel("Minute)", 152, 8, 47, 17)
Global $Input3 = GUICtrlCreateInput("00", 200, 8, 25, 21)
Global $Label4 = GUICtrlCreateLabel("Seconde(s)", 232, 8, 58, 17)
Global $Label5 = GUICtrlCreateLabel("horloge", 8, 32, 125, 17)
GUISetState(@SW_SHOW)
AdLibRegister("update", 1000)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func update()
$hour = @HOUR
$min = @MIN
$sec = @SEC
GUICtrlSetData ($Input1, $hour)
GUICtrlSetData ($Input2, $min)
GUICtrlSetData ($Input3, $sec)
If Mod($hour, 2)=0 AND @MIN=0 Then Msgbox(0,"", "il est " & @HOUR & "00")
;; $test = @HOUR & @MIN
;; If Mod($test, 200) = 0 Then Msgbox(0,"", "il est " & @HOUR & "00")
EndFunc