Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: Как заменить Goto
Показать сообщение отдельно

Аватара для beve

Старожил


Сообщения: 307
Благодарности: 137

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
#include <GUIConstantsEx.au3>

Global $bState=0

For $i=1 to 3 ;у вас сдесь будет по числу ваших функций
    $Gui = GUICreate("Функция"&$i, 269, 101)
    $OkButton = GUICtrlCreateButton("Да", 8, 64, 75, 25)
    $CancelButton = GUICtrlCreateButton("Нет", 96, 64, 75, 25)
    $ExitButton = GUICtrlCreateButton("Выход", 184, 64, 75, 25)
    GUISetState(@SW_SHOW)

    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE, $ExitButton
                Exit
            Case $OkButton
                $bState=1
                ExitLoop
            Case $CancelButton
                $bState=0
                ExitLoop
            EndSwitch
        sleep(10)
    WEnd

    if $bState=1 then
        Call ( "MyFunction"&$i)
    else
        ContinueLoop
    endif
    $bState=0
    Guidelete($Gui)
Next
Exit

Func MyFunction1()
MsgBox(64,"Message", "Функция 1 выполнена!", 1)
Endfunc

Func MyFunction2()
MsgBox(64,"Message", "Функция 2 выполнена!", 1)
Endfunc

Func MyFunction3()
MsgBox(64,"Message", "Функция 3 выполнена!", 1)
Endfunc

-------
Не в кількості знань полягає освіта, а в повному розумінні і вмілому використанні того, що знаєш.


Последний раз редактировалось beve, 25-10-2012 в 23:56.


Отправлено: 23:51, 25-10-2012 | #2

Название темы: Как заменить Goto