If nu then gosub Move 'перемещение рисунка

LOOP

Move: PUT (i, j) , B, PSET

i = i + lam: j = j + mu: PUT (i, j) , A, PSET

RETURN

1.14. Звуковое воспроизведение

Простейшее "мычание" создается оператором ВЕЕР. Более сло-жное и динамичное - оператором SOUND m, n, где m - частота тона в герцах, n - длительность звука в "машинных квантах" времени; "до" первой октавы имеет 130.810 Hz, на каждую октаву частота меняется примерно вдвое. Мелодию можно создать оператором

PLAY "‹строка›", где в строке информации можно указать

вид исполнения: MF - передний план, MB - фоновая мелодия

(информация засылается в буфер), MN - исполнение "normal",

ML - "Legato", MS - "Staccato";

темп исполнения: Tn - определяет n четвертных нот в 1 мин,

длительность Ln : n = 1 - целая нота, n = 2 – половинная и т.д.

октава Оn, где n = 0 соответствует контроктаве, n = 1 - большой

октаве, n = 2 - малой октаве, n = 3 - первой октаве и т.д. Знак >

(<) перед нотой увеличивает (уменьшает) октаву. Nn - нота

n  [0, 84] в диапазоне 7 октав.

пауза Pn, где n - признак длительности (как в Ln).

обозначение нот c, d, e, f, g, a, b соответствует "до", ..., "си",

знаки "+" и " - " соответствуют знакам диез и бемоль, точка

после ноты соответствует обычному нотному обозначению.

Строку (или подстроку) с информацией можно вводить (так же, как и в операторе DRAW) с помощью конструкции "X" + VARPTR$(строка). Например, стилизованное начало популярной темы Н. Паганини мож-

но было бы исполнить следующим образом:

PLAY "L16; O3; MS"

M$ = "d4dfeda4<gbag>d4dfeda4<a4>d4dfeda4a>c+<ba>d4dfeda4"

PLAY "X" + VARPTR$(M$)

2. Элементы vba

VBA - Visual Basic for Application – используется для построения необходимых управляющих конструкций во всех приложенияя Microsoft Office. Несмотря на то, что большая часть "кухонных" конс-трукций Office включена в меню, либо может быть установлена дос-таточно просто, хорошее автоматически работающее приложение не-мыслимо без использования VBA. Основные операторы и конструк-ции Бейсика сохранены в VBA с учетом того, что непосредственный доступ пользователя к экрану через клавиатуру стал невозможен. Вся-кая визуализация происходит через систему окон, меню, подсказок. Всякая программа или отдельный программный блок реализуется в ви-де макрокоманды (макроса), которая, по сути, является подпрограм-мой без параметров. Все это привело к упразднению операторов INPUT, PRINT и их разновидностей (но не для файлов), заменив их близкими по смыслу операторами-функциями InputBox и MsgBox, которые оперируют с символьной информацией (знак "+" конкатена-ции (сложения) строк заменен здесь знаком "&"). Графические сред-ства BASICа в описанном виде частично сохранены в Visual Basic для отображения информации в специальных графических окнах (в VBA они отсутствуют), зато появилась возможность богатого выбора диаг-рамм. Появилась масса дополнительных возможностей организации пользовательского интерфейса: ввод различных управляющих кнопок, рисунков, списков, обработки таблиц, организации собственного меню и т.д. Редактор VBA также приобрел много новых возможностей (заг-рузка редактора: Сервис → Макрос → Редактор VBA), причем его ве-сьм "дружественный" интерфейс помогает пользователю без дополни-тельных пояснений.

Всякое приложение - это, как минимум, одна подпрограмма. Каждая подпрограмма заключена в "операторные скобки"

SUB ‹ имя ›([параметры]) . . . END SUB

Подпрограмма-функция всегда имеет заголовок

FUNCTION ‹ имя › ([параметры]) ‹ тип › и закрывается строкой

END FUNCTION. Подпрограмма без параметров называется "Макрос".

Подпрограммы могут располагаться в листах EXCEL, пользовательс-

ких и т.д. , но вызываются из других подпрограмм только если они по-

мещены в специальном модуле (VBE (редактор VBA) → Вставка →

Модуль). Щелчок мышкой по пиктограмме (View Code) возв-

ращает на страницу записи кода VBA. Запуск программы (кода) осу-

ществляется либо в редакторе VBA (кнопка "Пуск"), либо подготов-

ленными элементами запуска на пользовательской форме (или страни-

це Excel), либо через меню: Сервис → Макрос → Выполнить.