12 replies to this topic

[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   7.69KB   869 downloads

[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!

[Manadar]

I wrote a binary clock on a GAL22V10.

Nice clock, Frazer.

Edited by Manadar, 17 January 2007 - 10:48 AM.

[RazerM]

@AU3Newbie

I am not going to change the clock.

Edited by RazerM, 17 January 2007 - 05:39 PM.

[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.