Verify radio button selected

[McGyver]

I am trying to force a radio button to be selected, but am not sure how to verify that a button is selected, and if one is not how to send a message saying no button selected and then go back to waiting for a button selection. Any help is appreciated.

#include <GUIConstants.au3>

; Setup Menu Window

GuiCreate("Account", 370, 180)

GuiCtrlCreateLabel("Select Region", 10, 10)

GuiSetIcon(" ", 0)

; Create Selection ButtonR1

$Button1r1 = GUICtrlCreateButton("Select", 120, 70, 75, 20)

; Create Radio Buttons

GuiCtrlSetState(-1, $GUI_CHECKED)

$radio1 = GuiCtrlCreateRadio("1 Region", 15, 25, 100)

$radio2 = GuiCtrlCreateRadio("2 Region", 15, 45, 100)

$radio3 = GuiCtrlCreateRadio("3 Region", 15, 65, 100)

$radio4 = GuiCtrlCreateRadio("4 Region", 15, 85, 100)

$radio5 = GuiCtrlCreateRadio("5 Region", 15, 105, 100)

$radio6 = GuiCtrlCreateRadio("6 Region", 15, 125, 100)

$radio7 = GuiCtrlCreateRadio("7 Region", 15, 145, 100)

GUICtrlCreateGroup ("",-99,-99,1,1) ;close group

GUISetState(@SW_SHOW)

; Process region and set E-mail addresses

func region_select()

local $To = ''

$radio1_state = GUICtrlRead($radio1)

$radio2_state = GUICtrlRead($radio2)

$radio3_state = GUICtrlRead($radio3)

$radio4_state = GUICtrlRead($radio4)

$radio5_state = GUICtrlRead($radio5)

$radio6_state = GUICtrlRead($radio6)

$radio7_state = GUICtrlRead($radio7)

Select

Case $radio1_state = $GUI_CHECKED

$To = '1'

Case $radio2_state = $GUI_CHECKED

$To = '2'

Case $radio3_state = $GUI_CHECKED

$To = '3'

Case $radio4_state = $GUI_CHECKED

$To = '4'

Case $radio5_state = $GUI_CHECKED

$To = '5'

Case $radio6_state = $GUI_CHECKED

$To = '6'

Case $radio7_state = $GUI_CHECKED

$To = '7'

EndSelect

Return $To

EndFunc

[Hawkwing]

You could check all of them with $GUI_UNCHECKED, or you could set a variable that is initially "0" and _select() changes it to "1". I myself would totally prefer the second way.

[GEOSoft]

#include <GUIConstants.au3>

; Setup Menu Window
GuiCreate("Account", 370, 180)
GuiCtrlCreateLabel("Select Region", 10, 10)
GuiSetIcon(" ", 0)

; Create Selection ButtonR1
$Button1r1 = GUICtrlCreateButton("Select", 120, 70, 75, 20)

; Create Radio Buttons
GuiCtrlSetState(-1, $GUI_CHECKED)
$radio1 = GuiCtrlCreateRadio("1 Region", 15, 25, 100)
$radio2 = GuiCtrlCreateRadio("2 Region", 15, 45, 100)
$radio3 = GuiCtrlCreateRadio("3 Region", 15, 65, 100)
$radio4 = GuiCtrlCreateRadio("4 Region", 15, 85, 100)
$radio5 = GuiCtrlCreateRadio("5 Region", 15, 105, 100)
$radio6 = GuiCtrlCreateRadio("6 Region", 15, 125, 100)
$radio7 = GuiCtrlCreateRadio("7 Region", 15, 145, 100)
GUICtrlCreateGroup ("",-99,-99,1,1) ;close group
GUISetState(@SW_SHOW)

; Process region and set E-mail addresses
func region_select()
    $iRegion = 0
    For $i = $Radio1 To $Radio7
        $iRegion += 1
        If GUICtrlRead($i) = 1 Then Return $iRegion
    Next
EndFunc