Jump to content

Multi Tab problems

tonyjh
 Share

Recommended Posts

tonyjh Seeker

tonyjh

Posted
Posted

I'm having a problem constructing my program from an example. When I go from tab to tab, I want it to execute only the radio button on the tab I currently am choosing from. The first one is the example I copied, but it gives a message rather than execute and executable form the radio button selection. I need the message box in this example replaced with my radio button selection executables. Can anyone help me with this problem.

Multitab example.au3

My mullti tab program.au3

Link to comment
Share on other sites
Skruge Universalist

Skruge

Posted
Posted

I'm having a problem constructing my program from an example. When I go from tab to tab, I want it to execute only the radio button on the tab I currently am choosing from. The first one is the example I copied, but it gives a message rather than execute and executable form the radio button selection. I need the message box in this example replaced with my radio button selection executables. Can anyone help me with this problem.

First off, the example you have treats each group of radio buttons separately so you can have one item selected on each page (and no way to deselect). See this thread for a fix.

Second, the "message" you get is a list of syntax errors. You can't declare a function in the middle of a select statement/while loop. Put it at the end, after the select statement and the while loop are properly ended.

[font="Tahoma"]"Tougher than the toughies and smarter than the smarties"[/font]

Link to comment
Share on other sites
tonyjh Seeker

tonyjh

Posted
  • Author
Posted

First off, the example you have treats each group of radio buttons separately so you can have one item selected on each page (and no way to deselect). See this thread for a fix.

Second, the "message" you get is a list of syntax errors. You can't declare a function in the middle of a select statement/while loop. Put it at the end, after the select statement and the while loop are properly ended.

Thank you for your reply.....

If you look at the example program, when you select a radio button, then go to tab 2 and select a radio button, and go back and look at tab one, you find the radio button in no longer selected. That is exactly what I want to do.

My obstacle is getting the it to run an executable from whatever tab I choose, rather than a message box. No matter what I try, (and it is me, I'm just not familiar enough with the language) I can't seem to get it to run the radio button I choose from the executable list below. I have not got to the point where I can see the menu yet... I am down to two errors.... but I am sure I am going about it all wrong. Can you tell me if I am heading in the right direction?

Thanks

Tony

Multitab example.au3

My mullti tab program.au3

Link to comment
Share on other sites
Skruge Universalist

Skruge

Posted
Posted

Thank you for your reply.....

If you look at the example program, when you select a radio button, then go to tab 2 and select a radio button, and go back and look at tab one, you find the radio button in no longer selected. That is exactly what I want to do.

My obstacle is getting the it to run an executable from whatever tab I choose, rather than a message box. No matter what I try, (and it is me, I'm just not familiar enough with the language) I can't seem to get it to run the radio button I choose from the executable list below. I have not got to the point where I can see the menu yet... I am down to two errors.... but I am sure I am going about it all wrong. Can you tell me if I am heading in the right direction?

Thanks

Tony

I didn't run the example, because I've seen it and fixed it before. I just corrected the syntax errors in your code and the buttons weren't clearing from one tab to the other.

Your tabs aren't built correctly, and the error I pointed out (functions declared in the middle of a Select statement/While loop) has gotten worse in your second post.

Study up on the proper declaration of functions, and use AU3Check/Tidy to help find these errors.

Opt("MustDeclareVars", 1)
Global $aRadio[65] = [64], $Radio, $Gui, $Tab1, $Tab2, $Tab3
GUICreate("     Robots", 212, 650, 1046, 29, -1)
Local $go = GUICtrlCreateButton("OK", 15, 615, 75, 25, 0x0F00)
Local $tab = GUICtrlCreateTab(8, 8, 196, 640)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$Tab1 = GUICtrlCreateTabItem("Gen")
$aRadio[01] = GUICtrlCreateRadio(" New James' Zap", 15, 40, 180, 20)
$aRadio[02] = GUICtrlCreateRadio(" New Greg's Zap", 15, 60, 180, 20)
$aRadio[03] = GUICtrlCreateRadio(" New Tony's Zap", 15, 80, 180, 20)
$aRadio[04] = GUICtrlCreateRadio(" Change James' Zap", 15, 110, 180, 20)
$aRadio[05] = GUICtrlCreateRadio(" Change Greg's Zap", 15, 130, 180, 20)
$aRadio[06] = GUICtrlCreateRadio(" Change Tony's Zap", 15, 150, 180, 20)
$aRadio[07] = GUICtrlCreateRadio(" Change James' Zap NC", 15, 180, 180, 20)
$aRadio[08] = GUICtrlCreateRadio(" Change Greg's Zap NC", 15, 200, 180, 20)
$aRadio[09] = GUICtrlCreateRadio(" Change Tony's Zap NC", 15, 220, 180, 20)
$aRadio[10] = GUICtrlCreateRadio("Copy PN Excel to Proval", 15, 250, 180, 20)
$aRadio[11] = GUICtrlCreateRadio("Copy PN Excel to Lotus", 15, 270, 180, 20)
$aRadio[12] = GUICtrlCreateRadio("Paste to Ascend", 15, 290, 190, 20)
$aRadio[13] = GUICtrlCreateRadio("Copy PN FS to Proval", 15, 310, 180, 20)
$aRadio[14] = GUICtrlCreateRadio("Copy PN to Geo Media", 15, 330, 180, 20)
$aRadio[15] = GUICtrlCreateRadio("Lease Present Memo", 15, 360, 180, 20)
$aRadio[16] = GUICtrlCreateRadio("Listing Present Memo", 15, 380, 180, 20)
$aRadio[17] = GUICtrlCreateRadio("Add a Memo", 15, 400, 180, 20)
$aRadio[18] = GUICtrlCreateRadio("Open Permit Screen", 15, 420, 180, 20)
$aRadio[19] = GUICtrlCreateRadio("View Sales History", 15, 440, 180, 20)
$aRadio[20] = GUICtrlCreateRadio("BLA Memo Acres", 15, 470, 180, 20)
$aRadio[21] = GUICtrlCreateRadio("BLA Memo SF", 15, 490, 180, 20)
$aRadio[22] = GUICtrlCreateRadio("Economic Unit Memo", 15, 510, 180, 20)
$aRadio[23] = GUICtrlCreateRadio("New Parcel Settup", 15, 530, 180, 20)
$aRadio[24] = GUICtrlCreateRadio("Land Size Memo", 15, 550, 180, 20)
$aRadio[25] = GUICtrlCreateRadio("Seg Memo", 15, 570, 180, 20)

$Tab2 = GUICtrlCreateTabItem("Misc Imps")
$aRadio[26] = GUICtrlCreateRadio(" Asphalt", 15, 40, 180, 20)
$aRadio[27] = GUICtrlCreateRadio(" Flatwork", 15, 60, 180, 20)
$aRadio[28] = GUICtrlCreateRadio(" Canopy Low", 15, 80, 180, 20)
$aRadio[29] = GUICtrlCreateRadio(" Canopy Ave", 15, 100, 180, 20)
$aRadio[30] = GUICtrlCreateRadio(" Canopy Good", 15, 120, 180, 20)
$aRadio[31] = GUICtrlCreateRadio(" Canopy High", 15, 140, 180, 20)
$aRadio[32] = GUICtrlCreateRadio(" Trash Enclosure", 15, 160, 180, 20)
$aRadio[33] = GUICtrlCreateRadio(" Miscellaneous", 15, 180, 180, 20)
$aRadio[34] = GUICtrlCreateRadio(" Add Misc Imp", 15, 200, 180, 20)
$aRadio[35] = GUICtrlCreateRadio(" CLF 4' TR", 15, 230, 180, 20)
$aRadio[36] = GUICtrlCreateRadio(" CLF 4' Slats", 15, 250, 180, 20)
$aRadio[37] = GUICtrlCreateRadio(" CLF 6' TR", 15, 270, 180, 20)
$aRadio[38] = GUICtrlCreateRadio(" CLF 6' Slats", 15, 290, 180, 20)
$aRadio[39] = GUICtrlCreateRadio(" CLF 6' TR 3SBW", 15, 310, 180, 20)
$aRadio[40] = GUICtrlCreateRadio(" Lights Single Lamp", 15, 340, 180, 20)
$aRadio[41] = GUICtrlCreateRadio(" Lights Double Lamp", 15, 360, 180, 20)
$aRadio[42] = GUICtrlCreateRadio(" Lights triple Lamp", 15, 380, 180, 20)
$aRadio[43] = GUICtrlCreateRadio(" Lights Quad Lamp", 15, 400, 180, 20)
$aRadio[44] = GUICtrlCreateRadio(" Loading Dock", 15, 430, 180, 20)
$aRadio[45] = GUICtrlCreateRadio(" Loading Well", 15, 450, 180, 20)
$aRadio[46] = GUICtrlCreateRadio(" Loading Well Walls", 15, 470, 180, 20)
$aRadio[47] = GUICtrlCreateRadio(" CB or Masonry Walls", 15, 490, 180, 20)
$aRadio[48] = GUICtrlCreateRadio(" Wrought Iron Fence", 15, 510, 180, 20)
$aRadio[49] = GUICtrlCreateRadio(" Solid Board Fence", 15, 530, 180, 20)
$aRadio[50] = GUICtrlCreateRadio(" Stacked Blk Wall", 15, 550, 180, 20)
$aRadio[51] = GUICtrlCreateRadio(" Concrete Wall", 15, 570, 180, 20)

$Tab3 = GUICtrlCreateTabItem("Fuel Misc Imps")
$aRadio[52] = GUICtrlCreateRadio(" Asphalt", 15, 40, 180, 20)
$aRadio[53] = GUICtrlCreateRadio(" Flatwork", 15, 60, 180, 20)
$aRadio[54] = GUICtrlCreateRadio(" Fuel Canopy", 15, 80, 180, 20)
$aRadio[55] = GUICtrlCreateRadio(" Concrete Over Tanks", 15, 100, 180, 20)
$aRadio[56] = GUICtrlCreateRadio(" Drive Slab", 15, 120, 180, 20)
$aRadio[57] = GUICtrlCreateRadio(" Excavation", 15, 140, 180, 20)
$aRadio[58] = GUICtrlCreateRadio(" Electrical", 15, 160, 180, 20)
$aRadio[59] = GUICtrlCreateRadio(" UG Tanks", 15, 180, 180, 20)
$aRadio[60] = GUICtrlCreateRadio(" Valves, Pumps & LMS", 15, 200, 180, 20)
$aRadio[61] = GUICtrlCreateRadio(" Piping", 15, 220, 180, 20)
$aRadio[62] = GUICtrlCreateRadio(" Trash Enclosure", 15, 240, 180, 20)
$aRadio[63] = GUICtrlCreateRadio(" Lights Single Lamp", 15, 260, 180, 20)
$aRadio[64] = GUICtrlCreateRadio(" Lights Double Lamp", 15, 280, 180, 20)
GUICtrlCreateTabItem("")
$Radio = 0

For $iX = 1 To $aRadio[0]
    GUICtrlSetFont($aRadio[$iX], 10, 800, 2, "Arial")
    GUICtrlSetColor($aRadio[$iX], 0x800000)
    GUICtrlSetBkColor($aRadio[$iX], 0xC0DCC0)
Next

GUISetState(@SW_SHOW)

While 1
    Local $msg = GUIGetMsg()
    Select
        Case $msg = -3
            Exit
        Case $msg = $go
            Go()
        Case $msg >= $aRadio[1] And $msg <= $aRadio[64]
            GUICtrlSetState($Radio, 4)
            GUICtrlSetState($msg, 5);$GUI_CHECKED)
            $Radio = $msg
    EndSelect
WEnd

Func Go()
    Switch ($Radio)
        Case 01
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\NewZapTH.exe")
        Case 02
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\NewZapGH.exe")
        Case 03
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\NewZapB$.exe")
        Case 04
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\New_Seg_Memo.exe")
        Case 05
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Lease_Memo.exe")
        Case 06
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Copy_PN_from_Excel_to_Proval.exe")
        Case 07
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Copy_PN_from_Excel_to_Lotus.exe")
        Case 08
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Copy_PN_to_Ascend.exe")
        Case 09
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\EU_Memo.exe")
        Case 10
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\test.exe")
        Case 11
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Asphalt.exe")
        Case 12
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Flatwork.exe")
        Case 13
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\CB_Wall.exe")
        Case 14
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\SB_Wall.exe")
        Case 15
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\CLF_4TR.exe")
        Case 16
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\4Slats.exe")
        Case 17
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\CLF_6TR.exe")
        Case 18
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\6Slats.exe")
        Case 19
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\CLF_6TR3sbw.exe")
        Case 20
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Light_SL.exe")
        Case 21
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Light_DL.exe")
        Case 22
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Light_TL.exe")
        Case 23
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Light_QL.exe")
        Case 24
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\SB_Fence.exe")
        Case 25
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Loading_Dock.exe")
        Case 26
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Loading_Well.exe")
        Case 27
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Loading_Well_Walls.exe")
        Case 28
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Trash_Enclosure.exe")
        Case 29
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\WI_Fence.exe")
        Case 30
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Canopy_Low.exe")
        Case 31
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Copy_PN_from_FS_to_Proval.exe")
        Case 32
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Land_Size.exe")
        Case 33
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\BLA_Memo_sf.exe")
        Case 34
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\BLA_Memo_ac.exe")
        Case 35
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\changeZaptoGH2008.exe")
        Case 36
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\changeZaptoBJM2008.exe")
        Case 37
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\changeZaptoTH2008.exe")
        Case 38
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\changeZaptoBJM2008nc.exe")
        Case 39
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\changeZaptoGH2008NC.exe")
        Case 40
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\changeZaptoTH2008nc.exe")
        Case 41
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Asphalt.exe")
        Case 42
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Flatwork.exe")
        Case 43
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Canopy_High.exe")
        Case 44
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Conc_over_tanks.exe")
        Case 45
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Driveslab.exe")
        Case 46
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Excavation.exe")
        Case 47
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Electrical.exe")
        Case 48
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\UG_Tanks.exe")
        Case 49
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\VP_LMS.exe")
        Case 50
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Trash_Enclosure.exe")
        Case 51
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Piping.exe")
        Case 52
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\LightSL.exe")
        Case 53
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\LightDL.exe")
        Case 54
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Listing_Memo.exe")
        Case 55
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Canopy_Ave.exe")
        Case 56
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Canopy_Good.exe")
        Case 57
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Canopy_High.exe")
        Case 58
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Miscellaneous.exe")
        Case 59
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Add_Misc.exe")
        Case 60
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Add_Memo.exe")
        Case 61
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Permits.exe")
        Case 62
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Sale_History.exe")
        Case 63
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Con_Ret_Wall.exe")
        Case 64
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\new_parcel_settup.exe")
    EndSwitch
EndFunc   ;==>Go
p.s. You can simplify the code even further if you read the EXE names into an array.

Good luck!

[font="Tahoma"]"Tougher than the toughies and smarter than the smarties"[/font]

Link to comment
Share on other sites
tonyjh Seeker

tonyjh

Posted
  • Author
Posted

U Da man Skruge!

That is just what I was looking for..... works good so far.

Thank you very much!

Tony

I didn't run the example, because I've seen it and fixed it before. I just corrected the syntax errors in your code and the buttons weren't clearing from one tab to the other.

Your tabs aren't built correctly, and the error I pointed out (functions declared in the middle of a Select statement/While loop) has gotten worse in your second post.

Study up on the proper declaration of functions, and use AU3Check/Tidy to help find these errors.

Opt("MustDeclareVars", 1)
Global $aRadio[65] = [64], $Radio, $Gui, $Tab1, $Tab2, $Tab3
GUICreate("     Robots", 212, 650, 1046, 29, -1)
Local $go = GUICtrlCreateButton("OK", 15, 615, 75, 25, 0x0F00)
Local $tab = GUICtrlCreateTab(8, 8, 196, 640)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$Tab1 = GUICtrlCreateTabItem("Gen")
$aRadio[01] = GUICtrlCreateRadio(" New James' Zap", 15, 40, 180, 20)
$aRadio[02] = GUICtrlCreateRadio(" New Greg's Zap", 15, 60, 180, 20)
$aRadio[03] = GUICtrlCreateRadio(" New Tony's Zap", 15, 80, 180, 20)
$aRadio[04] = GUICtrlCreateRadio(" Change James' Zap", 15, 110, 180, 20)
$aRadio[05] = GUICtrlCreateRadio(" Change Greg's Zap", 15, 130, 180, 20)
$aRadio[06] = GUICtrlCreateRadio(" Change Tony's Zap", 15, 150, 180, 20)
$aRadio[07] = GUICtrlCreateRadio(" Change James' Zap NC", 15, 180, 180, 20)
$aRadio[08] = GUICtrlCreateRadio(" Change Greg's Zap NC", 15, 200, 180, 20)
$aRadio[09] = GUICtrlCreateRadio(" Change Tony's Zap NC", 15, 220, 180, 20)
$aRadio[10] = GUICtrlCreateRadio("Copy PN Excel to Proval", 15, 250, 180, 20)
$aRadio[11] = GUICtrlCreateRadio("Copy PN Excel to Lotus", 15, 270, 180, 20)
$aRadio[12] = GUICtrlCreateRadio("Paste to Ascend", 15, 290, 190, 20)
$aRadio[13] = GUICtrlCreateRadio("Copy PN FS to Proval", 15, 310, 180, 20)
$aRadio[14] = GUICtrlCreateRadio("Copy PN to Geo Media", 15, 330, 180, 20)
$aRadio[15] = GUICtrlCreateRadio("Lease Present Memo", 15, 360, 180, 20)
$aRadio[16] = GUICtrlCreateRadio("Listing Present Memo", 15, 380, 180, 20)
$aRadio[17] = GUICtrlCreateRadio("Add a Memo", 15, 400, 180, 20)
$aRadio[18] = GUICtrlCreateRadio("Open Permit Screen", 15, 420, 180, 20)
$aRadio[19] = GUICtrlCreateRadio("View Sales History", 15, 440, 180, 20)
$aRadio[20] = GUICtrlCreateRadio("BLA Memo Acres", 15, 470, 180, 20)
$aRadio[21] = GUICtrlCreateRadio("BLA Memo SF", 15, 490, 180, 20)
$aRadio[22] = GUICtrlCreateRadio("Economic Unit Memo", 15, 510, 180, 20)
$aRadio[23] = GUICtrlCreateRadio("New Parcel Settup", 15, 530, 180, 20)
$aRadio[24] = GUICtrlCreateRadio("Land Size Memo", 15, 550, 180, 20)
$aRadio[25] = GUICtrlCreateRadio("Seg Memo", 15, 570, 180, 20)

$Tab2 = GUICtrlCreateTabItem("Misc Imps")
$aRadio[26] = GUICtrlCreateRadio(" Asphalt", 15, 40, 180, 20)
$aRadio[27] = GUICtrlCreateRadio(" Flatwork", 15, 60, 180, 20)
$aRadio[28] = GUICtrlCreateRadio(" Canopy Low", 15, 80, 180, 20)
$aRadio[29] = GUICtrlCreateRadio(" Canopy Ave", 15, 100, 180, 20)
$aRadio[30] = GUICtrlCreateRadio(" Canopy Good", 15, 120, 180, 20)
$aRadio[31] = GUICtrlCreateRadio(" Canopy High", 15, 140, 180, 20)
$aRadio[32] = GUICtrlCreateRadio(" Trash Enclosure", 15, 160, 180, 20)
$aRadio[33] = GUICtrlCreateRadio(" Miscellaneous", 15, 180, 180, 20)
$aRadio[34] = GUICtrlCreateRadio(" Add Misc Imp", 15, 200, 180, 20)
$aRadio[35] = GUICtrlCreateRadio(" CLF 4' TR", 15, 230, 180, 20)
$aRadio[36] = GUICtrlCreateRadio(" CLF 4' Slats", 15, 250, 180, 20)
$aRadio[37] = GUICtrlCreateRadio(" CLF 6' TR", 15, 270, 180, 20)
$aRadio[38] = GUICtrlCreateRadio(" CLF 6' Slats", 15, 290, 180, 20)
$aRadio[39] = GUICtrlCreateRadio(" CLF 6' TR 3SBW", 15, 310, 180, 20)
$aRadio[40] = GUICtrlCreateRadio(" Lights Single Lamp", 15, 340, 180, 20)
$aRadio[41] = GUICtrlCreateRadio(" Lights Double Lamp", 15, 360, 180, 20)
$aRadio[42] = GUICtrlCreateRadio(" Lights triple Lamp", 15, 380, 180, 20)
$aRadio[43] = GUICtrlCreateRadio(" Lights Quad Lamp", 15, 400, 180, 20)
$aRadio[44] = GUICtrlCreateRadio(" Loading Dock", 15, 430, 180, 20)
$aRadio[45] = GUICtrlCreateRadio(" Loading Well", 15, 450, 180, 20)
$aRadio[46] = GUICtrlCreateRadio(" Loading Well Walls", 15, 470, 180, 20)
$aRadio[47] = GUICtrlCreateRadio(" CB or Masonry Walls", 15, 490, 180, 20)
$aRadio[48] = GUICtrlCreateRadio(" Wrought Iron Fence", 15, 510, 180, 20)
$aRadio[49] = GUICtrlCreateRadio(" Solid Board Fence", 15, 530, 180, 20)
$aRadio[50] = GUICtrlCreateRadio(" Stacked Blk Wall", 15, 550, 180, 20)
$aRadio[51] = GUICtrlCreateRadio(" Concrete Wall", 15, 570, 180, 20)

$Tab3 = GUICtrlCreateTabItem("Fuel Misc Imps")
$aRadio[52] = GUICtrlCreateRadio(" Asphalt", 15, 40, 180, 20)
$aRadio[53] = GUICtrlCreateRadio(" Flatwork", 15, 60, 180, 20)
$aRadio[54] = GUICtrlCreateRadio(" Fuel Canopy", 15, 80, 180, 20)
$aRadio[55] = GUICtrlCreateRadio(" Concrete Over Tanks", 15, 100, 180, 20)
$aRadio[56] = GUICtrlCreateRadio(" Drive Slab", 15, 120, 180, 20)
$aRadio[57] = GUICtrlCreateRadio(" Excavation", 15, 140, 180, 20)
$aRadio[58] = GUICtrlCreateRadio(" Electrical", 15, 160, 180, 20)
$aRadio[59] = GUICtrlCreateRadio(" UG Tanks", 15, 180, 180, 20)
$aRadio[60] = GUICtrlCreateRadio(" Valves, Pumps & LMS", 15, 200, 180, 20)
$aRadio[61] = GUICtrlCreateRadio(" Piping", 15, 220, 180, 20)
$aRadio[62] = GUICtrlCreateRadio(" Trash Enclosure", 15, 240, 180, 20)
$aRadio[63] = GUICtrlCreateRadio(" Lights Single Lamp", 15, 260, 180, 20)
$aRadio[64] = GUICtrlCreateRadio(" Lights Double Lamp", 15, 280, 180, 20)
GUICtrlCreateTabItem("")
$Radio = 0

For $iX = 1 To $aRadio[0]
    GUICtrlSetFont($aRadio[$iX], 10, 800, 2, "Arial")
    GUICtrlSetColor($aRadio[$iX], 0x800000)
    GUICtrlSetBkColor($aRadio[$iX], 0xC0DCC0)
Next

GUISetState(@SW_SHOW)

While 1
    Local $msg = GUIGetMsg()
    Select
        Case $msg = -3
            Exit
        Case $msg = $go
            Go()
        Case $msg >= $aRadio[1] And $msg <= $aRadio[64]
            GUICtrlSetState($Radio, 4)
            GUICtrlSetState($msg, 5);$GUI_CHECKED)
            $Radio = $msg
    EndSelect
WEnd

Func Go()
    Switch ($Radio)
        Case 01
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\NewZapTH.exe")
        Case 02
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\NewZapGH.exe")
        Case 03
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\NewZapB$.exe")
        Case 04
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\New_Seg_Memo.exe")
        Case 05
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Lease_Memo.exe")
        Case 06
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Copy_PN_from_Excel_to_Proval.exe")
        Case 07
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Copy_PN_from_Excel_to_Lotus.exe")
        Case 08
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Copy_PN_to_Ascend.exe")
        Case 09
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\EU_Memo.exe")
        Case 10
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\test.exe")
        Case 11
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Asphalt.exe")
        Case 12
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Flatwork.exe")
        Case 13
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\CB_Wall.exe")
        Case 14
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\SB_Wall.exe")
        Case 15
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\CLF_4TR.exe")
        Case 16
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\4Slats.exe")
        Case 17
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\CLF_6TR.exe")
        Case 18
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\6Slats.exe")
        Case 19
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\CLF_6TR3sbw.exe")
        Case 20
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Light_SL.exe")
        Case 21
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Light_DL.exe")
        Case 22
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Light_TL.exe")
        Case 23
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Light_QL.exe")
        Case 24
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\SB_Fence.exe")
        Case 25
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Loading_Dock.exe")
        Case 26
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Loading_Well.exe")
        Case 27
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Loading_Well_Walls.exe")
        Case 28
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Trash_Enclosure.exe")
        Case 29
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\WI_Fence.exe")
        Case 30
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Canopy_Low.exe")
        Case 31
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Copy_PN_from_FS_to_Proval.exe")
        Case 32
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Land_Size.exe")
        Case 33
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\BLA_Memo_sf.exe")
        Case 34
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\BLA_Memo_ac.exe")
        Case 35
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\changeZaptoGH2008.exe")
        Case 36
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\changeZaptoBJM2008.exe")
        Case 37
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\changeZaptoTH2008.exe")
        Case 38
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\changeZaptoBJM2008nc.exe")
        Case 39
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\changeZaptoGH2008NC.exe")
        Case 40
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\changeZaptoTH2008nc.exe")
        Case 41
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Asphalt.exe")
        Case 42
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Flatwork.exe")
        Case 43
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Canopy_High.exe")
        Case 44
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Conc_over_tanks.exe")
        Case 45
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Driveslab.exe")
        Case 46
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Excavation.exe")
        Case 47
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Electrical.exe")
        Case 48
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\UG_Tanks.exe")
        Case 49
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\VP_LMS.exe")
        Case 50
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Trash_Enclosure.exe")
        Case 51
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Piping.exe")
        Case 52
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\LightSL.exe")
        Case 53
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\LightDL.exe")
        Case 54
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Listing_Memo.exe")
        Case 55
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Canopy_Ave.exe")
        Case 56
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Canopy_Good.exe")
        Case 57
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Canopy_High.exe")
        Case 58
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Miscellaneous.exe")
        Case 59
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Add_Misc.exe")
        Case 60
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Add_Memo.exe")
        Case 61
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Permits.exe")
        Case 62
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Sale_History.exe")
        Case 63
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Con_Ret_Wall.exe")
        Case 64
            Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\new_parcel_settup.exe")
    EndSwitch
EndFunc   ;==>Go
p.s. You can simplify the code even further if you read the EXE names into an array.

Good luck!

Link to comment
Share on other sites
tonyjh Seeker

tonyjh

Posted
  • Author
Posted

Skruge....

I guess I spoke too soon.... now that I have tested the program, it doesn't seem to correlate the radio button selection with the same case number at execution.... so if I choose "New Tony's Zap" it initiates a completley unrelated executable file. Shouldn't it choose Case # 3 and run that exe file? I really can't figure out what it is doing.... there doesn't seem to be a patern to what exe file it selects.... I don't see how the radio button selection is related to the Case #? I know you can't test it either, but if you can think of anything, please let me know.

Thanks again for all your help.

Tony

Link to comment
Share on other sites
tonyjh Seeker

tonyjh

Posted
  • Author
Posted

After more testing... there is a pattern.

it is adding 5 on the first tab to whatever radio button I choose.

on tab2 it is adding 6, and tab3 it adds 7. So, if I choose the first radio button on tab one, it initiates the 6th case #... and if I choose radio button 3 on the 2nd tab, it initiates case #9. Not sure why it is doing that...

Any ideas?

TH

Opt("MustDeclareVars", 1)

Global $aRadio[65] = [64], $Radio, $Gui, $Tab1, $Tab2, $Tab3

GUICreate(" Robots", 212, 650, 1046, 29, -1)

Local $go = GUICtrlCreateButton("OK", 15, 615, 75, 25, 0x0F00)

Local $tab = GUICtrlCreateTab(8, 8, 196, 640)

GUICtrlSetFont(-1, 8, 400, 0, "Arial")

$Tab1 = GUICtrlCreateTabItem("Gen")

$aRadio[01] = GUICtrlCreateRadio(" New James' Zap", 15, 40, 180, 20)

$aRadio[02] = GUICtrlCreateRadio(" New Greg's Zap", 15, 60, 180, 20)

$aRadio[03] = GUICtrlCreateRadio(" New Tony's Zap", 15, 80, 180, 20)

$aRadio[04] = GUICtrlCreateRadio(" Change James' Zap", 15, 110, 180, 20)

$aRadio[05] = GUICtrlCreateRadio(" Change Greg's Zap", 15, 130, 180, 20)

$aRadio[06] = GUICtrlCreateRadio(" Change Tony's Zap", 15, 150, 180, 20)

$aRadio[07] = GUICtrlCreateRadio(" Change James' Zap NC", 15, 180, 180, 20)

$aRadio[08] = GUICtrlCreateRadio(" Change Greg's Zap NC", 15, 200, 180, 20)

$aRadio[09] = GUICtrlCreateRadio(" Change Tony's Zap NC", 15, 220, 180, 20)

$aRadio[10] = GUICtrlCreateRadio(" Copy PN Excel to Proval", 15, 250, 180, 20)

$aRadio[11] = GUICtrlCreateRadio(" Copy PN Excel to Lotus", 15, 270, 180, 20)

$aRadio[12] = GUICtrlCreateRadio(" Paste to Ascend", 15, 290, 190, 20)

$aRadio[13] = GUICtrlCreateRadio(" Copy PN FS to Proval", 15, 310, 180, 20)

$aRadio[14] = GUICtrlCreateRadio(" Copy PN to Geo Media", 15, 330, 180, 20)

$aRadio[15] = GUICtrlCreateRadio(" Lease Present Memo", 15, 360, 180, 20)

$aRadio[16] = GUICtrlCreateRadio(" Listing Present Memo", 15, 380, 180, 20)

$aRadio[17] = GUICtrlCreateRadio(" Add a Memo", 15, 400, 180, 20)

$aRadio[18] = GUICtrlCreateRadio(" Open Permit Screen", 15, 420, 180, 20)

$aRadio[19] = GUICtrlCreateRadio(" View Sales History", 15, 440, 180, 20)

$aRadio[20] = GUICtrlCreateRadio(" BLA Memo Acres", 15, 470, 180, 20)

$aRadio[21] = GUICtrlCreateRadio(" BLA Memo SF", 15, 490, 180, 20)

$aRadio[22] = GUICtrlCreateRadio(" Economic Unit Memo", 15, 510, 180, 20)

$aRadio[23] = GUICtrlCreateRadio(" New Parcel Settup", 15, 530, 180, 20)

$aRadio[24] = GUICtrlCreateRadio(" Land Size Memo", 15, 550, 180, 20)

$aRadio[25] = GUICtrlCreateRadio(" Seg Memo", 15, 570, 180, 20)

$Tab2 = GUICtrlCreateTabItem("Misc Imps")

$aRadio[26] = GUICtrlCreateRadio(" Asphalt", 15, 40, 180, 20)

$aRadio[27] = GUICtrlCreateRadio(" Flatwork", 15, 60, 180, 20)

$aRadio[28] = GUICtrlCreateRadio(" Canopy Low", 15, 80, 180, 20)

$aRadio[29] = GUICtrlCreateRadio(" Canopy Ave", 15, 100, 180, 20)

$aRadio[30] = GUICtrlCreateRadio(" Canopy Good", 15, 120, 180, 20)

$aRadio[31] = GUICtrlCreateRadio(" Canopy High", 15, 140, 180, 20)

$aRadio[32] = GUICtrlCreateRadio(" Trash Enclosure", 15, 160, 180, 20)

$aRadio[33] = GUICtrlCreateRadio(" Miscellaneous", 15, 180, 180, 20)

$aRadio[34] = GUICtrlCreateRadio(" Add Misc Imp", 15, 200, 180, 20)

$aRadio[35] = GUICtrlCreateRadio(" CLF 4' TR", 15, 230, 180, 20)

$aRadio[36] = GUICtrlCreateRadio(" CLF 4' Slats", 15, 250, 180, 20)

$aRadio[37] = GUICtrlCreateRadio(" CLF 6' TR", 15, 270, 180, 20)

$aRadio[38] = GUICtrlCreateRadio(" CLF 6' Slats", 15, 290, 180, 20)

$aRadio[39] = GUICtrlCreateRadio(" CLF 6' TR 3SBW", 15, 310, 180, 20)

$aRadio[40] = GUICtrlCreateRadio(" Lights Single Lamp", 15, 340, 180, 20)

$aRadio[41] = GUICtrlCreateRadio(" Lights Double Lamp", 15, 360, 180, 20)

$aRadio[42] = GUICtrlCreateRadio(" Lights triple Lamp", 15, 380, 180, 20)

$aRadio[43] = GUICtrlCreateRadio(" Lights Quad Lamp", 15, 400, 180, 20)

$aRadio[44] = GUICtrlCreateRadio(" Loading Dock", 15, 430, 180, 20)

$aRadio[45] = GUICtrlCreateRadio(" Loading Well", 15, 450, 180, 20)

$aRadio[46] = GUICtrlCreateRadio(" Loading Well Walls", 15, 470, 180, 20)

$aRadio[47] = GUICtrlCreateRadio(" CB or Masonry Walls", 15, 490, 180, 20)

$aRadio[48] = GUICtrlCreateRadio(" Wrought Iron Fence", 15, 510, 180, 20)

$aRadio[49] = GUICtrlCreateRadio(" Solid Board Fence", 15, 530, 180, 20)

$aRadio[50] = GUICtrlCreateRadio(" Stacked Blk Wall", 15, 550, 180, 20)

$aRadio[51] = GUICtrlCreateRadio(" Concrete Wall", 15, 570, 180, 20)

$Tab3 = GUICtrlCreateTabItem("Fuel Misc Imps")

$aRadio[52] = GUICtrlCreateRadio(" Asphalt", 15, 40, 180, 20)

$aRadio[53] = GUICtrlCreateRadio(" Flatwork", 15, 60, 180, 20)

$aRadio[54] = GUICtrlCreateRadio(" Fuel Canopy", 15, 80, 180, 20)

$aRadio[55] = GUICtrlCreateRadio(" Concrete Over Tanks", 15, 100, 180, 20)

$aRadio[56] = GUICtrlCreateRadio(" Drive Slab", 15, 120, 180, 20)

$aRadio[57] = GUICtrlCreateRadio(" Excavation", 15, 140, 180, 20)

$aRadio[58] = GUICtrlCreateRadio(" Electrical", 15, 160, 180, 20)

$aRadio[59] = GUICtrlCreateRadio(" UG Tanks", 15, 180, 180, 20)

$aRadio[60] = GUICtrlCreateRadio(" Valves, Pumps & LMS", 15, 200, 180, 20)

$aRadio[61] = GUICtrlCreateRadio(" Piping", 15, 220, 180, 20)

$aRadio[62] = GUICtrlCreateRadio(" Trash Enclosure", 15, 240, 180, 20)

$aRadio[63] = GUICtrlCreateRadio(" Lights Single Lamp", 15, 260, 180, 20)

$aRadio[64] = GUICtrlCreateRadio(" Lights Double Lamp", 15, 280, 180, 20)

GUICtrlCreateTabItem("")

$Radio = 0

For $iX = 1 To $aRadio[0]

GUICtrlSetFont($aRadio[$iX], 10, 800, 2, "Arial")

GUICtrlSetColor($aRadio[$iX], 0x800000)

GUICtrlSetBkColor($aRadio[$iX], 0xC0DCC0)

Next

GUISetState(@SW_SHOW)

While 1

Local $msg = GUIGetMsg()

Select

Case $msg = -3

Exit

Case $msg = $go

Go()

Case $msg >= $aRadio[1] And $msg <= $aRadio[64]

GUICtrlSetState($Radio, 4)

GUICtrlSetState($msg, 5);$GUI_CHECKED)

$Radio = $msg

EndSelect

WEnd

Func Go()

Switch ($Radio)

Case 01

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\NewZapJB.exe")

Case 02

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\NewZapGH.exe")

Case 03

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\NewZapTH.exe")

Case 04

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\changeZaptoJB2009.exe")

Case 05

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\changeZaptoGH2009.exe")

Case 06

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\changeZaptoTH2009.exe")

Case 07

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\changeZaptoJB2009nc.exe")

Case 08

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\changeZaptoGH2009nc.exe")

Case 09

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\changeZaptoTH2009nc.exe")

Case 10

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Copy_PN_from_Excel_to_Proval.exe")

Case 11

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Copy_PN_from_Excel_to_Lotus.exe")

Case 12

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Copy_PN_to_Ascend.exe")

Case 13

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Copy_PN_from_FS_to_Proval.exe")

Case 14

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\test.exe")

Case 15

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Lease_Memo.exe")

Case 16

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Listing_Memo.exe")

Case 17

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Add_Memo.exe")

Case 18

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Permits.exe")

Case 19

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Sale_History.exe")

Case 20

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\BLA_Memo_ac.exe")

Case 21

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\BLA_Memo_sf.exe")

Case 22

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\EU_Memo.exe")

Case 23

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\new_parcel_settup.exe")

Case 24

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Land_Size.exe")

Case 25

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\New_Seg_Memo.exe")

Case 26

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Asphalt.exe")

Case 27

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Flatwork.exe")

Case 28

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Canopy_Low.exe")

Case 29

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Canopy_Ave.exe")

Case 30

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Canopy_Good.exe")

Case 31

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Canopy_High.exe")

Case 32

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Trash_Enclosure.exe")

Case 33

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Miscellaneous.exe")

Case 34

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Add_Misc.exe")

Case 35

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\CLF_4TR.exe")

Case 36

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\4Slats.exe")

Case 37

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\CLF_6TR.exe")

Case 38

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\6Slats.exe")

Case 39

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\CLF_6TR3sbw.exe")

Case 40

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Light_SL.exe")

Case 41

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Light_DL.exe")

Case 42

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Light_TL.exe")

Case 43

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Light_QL.exe")

Case 44

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Loading_Dock.exe")

Case 45

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Loading_Well.exe")

Case 46

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Loading_Well_Walls.exe")

Case 47

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\CB_Wall.exe")

Case 48

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\WI_Fence.exe")

Case 49

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\SB_Fence.exe")

Case 50

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\SB_Wall.exe")

Case 51

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Con_Ret_Wall.exe")

Case 52

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Asphalt.exe")

Case 53

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Flatwork.exe")

Case 54

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Canopy_High.exe")

Case 55

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Conc_over_tanks.exe")

Case 56

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Driveslab.exe")

Case 57

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Excavation.exe")

Case 58

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Electrical.exe")

Case 59

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\UG_Tanks.exe")

Case 60

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\VP_LMS.exe")

Case 61

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Piping.exe")

Case 62

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Trash_Enclosure.exe")

Case 63

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Light_SL.exe")

Case 64

Run("C:\Documents and Settings\CurrentUser\Desktop\Robots\EXE.files\Light_DL.exe")

EndSwitch

EndFunc ;==>Go

Link to comment
Share on other sites
Skruge Universalist

Skruge

Posted
Posted

I'm sorry, I meant that on the second tab, if you choose the 3rd radio button down, that corresponds to radio button #28 and then add 6 to that and it initiates case #34. And on Tab3 it adds 7.

Ah, I see what it is... $Radio is being set based on the Message ID, not by the Array index as I had originally intended. I'll post a fix.

[font="Tahoma"]"Tougher than the toughies and smarter than the smarties"[/font]

Link to comment
Share on other sites
tonyjh Seeker

tonyjh

Posted
  • Author
Posted

Ah, I see what it is... $Radio is being set based on the Message ID, not by the Array index as I had originally intended. I'll post a fix.

Skruge ..... were you able to resolve this problem? If you have posted a fix, I missed it somehow. Thanks for all of your help.

Tony

Link to comment
Share on other sites
Skruge Universalist

Skruge

Posted
Posted

Skruge ..... were you able to resolve this problem? If you have posted a fix, I missed it somehow. Thanks for all of your help.

Tony

I've just been swamped at work...

Replace your While loop with this:

While 1
    Local $msg = GUIGetMsg()
    Select
        Case $msg = -3
            Exit
        Case $msg = $go
            Go()
        Case Else
            For $iX = 1 To $aRadio[0]
                If $msg = $aRadio[$iX] Then
                    GUICtrlSetState($aRadio[$iX], 1) ; $GUI_CHECKED
                    If $Radio And ($Radio <> $iX) Then GUICtrlSetState($aRadio[$Radio], 4) ; $GUI_UNCHECKED
                    $Radio = $iX
                EndIf
            Next
    EndSelect
WEnd

[font="Tahoma"]"Tougher than the toughies and smarter than the smarties"[/font]

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...