Yes / No question

Bert · February 14, 2006

I know I should know this....but I still get confused!

I made a program that streamlines a program I have to use. I wanted to put in a safety check so that if the information was entered in wrong, the user could fix it. I tried to do this with a function and using a case statement inside it. The problem is, the script is getting stuck.

To put it in pseudo code:

1. User puts in company code via input box

2. User puts in Cost center via input box

3. msgbox ask is the entries correct. If incorrect, starts again at step 1. If correct, goto step 4.

4. msgbox ask if you want to save input information from steps 1 and 2

5. If 4 is yes, saves data to AME.ini, then runs _deploy()

6. If 4 is no, runs _deploy()

func _deploy()
_inputCC()
local $qst1
while 1
   select
    case $qst1 = 7  
         $ccode= inputbox("Company code","Put in the company code the PC will be assigned to.", "", " M")
         $ccenter= inputbox("Cost Center","Put in the Cost Center the PC will be assigned to.", "", " M")
         
    case $qst1 = 6 
         $qst2=msgbox(4, "Save information?", "Do you want to save the Cost Center" & @CRLF _ 
                                   &"and Bank number information?")
          if $qst2 = 6 then 
             iniwrite("AME.ini","settings", "code", $ccode)
             iniwrite("AME.ini","settings", "center", $ccenter)
             _deploy2()
          endif 
          if $qst2 = 7 then _deploy2()
    endselect
wend      
endfunc

func _inputCC()
    $ccode= inputbox("Company code","Put in the company code the PC will be assigned to.", "", " M")
    $ccenter= inputbox("Cost Center","Put in the Cost Center the PC will be assigned to.", "", " M")
    $qst1=msgbox(4, "Correct?", "Company code:"& $ccode &""& @CRLF &"Cost Center:"& $ccenter & @CRLF &""& @CRLF &"Is this correct?")
endfunc

If you need to see the entire script:

CODE

#Include <Constants.au3>

#Include <GUIConstants.au3>

AutoItSetOption("TrayIconDebug", 1) ;debug is on

global $ccode

global $ccenter

$main_gui = guicreate("What do you want to do?", 235, 230, -1, -1, -1, $WS_EX_TOPMOST)

$button1 = guictrlcreatebutton("1. Deploy new PC", 20, 20, 200, 30)

$button2 = guictrlcreatebutton("2. Deploy new PC using saved data", 20, 70, 200, 30)

$button3 = guictrlcreatebutton("3. DECOM PC", 20, 120, 200, 30)

$button4 = guictrlcreatebutton("4. Run AME Manually", 20, 170, 200, 30)

$menu=GUICtrlCreateMenu("&Options")

$menuItem1=GUICtrlCreateMenuitem("&Tech ID", $menu)

$menuItem2=GUICtrlCreateMenuitem("&Holding Site IP", $menu)

$menuItem3=GUICtrlCreateMenuitem("Holding &Site Client RACF", $menu)

$menuItem4=GUICtrlCreateMenuitem("Holding &Site Bank number", $menu)

$menuItem5=GUICtrlCreateMenuitem("Holding &Site Cost Center", $menu)

$menu2=GUICtrlCreateMenu("S&etup Wizard")

$menuItemB1=GUICtrlCreateMenuitem("&Run Wizard", $menu2)

if iniread("AME.ini","settings", "wizard", "") = 0 then

$qst = msgbox(4, "Need help with the setup wizard?", "Do you wish to open the help file for AME?")

_wizard()

endif

GUISetState()

while 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

ExitLoop

Case $msg = $button1 ;new PC

guidelete($main_gui)

_deploy()

Case $msg = $button2 ;saved

guidelete($main_gui)

_deploy3()

Case $msg = $button3 ;Decom

guidelete($main_gui)

_decom()

Case $msg = $button4 ;manually

guidelete($main_gui)

run("ARTool.exe")

WinWaitActive("ARGIS made EASY - Ver: 1.115")

winmove("ARGIS made EASY - Ver: 1.115", "Select a value",0,0)

exit

Case $msg = $menuItem1