Как в функции создать бесконечный цикл?

[agikon]

в заголовке всё сказано.
подскажите пожалуйста.

 

[joiner]

While...WEnd

Выражения While...WEnd могут быть вложенными.
Выражение вычисляется до выполнения цикла, поэтому он может ьыть выполнен ноль или более раз.
Для создания бесконечного цикла достаточно использовать любое число (не равное нулю) в качестве выражения.

 

[Garrett]

_While()

Func _While()
	Local $i
	While 1
		$i += 1
		ConsoleWrite('Бесконечный: ( цикл - ' & $i & " )" & @CRLF)
		Sleep(1000)
	WEnd
EndFunc

 

[Fever]

ещё рекурсия как вариант

_Loop()

Func _Loop()
	MsgBox(0, "", "loop")
	_Loop()
EndFunc

 

[kaster]

Fever [?]

ещё рекурсия как вариант

рекурсия не бесконечна

 

[agikon]

спасибо ребята, есть с чего выбрать.

но вот только если делаю так то ошибку выдаёт на строку While

Func _1()
While

;код

WEnd  
endfunc

 

[Garrett]

agikon [?]

но вот только если делаю так то ошибку выдаёт на строку While

Почитайте уже на конец справку, напрягитесь чуть-чуть!

 

[agikon]

такие дела постигаются на практике.
вот смотрите сколько теорию о вождении не учи а если сам не сядишь за руль то хоть 10-ть лет читай как ездить всё-равно не ощутишь как это ездить пока сам за руль не сядишь.
И тут так, я много читал но ничего не ясно пока это всё на практике не реализуешь.

 

[Garrett]

OffTopic:
agikon [?]

вот смотрите сколько теорию о вождении не учи а если сам не сядишь за руль то хоть 10-ть лет читай как ездить всё-равно не ощутишь

В 16 лет сел на ИЖ-ПС в 25 на Ваз 2101, в 27 на Ваз 2108, сейчас пешком хожу, кризис ;D
Проблем никогда не испытывал, мне один раз показали, как ездить и я поехал.
Практика, безусловно, дело хорошее, но важнее умение думать и анализировать. Человек знающий и человек умный, далеко не равноценны! Знающий человек много знает, а умный, помимо того, что много знает, так ещё может пользоваться своими знаниями для достижения нужного ему результата!

Ваша (да и не только) проблема в том, что вы не хотите заставлять себя думать, анализировать, и использовать имеющуюся информацию для достижения поставленной цели. В этой связи рискну перефразировать Френсиса Бэкона

"Кто владеет информацией и умеет ею пользоваться — владеет Миром"

P.S. agikon ничего личного, просто мысли в слух

 

[agikon]

да всё верно.
но дело в том, во-первых в справке не всегда можно докопаться до всех тонкостей, особенно если он нуб. да ещё и справка согласитесь не совсем идеальна.
та и где в справке конкретно написано:
вот примеры бесконечных циклов
и пошло перечисление этих самых циклов

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

от смотрите в справке написано
Для реализации бесконечного цикла укажите любое ненулевое число в качестве expression.

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

Func  _1()
While 1

;код

WEnd  
endfunc

вот так два раза, и тд

Func  _1()
While 2

;код

WEnd  
endfunc

но ведь 1 и 2 ненолевое число, а всёравно цикл соответствует этим числам, и совсем не бесконечный.

 

[Garrett]

Быть такого не может!

_1() ; Вызов функции

Func  _1()
	Local $i
	While 1
		$i += 1
		ConsoleWrite($i & @CRLF)
		Sleep(1000)
	WEnd  
EndFunc

Вы вызывать функцию не забывайте ;)

 

[agikon]

точно.
Спасибо.

 

[Yashied]

Забавно, наиглупейший вопрос, связанный в основном с ленью, и аж 10 ответов... Кстати, вы не заметили, что в последнее время раздел "Стол заказов" становится наиболее популярным на нашем форуме. К чему бы это?

 

[joiner]

Yashied [?]

К чему бы это?

прогресс не стоит на месте..хочется все сразу по нажатию одной кнопки.

 

[axlwor]

где то дали рекламу и все лезут сюда, надеясь что тут будет все и в 1 строчке кода