Что нового

Как перебирать числа от 1 до n и обратно, бесконечно

SET777

Новичок
Сообщения
51
Репутация
3
Доброго времени!
Как правильно создать условие, что бы сначала перебирались цифры по одной от 1 до n и от n до 1 бесконечно. например от 1 до 5: 123454321.
Код:
While 1
	For $i = 1 To 10
		$y =- $i
		If $y <> 10 Then
			MsgBox(0, "1", $i & '  ' & $y)
;~ 		Else
;~ 			For $y = 10 To 1
;~ 				MsgBox(0, "2", $y)
;~ 			Next
;~ 		($y - $i)
		EndIf


	Next

;~ Sleep(200)
WEnd
 

Zaramot

I ♥ AutoIt
Сообщения
1,160
Репутация
660
Так что-ли ?:
Код:
HotKeySet('{ESC}', '_Exit')

$ot = 1
$do = 5

While 1
    For $i = $ot To $do
        ToolTip($i)
		Sleep(500)
    Next

	For $i = $do To $ot Step -1
        ToolTip($i)
		Sleep(500)
    Next
WEnd

Func _Exit()
	Exit
EndFunc
 
Автор
S

SET777

Новичок
Сообщения
51
Репутация
3
Да, спасибо! То что нужно. :smile:
 

gregaz

AutoIT Гуру
Сообщения
1,166
Репутация
299
Так вроде меньше циклов :
Код:
HotKeySet('{ESC}', '_Exit')
$ot = 1
$do = 5
$j=1
While 1
	ToolTip($ot)
	$ot+=$j
	Sleep(500)
	If $ot=$do Or $ot=1 Then $j*=-1
WEnd

Func _Exit()
    Exit
EndFunc
 
Автор
S

SET777

Новичок
Сообщения
51
Репутация
3
gregaz
Да, так лучше, спасибо.
Момент только вот этот непонятен: $j*=-1 что тут происходит?
 
Верх