[Sleep] GuiGetMsg + Loop

[eHrgo]

Hi guys,

My problem is quit simple: I want to repeat a function every 10secs, I have a close button to stop that program at anytime..

Thos doesn't work:

$Close = GuiCtrlCreateButton.....

While GuiGetMsg() not $Close
...Whatever Function
Sleep (10000)
Wend
oÝ÷ Ù«­¢+Ø(ÀÌØí
±½ÍôÕ¥
Ñɱ
ÉÑ    ÕÑѽ¸¸¸¸¸¸()¼(¸¸¹]¡ÑÙÈչѥ½¸)M±À ÄÀÀÀÀ¤)U¹Ñ¥°Õ¥Ñ5Í ¤ôÀÌØí
±½Í(

I know this question has been asked a thousand time but i didn't understand how to easily solve it ... We can break with hotkeys at anytime, why can't we with GuiGetMsg?

Thanks

[Kickassjoe]

I don't know if this answers your question, but the program probably will not close because, in the loops it only checks either at the beginning (while loop) or at the end (do-until loop), so there is a very small chance that it is checking for the button to be pressed exactly when you are pressing it... (same for other controls that you are looking for being pressed)

[eHrgo]

Yes, I imagine that ... But some fonction are always working like HotKeySet ...

[SmOke_N]

You may want to look at TimerInit()/TimerDiff() for your time periods rather than sleep.

Dim $nTimer = TimerInit()
While GuiGetMsg() <> $Close
    If TimerDiff($nTimer) / 1000 >= 10 Then
        ;.... whatever function // Keep in mind, that while in this function, GUIGetMsg() isn't going to work.
        $nTimer = TimerInit()
    EndIf
Wend

[eHrgo]

Thanks a lot! Love those

[eHrgo]

Hum .... I still have a problem:

I have now that:

$Timer10 = TimerInit()
While GuiGetMsg() <> $close
    GUISetState (@SW_SHOW) 
        If TimerDiff($Timer10) >= 10000 Then    
        Call ('GetPoints')
            $Timer10 = TimerInit()
        EndIf
    Wend
oÝ÷ Ø­jz-êÁºÛhÚ&Èe§¶+m¡Ú0«^½êÚrب^*kzË"´kçZºÚ"µÍÚ[HÝZQÙ]ÙÊ
H   ÉÝÈ  ÌÍØÛÜÙHÔ ÌÍÔÝ]

But it obviously don't work ... how can i do that?

Thanks a lot

[eHrgo]

Working with a OnEvent mode!

Opt("GUIOnEventMode", 1) 
GUICtrlSetOnEvent ( $close, 'Terminate')
GuiCtrlSetOnEvent ( $Stats, 'Stats')

Func Terminate()
    Exit 0
EndFunc

Func Stats()
 ... Whatever.
EndFunc

While 1
..Whatever
Wend

Edited February 24, 2007 by eHrgo

[xcal]

You're going to want a Sleep(50) in your While loop, unless cpu usage doesn't matter.

[Sykeo]

#include <GUIConstants.au3>
Dim $Gui_main = GUICreate("woof",150,100,-1,-1)
Dim $btn = GUICtrlCreateButton ( "Bark", 45,30,50)
Dim $enable = 1
GUISetState (@SW_SHOW)
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $btn
            If $enable = 1 then
                AdlibEnable("woot",1000)
                $enable = 0
            Else
                AdlibDisable()
                $enable = 1
            EndIf
    EndSelect
WEnd
Func woot()
    ConsoleWrite("BLAH BLAH" & @CRLF)
EndFunc

Edited February 24, 2007 by Sykeo