Binary Clock

[RazerM]

This is a binary clock I have made. If you don't know how to work this picture from Wikipedia shows how:

Add up the lit values in each column. If you need help with the numbers then right click and choose 'Display Decimal'

The transparency, move and resize code is from greenmachines Analog Clock and modified a bit.

Download:

binary_clock.zip

[Michel Claveau]

Thanks!

I like very much this soft.

[ConsultingJoe]

Thanks!

I like very much this soft.

looks cool but too much to look at to figure out the time. nice for learning though.

thanks

[no4ndth3n]

Nice, that looks very similar to the one I posted a while back...

http://www.autoitscript.com/forum/index.ph...st&id=10820

[RazerM]

I remember it now! I was trying to remember if anyone had made one before I think my function for updating the clock is a bit easier. I like your idea of having the tooltip for the time though.

[AU3Newbie]

I like it,it's wonderful.

If you'd like to improve it from 2^3 to 2^5(six-lamps-one-line),I'll like it very very much.

[AU3Newbie]

#cs

|B |Hrs| |Min| |Sec|

|32| |O|| |O|| |O|

|16| |O|| |O|| |O|

|08| |O|| |O|| |O|

|04| |O|| |O|| |O|

|02| |O|| |O|| |O|

|01| |O|| |O|| |O|

#ce

IF ONLY this kind of clock not so difficult to make based on the available version!

[jvanegmond]

I wrote a binary clock on a GAL22V10.

Nice clock, Frazer.

Edited January 17, 2007 by Manadar

[RazerM]

@AU3Newbie

I am not going to change the clock.

Edited January 17, 2007 by RazerM

[AU3Newbie]

:)whatever,thank you for your replying here.

I've made a easy test.Although it's more difficult to recognize indeed.However,it still seems interesting,too.

#include <GUIConstants.au3>

#include <string.au3>

HotKeySet("{F9}","exitit")

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Duanshixiong's clock", 369, 150, 547, 288)

$L1 = GUICtrlCreateLabel("111111", 8, 0, 298, 52)

GUICtrlSetFont(-1, 36, 800, 0, "Marlett")

$L2 = GUICtrlCreateLabel("000000", 8, 48, 298, 52)

GUICtrlSetFont(-1, 36, 800, 0, "Marlett")

$L3 = GUICtrlCreateLabel("101010", 8, 96, 298, 52)

GUICtrlSetFont(-1, 36, 800, 0, "Marlett")

$L4 = GUICtrlCreateLabel("12", 309, 0, 56, 52)

GUICtrlSetFont(-1, 36, 800, 0, "Arial")

$L5 = GUICtrlCreateLabel("12", 309, 48, 56, 52)

GUICtrlSetFont(-1, 36, 800, 0, "Arial")

$L6 = GUICtrlCreateLabel("12", 309, 96, 56, 52)

GUICtrlSetFont(-1, 36, 800, 0, "Arial")

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

case Else

GUICtrlSetData($L1,_DecToBin(@HOUR))

GUICtrlSetData($L2,_DecToBin(@MIN))

GUICtrlSetData($L3,_DecToBin(@SEC));

GUICtrlSetData($L4,@HOUR)

GUICtrlSetData($L5,@MIN)

GUICtrlSetData($L6,@SEC)

Sleep(1000)

EndSwitch

WEnd

Func _DecToBin($iDec)

Local $iBin[1]

Local $binRet

Do

$iMod = Mod($iDec, 2)

ReDim $iBin[uBound($iBin) + 1]

$iBin[uBound($iBin) - 1] = $iMod

$iDec = Int($iDec / 2)

Until $iDec = 0

For $iCurrent = 1 To UBound($iBin) - 1

$binRet &= $iBin[$iCurrent]

Next

Return _StringReverse($binRet)

;Return $binRet StringReplace(_StringReverse($binRet), "1", "")

EndFunc ;==>_DecToBin

Func exitit()

Exit

EndFunc

[cagiva]

nice man. good job i was looking for something like that <beer for you>

[Triblade]

Looks great!

Only the black circles looks kinda blurry.

And I'd replace: "#include <GUIConstants.au3>"

With:

"

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

"

[dansxmods]

Looks good. Now I understand how to read a binary clock Thank you. I had to include WindowsConstants.au3 for it to work though.