What am I missing?

[Trax]

I started playing with Koda today trying to get the hang of GUIs. The below code is generated from Koda but as soon as I put in a second case the GUI only stays open for a second then closes. Having a bad day. I am sure it is something very simple I just can't figure out what. Pulling my hair out.....

 

#include <GUIConstantsEx.au3>

Local $ButtonSet, $ButtonQuit,$Form, $Label, $Input, $nMsg

;--=== main line ===--;


Set_Gui()
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $ButtonQuit
            Beep()
        Case $ButtonSet
            Beep()
    EndSwitch
WEnd

Exit

;--=== main GUI window ===--;

Func Set_GUI()
$Form = GUICreate("Set OBD Signatures", 615, 437, -870, 249)
$ButtonSet = GUICtrlCreateButton("Set", 136, 256, 75, 25)
$ButtonExit = GUICtrlCreateButton("Exit", 440, 264, 75, 25)
$Label = GUICtrlCreateLabel("Serial Number: ", 120, 128, 76, 17)
$Input = GUICtrlCreateInput("Input", 240, 128, 121, 21)
GUISetState(@SW_SHOW)
EndFunc

 

[Melba23]

Trax,

You have declared $ButtonQuit but use $ButtonExit to store the button ControlID. As a result $ButtonQuit has no declared value and AutoIt treats it as 0, which is the default return from GUIGetMsg and so fires that case on the first pass.

M23

[vestanpance3110]

11 minutes ago, Trax said:

I started playing with Koda today trying to get the hang of GUIs. The below code is generated from Koda but as soon as I put in a second case the GUI only stays open for a second then closes. Having a bad day. I am sure it is something very simple I just can't figure out what. Pulling my hair out.....

 

#include <GUIConstantsEx.au3>

Local $ButtonSet, $ButtonQuit,$Form, $Label, $Input, $nMsg

;--=== main line ===--;


Set_Gui()
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $ButtonQuit
            Beep()
        Case $ButtonSet
            Beep()
    EndSwitch
WEnd

Exit

;--=== main GUI window ===--;

Func Set_GUI()
$Form = GUICreate("Set OBD Signatures", 615, 437, -870, 249)
$ButtonSet = GUICtrlCreateButton("Set", 136, 256, 75, 25)
$ButtonExit = GUICtrlCreateButton("Exit", 440, 264, 75, 25)
$Label = GUICtrlCreateLabel("Serial Number: ", 120, 128, 76, 17)
$Input = GUICtrlCreateInput("Input", 240, 128, 121, 21)
GUISetState(@SW_SHOW)
EndFunc

 

There's several things wrong

Your Button's names don't match.

$ButtonExit vs $ButtonQuit  

Don't call it $ButtonExit.

 

Also, remove the () from 

Switch $nMsg()

This is why it keeps closing.

Hope that helps. 

 

[Trax]

Thanks Melba23 and vestanpance3110. Long day.

Edited September 18, 2017 by Trax