GUI Questions

[Feonixx]

Hey, just playing around with the GUI functions in AutoIT, and what i want to do is to start opening with a MsgBox, that when clicked will open a GUI Box with input boxes/menus/ect to choose.

#include <GUIConstantsEx.au3>
#Include <Misc.au3>
#include <EditConstants.au3>
$InputBox = MsgBox(0,'Title', "Made By: Feonix")
While 1
    If GUIGetMsg() = $InputBox Then
        Do  
            GUICreate("Title - Main",150,350)
        Until Sleep(100)
    EndIf
WEnd

With this code the Msg box opens, but when clicked it does nothing. I guess im stuck at the DO, IF, THEN part for creating the GUI Thanks in advance D:

[JustinMeyer]

Unless you have reason for the includes you do not need them.

Try this

GUICreate("Title - Main",150,350)
$InputBox = MsgBox(0,'Title', "Made By: Feonix")
GUISETSTATE()
Do
Until GUIGetMsg() = -3

[Paulie]

Unless you have reason for the includes you do not need them.

Try this

GUICreate("Title - Main",150,350)
$InputBox = MsgBox(0,'Title', "Made By: Feonix")
GUISETSTATE()
Do
Until GUIGetMsg() = -3oÝ÷ Ûú®¢×®'ò¢çhmÁ©í¶"¨º³Âjëh×6GUICreate("Title - Main",150,350)
$InputBox = MsgBox(0,'Title', "Made By: Feonix")
GUISetState()
Do
sleep(100)
Until GUIGetMsg() = -3

[JustinMeyer]

@Paulie

Why would this "kill my PC"?

I only get a 20% CPU spike at runtime and then idle down to 0.

I am new to this so don't "kill me" if the answer is obvious.

[Paulie]

@Paulie

Why would this "kill my PC"?

I only get a 20% CPU spike at runtime and then idle down to 0.

I am new to this so don't "kill me" if the answer is obvious.

well, it won't quite kill your PC as bad as someting like this

While 1
Wend

because it is still doing something else (polling GuiGetMsg) but a sleep in a loop like that is essential to save any slow computer.

Edited July 4, 2008 by Paulie

[Feonixx]

GUICreate("Title - Main",150,350)
$InputBox = MsgBox(0,'Title', "Made By: Feonix")
GUISetState()
Do
sleep(100)
Until GUIGetMsg() = -3

Kk, this works just as i wanted thanks muttley

but, if at all possible, can u explain some things?

Why does the MsgBox need a variable if were not using that var within the code, and what does the -3 result in?

[JustinMeyer]

Thanks Paulie, I will start adding sleep to my loops to slow them down.

[JustinMeyer]

In this case the MsgBox does not need to be a variable but if you were to use a different flag you would need to call the return value... see help file for MsgBox.

Not exactly sure but I believe -3 is equivalent to the GUI being closed or not existing.

[Paulie]

GUICreate("Title - Main",150,350)
$InputBox = MsgBox(0,'Title', "Made By: Feonix")
GUISetState()
Do
sleep(100)
Until GUIGetMsg() = -3

Kk, this works just as i wanted thanks muttley

but, if at all possible, can u explain some things?

Why does the MsgBox need a variable if were not using that var within the code, and what does the -3 result in?

Sure I'll explain

The msgbox does not need a variable. We only kept the variable there because it was in you original code.

-3 is a JMeyers Magic number for the variable $GUI_EVENT_CLOSE

[Feonixx]

Sure I'll explain

The msgbox does not need a variable. We only kept the variable there because it was in you original code.

-3 is a JMeyers Magic number for the variable $GUI_EVENT_CLOSE

Awesome thanks to both of you muttley This will help me immensly in experimenting with the GUI functions.

[Valuater]

Thanks Paulie, I will start adding sleep to my loops to slow them down.

; Run Task Manager

Dim $Exiter = 0

HotKeySet("{F5}", "Set_Exiter")
HotKeySet("{ESC}", "Terminate")

; I dont see much difference here, I was told this first loop is fine and GUIGetMsg() has a "built-in" sleep ( more or less )

Do
    If $Exiter Then ExitLoop
Until GUIGetMsg() = -3

$Exiter = 0

Do
    Sleep(100)
Until $Exiter

; This will use 100% 
$Exiter = 0

Do
    ; nada
Until $Exiter

; Functions only 

Func Set_Exiter()
    $Exiter = 1
EndFunc   ;==>Set_Exiter

Func Terminate()
    Exit 0
EndFunc   ;==>Terminate

8)

Edited July 4, 2008 by Valuater

[JustinMeyer]

@Paulie

-3 is a JMeyers Magic number for the variable $GUI_EVENT_CLOSE

This is not "My Magic Number", I think I seen it in a script in on the forum and picked it up. Not sure who to credit it to but

is probably not good practice I assume. I will stay with the $GUI_EVENT_CLOSE.

@ Valuater

Thanks for the insight.

; This will use 100%

$Exiter = 0

Do

; nada

Until $Exiter

However this only uses 50% CPU on my laptop... is this because of having a dual core processor?

[Paulie]

Thanks for the insight.

However this only uses 50% CPU on my laptop... is this because of having a dual core processor?

correct. I don't think its possible for 1 single process to use 100% of your CPU with dual core.

[AdmiralAlkex]

However this only uses 50% CPU on my laptop... is this because of having a dual core processor?

AutoIt is not multithreaded, so yes.

[AdmiralAlkex]

correct. I don't think its possible for 1 single process to use 100% of your CPU with dual core.

But it will be 100% on the core it is running on.

[Feonixx]

Hey guys, got another problem.

btw, dont mean to be a pest xD ive read the help file for what the GUI functions do, and looked a bit around the forums but no luck.

This new code i made is supposed to have the GUI window with a main opening of 2 buttons. Then, if the top button is selected or "clicked" then it will open another GUI window.

GUICreate("Title - Main",150,350)
GUISetBkColor(0x000000)
$Input = GUICtrlCreateButton("Button 1",5,10,140,20)
$Input2 = GUICtrlCreateButton("Button 2",5, 50, 140, 20)
MsgBox(0,'Title', "Made By: Feonix")
GUISetState()

    If GUIGetMsg() = $Input THEN
        Do
            GUICreate("Button Window",150,200)
            GUISetState() 
            Sleep(100)
        Until GUIGetMsg() = -3
    Else
        Do
            sleep(100)
        Until GUIGetMsg() = -3

    EndIf

Thanks again for any help muttley

[NELyon]

@Paulie

This is not "My Magic Number", I think I seen it in a script in on the forum and picked it up. Not sure who to credit it to but

is probably not good practice I assume.

It is a very good practice. It saves space, and by remembering all of the GUI Constants, It can dramatically reduce the size of your compiled files.

Many members want GUIConstants.au3 to be removed completely (Or phased out)

EDIT: For that last question, You need a loop keeping the window open. You are sleeping for 100MS, AKA 1/10 of a second, which is how long your GUI stays open.

Edited July 5, 2008 by KentonBomb

[Paulie]

It is a very good practice. It saves space, and by remembering all of the GUI Constants, It can dramatically reduce the size of your compiled files.

Many members want GUIConstants.au3 to be removed completely (Or phased out)

It's not a good practice when you are posting on a public forum where someone may try to use your script as an example to learn from. It's very hard to understand a script when numbers seem to appear out of no where. It may indeed be worth the time to look up constants and replace them in your code if you are planning to release an official copy of a program and are trying to optimize it. But as far as source code goes, you might as well have just obfuscated it. (at least for me)

EDIT: grammar/typos

Edited July 5, 2008 by Paulie

[Feonixx]

Yea, i suspected that was the problem, and ive changed the sleep to a higher value, for 10 seconds 100 seconds ect, but i dont see any window even attempt to appear, its just like clicking a void button.

[Paulie]

It's actually a problem with your GUIGetMsg() call i think.

this is sloppy, but it works i guess. I'm sure there is a more efficient way to do it though :\

EDIT: Personally, I would use OnEvent mode for any GUI with more than one window open at the same time...

$Main = GUICreate("Title - Main",150,350)
GUISetBkColor(0x000000)
$Input = GUICtrlCreateButton("Button 1",5,10,140,20)
$Input2 = GUICtrlCreateButton("Button 2",5, 50, 140, 20)
MsgBox(0,'Title', "Made By: Feonix")
GUISetState(@SW_SHOW, $Main)
While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case -3;$GUI_EVENT_CLOSE
            Exit
        Case $Input
            $GUI1 = GUICreate("Button Window",150,200)
            GUISetState(@SW_SHOW, $GUI1) 
            Do
                $Msg2 = GUIGetMsg(1)
            Until $Msg2[1] = $GUI1 and $Msg2[0] = -3;$GUI_EVENT_CLOSE
            GUIDelete($GUI1)
    EndSwitch
WEnd

Edited July 5, 2008 by Paulie