проверить не меньше ли осталось
целью проверить не меньше ли осталось нот в музыкальном буфере, чем значе-
ние нотсчетчика. Если это так, Турбо-Бейсик выполняет GOSUB к назначенной
подпрограмме.
Проверка музыкального буфера выключается заявлением PLAY OFF. После
музыкальной ловушки исполняется неявное заявление PLAY STOP с целью удер-
жать вызов подпрограммы отслеживания повторно из нее самой (и заполнения
стека). При закрытии подпрограммы обработки посредством RETURN автоматичес-
ки выполняется заявление PLAY ON, если ранее в подпрограмме не было испол-
нено явное заявление PLAY OFF.
Событие PLAY не отслеживается, если при исполнении PlAY ON буфер уже
пуст. Для управления генерированием кода проверки событий пользуйтесь мета-
заявлением $EVENT. Для установки размера буфера фоновой музыки пользуйтесь
метазаявлением $SOUND.
См.также $EVENT
-------- PLAY(заявление)
$SOUND
Пример Эта программа демонстрирует ON PLAY (n)
------- 'разместить 30 байтов пространства звукового буфера
$SOUND 100
'включите проверку звуковых событий
PLAY ON
настройке проверку буфера музыкального сопровождения
ON PLAY (S)GOSUB наполнить игры буфер
НотыS = "GEAFDCFECFEDGGG "
'играть октавы со 2 по 4
Игры СтрS ="MB"
FOR октава % =2 TO 4
Октава S ="0" + STR$(октава%)
Игры СтрS = ИгрыСтрS + ОктаваS + НотыS
NEXT Октава %
PLAY Игры СтрS
DO
LOOP UNTIL INSTAT
CLEAR
END 'конец программы
Наполнить игры буфер
---------------------
PRINT Игры СтрS
PLAY Игры cтрS
RETURN
-150 -
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий