Выполнение кода заданное количество раз

[shift72]

Как релизовать выполнение кода заданное количество раз?
Например

While 1
;указанный ниже код должен выполниться 2 раза
 MsgBox(0, "1234", "1234")
;указанный выше код должен выполниться 2 раза
WEnd

 

[Spyhunter]

For $i = 1 To 2 ;2 - кол-во раз
;указанный ниже код должен выполниться 2 раза
 MsgBox(0, "1234", "1234")
;указанный выше код должен выполниться 2 раза
Next

 

[Black_Hole]

$a = 0
$b = 2 ;Количество раз
While $a<$b
 MsgBox(0, "1234", "1234")
$a += 1
WEnd

 

[Viktor1703]

$i_count = 2

While $i_count
    MsgBox(0, "1234", "1234")
    $i_count -= 1
WEnd

 

[InnI]

MsgBox(0, "1234", "1234")
MsgBox(0, "1234", "1234")

 

[Viktor1703]

InnI, а если раз 100

 

[InnI]

Viktor1703 [?]

а если раз 100

В примере чётко написано "2 раза".
А даже если и 100... copy-paste ещё никто не отменял ;D

 

[CreatoR]

Black_Hole, Viktor1703
Вы реально будете сами использовать подобные конструкции в своём коде, если поставлена такая задача как у автора темы?


InnI [?]

В примере чётко написано "2 раза".

Это не чётко, там написано „Например“, и в примере указано 2 раза, это далеко от чёткости.
Тем более что в названии темы именно чётко указано «Выполнение кода заданное количество раз».

 

[Viktor1703]

CreatoR [?]

Вы реально будете сами использовать подобные конструкции в своём коде

Скорее нет чем да, хотя с другой стороны, а почему бы и нет?!

 

[CreatoR]

Viktor1703 [?]

Скорее нет чем да

В таком случае не стоит советовать подобный код.

почему бы и нет?

Потому что это не оправдано, это также нелепо как зажигание свечки горелкой.
Вопрос скорее почему да.

 

[Black_Hole]

CreatoR

MsgBox - это извращение, скрипт работает - ведет лог, система рухнула лог можно прочитать а окошки уходят в никуда ;) но это мое субъективное мнение, часто код вставляю в скрипты для коррекции, мне лично удобно ;)

dim $Log=0

if $Log=1 Then
FileWriteLine ( "./Log.txt", "Ххххххxx:" & " " & $data )
EndIf

 

[kaster]

не хватает do until цикла для полного комплекта ;D

 

[CreatoR]

Black_Hole [?]

MsgBox - это извращение

При чём здесь это, я совсем о другом писал.

Kaster [?]

не хватает do until цикла для полного комплекта

Можно ещё туда же добавить запуск внешнего процесса как AutoIt интерпретатора, передав ему выполняемый код :laugh:.

 

[shift72]

"MsgBox - это извращение"

Я написал пример. Там много кода который светить не охото +))
Особой ценности для вас он может и не несет но все же.

 

[shift72]

Дело в том что в программе будут использоваться настройки. Типа сколько раз выполнить цикл? И окно ввода.

 

[ildar]

$num = InputBox("","Задайте количество циклов","100")
For $i = 1 To $num ;$num - кол-во раз
;указанный ниже код должен выполниться 2 раза
 MsgBox(0, "1234", "1234")
;указанный выше код должен выполниться 2 раза
Next