Work with checkbox

[daniel02]

Hi all,

I tired now for several minutes work with a checkbox but I can get it run. Also the help file did not help me

For you guys it will be very easy I think.

If the checkbox is "checked" I want to set a variable to 1. If it is not checked to 0. As log as the script is running I want to be able to change the state of this variable with the checkbox.

The only thing I found is $GUI_UNCHECKED $GUI_CHECKED but I am not sure how to work with it.

Thanks in advance

Daniel

[DaRam]

Search the help file for '_GUICtrlButton_GetCheck', there is an example script using radio buttons and a check box

I tired now for several minutes work with a checkbox but I can get it run. Also the help file did not help me

[daniel02]

Mh the example is not working. If I run it and check the boxes or change the control buttons it did not change the values.

[DaRam]

Post your code or fragment you are having trouble with

Mh the example is not working. If I run it and check the boxes or change the control buttons it did not change the values.

[Jos]

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)
Global $checkCN, $msg, $Checked = 0
GUICreate("My GUI Checkbox") ; will create a dialog box that when displayed is centered

$checkCN = GUICtrlCreateCheckbox("CHECKBOX 1", 10, 10, 120, 20)

GUISetState()     ; will display an  dialog box with 1 checkbox

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    
    Select
        Case $msg = $GUI_EVENT_CLOSE 
            ExitLoop
        Case $msg = $checkCN
            If GUICtrlRead($checkCN) = $GUI_CHECKED Then
                $Checked = 1
            Else
                $Checked = 0
            EndIf
    EndSelect
WEnd

[nitekram]

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()
    Local $checkCN, $msg
    GUICreate("My GUI Checkbox")  ; will create a dialog box that when displayed is centered

    $checkCN = GUICtrlCreateCheckbox("CHECKBOX 1", 10, 10, 120, 20)
    GUICtrlSetState(-1, $GUI_CHECKED)   ; the checkbox is checked

    GUISetState()       ; will display an  dialog box with 1 checkbox

    ; Run the GUI until the dialog is closed
    While 1
        $msg = GUIGetMsg()
        
        If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd
EndFunc   ;==>Example

Edited April 13, 2009 by nitekram

[daniel02]

I just wantED to set the debug mode on or off with the checkbox.. And it is working now

Thanks a lot!!!!

Here is my code perhaps there is a better way?

GuiCreate($Prog_Title, 200, 250)

WinSetOnTop($Prog_Title, "", 1)

$start = GUICtrlCreateButton(" Start ",10, 10)

$stop = GUICtrlCreateButton(" Stop ", 80, 10)

$debugon = GUICtrlCreateCheckbox ("Debug Mode", 5, 130)

GUICtrlCreateLabel("Current Function/Debug:", 5, 150)

$CurrentFunction = GUICtrlCreateInput("Function", 5, 170, 125, 20)

GuiSetState()

While 1

If ControlCommand ( $Prog_Title, "", $debugon, "IsChecked") = 1

$debug=1

Else

$debug=0

endif

$msg = GUIGetMsg()

Select

Case $msg = $start

;CorrectHeadingNew($zieloxpos, $zieloypos)

heading()

Case $msg = $stop

Exit

Case $msg = $GUI_EVENT_CLOSE

Exit

EndSelect

WEnd

Func heading()

If $debug = 1 Then GUICtrlSetData($CurrentFunction, " Heading ")

$d1=abs($headpos - $zipos)

If abs($headpos - $zielheadpos) < 180 Then

MsgBox(0, "Heading", "right" &$d1)

Else

MsgBox(0, "Heading", "left"&$d1)

EndIf

EndFunc ; ######## heading

[andybiochem]

...perhaps there is a better way?

Maybe not better per se, but shorter....

replace:

If ControlCommand($Prog_Title, "", $debugon, "IsChecked") = 1 Then
        $debug = 1
    Else
        $debug = 0
    EndIf

with this:

$debug = 0
    If GUICtrlRead($debugon) = 1 Then $debug = 1