Binary Clock

[SpookMeister]

Why? Well... why not?

expandcollapse popup

; BinClock
#include <GUIconstants.au3>

#region - Make GUI
GUICreate("BinClock", 135, 115)

$T_Hour2 = GUICtrlCreateLabel("0", 10, 60, 15, 15)
$T_Hour1 = GUICtrlCreateLabel("0", 10, 80, 15, 15)
$Hour8 = GUICtrlCreateLabel("0", 30, 20, 15, 15)
$Hour4 = GUICtrlCreateLabel("0", 30, 40, 15, 15)
$Hour2 = GUICtrlCreateLabel("0", 30, 60, 15, 15)
$Hour1 = GUICtrlCreateLabel("0", 30, 80, 15, 15)
$T_Min4 = GUICtrlCreateLabel("0", 50, 40, 15, 15)
$T_Min2 = GUICtrlCreateLabel("0", 50, 60, 15, 15)
$T_Min1 = GUICtrlCreateLabel("0", 50, 80, 15, 15)
$Min8 = GUICtrlCreateLabel("0", 70, 20, 15, 15)
$Min4 = GUICtrlCreateLabel("0", 70, 40, 15, 15)
$Min2 = GUICtrlCreateLabel("0", 70, 60, 15, 15)
$Min1 = GUICtrlCreateLabel("0", 70, 80, 15, 15)
$T_Sec4 = GUICtrlCreateLabel("0", 90, 40, 15, 15)
$T_Sec2 = GUICtrlCreateLabel("0", 90, 60, 15, 15)
$T_Sec1 = GUICtrlCreateLabel("0", 90, 80, 15, 15)
$Sec8 = GUICtrlCreateLabel("0", 110, 20, 15, 15)
$Sec4 = GUICtrlCreateLabel("0", 110, 40, 15, 15)
$Sec2 = GUICtrlCreateLabel("0", 110, 60, 15, 15)
$Sec1 = GUICtrlCreateLabel("0", 110, 80, 15, 15)

GUISetState()

#endregion
While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    Sleep(300); gives the CPU a breather
    update()
    
WEnd

#region - Functions
Func update()
; this function refreshes the time
    $strBinTime = BinTime()
    GUICtrlSetData($T_Hour2, StringMid($strBinTime, 3, 1))
    GUICtrlSetData($T_Hour1, StringMid($strBinTime, 4, 1))
    GUICtrlSetData($Hour8, StringMid($strBinTime, 5, 1))
    GUICtrlSetData($Hour4, StringMid($strBinTime, 6, 1))
    GUICtrlSetData($Hour2, StringMid($strBinTime, 7, 1))
    GUICtrlSetData($Hour1, StringMid($strBinTime, 8, 1))
    GUICtrlSetData($T_Min4, StringMid($strBinTime, 10, 1))
    GUICtrlSetData($T_Min2, StringMid($strBinTime, 11, 1))
    GUICtrlSetData($T_Min1, StringMid($strBinTime, 12, 1))
    GUICtrlSetData($Min8, StringMid($strBinTime, 13, 1))
    GUICtrlSetData($Min4, StringMid($strBinTime, 14, 1))
    GUICtrlSetData($Min2, StringMid($strBinTime, 15, 1))
    GUICtrlSetData($Min1, StringMid($strBinTime, 16, 1))
    GUICtrlSetData($T_Sec4, StringMid($strBinTime, 18, 1))
    GUICtrlSetData($T_Sec2, StringMid($strBinTime, 19, 1))
    GUICtrlSetData($T_Sec1, StringMid($strBinTime, 20, 1))
    GUICtrlSetData($Sec8, StringMid($strBinTime, 21, 1))
    GUICtrlSetData($Sec4, StringMid($strBinTime, 22, 1))
    GUICtrlSetData($Sec2, StringMid($strBinTime, 23, 1))
    GUICtrlSetData($Sec1, StringMid($strBinTime, 24, 1))
EndFunc  ;==>update

Func BinTime()
; This function makes a 24char string showing the current time in binary
    $strTime = @HOUR & @MIN & @SEC
    $xyz = ""
    For $x = 1 To 6
        $xyz = $xyz & MiniBin(StringMid($strTime, $x, 1))
    Next
    Return $xyz
EndFunc  ;==>BinTime

Func MiniBin($var)
; This function converts a single digit decimal number into a 4 char binary string
    $bin = ""
    If ($var - 8) >= 0 Then
        $var = $var - 8
        $bin = $bin & "1"
    Else
        $bin = $bin & "0"
    EndIf
    
    If ($var - 4) >= 0 Then
        $var = $var - 4
        $bin = $bin & "1"
    Else
        $bin = $bin & "0"
    EndIf
    
    If ($var - 2) >= 0 Then
        $var = $var - 2
        $bin = $bin & "1"
    Else
        $bin = $bin & "0"
    EndIf
    
    If ($var - 1) >= 0 Then
        $var = $var - 1
        $bin = $bin & "1"
    Else
        $bin = $bin & "0"
    EndIf
    
    Return $bin
    
EndFunc  ;==>MiniBin

#endregion

[Orangey]

Great!