Sign in to follow this  
Followers 0
RazerM

Binary Clock

13 posts in this topic

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

Posted Image

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


My Programs:AInstall - Create a standalone installer for your programUnit Converter - Converts Length, Area, Volume, Weight, Temperature and Pressure to different unitsBinary Clock - Hours, minutes and seconds have 10 columns each to display timeAutoIt Editor - Code Editor with Syntax Highlighting.Laserix Editor & Player - Create, Edit and Play Laserix LevelsLyric Syncer - Create and use Synchronised Lyrics.Connect 4 - 2 Player Connect 4 Game (Local or Online!, Formatted Chat!!)MD5, SHA-1, SHA-256, Tiger and Whirlpool Hash Finder - Dictionary and Brute Force FindCool Text Client - Create Rendered ImageMy UDF's:GUI Enhance - Enhance your GUIs visually.IDEA File Encryption - Encrypt and decrypt files easily! File Rename - Rename files easilyRC4 Text Encryption - Encrypt text using the RC4 AlgorithmPrime Number - Check if a number is primeString Remove - remove lots of strings at onceProgress Bar - made easySound UDF - Play, Pause, Resume, Seek and Stop.

Share this post


Link to post
Share on other sites



Thanks!

I like very much this soft.

Share this post


Link to post
Share on other sites

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


[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Share this post


Link to post
Share on other sites

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


My Programs:AInstall - Create a standalone installer for your programUnit Converter - Converts Length, Area, Volume, Weight, Temperature and Pressure to different unitsBinary Clock - Hours, minutes and seconds have 10 columns each to display timeAutoIt Editor - Code Editor with Syntax Highlighting.Laserix Editor & Player - Create, Edit and Play Laserix LevelsLyric Syncer - Create and use Synchronised Lyrics.Connect 4 - 2 Player Connect 4 Game (Local or Online!, Formatted Chat!!)MD5, SHA-1, SHA-256, Tiger and Whirlpool Hash Finder - Dictionary and Brute Force FindCool Text Client - Create Rendered ImageMy UDF's:GUI Enhance - Enhance your GUIs visually.IDEA File Encryption - Encrypt and decrypt files easily! File Rename - Rename files easilyRC4 Text Encryption - Encrypt text using the RC4 AlgorithmPrime Number - Check if a number is primeString Remove - remove lots of strings at onceProgress Bar - made easySound UDF - Play, Pause, Resume, Seek and Stop.

Share this post


Link to post
Share on other sites

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. :)

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

#9 ·  Posted (edited)

@AU3Newbie

I am not going to change the clock.

Edited by RazerM

My Programs:AInstall - Create a standalone installer for your programUnit Converter - Converts Length, Area, Volume, Weight, Temperature and Pressure to different unitsBinary Clock - Hours, minutes and seconds have 10 columns each to display timeAutoIt Editor - Code Editor with Syntax Highlighting.Laserix Editor & Player - Create, Edit and Play Laserix LevelsLyric Syncer - Create and use Synchronised Lyrics.Connect 4 - 2 Player Connect 4 Game (Local or Online!, Formatted Chat!!)MD5, SHA-1, SHA-256, Tiger and Whirlpool Hash Finder - Dictionary and Brute Force FindCool Text Client - Create Rendered ImageMy UDF's:GUI Enhance - Enhance your GUIs visually.IDEA File Encryption - Encrypt and decrypt files easily! File Rename - Rename files easilyRC4 Text Encryption - Encrypt text using the RC4 AlgorithmPrime Number - Check if a number is primeString Remove - remove lots of strings at onceProgress Bar - made easySound UDF - Play, Pause, Resume, Seek and Stop.

Share this post


Link to post
Share on other sites

:)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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0