4.9 Комментарии строк ( ' или Rem )

Иногда программы, которые мы пишем становятся очень сложными. Усложненными настолько, что если просмотреть коды спустя пару недель и они будут возможно уже изменены, то станет почти невозможным понять, что там имеется ввиду и как это работает. Но это нормально! И поэтому ко всему, что Вы делаете в сложной программе, надо делать пометки. Чтобы вводить такие заметки в программу, существует возможность комментирования строк: всё, что стоит позади символа "'" будет распознано компьютером при запуске программы, как строки, которые не нужно брать во внимание. Пример:

Line (0,0)-(2000,2000) 'линия сверху слева в

'право вниз в окне

Вместо ' можно также применять слово Rem (англ. remark = заметка), но уже для полной строки, не разбитой на две части, иначе можно запутаться: Rem линия сверху слева в право вниз в окне

Считается хорошим тоном повсюду вставлять комментарии в свою программу, чтобы потом её лучше понимать самому и другим программистам.

4.10 Команда End

Закончить программу можно, нажав на кнопку "End" в панели VB. Однако иногда нужно прекратить программу командой, например, если игра подошла к концу и возникла критическая ошибка. Для этого существует команда End, которой тотчас же прекращает программу. Visual Basic возвращается тогда сразу в режим design.

4.11 Цикл Do.Loop

Под словом "цикл" (на английском loop) программисты подразумевают часть программы, которая будет исполнена несколько раз подряд. Вы познакомитесь ещё со многими примерами из этого курса, т.к. циклы нужны очень часто. Здесь же я только объясню, как правильно применять цикл Do.Loop:

Этот цикл существует для того, чтобы выполнять ряд команд, так называемые тела циклов, так долго, пока не будет исполнено какое-нибудь определённое условие - условие прерывания. Или до тех пор, пока какое-нибудь определённое условие будет не исполнено.

Два следующие примера делают одно и тоже: они вызывают диалоговое окно на экран до тех пор, пока пользователь не нажмёт "Да". А потом они выдают шутку:

Do

YesNo = MsgBox("Хотите шутку?",4)

' диалоговое окно с выбором между "Да" и "Нет"

Loop Until YesNo = 6 ' 6 соотвествует ответу "Да"

MsgBox "Печь можно и без муки!" ' сама шутка !!! -[мои прим. Ах, как смешно! :)]

' (c) Helge Schneider

(англ. until: до тех пор, во время) другая версия:

Do

YesNo = MsgBox("Хотите шутку?",4)

Loop While YesNi <> 6

MsgBox "Печь можно и без муки!"

(англ. while: пока не.). Условие "YesNo = 6" или "YesNo <> 6" будет перепроверено каждый раз после выполнения, и в зависимости от того, верно или ложно ли условие, будет выполнен цикл ещё раз или прекращён и далее будут исполнены команды, следующие за ним.

Если условие должно быть перепроверено уже перед первой "петлёй" цикла, можно поставить While или Until в начале цикла:

Do Until Aepfel > 6

(.) ' здесь находится тело цикла

Loop

или:

Do While Aepfel <= 6

(.) ' здесь находится тело цикла

Loop

Настоятельно рекомендую отделять тело цикла сверху и снизу пустыми строками!!!

Также можно покидать цикл в середине тела, а именно при помощи команды Exit Do. Тогда сразу будет исполнена следующая команда после цикла. В основном Exit Do применяют вместе с If.Then. Также, если цикл может быть покинут только при помощи Exit Do, проверку условия Until или While можно

и не испоьзовать:

Do

(.)

If Aepfel > 6 Then Exit Do

(.)

Loop

Программист всегда должен быть внимателен, чтобы цикл в любом случае когда-нибудь мог закончиться! Так называемые бесконечные циклы относятся к частым ошибкам программистов. Часто в этом случае может помочь только прерывание программы при помощи клавиш Ctrl + Break.