Digitaluhr

[autoit]

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

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Digitaluhr", 435, 126, -1, -1)
GUISetBkColor(0x000000)
$Pic1 = GUICtrlCreatePic("Warten.bmp", 0, 0, 65, 110, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic2 = GUICtrlCreatePic("Warten.bmp", 70, 0, 65, 110, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic("Warten.bmp", 150, 0, 65, 110, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic("Warten.bmp", 220, 0, 65, 110, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic5 = GUICtrlCreatePic("Warten.bmp", 300, 0, 65, 110, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic6 = GUICtrlCreatePic("Warten.bmp", 370, 0, 65, 110, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel(":", 137, 24, 11, 95)
GUICtrlSetColor (-1, 0x4D0000)
GUICtrlSetFont(-1, 36, 400, 0, "Arial")
$Label2 = GUICtrlCreateLabel(":", 287, 24, 11, 111)
GUICtrlSetColor (-1, 0x4D0000)
GUICtrlSetFont(-1, 36, 400, 0, "Arial")
$Menu1 = GUICtrlCreateMenu ("Digitaluhr")
$Item1 = GUICtrlCreateMenuItem ("Digitaluhr ausschalten", $Menu1)
$Item2 = GUICtrlCreateMenuItem ("Digitaluhr einschalten", $Menu1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
AdlibEnable ("_Update", 1000)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Item1
GUICtrlSetImage ($Pic1, "Aus.bmp")
GUICtrlSetImage ($Pic2, "Aus.bmp")
GUICtrlSetImage ($Pic3, "Aus.bmp")
GUICtrlSetImage ($Pic4, "Aus.bmp")
GUICtrlSetImage ($Pic5, "Aus.bmp")
GUICtrlSetImage ($Pic6, "Aus.bmp")
GUICtrlSetColor ($Label1, 0x4D0000)
GUICtrlSetColor ($Label2, 0x4D0000)
AdlibDisable ()
Case $Item2
_Update ()
AdlibEnable ("_Update", 1000)
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Update ()
Local $TimeH = @Hour, $TimeM = @Min, $TimeS = @Sec
$Split1 = StringSplit ($TimeH, "")
$Split2 = StringSplit ($TimeM, "")
$Split3 = StringSplit ($TimeS, "")
; ===
GUICtrlSetColor ($Label1, 0xFD0000)
GUICtrlSetColor ($Label2, 0xFD0000)
; ===
GUICtrlSetImage ($Pic1, $Split1[1] & ".bmp")
GUICtrlSetImage ($Pic2, $Split1[2] & ".bmp")
; ===
GUICtrlSetImage ($Pic3, $Split2[1] & ".bmp")
GUICtrlSetImage ($Pic4, $Split2[2] & ".bmp")
; ===
GUICtrlSetImage ($Pic5, $Split3[1] & ".bmp")
GUICtrlSetImage ($Pic6, $Split3[2] & ".bmp")
EndFunc

[/autoit]