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

[sashadeg]

Сам понимаю, что вопрос нубский, но всётаки....

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

Например: нажали => У нас в середине скрипта гденибудь добавилось sleep (10000)



P.S.

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

[FlatX007]

Так чтоль ? ... что бы где то появилось 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

[FlatX007]

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

Код: Выделить всё

#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

[Creat0R]

Цитата sashadeg:



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

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

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





Код:

Код: Выделить всё

#include 
$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

[Yashied]

Цитата sashadeg:



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

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

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