[решено] использование данных из Combobox - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

- - [решено] использование данных из Combobox (http://forum.oszone.net/showthread.php?t=253786)

использование данных из Combobox

Извиняюсь ,возможно, за простой вопрос. Только начинаю. Как бы подставить данные из Combo в место ХХ в скрипт:

Код:

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()

    Local $tab, $tab0, $tab0OK, $tab0input,$msg

    Local $tab1, $tab1combo, $tab1OK,$tab11K

    

    GUICreate("My GUI Tab",300,150)  ; will create a dialog box that when displayed is centered



    GUISetBkColor(0x00E0FFFF)

    GUISetFont(9, 300)



    $tab = GUICtrlCreateTab(10, 10, 200, 100)



    $tab0 = GUICtrlCreateTabItem("Connect")

    $tab0OK = GUICtrlCreateButton("Connect", 20, 50, 50, 20)

    $tab1combo = GUICtrlCreateCombo("", 80, 50,80,120)

    GUICtrlSetData(-1, "73|74|75|", "SIEMENS")

              Case $tab0OK        

                       WinActivate ("Patty")

                                   Send ("Telnet 10.10.10.XX")



    $tab1 = GUICtrlCreateTabItem("DATA")

    GUICtrlCreateLabel("Плата-Порт", 30, 80, 80, 20)

    $tab1combo = GUICtrlCreateCombo("", 20, 50, 40, 120)

    GUICtrlSetData(-1, "1|2|3|4|5", "") 

        $tab1combo = GUICtrlCreateCombo("", 70, 50, 40, 120)

    GUICtrlSetData(-1, "1|2|3|4|5", "") 

    $tab1OK = GUICtrlCreateButton("SNR", 120, 50, 50, 20)

    $tab11K = GUICtrlCreateButton("SPEED", 120,80, 60, 20)



    GUISetState()



    While 1

        $msg = GUIGetMsg()

        

        If $msg = $GUI_EVENT_CLOSE Then ExitLoop

    WEnd

EndFunc

VNRed_OK, Код принято заключать в соответствующий тег.

Возможно это нужно:

Код:

#include <GUIConstantsEx.au3>



Opt('MustDeclareVars', 1)



Example()



Func Example()

    Local $tab, $tab0, $tab0OK, $tab0input, $msg

    Local $tab1, $tab1combo, $tab1OK, $tab11K



    GUICreate("My GUI Tab", 300, 150) ; will create a dialog box that when displayed is centered



    GUISetBkColor(0x00E0FFFF)

    GUISetFont(9, 300)



    $tab = GUICtrlCreateTab(10, 10, 200, 100)



    $tab0 = GUICtrlCreateTabItem("Connect")

    $tab0OK = GUICtrlCreateButton("Connect", 20, 50, 50, 20)

    $tab1combo = GUICtrlCreateCombo("", 80, 50, 80, 120)

    GUICtrlSetData(-1, "73|74|75|", "SIEMENS")



    GUISetState()



    While 1

        Switch GUIGetMsg()

            Case $GUI_EVENT_CLOSE

                ExitLoop

            Case $tab0OK

                WinActivate("Patty")

                Send("Telnet 10.10.10." & GUICtrlRead($tab1combo))



                $tab1 = GUICtrlCreateTabItem("DATA")

                GUICtrlCreateLabel("Плата-Порт", 30, 80, 80, 20)

                $tab1combo = GUICtrlCreateCombo("", 20, 50, 40, 120)

                GUICtrlSetData(-1, "1|2|3|4|5", "")

                $tab1combo = GUICtrlCreateCombo("", 70, 50, 40, 120)

                GUICtrlSetData(-1, "1|2|3|4|5", "")

                $tab1OK = GUICtrlCreateButton("SNR", 120, 50, 50, 20)

                $tab11K = GUICtrlCreateButton("SPEED", 120, 80, 60, 20)

        EndSwitch

    WEnd

EndFunc

Извиняюсь за долгий ответ и за "не покраску"кода, всё замечательно работает. Creat0R спасибо!!! Тема решена, можно закрыть

Цитата:

Цитата VNRed_OK

Тема решена »

Не видно.

На рабочей программе не проверял - сейчас нахожусь в командировке, а в тестовом режиме работает как надо:

Код:

#include <GUIConstantsEx.au3>



Opt('MustDeclareVars', 1)



Example()



Func Example()

    Local $msg,$tab0input

    Local $tab, $tab0, $tab1, $tab2

    Local $tab3OK,$tab2OK,$tab0OK,$tab4OK,$tab5OK

    Local $tab2combo,$tab3combo,$tab1combo,$tab4combo,$tab5combo,$tab6combo



    GUICreate("ИЗМЕРЕНИЯ", 220, 130)



    GUISetBkColor(0x00E0FFFF)

    GUISetFont(9, 300)



    $tab = GUICtrlCreateTab(10, 10, 200, 105)



    $tab0 = GUICtrlCreateTabItem("Connect")

    $tab0OK = GUICtrlCreateButton("Connect", 20, 50, 50, 20)

    $tab1combo = GUICtrlCreateCombo("", 80, 50, 50, 120)

    GUICtrlSetData(-1, "73|74|75|", "SIEMENS")



    $tab1 = GUICtrlCreateTabItem("DATA")

    GUICtrlCreateLabel("Плата-Порт", 30, 80, 80, 20)

    $tab2combo = GUICtrlCreateCombo("", 20, 50, 40, 120)

    GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16", "")

    $tab3combo = GUICtrlCreateCombo("", 70, 50, 50, 120)

    GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24", "")

    $tab2OK = GUICtrlCreateButton("SNR", 140, 50, 50, 20)

    $tab3OK = GUICtrlCreateButton("SPEED", 140, 80, 60, 20)



    $tab2 = GUICtrlCreateTabItem("SetUp")

    ;GUICtrlCreateLabel("Плата-Порт", 30, 80, 80, 20)

    $tab4combo = GUICtrlCreateCombo("", 20, 35, 70, 90)

    GUICtrlSetData(-1, "плата|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|", "плата")

    $tab5combo = GUICtrlCreateCombo("", 20, 60, 70, 90)

    GUICtrlSetData(-1, "порт|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|", "порт")

    $tab6combo = GUICtrlCreateCombo("", 20, 85, 110, 90)

    GUICtrlSetData(-1, "профиль|xsdl 2048/512|xsdl 4096/1024|xsdl 6144/1024|xsdl 10240/1024|", "профиль")

    $tab4OK = GUICtrlCreateButton("SHOW", 140, 40, 60, 20)

    $tab5OK = GUICtrlCreateButton("SET", 150, 65, 50, 20)



    GUISetState()



    While 1

        Switch GUIGetMsg()

            Case $GUI_EVENT_CLOSE

                ExitLoop

            Case $tab0OK

                WinActivate("TEMP - Блокнот")

                Send("Telnet 10.10.75." & GUICtrlRead($tab1combo))

                Send("{ENTER}")

            Case $tab2OK

                WinActivate("TEMP - Блокнот")

                Send("show lre xdsl " & GUICtrlRead($tab2combo))

                Send("/" & GUICtrlRead($tab3combo))

                Send(" band-table" )

                Send("{ENTER}")

            Case $tab3OK

                WinActivate("TEMP - Блокнот")

                Send("show lre xdsl " & GUICtrlRead($tab2combo))

                Send("/" & GUICtrlRead($tab3combo))

                Send(" phisycal table linerates" )

                Send("{ENTER}")





        EndSwitch

    WEnd

EndFunc