While loop and OnEvent interference

Kiti · July 15, 2008

This is my new script. I've taken out the tray loop.

What I want is to make all the buttons work, even if the cronometer works. Is this possible? The buttons are set to OnEvent, so they should work while a while loop is executed... Another way of doing this was to take the relative coordinates of all buttons, and if the mouse is on a delimited area of a button, and clicks, the ButtonXClick function is executed. But to do this the sleep has to be like 0.1 ms, and still the user has to double click for the prgram to receive the comand... Do you know a better way to solve this problem?

[autoit]#include <GUIConstants.au3>

#include <Date.au3>

#include <Math.au3>

#include <Misc.au3>

Global $bBreak

Opt("GUIOnEventMode", 1)

$Form1 = GUICreate("Form1", 609, 614)

GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")

$Group1 = GUICtrlCreateGroup("Afla cat timp mai este pana cand ai anumite resurse", 15, 15, 286, 250)

$Input1 = GUICtrlCreateInput("", 144, 48, 121, 21)

$Input2 = GUICtrlCreateInput("", 144, 88, 121, 21)

$Input3 = GUICtrlCreateInput("", 144, 128, 121, 21)

$Label1 = GUICtrlCreateLabel("Resurse Necesare:", 32, 56, 95, 17)

$Label2 = GUICtrlCreateLabel("Resurse Curente", 32, 88, 83, 17)

$Label3 = GUICtrlCreateLabel("Productia minei/ora", 32, 128, 96, 17)

$Label4 = GUICtrlCreateLabel("Pana cand aceste resurse vor fi gata mai sunt:", 24, 168, 223, 17)

$Label5 = GUICtrlCreateLabel("-", 32, 192, 16, 17);ORE-----------------------------

GUICtrlSetFont($Label5, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label5, 0x0000FF)

$Label6 = GUICtrlCreateLabel("Ore,", 48, 192, 24, 17)

$Label7 = GUICtrlCreateLabel("-", 80, 192, 16, 17);MINUTE--------------------------

GUICtrlSetFont($Label7, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label7, 0x0000FF)

$Label8 = GUICtrlCreateLabel("Minute si", 96, 192, 46, 17)

$Label9 = GUICtrlCreateLabel("-", 152, 192, 16, 17);SECUNDE------------------------

GUICtrlSetFont($Label9, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label9, 0x0000FF)

$Label10 = GUICtrlCreateLabel("secunde.", 168, 192, 48, 17)

$Button1 = GUICtrlCreateButton("Afla timpul !", 104, 224, 75, 25, 0)

GUICtrlSetOnEvent($Button1, "Button1Click") ;---------------------------BUTTON1CLICK------------

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group2 = GUICtrlCreateGroup("Cronometru", 310, 15, 286, 186)

$Input4 = GUICtrlCreateInput("", 336, 64, 49, 21);ORE

$Input5 = GUICtrlCreateInput("", 336, 96, 49, 21);MINUTE

$Input6 = GUICtrlCreateInput("", 336, 128, 49, 21);SECUNDE

$Label11 = GUICtrlCreateLabel("Avertizeaza-ma peste:", 320, 40, 108, 17)

$Label12 = GUICtrlCreateLabel("Ore", 392, 64, 21, 17)

$Label13 = GUICtrlCreateLabel("Minute", 392, 96, 36, 17)

$Label14 = GUICtrlCreateLabel("Secunde", 392, 128, 47, 17)

$Button2 = GUICtrlCreateButton("Start cronometru !", 328, 160, 107, 25, 0)

Guictrlsetonevent($button2, "Button2Click")

$Group6 = GUICtrlCreateGroup("Statistici", 458, 40, 129, 137)

$Label49 = GUICtrlCreateLabel("Timp ramas:", 465, 59, 61, 17)

$Label51 = GUICtrlCreateLabel("Timp trecut:", 465, 83, 60, 17)

$Label53 = GUICtrlCreateLabel("Ora incepere:", 465, 107, 68, 17)

$Label54 = GUICtrlCreateLabel("Ora terminare:", 465, 131, 70, 17)

$Label55 = GUICtrlCreateLabel("Durata totala:", 465, 155, 68, 17)

$Label56 = GUICtrlCreateLabel("-", 532, 59, 52, 17)

GUICtrlSetFont($Label56, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label56, 0x0000FF)

$Label57 = GUICtrlCreateLabel("-", 532, 83, 52, 17)

GUICtrlSetFont($Label57, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label57, 0x0000FF)

$Label58 = GUICtrlCreateLabel("-", 532, 107, 52, 17)

GUICtrlSetFont($Label58, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label58, 0x0000FF)

$Label59 = GUICtrlCreateLabel("-", 532, 131, 52, 17)

GUICtrlSetFont($Label59, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label59, 0x0000FF)

$Label60 = GUICtrlCreateLabel("-", 532, 155, 52, 17)

GUICtrlSetFont($Label60, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label60, 0x0000FF)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group3 = GUICtrlCreateGroup("Afla rata intre resurse", 311, 216, 286, 146)

$Input7 = GUICtrlCreateInput("", 384, 264, 41, 21);METAL---------------------------------------

$Input8 = GUICtrlCreateInput("", 456, 264, 41, 21);CRISTAL-------------------------------------

$Input9 = GUICtrlCreateInput("", 528, 264, 41, 21);DEUTERIU------------------------------------

$Label15 = GUICtrlCreateLabel("Metal", 392, 240, 30, 17)

$Label16 = GUICtrlCreateLabel("Cristal", 460, 240, 32, 17)

$Label17 = GUICtrlCreateLabel("Deuteriu", 528, 240, 44, 17)

$Label18 = GUICtrlCreateLabel("Rata este de:", 320, 296, 68, 17)

$Label19 = GUICtrlCreateLabel("-", 402, 296, 25, 17);RATA METAL------------------------------

GUICtrlSetFont($Label19, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label19, 0x0000FF)

$Label20 = GUICtrlCreateLabel(":", 439, 296, 7, 17)

$Label21 = GUICtrlCreateLabel("-", 473, 296, 25, 17);RATA CRISTAL----------------------------

GUICtrlSetFont($Label21, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label21, 0x0000FF)

$Label22 = GUICtrlCreateLabel(":", 512, 296, 7, 17)

$Label23 = GUICtrlCreateLabel("-", 544, 296, 25, 17);RATA DEUTERIU---------------------------

GUICtrlSetFont($Label23, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label23, 0x0000FF)

$Button3 = GUICtrlCreateButton("Afla rata!", 424, 320, 75, 25, 0)

GUICtrlSetOnEvent($Button3, "Button3Click") ;---------------------------BUTTON3CLICK------------

$Button6 = GUICtrlCreateButton("Reset", 560, 344, 35, 17, 0);RESET----------------------------

GUICtrlSetOnEvent($Button6, "Button6Click") ;---------------------------BUTTON6CLICK------------

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group4 = GUICtrlCreateGroup("Converteste o resursa in celelalte doua", 310, 376, 286, 154)

$Label43 = GUICtrlCreateLabel("Metal", 394, 396, 30, 17)

$Label44 = GUICtrlCreateLabel("Cristal", 466, 396, 32, 17)

$Label45 = GUICtrlCreateLabel("Deuteriu", 536, 396, 44, 17)

$Label46 = GUICtrlCreateLabel("Conform ratei de:", 314, 452, 84, 17)

$Label48 = GUICtrlCreateLabel(":", 445, 452, 7, 17)

$Label50 = GUICtrlCreateLabel(":", 517, 452, 7, 17)

$Button5 = GUICtrlCreateButton("Converteste !", 418, 484, 75, 25, 0)

GUICtrlSetOnEvent(-1, "Button5Click")

$Input11 = GUICtrlCreateInput("", 392, 416, 41, 21);METAL---------------------------------------

$Input12 = GUICtrlCreateInput("", 464, 416, 41, 21);CRISTAL-------------------------------------

$Input13 = GUICtrlCreateInput("", 536, 416, 41, 21);DEUTERIU------------------------------------

$Label52 = GUICtrlCreateLabel("Converteste:", 320, 416, 64, 17)

$Input14 = GUICtrlCreateInput("", 405, 448, 17, 21);RATA METAL------------------------------

$Input15 = GUICtrlCreateInput("", 476, 448, 17, 21);RATA CRISTAL----------------------------

$Input16 = GUICtrlCreateInput("", 546, 448, 17, 21);RATA DEUTERIU---------------------------

$Button7 = GUICtrlCreateButton("Reset", 560, 512, 35, 17, 0);RESET--------------------------

GUICtrlSetOnEvent($Button7, "Button7Click")

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group5 = GUICtrlCreateGroup("Afla nivel mine dupa resurse", 16, 280, 286, 321)

$Edit1 = GUICtrlCreateEdit("", 24, 312, 233, 41)

GUICtrlSetData($Edit1, "")

$Edit2 = GUICtrlCreateEdit("", 24, 376, 233, 41)

GUICtrlSetData($Edit2, "")

$Label24 = GUICtrlCreateLabel("Copiaza aici primul raport de spioanj:", 24, 296, 175, 16)

$Label25 = GUICtrlCreateLabel("Copiaza aici al doilea raport de spionaj:", 24, 360, 187, 16)

$Label26 = GUICtrlCreateLabel("Mina de metal produce", 24, 424, 112, 17)

$Label27 = GUICtrlCreateLabel("resurse pe ora.", 170, 424, 74, 17)

$Label28 = GUICtrlCreateLabel("Mina de metal este de nivelul", 24, 496, 144, 17)

$Label29 = GUICtrlCreateLabel(" -", 137, 425, 30, 17)

GUICtrlSetFont($Label29, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label29, 0x0000FF)

$Label30 = GUICtrlCreateLabel(" -", 168, 496, 20, 17)

GUICtrlSetFont($Label30, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label30, 0x0000FF)

$Label31 = GUICtrlCreateLabel("Mina de cristal produce", 24, 448, 114, 17)

$Label32 = GUICtrlCreateLabel(" -", 137, 448, 32, 17)

GUICtrlSetFont($Label32, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label32, 0x0000FF)

$Label33 = GUICtrlCreateLabel("resurse pe ora.", 171, 448, 71, 17)

$Label34 = GUICtrlCreateLabel("Mina de cristal este de nivelul", 24, 520, 143, 17)

$Label35 = GUICtrlCreateLabel("-", 176, 520, 16, 17)

GUICtrlSetFont($Label35, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label35, 0x0000FF)

$Label36 = GUICtrlCreateLabel("Sintetizatorul produce", 24, 472, 106, 17)

$Label37 = GUICtrlCreateLabel(" -", 129, 473, 31, 17)

GUICtrlSetFont($Label37, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label37, 0x0000FF)

$Label38 = GUICtrlCreateLabel("resurse pe ora.", 162, 472, 74, 17)

$Label39 = GUICtrlCreateLabel("Sintetizatorul este de nivelul", 24, 544, 135, 17)

$Label40 = GUICtrlCreateLabel("la temp. min. de", 176, 544, 78, 17)

$Input10 = GUICtrlCreateInput("10", 254, 541, 20, 21)

$Label41 = GUICtrlCreateLabel(" -", 158, 544, 16, 17)

GUICtrlSetFont($Label41, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label41, 0x0000FF)

$Button4 = GUICtrlCreateButton("Calculeaza !", 120, 568, 75, 25)

GuiCtrlSetOnEvent($Button4, "Button4Click")

$Button8 = GUICtrlCreateButton("Reset", 266, 583, 35, 17, 0)

GuiCtrlSetOnEvent($Button8, "Button8Click")

$Label42 = GUICtrlCreateLabel("

monoceres · July 15, 2008

Hi!

Script that is in a loop that has been triggered by an event is trapped there until it returns by itself, another event cannot be executed.

To solve this problem you have to do something like this:

Global $flag=False
Opt("GUIOnEventMode",1)
GUICreate("Sample")
GUICtrlCreateButton("Click me",10,10)
GUICtrlSetOnEvent(-1,"_Buttonclicked")
GUISetOnEvent(-3,"close")
GUISetSTate()

Do
    Sleep(25)
    While $flag
        ToolTip("Help I'm trapped!")
        sleep(25)
    WEnd
    
    
Until False

Func close()
    Exit
EndFunc

Func _Buttonclicked()
    $flag=Not $flag
    ToolTip("")
EndFunc

Hope you got the point muttley

andybiochem · July 15, 2008

Hi,

Sorry if I've misunderstood what you want, but it sounds like you want to have a loop in the gui to handle some sort of timer, AND then to have other buttons to be functional whilst that 'timer loop' is also functional.

If that is correct then I'm afraid it's not possible in AutoIT (as far as I'm aware). AutoIT is linear and event driven, meaning it can only do ONE thing at a time.

There are work-arounds though. Try making two separate programs: one to deal with the buttons etc, and another to deal with the timer only. Perhaps you can pass timer details back to the main program as well, so that the main program updates a label with current details or whatever.

Sorry, I can't be more helpful with this.....try searching the forum for ways to pass data between two scripts.

It might also be possible to use an 'adlib' to update a timer in a single script, by setting the iteration to a few ms? How this would affect the rest of the script I don't know.

[edit - monoceres replied at the same time as me !!! - and understood you better!! heh]

Edited July 15, 2008 by andybiochem

Kiti · July 15, 2008

That's tremendous, briliant, flawlessly, great and marvelous!! It works better than great! All the buttons are working while the timer counts (although I still don't understand why) Thank you a lot! :huggles: Now I can finally post my program without any bugs. Here it is:

[autoit]#include <GUIConstants.au3>

#include <Date.au3>

#include <Math.au3>

#include <Misc.au3>

Global $bBreak

Global $flag = False

Opt("GUIOnEventMode", 1)

$Form1 = GUICreate("Form1", 609, 614)

GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")

$Group1 = GUICtrlCreateGroup("Afla cat timp mai este pana cand ai anumite resurse", 15, 15, 286, 250)

$Input1 = GUICtrlCreateInput("", 144, 48, 121, 21)

$Input2 = GUICtrlCreateInput("", 144, 88, 121, 21)

$Input3 = GUICtrlCreateInput("", 144, 128, 121, 21)

$Label1 = GUICtrlCreateLabel("Resurse Necesare:", 32, 56, 95, 17)

$Label2 = GUICtrlCreateLabel("Resurse Curente", 32, 88, 83, 17)

$Label3 = GUICtrlCreateLabel("Productia minei/ora", 32, 128, 96, 17)

$Label4 = GUICtrlCreateLabel("Pana cand aceste resurse vor fi gata mai sunt:", 24, 168, 223, 17)

$Label5 = GUICtrlCreateLabel("-", 32, 192, 16, 17);ORE-----------------------------

GUICtrlSetFont($Label5, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label5, 0x0000FF)

$Label6 = GUICtrlCreateLabel("Ore,", 48, 192, 24, 17)

$Label7 = GUICtrlCreateLabel("-", 80, 192, 16, 17);MINUTE--------------------------

GUICtrlSetFont($Label7, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label7, 0x0000FF)

$Label8 = GUICtrlCreateLabel("Minute si", 96, 192, 46, 17)

$Label9 = GUICtrlCreateLabel("-", 152, 192, 16, 17);SECUNDE------------------------

GUICtrlSetFont($Label9, 8, 800, 0, "MS Sans Serif")

GUICtrlSetColor($Label9, 0x0000FF)

$Label10 = GUICtrlCreateLabel("secunde.", 168, 192, 48, 17)

$Button1 = GUICtrlCreateButton("Afla timpul !", 104, 224, 75, 25, 0)

GUICtrlSetOnEvent($Button1, "Button1Click") ;---------------------------BUTTON1CLICK------------

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group2 = GUICtrlCreateGroup("Cronometru", 310, 15, 286, 186)

$Input4 = GUICtrlCreateInput("", 336, 64, 49, 21);ORE

$Input5 = GUICtrlCreateInput("", 336, 96, 49, 21);MINUTE

$Input6 = GUICtrlCreateInput("", 336, 128, 49, 21);SECUNDE

$Label11 = GUICtrlCreateLabel("Avertizeaza-ma peste:", 320, 40, 108, 17)

$Label12 = GUICtrlCreateLabel("Ore", 392, 64, 21, 17)

$Label13 = GUICtrlCreateLabel("Minute", 392, 96, 36, 17)

$Label14 = GUICtrlCreateLabel("Secunde", 392, 128, 47, 17)

$Button2 = GUICtrlCreateButton("Start cronometru !", 328, 160, 107, 25, 0)

GUICtrlSetOnEvent($Button2, "Button2Click")