Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Creat0R

Must AutoIt


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

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


Несколько вариантов:

1) Отключение режима событии...
Код: Выделить весь код
...

Opt("GUIOnEventMode", 1)

Global $iStop = False, $ch_name = False

....

Func _Main_Events()
    Switch @GUI_CtrlId
        Case $GUI_EVENT_CLOSE
            Exit
        Case $butt_start
            $ch_name = Not $ch_name

            If $ch_name Then
                GUICtrlSetData($butt_start,"СТОП")
                _calc() ;надо запустить
            Else
                GUICtrlSetData($butt_start,"СТАРТ")
            EndIf
    EndSwitch
EndFunc

Func _calc()
    ConsoleWrite("Старт"&@LF)

    ...

    Opt("GUIOnEventMode", 0)

    While 1
        Switch GUIGetMsg()
            Case $butt_start
                $ch_name = False
                GUICtrlSetData($butt_start, "СТАРТ")

                ExitLoop
            Case $GUI_EVENT_CLOSE
                Exit
        EndSwitch

        ...
    WEnd

    Opt("GUIOnEventMode", 1)
EndFunc
2) Проверка и запуск функции в цикле:
Код: Выделить весь код
...

Global $ch_name = False

...

While 1
    Sleep(10)

    If $ch_name Then
        _calc() ;надо запустить
    EndIf
WEnd

Func _Main_Events()
    Switch @GUI_CtrlId
        Case $GUI_EVENT_CLOSE
            Exit
        Case $butt_start
            $ch_name = Not $ch_name

            If $ch_name Then
                GUICtrlSetData($butt_start, "СТОП")
            ElseIf GUICtrlRead($butt_start) <> "СТАРТ" Then
                GUICtrlSetData($butt_start, "СТАРТ")
            EndIf
    EndSwitch
EndFunc

...

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 20:56, 07-05-2010 | #2