Jump to content

Clock


au3scr
 Share

Recommended Posts

hi

I have problem here,

"Time: " and "Hex" are on different lines, How i can put them on 1 line?

#include <GUICONSTANTS.au3>
#include <String.au3>

global $hour = @HOUR
global $min = @MIN
global $sec = @SEC

$t = GUICreate("Clock", 250, 50)
$aeg = GUICtrlCreateLabel("Time: " & @HOUR & ":" & @MIN & ":" & @SEC, 10, 10)
$aeghex = GUICtrlCreateLabel("Time: " & $hour & ":" & $MIN & ":" & $SEC, 10, 30)
GUISetState(@SW_SHOW)
AdlibEnable("Do_Function", 1000)
While 1
    $tMsg = GUIGetMsg()
    Switch $tMsg
        Case $GUI_EVENT_CLOSE
            GUIDelete($t)
            ExitLoop
    EndSwitch
WEnd

Func Do_Function()
    GUICtrlSetData($aeg, "Time: " & @HOUR & ":" & @MIN & ":" & @SEC)
    $hourh = @hour
    $minh = @min
    $sech = @SEC
    $hourhh = _StringToHex ($hourh)
    $minhh = _StringToHex ($minh)
    $sechh = _StringToHex ($sech)
    GUICtrlSetData($aeghex, "Time: " & $hourhh & ":" & $minhh& ":" & $sechh)
    GUICtrlSetData ($hour,@hour)
    GUICtrlSetData ($min,@min)
    GUICtrlSetData ($sec,@SEC)
EndFunc   ;==>Do_Function
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...