Что нового

Выход из скрипта при нажатии кнопки при циклическом выполнении функции

iukash

Новичок
Сообщения
19
Репутация
1
В общем я новичок в autoit, написал простой скрипт
Код:
While 1
  $msg = GUIGetMsg()

  Select
    Case $msg = $okbutton
      mainscript()

    Case $msg = $GUI_EVENT_CLOSE
      ;MsgBox(0, "Сообщение", "Закрываю...")
      ExitLoop
  EndSelect
WEnd

В общем есть кнопка Ок и по ее нажатию выполняется функция mainscript(). А я хочу написать чтобы функция mainscript() выполнялась с какой либо периодичностью, а по нажатию на кнопку, например Ок завершать выполнение скрипта - ExitLoop!
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 471
Репутация
2 401
Re: Алгоритм работы скрипта

iukash [?]
хочу написать чтобы функция mainscript() выполнялась с какой либо периодичностью
См. AdlibRegister в справке.
 

Garrett

Модератор
Локальный модератор
Сообщения
3 999
Репутация
964
Re: Алгоритм работы скрипта

Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Dim $t = TimerInit()
AdlibRegister("MainScript", 1000)

$Form1 = GUICreate("Form1", 230, 111, 192, 114)
$Button1 = GUICtrlCreateButton("Exit", 73, 47, 75, 25, 0)
$Label1 = GUICtrlCreateLabel(@HOUR & ":" & @MIN & ":" & @SEC, 90, 17, 100, 25)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			Exit

	EndSwitch
WEnd

Func MainScript()
	GUICtrlSetData($Label1, @HOUR & ":" & @MIN & ":" & @SEC)
EndFunc
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
Re: ç

Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.


Как правильно называть темы

"Алгоритм работы скрипта" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, Модератор раздела.
 
Автор
I

iukash

Новичок
Сообщения
19
Репутация
1
CreatoR и Garrett спасибо вам огромное!
Kaster исправил!
Всем спасибо вопрос решен!
 
Верх