Использование Radio переключателя... - Компьютерный форум OSzone.net

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

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

- - Использование Radio переключателя... (http://forum.oszone.net/showthread.php?t=140098)

Использование Radio переключателя...

Сам понимаю, что вопрос нубский, но всётаки....
можно пример простого скрипта с переключателем, при нажатии которого будет в скрипт вписываться какой-нибудь сторонний код :)
Например: нажали => У нас в середине скрипта гденибудь добавилось sleep (10000)

P.S.
Высокоуважеамый "beve" и "CreatoR@ надаежда на Вас xDDD

Так чтоль ? ... что бы где то появилось Sleep (10000) нужно его сначала задать Sleep (0)

Код:

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>



$Form2 = GUICreate("Form2", 294, 126, 302, 218)

$Radio1 = GUICtrlCreateRadio("Пауза 10 секунд", 32, 16, 249, 17)

$Radio2 = GUICtrlCreateRadio("Пауза 20 секунд", 32, 48, 257, 17)

$Button1 = GUICtrlCreateButton("Go!", 64, 88, 169, 33, 0)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

$sleep = 0

While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

            Case $GUI_EVENT_CLOSE

                Exit



        Case $Button1

        If GUICtrlRead ($Radio1) = 1 Then

            $sleep = 10000

        EndIf



        If GUICtrlRead ($Radio2) = 1 Then

            $sleep = 20000

        EndIf



Sleep ($sleep)

MsgBox(0,"","Пауза " & $sleep &" секунд")

    EndSwitch

WEnd

Ещё так наверно можно ... больше незнаю как :dont-know

Код:

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>



$Form2 = GUICreate("Form2", 294, 126, 302, 218)

$Radio1 = GUICtrlCreateRadio("Пауза 10 секунд", 32, 16, 249, 17)

$Radio2 = GUICtrlCreateRadio("Пауза 20 секунд", 32, 48, 257, 17)

$Button1 = GUICtrlCreateButton("Запустить", 64, 88, 169, 33, 0)

GUISetState(@SW_SHOW)



$sleep = 0

$rIndex = ""



While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

            Case $GUI_EVENT_CLOSE

                Exit



            Case $Button1

                If GUICtrlRead ($Radio1) = 1 Then

                $sleep = 10000

                $rIndex = 1

            EndIf

                If GUICtrlRead ($Radio2) = 1 Then

                $sleep = 20000

                $rIndex = 2

            EndIf



#comments-start

 ......................



Сдесь чего-то написанно :) тут ваш код

.......................



#comments-end



If $rIndex = 1 Then Sleep ($sleep) ; Тут нам нужно получит паузу 10 секунд <<<< ------------------



#comments-start

 ......................



Сдесь чего-то написанно :) тут ваш код

.......................



#comments-end



If $rIndex = 2 Then Sleep ($sleep) ; Тут нам нужно получит паузу 20 секунд <<<< ------------------



    EndSwitch

WEnd

Цитата:

Цитата sashadeg

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

Что значит сторонний код? Код выполняется, и в это время добавить ничего нельзя, то что прописано, то и будет выполняться.

Код:

#include <GuiConstantsEx.au3>



$GUI = GUICreate("Test Script", 300, 200)



$Radio1 = GUICtrlCreateRadio("Radio 1", 20, 40)

$Radio2 = GUICtrlCreateRadio("Radio 2", 20, 70)



GUISetState(@SW_SHOW, $GUI)



While 1

    $nMsg = GUIGetMsg()



    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

        Case $Radio1, $Radio2

            ConsoleWrite("Выполняем код (" & GUICtrlRead($nMsg, 1) & ")" & @CRLF)

    EndSwitch

WEnd

Цитата:

Цитата sashadeg

У нас в середине скрипта где нибудь добавилось sleep (10000) »

Программа на то и есть программа, что у нее где нибудь не бывает. Где нибудь бывает только с женщинами. А сторонний код в данном контексте звучит как вредоностный код. Если Вы хотите сделать что-то определенное, то сказать об этом было бы хорошей идеей с Вашей стороны. Вот.

:)