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

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

sashadeg

Старожил

Сообщения: 379
Благодарности: 6

Профиль | Отправить PM | Цитировать

Изменения

Автор: Creat0R
Дата: 21-04-2009
Описание: Добавление тегов для кода

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

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

Отправлено: 10:25, 19-03-2009

Creat0R

Must AutoIt

Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать

Цитата 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