Что нового

Как прервать Цикл

Anhelone

Новичок
Сообщения
2
Репутация
0
Здравствуйте.
Есть цикл, например, в котором рандомно двигается мышь и в GUI отображаются координаты мыши (почти бесконечный цикл)

Задача - что бы, при нажатии ESC цикл прерывался.
Пробовал
HotKeySet("{Esc}", "Break")
Не помогает.

Подскажите, как можно остановить. Заранее спасибо
 

rusreg79

Продвинутый
Сообщения
159
Репутация
57
как то так:
Код:
HotKeySet("{Esc}", "Stop")
$iStop = 0

While 1
	Beep (500,200)
	If $iStop = 1 Then
;~ 		$iStop = 0
		ExitLoop
	EndIf
WEnd

Func Stop()
	$iStop = 1
EndFunc

или
Код:
HotKeySet("{Esc}", "Stop")
$iStop = 0

While $iStop = 0
	Beep (500,200)
WEnd

Func Stop()
	$iStop = 1
EndFunc

или
Код:
HotKeySet("{Esc}", "Stop")
$iStop = 0

Do
	Beep (500,200)
Until $iStop = 1

Func Stop()
	$iStop = 1
EndFunc
 
Автор
A

Anhelone

Новичок
Сообщения
2
Репутация
0
Спасибо, помогло =)
 

Guezt

Продвинутый
Сообщения
335
Репутация
81
OffTopic:
не забываем отмечать тема решена
 

`p r o x y

«Улыбайтесь, господа!»
Команда форума
Глобальный модератор
Сообщения
596
Репутация
157
Anhelone
{CodeWarn.SModer}
{TopicSolvedInfo}
 
Верх