Как объединить два, три и более цикла.

at · 30 Авг 2011

Здравствуйте. Подскажите, как правильно объединить два, три и более цикла в одном скрипте.
Не могу понять сам принцип.

P.S. Можно на моем скрипте.

Код:

While 1 ;цикл № 1
	$vTextG = ControlGetText('G', '', '[CLASS:TEdit; INSTANCE:15]') ;получаем значение целого числа из окна приложения 'G'
    $vTextS = ControlGetText('S', '', '[CLASS:TEdit; INSTANCE:15]') ;получаем значение целого числа из окна приложения 'S'
    $vSumma = Execute('$vTextG+$vTextS')  ; суммируем все полученные значения
    $vFileSumlog = FileOpen('C:\Sumlog_A.txt', 1) ;Открываем файл Sumlog_A.txt
    
	  FileWrite($vFileSumlog,$vSumma & @CRLF) ;Записываем сумму в файл Sumlog_A.txt
	   FileClose($vFileSumlog) ;Закрываем файл Sumlog_A.txt
	    Sleep(60000) ;ждем 5 минут
WEnd

            -----------------------------------------------------------------------------------------

While 1 ;цикл № 2
	    Sleep(100) ;пауза, чтобы процессор не грузился
    $vExit = WinGetHandle('Сбой приема', 'Exit') ;получаем хэндл текущего окна 'Сбой приема'
     If $vExit Then ;если есть окно 'Сбой приема'(его хэндл), тогда
         Sleep(10000) ;делаем паузу 10 секунд, за это времямя все должны появиться все возможные окна 'Сбой приема'
         Close() ;вызываем функцию Close
     EndIf
WEnd

axlwor · 30 Авг 2011

Если ты хочешь чтобы эти два отдельных цикла работали. Особо не мешали друг другу. А в остальное время скрипт ничего не делал? Тогда делай из циклов процедурки и запускай по таймеру

Код:

AdlibRegister

at · 30 Авг 2011

делай из циклов процедурки и запускай по таймеру

Разве это единственный способ ?

kaster · 30 Авг 2011

at
Нет

Код:

$start1 = TimerInit()
$start2 = TimerInit()
While 1 ;цикл № 1
	If TimerDiff($start1) > 60000
		$vTextG = ControlGetText('G', '', '[CLASS:TEdit; INSTANCE:15]') ;получаем значение целого числа из окна приложения 'G'
		$vTextS = ControlGetText('S', '', '[CLASS:TEdit; INSTANCE:15]') ;получаем значение целого числа из окна приложения 'S'
		$vSumma = Execute('$vTextG+$vTextS')  ; суммируем все полученные значения
		$vFileSumlog = FileOpen('C:\Sumlog_A.txt', 1) ;Открываем файл Sumlog_A.txt
		FileWrite($vFileSumlog,$vSumma & @CRLF) ;Записываем сумму в файл Sumlog_A.txt
		FileClose($vFileSumlog) ;Закрываем файл Sumlog_A.txt
		$start1 = TimerInit()
	EndIf
	If TimerDiff($start2) > 10000
		$vExit = WinGetHandle('Сбой приема', 'Exit') ;получаем хэндл текущего окна 'Сбой приема'
		If $vExit Then ;если есть окно 'Сбой приема'(его хэндл), тогда
			Close() ;вызываем функцию Close
		EndIf
		$start2 = TimerInit()
	EndIf
    Sleep(100)
WEnd

at · 30 Авг 2011

делай из циклов процедурки и запускай по таймеру

/... не понял, что такое 'процедурки'.

Спасибо Всем. Решение от Kasterа работает, как часы, но мне, как начинающему сложно понять, к примеру, как пять разных циклов, объединить в одно целое.
С функциями разобрался, с таймером тоже. Подскажите, где ещё можно прочесть по этой теме. На форуме, не смог, к сожалению, найти нужной информации.

at · 31 Авг 2011

Подскажите, сколько таймеров можно запустить в одном цикле ?

axlwor · 31 Авг 2011

пока хватит сил придумывать новое название для переменных

kaster · 31 Авг 2011

at
ты должен помнить, что полностью независимыми такие циклы не являются. каждый последующий цикл будет ждать выполнение предыдущих при успешной выполнении условия

at · 31 Авг 2011

полностью независимыми такие циклы не являются

А как сделать их полностью независимыми ?

kaster · 31 Авг 2011

at [?]

А как сделать их полностью независимыми ?

никак. в AutoIt нет многопоточности, поэтому все действия могут выполняться сугубо последовательно. но с другой стороны, это не всегда столь необходимо. как правило большинство операций выполняются с более менее приемлемой скоростью, не считая функций по работе с файловой системой.

axlwor · 31 Авг 2011

пусть autoit работает сам

Код:

AdlibRegister("_Cycle001", 60000)
AdlibRegister("_Cycle002", 10000)
AdlibRegister("_Cycle003", 1000)
AdlibRegister("_Cycle004", 1000)
AdlibRegister("_Cycle005", 1000)
AdlibRegister("_Cycle006", 1000)

While 1
	Sleep(1000)
WEnd

Func _Cycle001()
	$vTextG = ControlGetText('G', '', '[CLASS:TEdit; INSTANCE:15]')
	$vTextS = ControlGetText('S', '', '[CLASS:TEdit; INSTANCE:15]')
	$vSumma = Execute('$vTextG+$vTextS')
	$vFileSumlog = FileOpen('C:\Sumlog_A.txt', 1)
	FileWrite($vFileSumlog,$vSumma & @CRLF)
	FileClose($vFileSumlog)
EndFunc
   
Func _Cycle002()
	$vExit = WinGetHandle('Сбой приема', 'Exit')
	If $vExit Then
		; я бы именно ждал, что то вроде WinWait()
		Sleep(10000)
		Close()
	EndIf
EndFunc

Func _Cycle003()
EndFunc

Func _Cycle004()
EndFunc

Func _Cycle005()
EndFunc

Func _Cycle006()
EndFunc

Func Close()
EndFunc

at · 31 Авг 2011

А что предпочтительнее использовать: AdlibRegister или TimerInit ?

axlwor · 31 Авг 2011

все зависит от задачи и реализации.
плюсы adlib - независимо от основного тела программы процедура запустится.
timerinit - всего лишь таймер

Автор темы	Похожие темы	Форум	Ответы	Дата
	Объединить два hex файла в один	Стол заказов	12	12 Дек 2020
V	[Мышь, клавиатура] Как объединить два кода запрета определенных клавиш	Общие вопросы по AutoIt	2	13 Мар 2015
V	[Файловая система] Объединить два больших txt файла	Общие вопросы по AutoIt	7	8 Ноя 2014
K	[Массивы] Как объединить два массива разной размерности	Общие вопросы по AutoIt	4	20 Сен 2014
M	[Массивы] Как объединить два массива одинаковой размерности	Общие вопросы по AutoIt	16	27 Фев 2011

Поиск

Поиск

Как объединить два, три и более цикла.

at

Гость

axlwor

Скриптер

at

Гость

kaster

Мой Аватар, он лучший самый

at

Гость

at

Гость

axlwor

Скриптер

kaster

Мой Аватар, он лучший самый

at

Гость

kaster

Мой Аватар, он лучший самый

axlwor

Скриптер

at

Гость

axlwor

Скриптер