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
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