PureBasic Forums - English

Posted: **Tue May 21, 2024 8:45 am**

I am new to PB.
My primary language is not US/UK. I am using Google Translate.

I add 4 checkboxes to window. How to validate the 4 checkboxes if all of them are not checked.
Thanks.

Posted: **Tue May 21, 2024 8:53 am**

What do you mean by "validate"? Could mean anything.

Posted: **Tue May 21, 2024 9:01 am**

Code: Select all

If (cb1 ! #PB_Checkbox_Checked) And If (cb2 ! #PB_Checkbox_Checked) And If (cb3 ! #PB_Checkbox_Checked) And If (cb4 ! #PB_Checkbox_Checked)
MessageRequester("infor", "Please select one Checbox at least", #PB_MessageRequester_Info)
EndIf

Does PB support this ?

Posted: **Tue May 21, 2024 9:08 am**

Code: Select all

  If OpenWindow(0, 0, 0, 270, 160, "CheckBoxGadgets Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    
    CheckBoxGadget(0, 10,  10, 250, 20, "CheckBox 1") : SetGadgetState(0,1)
    CheckBoxGadget(1, 10,  40, 250, 20, "CheckBox 2")
    CheckBoxGadget(2, 10,  70, 250, 20, "CheckBox 3")
    CheckBoxGadget(3, 10, 100, 250, 20, "CheckBox 4")
    
    
    Repeat
      
      If Not GetGadgetState(0) And Not GetGadgetState(1) And Not GetGadgetState(2) And Not GetGadgetState(3)
        Debug ("All Checks off")
        End
      EndIf
      
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

Posted: **Tue May 21, 2024 9:15 am**

hoangdiemtinh wrote: Tue May 21, 2024 9:01 am

Code: Select all

If (cb1 ! #PB_Checkbox_Checked) And If (cb2 ! #PB_Checkbox_Checked) And If (cb3 ! #PB_Checkbox_Checked) And If (cb4 ! #PB_Checkbox_Checked)
MessageRequester("infor", "Please select one Checbox at least", #PB_MessageRequester_Info)
EndIf

Does PB support this ?

Code: Select all

If (GetGadgetState(cb1) <> #PB_Checkbox_Checked) And 
  (GetGadgetState(cb2) <> #PB_Checkbox_Checked) And
  (GetGadgetState(cb3) <> #PB_Checkbox_Checked) And 
  (GetGadgetState(cb4) <> #PB_Checkbox_Checked)
  MessageRequester("infor", "Please select one Checbox at least", #PB_MessageRequester_Info)
EndIf

Posted: **Wed May 22, 2024 5:11 pm**

Or less verbose:

Code: Select all

...
  If Not(GetGadgetState(0) + GetGadgetState(1) + GetGadgetState(2) + GetGadgetState(3))
...

Posted: **Wed May 22, 2024 6:16 pm**

Code: Select all

GetGadgetState(cb1) & #PB_CheckBox_Unchecked

edit: this doesn't work because #PB_CheckBox_Unchecked=0 and will always return 0

Posted: **Thu May 23, 2024 8:33 am**

Code: Select all

If Not (GetGadgetState(0) | GetGadgetState(1) | GetGadgetState(2) | GetGadgetState(3) & #PB_Checkbox_Checked)

Posted: **Thu May 23, 2024 8:36 am**

AZJIO wrote: Wed May 22, 2024 6:16 pm
Code: Select all
GetGadgetState(cb1) & #PB_CheckBox_Unchecked

This does not work because the result is always zero.

Posted: **Thu May 23, 2024 9:11 am**

Hi

#1 :

Code: Select all

If OpenWindow(0, 0, 0, 270, 160, "CheckBoxGadgets Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    
    CheckBoxGadget(0, 10,  10, 250, 20, "CheckBox 0") 
    CheckBoxGadget(1, 10,  40, 250, 20, "CheckBox 1")
    CheckBoxGadget(2, 10,  70, 250, 20, "CheckBox 2")
    CheckBoxGadget(3, 10, 100, 250, 20, "CheckBox 3")

    Repeat
      Select WaitWindowEvent(1)
        Case #PB_Event_CloseWindow
          Quit = 1          
        
        Case #PB_Event_Gadget
            Select EventGadget()
              Case 0 To 3
                If GetGadgetState(EventGadget()) & #PB_Checkbox_Checked 
                  MessageRequester("Info","Gadget "+Str(EventGadget())+" Checked",#PB_MessageRequester_Ok)
                  For n = 0 To 3
                    SetGadgetState(n,0)
                  Next  
              EndIf
            EndSelect 
        EndSelect      
    Until Quit = 1
  EndIf

#2 :

Code: Select all

If OpenWindow(0, 0, 0, 270, 160, "CheckBoxGadgets Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    
    CheckBoxGadget(0, 10,  10, 250, 20, "CheckBox 0") 
    CheckBoxGadget(1, 10,  40, 250, 20, "CheckBox 1")
    CheckBoxGadget(2, 10,  70, 250, 20, "CheckBox 2")
    CheckBoxGadget(3, 10, 100, 250, 20, "CheckBox 3")
    AddWindowTimer(0,125,100)
    Repeat
      Select WaitWindowEvent(1)
        Case #PB_Event_CloseWindow
          Quit = 1          
        
        Case #PB_Event_Timer
          If checkflag = 1
            checkflag = 0
             For n = 0 To 3
              SetGadgetState(n,0)
            Next  
          EndIf
            
        Case #PB_Event_Gadget
            Select EventGadget()
              Case 0 To 3
                If GetGadgetState(EventGadget()) & #PB_Checkbox_Checked 
                  MessageRequester("Info","Gadget "+Str(EventGadget())+" Checked",#PB_MessageRequester_Ok)
                  checkflag = 1
                EndIf
            EndSelect 
        EndSelect      
    Until Quit = 1
  EndIf

PureBasic Forums - English

Validate the 4 checkboxes if all of them are not checked

Validate the 4 checkboxes if all of them are not checked

Re: Validate the 4 checkboxes if all of them are not checked

Re: Validate the 4 checkboxes if all of them are not checked

Re: Validate the 4 checkboxes if all of them are not checked

Re: Validate the 4 checkboxes if all of them are not checked

Re: Validate the 4 checkboxes if all of them are not checked

Re: Validate the 4 checkboxes if all of them are not checked

Re: Validate the 4 checkboxes if all of them are not checked

Re: Validate the 4 checkboxes if all of them are not checked

Re: Validate the 4 checkboxes if all of them are not checked