Darth Posted April 22, 2008 Posted April 22, 2008 (edited) Here is the code and a compiled version with a background #include<guiconstants.au3> GUICreate("Progress Bar Clock", 102,110,-1,-1,$WS_POPUP) FileInstall("D:\Nesecary things\autoit3\alife\bg.bmp", @tempdir & "\Bg.bmp") GUICtrlCreatePic (@tempdir & "\Bg.bmp" , -1, -1, 0, 0, $SS_CENTERIMAGE) $lbl1 = GUICtrlCreateLabel ( @HOUR, 2, 5 ) $PBAR1 = GUICtrlCreateProgress(2,20,100,20,$PBS_SMOOTH) $lbl2 = GUICtrlCreateLabel ( @MIN, 2, 40 ) $PBAR2 = GUICtrlCreateProgress(2,55,100,20,$PBS_SMOOTH) $lbl3 = GUICtrlCreateLabel ( @SEC, 2, 75 ) $PBAR3 = GUICtrlCreateProgress(2,90,100,20,$PBS_SMOOTH) GUICtrlSetBkColor ( $lbl1, $GUI_BKCOLOR_TRANSPARENT ) GUICtrlSetBkColor ( $lbl2, $GUI_BKCOLOR_TRANSPARENT ) GUICtrlSetBkColor ( $lbl3, $GUI_BKCOLOR_TRANSPARENT ) GUISetState (@SW_SHOW) While(1) GUICtrlSetData ( $PBAR1, (@HOUR/24) * 100) GUICtrlSetData ( $PBAR2, (@MIN/60) * 100) GUICtrlSetData ( $PBAR3, (@SEC/60) * 100) GUICtrlSetData ( $lbl1 , @HOUR) GUICtrlSetData ( $lbl2 , @MIN) GUICtrlSetData ( $lbl3 , @SEC) sleep(1000) WEndProgressbarclock.exe Edited August 18, 2009 by Darth
C2C Posted April 22, 2008 Posted April 22, 2008 Nicely done. Much more fun than the windows stock clock. Keep it up ----------------------------------90% of teens today would die if Myspace,Bebo + FaceBook had a system failure and was completely destroyed. If you are one of the 10% that would be laughing, copy and paste this to your signature.----------------------------------Code to win, 'till you die, 'till the compiler dies from your linesCode to win, take it all, just keep coding till you fallDay by day, codin' all the way, I'm not cavin' inLet another App begin, code to win
spudw2k Posted April 22, 2008 Posted April 22, 2008 (edited) This inspired me to make one too. Here's my version of an LED style clock. One day I'll make it nice with graphics instead of checkboxes. expandcollapse popup;#include <GUIConstants.au3> ;#Include <Date.au3> Const $GUI_SHOW = 16 Const $GUI_HIDE = 32 Const $GUI_DISABLED = 128 Const $GUI_UNCHECKED = 4 Const $GUI_CHECKED = 1 Const $WS_SIZEBOX = 262144 $xWin = @DesktopWidth * .175 $yWin = @DesktopHeight * .175 $gui = GUICreate("Binary Clock",$xWin,$yWin*1.175,-1,-1,$WS_SIZEBOX) GUISetBkColor(0x00000) $mnu = GUICtrlCreateMenu("&Options") $mnuEasy = GUICtrlCreateMenuItem("Easy View",$mnu) GUICtrlSetState(-1,$GUI_UNCHECKED) $hr10_1 = GUICtrlCreateCheckbox("",1 * ($xWin * .1375),3.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $hr10_2 = GUICtrlCreateCheckBox("",1 * ($xWin * .1375),2.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $hr01_1 = GUICtrlCreateCheckBox("",2 * ($xWin * .1375),3.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $hr01_2 = GUICtrlCreateCheckBox("",2 * ($xWin * .1375),2.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $hr01_3 = GUICtrlCreateCheckBox("",2 * ($xWin * .1375),1.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $hr01_4 = GUICtrlCreateCheckBox("",2 * ($xWin * .1375),0.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $hour10lbl = GUICtrlCreateLabel("0",1.06 * ($xWin * .1375), 4.25 * ($yWin * .185),20,20) GUICtrlSetColor(-1,0xFFFFFF) GUICtrlSetFont(-1,10,600) GUICtrlSetState(-1,$GUI_HIDE) $hour01lbl = GUICtrlCreateLabel("0",2.06 * ($xWin * .1375), 4.25 * ($yWin * .185),20,20) GUICtrlSetColor(-1,0xFFFFFF) GUICtrlSetFont(-1,10,600) GUICtrlSetState(-1,$GUI_HIDE) $sep1lbl = GUICtrlCreateLabel(":",2.656 * ($xWin * .1375), 4.25 * ($yWin * .185),20,20) GUICtrlSetColor(-1,0xFFFFFF) GUICtrlSetFont(-1,10,600) GUICtrlSetState(-1,$GUI_HIDE) $min10_1 = GUICtrlCreateCheckBox("",3 * ($xWin * .1375),3.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $min10_2 = GUICtrlCreateCheckBox("",3 * ($xWin * .1375),2.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $min10_3 = GUICtrlCreateCheckBox("",3 * ($xWin * .1375),1.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $min01_1 = GUICtrlCreateCheckBox("",4 * ($xWin * .1375),3.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $min01_2 = GUICtrlCreateCheckBox("",4 * ($xWin * .1375),2.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $min01_3 = GUICtrlCreateCheckBox("",4 * ($xWin * .1375),1.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $min01_4 = GUICtrlCreateCheckBox("",4 * ($xWin * .1375),0.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $min10lbl = GUICtrlCreateLabel("0",3.06 * ($xWin * .1375), 4.25 * ($yWin * .185),20,20) GUICtrlSetColor(-1,0xFFFFFF) GUICtrlSetFont(-1,10,600) GUICtrlSetState(-1,$GUI_HIDE) $min01lbl = GUICtrlCreateLabel("0",4.06 * ($xWin * .1375), 4.25 * ($yWin * .185),20,20) GUICtrlSetColor(-1,0xFFFFFF) GUICtrlSetFont(-1,10,600) GUICtrlSetState(-1,$GUI_HIDE) $sep2lbl = GUICtrlCreateLabel(":",4.656 * ($xWin * .1375), 4.25 * ($yWin * .185),20,20) GUICtrlSetColor(-1,0xFFFFFF) GUICtrlSetFont(-1,10,600) GUICtrlSetState(-1,$GUI_HIDE) $sec10_1 = GUICtrlCreateCheckBox("",5 * ($xWin * .1375),3.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $sec10_2 = GUICtrlCreateCheckBox("",5 * ($xWin * .1375),2.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $sec10_3 = GUICtrlCreateCheckBox("",5 * ($xWin * .1375),1.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $sec01_1 = GUICtrlCreateCheckBox("",6 * ($xWin * .1375),3.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $sec01_2 = GUICtrlCreateCheckBox("",6 * ($xWin * .1375),2.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $sec01_3 = GUICtrlCreateCheckBox("",6 * ($xWin * .1375),1.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $sec01_4 = GUICtrlCreateCheckBox("",6 * ($xWin * .1375),0.5 * ($yWin * .185),13,13) ;GUICtrlSetState(-1,$GUI_DISABLE) $sec10lbl = GUICtrlCreateLabel("0",5.06 * ($xWin * .1375), 4.25 * ($yWin * .185),20,20) GUICtrlSetColor(-1,0xFFFFFF) GUICtrlSetFont(-1,10,600) GUICtrlSetState(-1,$GUI_HIDE) $sec01lbl = GUICtrlCreateLabel("0",6.06 * ($xWin * .1375), 4.25 * ($yWin * .185),20,20) GUICtrlSetColor(-1,0xFFFFFF) GUICtrlSetFont(-1,10,600) GUICtrlSetState(-1,$GUI_HIDE) PrintTime() AdlibEnable("PrintTime",1000) GUISetState() While 1 $msg = GUIGetMsg() If $msg = $mnuEasy Then If BitAnd(GUICtrlRead($mnuEasy),$GUI_CHECKED) = $GUI_CHECKED Then GUICtrlSetState($mnuEasy,$GUI_UNCHECKED) GuiCtrlSetState($hour10lbl,$GUI_HIDE) GuiCtrlSetState($hour01lbl,$GUI_HIDE) GuiCtrlSetState($min10lbl,$GUI_HIDE) GuiCtrlSetState($min01lbl,$GUI_HIDE) GuiCtrlSetState($sec10lbl,$GUI_HIDE) GuiCtrlSetState($sec01lbl,$GUI_HIDE) GuiCtrlSetState($sep1lbl,$GUI_HIDE) GuiCtrlSetState($sep2lbl,$GUI_HIDE) Else GUICtrlSetState($mnuEasy,$GUI_CHECKED) GuiCtrlSetState($hour10lbl,$GUI_SHOW) GuiCtrlSetState($hour01lbl,$GUI_SHOW) GuiCtrlSetState($min10lbl,$GUI_SHOW) GuiCtrlSetState($min01lbl,$GUI_SHOW) GuiCtrlSetState($sec10lbl,$GUI_SHOW) GuiCtrlSetState($sec01lbl,$GUI_SHOW) GuiCtrlSetState($sep1lbl,$GUI_SHOW) GuiCtrlSetState($sep2lbl,$GUI_SHOW) EndIf EndIf If $msg = -3 Then ExitLoop WEnd Exit Func PrintTime() $time = @hour & ":" & @min & ":" & @sec $timearr = StringSplit($time,":") $hour10 = StringLeft($timearr[1],1) $hour01 = StringRight($timearr[1],1) $min10 = StringLeft($timearr[2],1) $min01 = StringRight($timearr[2],1) $sec10 = StringLeft($timearr[3],1) $sec01 = StringRight($timearr[3],1) GUICtrlSetData($hour10lbl,$hour10) GUICtrlSetData($hour01lbl,$hour01) GUICtrlSetData($min10lbl,$min10) GUICtrlSetData($min01lbl,$min01) GUICtrlSetData($sec10lbl,$sec10) GUICtrlSetData($sec01lbl,$sec01) ;/// Hours - First Digit If $hour10 = 2 Then GuiCtrlSetState($hr10_2,$GUI_CHECKED) ElseIf $hour10 = 1 Then GuiCtrlSetState($hr10_1,$GUI_CHECKED) Else GuiCtrlSetState($hr10_1,$GUI_UNCHECKED) GuiCtrlSetState($hr10_2,$GUI_UNCHECKED) EndIf ;/// Hours - Second Digit If $hour01 >= 8 Then $hour01 -= 8 GuiCtrlSetState($hr01_4,$GUI_CHECKED) Else GuiCtrlSetState($hr01_4,$GUI_UNCHECKED) EndIf If $hour01 >= 4 Then $hour01 -= 4 GuiCtrlSetState($hr01_3,$GUI_CHECKED) Else GuiCtrlSetState($hr01_3,$GUI_UNCHECKED) EndIf If $hour01 >= 2 Then $hour01 -= 2 GuiCtrlSetState($hr01_2,$GUI_CHECKED) Else GuiCtrlSetState($hr01_2,$GUI_UNCHECKED) EndIf If $hour01 = 1 Then GuiCtrlSetState($hr01_1,$GUI_CHECKED) Else GuiCtrlSetState($hr01_1,$GUI_UNCHECKED) EndIf ;/// Minutes - First Digit If $min10 >= 4 Then $min10 -= 4 GuiCtrlSetState($min10_3,$GUI_CHECKED) Else GuiCtrlSetState($min10_3,$GUI_UNCHECKED) EndIf If $min10 >= 2 Then $min10 -= 2 GuiCtrlSetState($min10_2,$GUI_CHECKED) Else GuiCtrlSetState($min10_2,$GUI_UNCHECKED) EndIf If $min10 = 1 Then GuiCtrlSetState($min10_1,$GUI_CHECKED) Else GuiCtrlSetState($min10_1,$GUI_UNCHECKED) EndIf ;/// Minutes - Second Digit If $min01 >= 8 Then $min01 -= 8 GuiCtrlSetState($min01_4,$GUI_CHECKED) Else GuiCtrlSetState($min01_4,$GUI_UNCHECKED) EndIf If $min01 >= 4 Then $min01 -= 4 GuiCtrlSetState($min01_3,$GUI_CHECKED) Else GuiCtrlSetState($min01_3,$GUI_UNCHECKED) EndIf If $min01 >= 2 Then $min01 -= 2 GuiCtrlSetState($min01_2,$GUI_CHECKED) Else GuiCtrlSetState($min01_2,$GUI_UNCHECKED) EndIf If $min01 = 1 Then GuiCtrlSetState($min01_1,$GUI_CHECKED) Else GuiCtrlSetState($min01_1,$GUI_UNCHECKED) EndIf ;/// Seconds - First Digit If $sec10 >= 4 Then $sec10 -= 4 GuiCtrlSetState($sec10_3,$GUI_CHECKED) Else GuiCtrlSetState($sec10_3,$GUI_UNCHECKED) EndIf If $sec10 >= 2 Then $sec10 -= 2 GuiCtrlSetState($sec10_2,$GUI_CHECKED) Else GuiCtrlSetState($sec10_2,$GUI_UNCHECKED) EndIf If $sec10 = 1 Then GuiCtrlSetState($sec10_1,$GUI_CHECKED) Else GuiCtrlSetState($sec10_1,$GUI_UNCHECKED) EndIf ;/// Seconds - Second Digit If $sec01 >= 8 Then $sec01 -= 8 GuiCtrlSetState($sec01_4,$GUI_CHECKED) Else GuiCtrlSetState($sec01_4,$GUI_UNCHECKED) EndIf If $sec01 >= 4 Then $sec01 -= 4 GuiCtrlSetState($sec01_3,$GUI_CHECKED) Else GuiCtrlSetState($sec01_3,$GUI_UNCHECKED) EndIf If $sec01 >= 2 Then $sec01 -= 2 GuiCtrlSetState($sec01_2,$GUI_CHECKED) Else GuiCtrlSetState($sec01_2,$GUI_UNCHECKED) EndIf If $sec01 = 1 Then GuiCtrlSetState($sec01_1,$GUI_CHECKED) Else GuiCtrlSetState($sec01_1,$GUI_UNCHECKED) EndIf EndFunc edit: Ok, fixed it. Wasn't math afterall edit: Added menubar with Easy View mode Edited April 23, 2008 by spudw2k Reveal hidden contents Things I've Made: Always On Top Tool ◊ AU History ◊ Deck of Cards ◊ HideIt ◊ ICU ◊ Icon Freezer ◊ Ipod Ejector ◊ Junos Configuration Explorer ◊ Link Downloader ◊ MD5 Folder Enumerator ◊ PassGen ◊ Ping Tool ◊ Quick NIC ◊ Read OCR ◊ RemoteIT ◊ SchTasksGui ◊ SpyCam ◊ System Scan Report Tool ◊ System UpTime ◊ Transparency Machine ◊ VMWare ESX Builder Misc Code Snippets: ADODB Example ◊ CheckHover ◊ Detect SafeMode ◊ DynEnumArray ◊ GetNetStatData ◊ HashArray ◊ IsBetweenDates ◊ Local Admins ◊ Make Choice ◊ Recursive File List ◊ Remove Sizebox Style ◊ Retrieve PNPDeviceID ◊ Retrieve SysListView32 Contents ◊ Set IE Homepage ◊ Tickle Expired Password ◊ Transpose Array Projects: Drive Space Usage GUI ◊ LEDkIT ◊ Plasma_kIt ◊ Scan Engine Builder ◊ SpeeDBurner ◊ SubnetCalc Cool Stuff: AutoItObject UDF ◊ Extract Icon From Proc ◊ GuiCtrlFontRotate ◊ Hex Edit Funcs ◊ Run binary ◊ Service_UDF
Darth Posted April 23, 2008 Author Posted April 23, 2008 thanks guys, I didn't think it was that impressive, was just bored
spudw2k Posted April 23, 2008 Posted April 23, 2008 Darth said: thanks guys, I didn't think it was that impressive, was just boredWow, guess it's a good thing we we're writting something for you. We would've blew it. Reveal hidden contents Things I've Made: Always On Top Tool ◊ AU History ◊ Deck of Cards ◊ HideIt ◊ ICU ◊ Icon Freezer ◊ Ipod Ejector ◊ Junos Configuration Explorer ◊ Link Downloader ◊ MD5 Folder Enumerator ◊ PassGen ◊ Ping Tool ◊ Quick NIC ◊ Read OCR ◊ RemoteIT ◊ SchTasksGui ◊ SpyCam ◊ System Scan Report Tool ◊ System UpTime ◊ Transparency Machine ◊ VMWare ESX Builder Misc Code Snippets: ADODB Example ◊ CheckHover ◊ Detect SafeMode ◊ DynEnumArray ◊ GetNetStatData ◊ HashArray ◊ IsBetweenDates ◊ Local Admins ◊ Make Choice ◊ Recursive File List ◊ Remove Sizebox Style ◊ Retrieve PNPDeviceID ◊ Retrieve SysListView32 Contents ◊ Set IE Homepage ◊ Tickle Expired Password ◊ Transpose Array Projects: Drive Space Usage GUI ◊ LEDkIT ◊ Plasma_kIt ◊ Scan Engine Builder ◊ SpeeDBurner ◊ SubnetCalc Cool Stuff: AutoItObject UDF ◊ Extract Icon From Proc ◊ GuiCtrlFontRotate ◊ Hex Edit Funcs ◊ Run binary ◊ Service_UDF
Orkhayiq Posted March 3, 2010 Posted March 3, 2010 I couldn't get it to work without a few extra #includes: #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <ProgressConstants.au3> Thanks.
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now