- Offizieller Beitrag
Mir war grad mal so...
Spoiler anzeigen
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
Dim $hour = @HOUR, $min = @MIN, $sec = @SEC
$SteelBlue = 0x4682B4
$White = 0xFFFFFF
$Chartreuse = 0x7FFF00
$Lime = 0x00FF00
$LimeGreen = 0x32CD32
$YellowGreen = 0x9ACD32
$Gold = 0xFFD700
$Goldenrod = 0xDAA520
$Orange = 0xFFA500
$DarkOrange = 0xFF8C00
$Coral = 0xFF7F50
$Salmon = 0xFA8072
$Tomato = 0xFF6347
$Red = 0xFF0000
$Time = GUICreate("Time", 100, 285, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION))
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
GUISetBkColor($SteelBlue)
$prHour = GUICtrlCreateProgress(15, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$prMin = GUICtrlCreateProgress(40, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$prSec = GUICtrlCreateProgress(65, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$lHour = GUICtrlCreateLabel("lHour", 15, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUICtrlCreateLabel(":", 36, 265, 4, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
$lMin = GUICtrlCreateLabel("lMin", 40, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUICtrlCreateLabel(":", 61, 265, 4, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
$lSec = GUICtrlCreateLabel("lSec", 65, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUISetState(@SW_SHOW)
GUICtrlSetData($prHour, @HOUR*100/24)
GUICtrlSetData($lHour, @HOUR)
GUICtrlSetData($prMin, @MIN*100/60)
GUICtrlSetData($lMin, @MIN)
GUICtrlSetData($prSec, @SEC*100/60)
GUICtrlSetData($lSec, @SEC)
_HourColor()
_MinColor()
_SecColor()
While 1
Sleep(100)
If @SEC <> $sec Then
$sec = @SEC
GUICtrlSetData($prSec, @SEC*100/60)
GUICtrlSetData($lSec, @SEC)
_SecColor()
EndIf
If @MIN <> $min Then
$min = @MIN
GUICtrlSetData($prMin, @MIN*100/60)
GUICtrlSetData($lMin, @MIN)
_MinColor()
EndIf
If @HOUR <> $hour Then
$hour = @HOUR
GUICtrlSetData($prHour, @HOUR*100/24)
GUICtrlSetData($lHour, @HOUR)
_HourColor()
EndIf
WEnd
Func Close()
Exit
EndFunc
Func _SecColor()
Select
Case @SEC < 6
GUICtrlSetColor($prSec, $Chartreuse)
Case (@SEC > 5) And (@SEC < 11)
GUICtrlSetColor($prSec, $Lime)
Case (@SEC > 10) And (@SEC < 16)
GUICtrlSetColor($prSec, $LimeGreen)
Case (@SEC > 15) And (@SEC < 21)
GUICtrlSetColor($prSec, $YellowGreen)
Case (@SEC > 20) And (@SEC < 26)
GUICtrlSetColor($prSec, $Gold)
Case (@SEC > 25) And (@SEC < 31)
GUICtrlSetColor($prSec, $Orange)
Case (@SEC > 30) And (@SEC < 36)
GUICtrlSetColor($prSec, $Goldenrod)
Case (@SEC > 35) And (@SEC < 41)
GUICtrlSetColor($prSec, $DarkOrange)
Case (@SEC > 40) And (@SEC < 46)
GUICtrlSetColor($prSec, $Coral)
Case (@SEC > 45) And (@SEC < 51)
GUICtrlSetColor($prSec, $Salmon)
Case (@SEC > 50) And (@SEC < 56)
GUICtrlSetColor($prSec, $Tomato)
Case Else
GUICtrlSetColor($prSec, $Red)
EndSelect
EndFunc
Func _MinColor()
Select
Case @MIN < 6
GUICtrlSetColor($prMin, $Chartreuse)
Case (@MIN > 5) And (@MIN < 11)
GUICtrlSetColor($prMin, $Lime)
Case (@MIN > 10) And (@MIN < 16)
GUICtrlSetColor($prMin, $LimeGreen)
Case (@MIN > 15) And (@MIN < 21)
GUICtrlSetColor($prMin, $YellowGreen)
Case (@MIN > 20) And (@MIN < 26)
GUICtrlSetColor($prMin, $Gold)
Case (@MIN > 25) And (@MIN < 31)
GUICtrlSetColor($prMin, $Orange)
Case (@MIN > 30) And (@MIN < 36)
GUICtrlSetColor($prMin, $Goldenrod)
Case (@MIN > 35) And (@MIN < 41)
GUICtrlSetColor($prMin, $DarkOrange)
Case (@MIN > 40) And (@MIN < 46)
GUICtrlSetColor($prMin, $Coral)
Case (@MIN > 45) And (@MIN < 51)
GUICtrlSetColor($prMin, $Salmon)
Case (@MIN > 50) And (@MIN < 56)
GUICtrlSetColor($prMin, $Tomato)
Case Else
GUICtrlSetColor($prMin, $Red)
EndSelect
EndFunc
Func _HourColor()
Select
Case @HOUR < 3
GUICtrlSetColor($prHour, $Chartreuse)
Case (@HOUR > 2) And (@HOUR < 5)
GUICtrlSetColor($prHour, $Lime)
Case (@HOUR > 4) And (@HOUR < 7)
GUICtrlSetColor($prHour, $LimeGreen)
Case (@HOUR > 6) And (@HOUR < 9)
GUICtrlSetColor($prHour, $YellowGreen)
Case (@HOUR > And (@HOUR < 11)
GUICtrlSetColor($prHour, $Gold)
Case (@HOUR > 10) And (@HOUR < 13)
GUICtrlSetColor($prHour, $Orange)
Case (@HOUR > 12) And (@HOUR < 15)
GUICtrlSetColor($prHour, $Goldenrod)
Case (@HOUR > 14) And (@HOUR < 17)
GUICtrlSetColor($prHour, $DarkOrange)
Case (@HOUR > 16) And (@HOUR < 19)
GUICtrlSetColor($prHour, $Coral)
Case (@HOUR > 18) And (@HOUR < 21)
GUICtrlSetColor($prHour, $Salmon)
Case (@HOUR > 20) And (@HOUR < 23)
GUICtrlSetColor($prHour, $Tomato)
Case Else
GUICtrlSetColor($prHour, $Red)
EndSelect
EndFunc