Что нового

Таймер+ линия

Сообщения
75
Репутация
-2
Код:
#include <GUIConstantsEx.au3>
#include <Date.au3>


Global $timer, $Secs, $Mins, $Hour, $Time

_Main()

Func _Main()




    GUICreate("Таймер",320, 350)
;~    GUICtrlCreateGraphic(0,0,0,0)
;~    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xA9A9A9)
;~    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 74, 0)
;~    GUICtrlSetGraphic(-1, $GUI_GR_LINE, 74, 242)
;~    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 75, 0)
;~    GUICtrlSetGraphic(-1, $GUI_GR_LINE, 75, 242)


    GUISetState()

    $timer = TimerInit()
    AdlibRegister("Timer", 50)

    GUICtrlCreateLabel("00:00:00", 10, 10)



    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit
        EndSwitch
    WEnd
EndFunc

Func Timer()
    _TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs)
    Local $sTime = $Time
    $Time = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs)
    If $sTime <> $Time Then ControlSetText("Таймер", "", "Static1", $Time)
EndFunc


Таймер не работает с отрисовкой линии, как исправить?
 
Автор
W
Сообщения
75
Репутация
-2
wasd сказал(а):
Код:
#include <GUIConstantsEx.au3>
#include <Date.au3>


Global $timer, $Secs, $Mins, $Hour, $Time

_Main()

Func _Main()




    GUICreate("Таймер",320, 350)
;~    GUICtrlCreateGraphic(0,0,0,0)
;~    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xA9A9A9)
;~    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 74, 0)
;~    GUICtrlSetGraphic(-1, $GUI_GR_LINE, 74, 242)
;~    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 75, 0)
;~    GUICtrlSetGraphic(-1, $GUI_GR_LINE, 75, 242)


    GUISetState()

    $timer = TimerInit()
    AdlibRegister("Timer", 50)

    GUICtrlCreateLabel("00:00:00", 10, 10)



    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit
        EndSwitch
    WEnd
EndFunc

Func Timer()
    _TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs)
    Local $sTime = $Time
    $Time = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs)
    If $sTime <> $Time Then ControlSetText("Таймер", "", "Static1", $Time)
EndFunc


Таймер не работает с отрисовкой линии, как исправить?

Код:
#include <GUIConstantsEx.au3>
#include <Date.au3>


Global $timer, $Secs, $Mins, $Hour, $Time,$qw

_Main()

Func _Main()




    GUICreate("Таймер",320, 350)
   GUICtrlCreateGraphic(0,0,0,0)
   GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xA9A9A9)
   GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 74, 0)
   GUICtrlSetGraphic(-1, $GUI_GR_LINE, 74, 242)
   GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 75, 0)
   GUICtrlSetGraphic(-1, $GUI_GR_LINE, 75, 242)


    GUISetState()

    $timer = TimerInit()
    AdlibRegister("Timer", 50)

    $qw = GUICtrlCreateLabel("00:00:00", 10, 10)



    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit
        EndSwitch
    WEnd
EndFunc

Func Timer()
    _TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs)
    Local $sTime = $Time
    $Time = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs)
	GUICtrlSetData($qw,$Time)

EndFunc


Готово, только как теперь избавиться от мерцания?
 
Верх