Loop Help

[x0t]

So, I'm playing around with things I can do. I wanted to make this app just do as it does for the most part, but make one function checking if I hit the close button. I wouldn't mind understanding a more simple way to do this, but the point of this is so that I can later on make a GUI app with multiple functions, that have pretty much one "controller" type that does a check of all the buttons, while the rest of the application can work. Maybe to be passed back to whatever function called it, I dont know if I can but, i'm attempting it.

; tests
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
global  $msg, $x, $y
$msg = GUIGetMsg()
$x=500
$y=300
start()
func start()
GuiCreate("test", $x, $y)
GUISetState()
work()
endfunc
Func work()
local $chk1, $chk2, $a, $b, $c
Sleep(100)
while 1
  $c=(Random(25,475))
  $b=(Random(25,275))
  GUICtrlCreateLabel("test" &$a, $c, $b, 25, 25)
  sleep(100)
  monitor()
WEnd
EndFunc
func monitor() ;trying to make this function check if I hit the close button if so close, if not return back to the other function.
local $a, $b, $c
while 1
  Select
   Case $msg = $GUI_EVENT_CLOSE
   GuiDelete()
  EndSelect
  sleep(100)
  work()
wend
EndFunc

[FireFox]

Hi,

Welcome to the autoit forum =)

You are using the GUIGetMsg function in a wrong context.

I'm sure you have not took a look at the help file for this function. I suggest you to take a look at the example included with the GUICreate function and you will understand how the GUIGetMsg function works. (you have also OnEvent parameters with the GUIOnEventMode opt set to 1).

Br, FireFox.

Edited January 22, 2013 by FireFox

[x0t]

I don't think you really understand what I am doing here, I double checked the GUICreate and GUIGetMsg like you requested, and even trying to apply how it explains and shows how to use them, it's not working for me. Note, that I do want it to repeat putting "test" all over the GUI. I am capable of making it work when working as a singular function, I'm having trouble keeping it multi-function with them passing functionality back and forth.

[guinness]

Look in the wiki for multiple GUIs. FireFox understands, just you misread the help file on how GUIGetMsg works.

[x0t]

Okay, maybe I'm just missing something here. I looked at the Wiki for multiple GUIs but I didn't see it, note - that I do not want more than one GUI, though, just multiple functions working together.

So, I took the example for GUIGetMsg and used it.

expandcollapse popup

#include <GUIConstantsEx.au3>
Example()
;-------------------------------------------------------------------------------------
; Example - Press the button to see the value of the radio boxes
; The script also detects state changes (closed/minimized/timeouts, etc).
Func Example()
Local $button_1, $radio_1, $radio_3
Local $radioval1, $msg
Opt("GUICoordMode", 1)
GUICreate("Radio Box Demo", 400, 280)
; Create the controls
$button_1 = GUICtrlCreateButton("B&utton 1", 30, 20, 120, 40)
GUICtrlCreateGroup("Group 1", 30, 90, 165, 160)
GUIStartGroup()
$radio_1 = GUICtrlCreateRadio("Radio &0", 50, 120, 70, 20)
GUICtrlCreateRadio("Radio &1", 50, 150, 60, 20)
$radio_3 = GUICtrlCreateRadio("Radio &2", 50, 180, 60, 20)
$button_x = GUICtrlCreateButton("Switch Functions", 200, 20, 120, 40)
$button_q = GUICtrlCreateButton("Quit", 200, 80, 120, 40)
; Init our vars that we will use to keep track of GUI events
$radioval1 = 0 ; We will assume 0 = first radio button selected, 2 = last button
; Show the GUI
GUISetState()
; In this message loop we use variables to keep track of changes to the radios, another
; way would be to use GUICtrlRead() at the end to read in the state of each control
While 1
  $msg = GUIGetMsg()
  Select
   Case $msg = $GUI_EVENT_CLOSE
    MsgBox(0, "", "Dialog was closed")
    Exit
   Case $msg = $GUI_EVENT_MINIMIZE
    MsgBox(0, "", "Dialog minimized", 2)
   Case $msg = $GUI_EVENT_MAXIMIZE
    MsgBox(0, "", "Dialog restored", 2)
   Case $msg = $button_1
    MsgBox(0, "Default button clicked", "Radio " & $radioval1)
   Case $msg >= $radio_1 And $msg <= $radio_3
    $radioval1 = $msg - $radio_1
   Case $msg = $button_x
    test()
   Case $msg = $button_q
    GUIDelete()
  EndSelect
WEnd
EndFunc   ;==>Example
Func test()
Local $a, $b, $c
Sleep(100)
While 1
  $c = (Random(25, 500))
  $b = (Random(25, 300))
  GUICtrlCreateLabel("test" & $a, $c, $b, 25, 25)
  Sleep(500)
WEnd
EndFunc   ;==>test

This is the exact code from the example with an added blah function to write test all over the gui. My goal, is to while its writing "test" all over the screen, to still be able to quit the application to use the X or "Quit" buttons I created. If you note, in my other script up above, I did add the GUIGetMsg and a Select loop to find out if X was pressed in my first script to both my functions, and that did not work. This doesn't work but I know it shouldn't since the check for buttons isnt in the test() function. I know it's ignorant as hell, but I am really not understanding that helpfile on GUIGetMsg compared to what I am doing and why it would be wrong.

[kylomas]

x0t,

The closest that you are going to get to asynchronous execution using functions is to run test() as an adlib. However, do you really want to be creating labels at random places, assumming that it works at all (your random limits do not match your gui bounds)?

kylomas

[x0t]

x0t,

The closest that you are going to get to asynchronous execution using functions is to run test() as an adlib. However, do you really want to be creating labels at random places, assumming that it works at all (your random limits do not match your gui bounds)?

kylomas

Thank you kylamos, I was looking at other posts and saw something about adlib I was just opening the help file when I read this, I'll give that a shot and hope it works out. And in all honesty, I have other projects I am working on and work pretty well, but having the functions be asnychronous as you said has been the first thing that gave me an issue. This is actually a dummy script, I actually didn't even think about the limits of the gui when I messed with this at all, I just wrote something fast up that would explain my needs in an easy manner so that I don't have to post a ton of script and it be all complicated (not including how complicated I made this already lol)

SO

That pretty much summed up what I needed, the adlib thing that is, I'll give it a shot as I said, thanks again.

[kylomas]

x0t,

Your welcome.

[x0t]

Okay so, going back to the script I used in the original post, and trying to make use of the AdlibRegister feature;

; tests on asynchronous functioning
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $msg, $x, $y
$msg = GUIGetMsg()
$x = 500
$y = 300
start()
Func start()
GUICreate("test", $x, $y)
GUISetState()
AdlibRegister("monitor")
work()
EndFunc ;==>start
Func work()
Sleep(100)
While 1
$c = (Random(25, 475))
$b = (Random(25, 275))
GUICtrlCreateLabel("test" & $a, $c, $b, 25, 25)
Sleep(100)
WEnd
EndFunc ;==>work
Func monitor() ;trying to make this function check if I hit the close button if so close, if not return back to the other function.
Local $a, $b, $c
While 1
Select
Case $msg = $GUI_EVENT_CLOSE
    GUIDelete()
EndSelect
Sleep(500)
work()
WEnd
EndFunc ;==>monitor

So, now it works just as before but I do know the adlib is calling monitor(), I had to add the work() call in it just to make sure it kept printing "test" lol.

Problem still exists though how it's not either a) recognizing the close button is being pressed or actually checking for it.

I even increased the sleep before monitor() recalls work() just so that it may stand a better chance. Advice?

Edited January 23, 2013 by x0t

[BrewManNH]

The point FireFox was making is that your GUIGetMsg function is in the wrong place in your script, you're only checking it once.

;~  tests
#include 
#include 
Global $msg, $x, $y
; $msg = GUIGetMsg()  don't read it here, it's not reading anything anyways.
$x = 500
$y = 300
start()
Func start()
    GUICreate("test", $x, $y)
    GUISetState()
    work()
EndFunc   ;==>start
Func work()
    Local $chk1, $chk2, $a, $b, $c
    Sleep(100)
    While 1
        $c = (Random(25, 475))
        $b = (Random(25, 275))
        GUICtrlCreateLabel("test" & $a, $c, $b, 25, 25)
        monitor()
        Sleep(100)
    WEnd
EndFunc   ;==>work
Func monitor() ;trying to make this function check if I hit the close button if so close, if not return back to the other function.
    Local $a, $b, $c
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                Exit
        EndSelect
EndFunc   ;==>monitor

BTW, using autoit tags instead of Code tags makes your code a lot easier to read.

Edited January 23, 2013 by BrewManNH

[kylomas]

x0t,

What exactly are you trying to do?

kylomas

[kylomas]

x0t,

This seems to do what you want, however, what you are doing make NO sense to me.

; tests on asynchronous functioning
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $msg, $x, $y
$x = 500
$y = 300
GUICreate("test", $x, $y)
GUISetState()
;AdlibRegister("monitor")

while 1
    switch guigetmsg()
        case $GUI_EVENT_CLOSE
            Exit
    endswitch

    work()

wend

Func work()
    Sleep(100)
    While 1
        $a = (Random(25, 475))
        $c = (Random(25, 475))
        $b = (Random(25, 275))
        GUICtrlCreateLabel("test" & $a, $c, $b, 25, 25)
        ;Sleep(100)
        return
    WEnd
EndFunc   ;==>work

kylomas

[x0t]

@kylomas; if I were attempting to use only a single function for my application this would work, but remember as I said in my first post, this is a dummy application to help me learn to use multiple functions - thats why the functions pass back to each other - but what I need to do is still be able to close application once the functions are in process.

@BrewManNH; the changes you made to the original script gave me the following error:

x:\autoit\tests\tests.au3(29,41) : WARNING: $GUI_EVENT_CLOSE: possibly used before declaration.
E:\autoit\tests\tests.au3(29,41) : ERROR: $GUI_EVENT_CLOSE: undeclared global variable.

Edited January 23, 2013 by x0t

[FireFox]

x:\autoit\tests\tests.au3(29,41) : WARNING: $GUI_EVENT_CLOSE: possibly used before declaration.
E:\autoit\tests\tests.au3(29,41) : ERROR: $GUI_EVENT_CLOSE: undeclared global variable.

this is a global constant included in the GUIConstantsEx file.

#include <GUIConstantsEx.au3>

[guinness]

That's also the Forum stripping includes not BrewManNH forgetting to include.

[x0t]

Now I feel slow, sorry about that and thanks BrewManNH, that worked. Going to apply it for my other projects, and sorry to the rest about being so complicated over learning something simple xD

[kylomas]

x0t,

If your programming paradigm is to create several functions, each one calling a function to check on control actions, then I would suggest that you re-think the structure. My opinion is that this will cause the app to become unresponsive and a maintenance nightmare.

If I'm full of shit, please enlighten.

kylomas