Problem with Checkboxes

[Rogue5099]

I want a GUI that will allow people to check them then it save what they check to add together parameters. I tried just useing a String but I don't think I grasped the adding to string concept. So I did a bunch of If statements. Below is what I have if anyone can make it better or even work that would be great. I keep getting the Else "Error". I put that in to test but thats all I get.

expandcollapse popup

#include <GuiCopar3tants.au3>
Opt("GUIOnEventMode", 1)

Global $CommandLine = ""

    GUICreate("Parameters", 300, 130, -1, @DesktopHeight/10)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    GUICtrlSetFont(-1, 16, 600)
    $par1 = GUICtrlCreateCheckbox("-par1", 10, 10, 250, 25)
    $par2 = GUICtrlCreateCheckbox("-par2", 10, 30, 250, 25)
    $par3 = GUICtrlCreateCheckbox("-par3", 10, 50, 250, 25)
    $par4 = GUICtrlCreateCheckbox("-par4", 10, 70, 290, 25)
    $ok = GUICtrlCreateButton("Ok", 115, 100, 80, 25)
    GUICtrlSetOnEvent(-1, "OK")
    GUISetState (@SW_SHOW) 
    
While 1
    Sleep(1000)
WEnd
    
    Func OK()
        GUICtrlGetState($par1)
        GUICtrlGetState($par2)
        GUICtrlGetState($par3)
        GUICtrlGetState($par4)
            If ($par1 = $GUI_CHECKED) And ($par2 = $GUI_UNCHECKED And $par3 = $GUI_UNCHECKED And $par4 = $GUI_UNCHECKED) Then 
                $CommandLine = "-par1"
            ElseIf ($par1 And $par2 = $GUI_CHECKED) And ($par3 And $par4 = $GUI_UNCHECKED) Then 
                $CommandLine = "-par1 -par2"            
            ElseIf ($par1 And $par2 And $par3 = $GUI_CHECKED) and ($par4 = $GUI_UNCHECKED) Then 
                $CommandLine = "-par1 -par2 -par3"          
            ElseIf ($par1 And $par2 And $par4 = $GUI_CHECKED) and ($par3 = $GUI_UNCHECKED) Then 
                $CommandLine = "-par1 -par2 -par4"          
            ElseIf ($par1 And $par4 = $GUI_CHECKED) and ($par2 And $par3 = $GUI_UNCHECKED) Then 
                $CommandLine = "-par1 -par4"            
            ElseIf ($par1 And $par3 = $GUI_CHECKED) and ($par2 And $par4 = $GUI_UNCHECKED) Then 
                $CommandLine = "-par1 -par3"            
            ElseIf ($par1 And $par3 And $par4 = $GUI_CHECKED) and ($par2 = $GUI_UNCHECKED) Then 
                $CommandLine = "-par1 -par3 -par4"          
            ElseIf ($par2 = $GUI_CHECKED) And ($par1 And $par3 And $par4 = $GUI_UNCHECKED) Then 
                $CommandLine = "-par2"          
            ElseIf ($par2 And $par3 = $GUI_CHECKED) and ($par1 And $par4 = $GUI_UNCHECKED) Then 
                $CommandLine = "-par2 -par3"            
            ElseIf ($par2 And $par3 And $par4 = $GUI_CHECKED) And ($par1 = $GUI_UNCHECKED) Then 
                $CommandLine = "-par2 -par3 -par4"
            ElseIf ($par2 And $par4 = $GUI_CHECKED) And ($par1 And $par3 = $GUI_UNCHECKED) Then 
                $CommandLine = "-par2 -par4"
            ElseIf ($par3 = $GUI_CHECKED) And ($par1 And $par2 And $par4 = $GUI_UNCHECKED) Then 
                $CommandLine = "-par3"
            ElseIf ($par3 And $par4 = $GUI_CHECKED) and ($par1 And $par2 = $GUI_UNCHECKED) Then 
                $CommandLine = "-par3 -par4"
            ElseIf ($par4 = $GUI_CHECKED) And ($par1 And $par2 And $par3 = $GUI_UNCHECKED) Then 
                $CommandLine = "-par4"
            ElseIf ($par1 And $par2 And $par3 And $par4 = $GUI_CHECKED) Then 
                $CommandLine = "-par1 -par2 -par3 -par4"
            ElseIf ($par4 And $par1 And $par2 And $par3 = $GUI_UNCHECKED) Then 
                $CommandLine = ""
            Else
                $CommandLine = "Error"
            EndIf
            
                MsgBox($GUI_CHECKED, "Command", $CommandLine)
    EndFunc

    Func _Exit()
        Exit
    EndFunc

[Authenticity]

Something like this?

expandcollapse popup

#include <GuiConstantsEx.au3>
Opt("GUIOnEventMode", 1)

GUICreate("Parameters", 300, 130, -1, @DesktopHeight/10)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUICtrlSetFont(-1, 16, 600)

$sCheckState = _SetCheck()

$par1 = GUICtrlCreateCheckbox("-par1", 10, 10, 250, 25)
GUICtrlSetState(-1, StringMid($sCheckState, 1, 1))
$par2 = GUICtrlCreateCheckbox("-par2", 10, 30, 250, 25)
GUICtrlSetState(-1, StringMid($sCheckState, 2, 1))
$par3 = GUICtrlCreateCheckbox("-par3", 10, 50, 250, 25)
GUICtrlSetState(-1, StringMid($sCheckState, 3, 1))
$par4 = GUICtrlCreateCheckbox("-par4", 10, 70, 290, 25)
GUICtrlSetState(-1, StringMid($sCheckState, 4, 1))
_SetCheck()

$ok = GUICtrlCreateButton("Ok", 115, 100, 80, 25)
GUICtrlSetOnEvent(-1, "OK")
GUISetState ()
   
While 1
    Sleep(40)
WEnd
   
Func OK()
    Local $sKey = 'HKLM\software\AABBCC'
    Local $sRawCheck = ''
    
    For $i = 1 To 4
        If BitAND(GUICtrlRead(Eval('par' & $i)), $GUI_CHECKED) = $GUI_CHECKED Then
            $sRawCheck &= '1'
        Else
            $sRawCheck &= '4'
        EndIf
    Next
    RegWrite($sKey, 'RawCheck', 'REG_SZ', $sRawCheck)
EndFunc

Func _Exit()
    Exit
EndFunc

Func _SetCheck()
    Local $sKey = 'HKLM\software\AABBCC'
    Local $sRawCheck = RegRead($sKey, 'RawCheck')
    If $sRawCheck = '' Then
        RegWrite($sKey, 'RawCheck', 'REG_SZ', '4444')
        Return '4444'
    EndIf
    
    Return $sRawCheck
EndFunc

[Valuater]

; Actually, It is more preferable to use this Global Array than use eval()

Global $par[5]

$par[1] = GUICtrlCreateCheckbox("-par1", 10, 10, 250, 25)
$par[2] = GUICtrlCreateCheckbox("-par2", 10, 30, 250, 25)
$par[3] = GUICtrlCreateCheckbox("-par3", 10, 50, 250, 25)
$par[4] = GUICtrlCreateCheckbox("-par4", 10, 70, 290, 25)

8)

[Rogue5099]

I like how it saves the information so i will keep this format but I want to add the checkboxes once saved to insert/remove there parameter into a string.

i.e. 1 and second checkbox checked = "-par1 -par2"

i.e. 1 and 4th checkbox checked = "-par1 -par4"

Edited March 31, 2009 by rogue5099

[ResNullius]

This simplifies things assuming all your checkboxes are created sequentially, and their text is equal to the actual parameters they represent

#include <GuiConstantsEx.au3>
Opt("GUIOnEventMode", 1)

Global $CommandLine = ""

GUICreate("Parameters", 300, 130, -1, @DesktopHeight / 10)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUICtrlSetFont(-1, 16, 600)
$par1 = GUICtrlCreateCheckbox("-par1", 10, 10, 250, 25)
$par2 = GUICtrlCreateCheckbox("-par2", 10, 30, 250, 25)
$par3 = GUICtrlCreateCheckbox("-par3", 10, 50, 250, 25)
$par4 = GUICtrlCreateCheckbox("-par4", 10, 70, 290, 25)
$ok = GUICtrlCreateButton("Ok", 115, 100, 80, 25)
GUICtrlSetOnEvent(-1, "OK")
GUISetState(@SW_SHOW)

While 1
    Sleep(1000)
WEnd

Func OK()
    $CommandLine = ""
    For $i = $par1 To $par4
        If GUICtrlRead($i) = $GUI_CHECKED Then $CommandLine &= GUICtrlRead($i, 1) & " "
    Next

    MsgBox(4096+64, "Command", $CommandLine)
EndFunc ;==>OK


Func _Exit()
    Exit
EndFunc ;==>_Exit

Edited March 31, 2009 by ResNullius

[Valuater]

Not bad Res... Short and Sweet!!

8)

[Rogue5099]

This simplifies things assuming all your checkboxes are created sequentially, and their text is equal to the actual parameters they represent

#include <GuiConstantsEx.au3>
Opt("GUIOnEventMode", 1)

Global $CommandLine = ""

GUICreate("Parameters", 300, 130, -1, @DesktopHeight / 10)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUICtrlSetFont(-1, 16, 600)
$par1 = GUICtrlCreateCheckbox("-par1", 10, 10, 250, 25)
$par2 = GUICtrlCreateCheckbox("-par2", 10, 30, 250, 25)
$par3 = GUICtrlCreateCheckbox("-par3", 10, 50, 250, 25)
$par4 = GUICtrlCreateCheckbox("-par4", 10, 70, 290, 25)
$ok = GUICtrlCreateButton("Ok", 115, 100, 80, 25)
GUICtrlSetOnEvent(-1, "OK")
GUISetState(@SW_SHOW)

While 1
    Sleep(1000)
WEnd

Func OK()
    $CommandLine = ""
    For $i = $par1 To $par4
        If GUICtrlRead($i) = $GUI_CHECKED Then $CommandLine &= GUICtrlRead($i, 1) & " "
    Next

    MsgBox(4096+64, "Command", $CommandLine)
EndFunc;==>OK


Func _Exit()
    Exit
EndFunc;==>_Exit

That is excellant!!! Exactly what I was trying to accomplish and much much more short! Thank you!