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

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

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

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