So
hatte grade etwas langeweile und hab mir zum fun so ne summenformel Uhr geschrieben
Spoiler anzeigen
#NoTrayIcon
#include <Date.au3>
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("TrayMenuMode", 1)
$Form1 = GUICreate("GDI+ Summencode-Led Uhr", 215, 250, @DesktopWidth-215, @DesktopHeight-280, $WS_POPUP, $WS_EX_TOPMOST)
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("", 0, 0, 215, 250, Default, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)
$context = GUICtrlCreateContextMenu($Label1)
$hide = GUICtrlCreateMenuItem("Ausblenden", $context)
GUICtrlCreateMenuItem("", $context)
$exit = GUICtrlCreateMenuItem("Beenden", $context)
$show = TrayCreateItem("Anzeigen")
TrayCreateItem("")
$exittray = TrayCreateItem("Exit")
_GDIPlus_Startup()
$grafik = _GDIPlus_GraphicsCreateFromHWND($Form1)
$brushledoff = _GDIPlus_BrushCreateSolid(0xFF441A00)
$brushledon =_GDIPlus_BrushCreateSolid(0xFFFFA100)
For $l = 0 to 8
_GDIPlus_GraphicsFillEllipse($grafik, 30, 40+(20*$l), 12, 12, $brushledoff)
_GDIPlus_GraphicsFillEllipse($grafik, 50, 40+(20*$l), 12, 12, $brushledoff)
Next
For $l = 0 to 8
_GDIPlus_GraphicsFillEllipse($grafik, 90, 40+(20*$l), 12, 12, $brushledoff)
_GDIPlus_GraphicsFillEllipse($grafik, 110, 40+(20*$l), 12, 12, $brushledoff)
Next
For $l = 0 to 8
_GDIPlus_GraphicsFillEllipse($grafik, 150, 40+(20*$l), 12, 12, $brushledoff)
_GDIPlus_GraphicsFillEllipse($grafik, 170, 40+(20*$l), 12, 12, $brushledoff)
Next
Do
$msg = GUIGetMsg()
$tmsg = TrayGetMsg()
Select
Case $msg = $hide
WinMove($Form1, "", @DesktopWidth, @DesktopHeight-280, Default, Default, 5)
TraySetState(1)
GUISetState(@SW_HIDE)
Case $msg = $exit
Exit
Case $tmsg = $exittray
Exit
Case $tmsg = $show
GUISetState(@SW_Show)
WinMove($Form1, "", @DesktopWidth-215, @DesktopHeight-280, Default, Default, 5)
TraySetState(2)
EndSelect
$stu1 = Stringmid(_Nowtime(), 1, 1)
$stu2 = Stringmid(_Nowtime(), 2, 1)
$min1 = Stringmid(_Nowtime(), 4, 1)
$min2 = Stringmid(_Nowtime(), 5, 1)
$sek1 = Stringmid(_Nowtime(), 7, 1)
$sek2 = Stringmid(_Nowtime(), 8, 1)
_LedColDrawActive(30, $stu1, $grafik, $brushledoff, $brushledon)
_LedColDrawActive(50, $stu2, $grafik, $brushledoff, $brushledon)
_LedColDrawActive(90, $min1, $grafik, $brushledoff, $brushledon)
_LedColDrawActive(110, $min2, $grafik, $brushledoff, $brushledon)
_LedColDrawActive(150, $sek1, $grafik, $brushledoff, $brushledon)
_LedColDrawActive(170, $sek2, $grafik, $brushledoff, $brushledon)
Until $msg = $GUI_EVENT_CLOSE
Func _Update()
$mp = WinGetPos("GDI+ Summencode-Led Uhr")
While $mp[0] And $mp[1] < -10
$mp = WinGetPos("GDI+ Summencode-Led Uhr")
$stu1 = Stringmid(_Nowtime(), 1, 1)
$stu2 = Stringmid(_Nowtime(), 2, 1)
$min1 = Stringmid(_Nowtime(), 4, 1)
$min2 = Stringmid(_Nowtime(), 5, 1)
$sek1 = Stringmid(_Nowtime(), 7, 1)
$sek2 = Stringmid(_Nowtime(), 8, 1)
_LedColDrawActive(30, $stu1, $grafik, $brushledoff, $brushledon)
_LedColDrawActive(50, $stu2, $grafik, $brushledoff, $brushledon)
_LedColDrawActive(90, $min1, $grafik, $brushledoff, $brushledon)
_LedColDrawActive(110, $min2, $grafik, $brushledoff, $brushledon)
_LedColDrawActive(150, $sek1, $grafik, $brushledoff, $brushledon)
_LedColDrawActive(170, $sek2, $grafik, $brushledoff, $brushledon)
WEnd
EndFunc
Func _LedColDrawActive($x, $num, $hgraphic, $brushoff, $brushon)
Switch $num
Case 0
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*0), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*1), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*2), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*3), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*4), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*5), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*6), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*7), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*8), 12, 12, $brushoff)
Case 1
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*0), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*1), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*2), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*3), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*4), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*5), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*6), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*7), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*8), 12, 12, $brushon)
case 2
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*0), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*1), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*2), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*3), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*4), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*5), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*6), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*7), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*8), 12, 12, $brushon)
case 3
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*0), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*1), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*2), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*3), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*4), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*5), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*6), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*7), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*8), 12, 12, $brushon)
case 4
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*0), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*1), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*2), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*3), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*4), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*5), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*6), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*7), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*8), 12, 12, $brushon)
case 5
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*0), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*1), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*2), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*3), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*4), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*5), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*6), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*7), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*8), 12, 12, $brushon)
case 6
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*0), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*1), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*2), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*3), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*4), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*5), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*6), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*7), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*8), 12, 12, $brushon)
case 7
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*0), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*1), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*2), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*3), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*4), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*5), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*6), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*7), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*8), 12, 12, $brushon)
case 8
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*0), 12, 12, $brushoff)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*1), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*2), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*3), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*4), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*5), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*6), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*7), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*8), 12, 12, $brushon)
case 9
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*0), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*1), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*2), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*3), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*4), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*5), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*6), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*7), 12, 12, $brushon)
_GDIPlus_GraphicsFillEllipse($hgraphic, $x, 40+(20*8), 12, 12, $brushon)
EndSwitch
EndFunc