[решено] Внедрение цикла в код программы... Помогите разобраться.

[sashadeg]

Я не разу не использовал функцию цикла, поэтому прошу помочь мне... В моей программе, если не правильно введёшь параметр, то программа просто закроется и придётся запускать заново... А как сделать так, чтобы программа снова приходила к вводу параметра??? ;если Вам не сложно, то прокомментируйте пожалуйста каждую строчку написанную Вами, чтобы у меня не возникло лишних вопросов

P.S. Это только кусок программы... Перед этим куском идёт ещё код...



Вот мой код:





Код:

Код: Выделить всё

$msg2=InputBox("Прога", "Введите номер: 1, 2, 3... max 7")
If @Error = 1 Then
    MsgBox(4096, "Прога", "OK.  Bye!")
    Exit
EndIf
Switch $msg2
Case 1
$shet = 0
Case 2
$shet = 17
Case 3
$shet = 34
Case 4
$shet = 51
Case 5
$shet = 68
Case 6
$shet = 85
Case 7
$shet = 102
Case else
MsgBox(0,"Прога","НЕПРАВИЛЬНЫЙ ВВОД ПАРАМЕТРА")
Exit
EndSwitch

[Creat0R]

Цитата sashadeg:



Я не разу не использовал функцию цикла

[решено] Внедрение цикла в код программы... Помогите разобраться.

А в чём проблема, в справке есть ведь примеры.




Цитата sashadeg:



Вот мой код

[решено] Внедрение цикла в код программы... Помогите разобраться.

Коды нужно заключать в соот-ющие теги ([codе])...





Код:

Код: Выделить всё

While 1
    $msg2 = InputBox("Прога", "Введите номер: 1, 2, 3... max 7")
    If @error = 1 Then
        MsgBox(4096, "Прога", "OK. Bye!")
        Exit
    EndIf
    Switch $msg2
        Case 1
            $shet = 0
        Case 2
            $shet = 17
        Case 3
            $shet = 34
        Case 4
            $shet = 51
        Case 5
            $shet = 68
        Case 6
            $shet = 85
        Case 7
            $shet = 102
        Case Else
            MsgBox(0, "Прога", "НЕПРАВИЛЬНЫЙ ВВОД ПАРАМЕТРА")
            ContinueLoop
    EndSwitch
    ExitLoop
WEnd