PDA

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


sashadeg
19-03-2009, 10:25
Я не разу не использовал функцию цикла, поэтому прошу помочь мне... В моей программе, если не правильно введёшь параметр, то программа просто закроется и придётся запускать заново... А как сделать так, чтобы программа снова приходила к вводу параметра??? ;если Вам не сложно, то прокомментируйте пожалуйста каждую строчку написанную Вами, чтобы у меня не возникло лишних вопросов =)
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
19-03-2009, 10:38
Я не разу не использовал функцию цикла »
А в чём проблема, в справке есть ведь примеры.

Вот мой код »
Коды нужно заключать в соот-ющие теги ([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




© OSzone.net 2001-2012