| Вопрос: Музыка в Бейсике: оператор PLAY | Добавлено: 01.04.06 18:57 |
Автор вопроса:  Billi Gates | ICQ: 242-026-281 |
|
Play нужен для проигрывания звуков.
Нашел пример использования CLS
PLAY "L8 MB MS 03 GG L4 AG 04 С 03 L2 В" PLAY "L8 MB MS 03 GG L4 AG 04 D L2 C" PLAY "L8 MB MS 03 GG L4 04 GE L8 CC 03 L4 В А" PLAY "04 L8 FF L4 ECD LI C" FOR I = 1 TO 24 LOCATE I, I PRINT "КРОКОДИЛ ГЕНА, С ДНЕМ РОЖДЕНИЯ!" NEXT I END Не работаем! Почему? Кто скажет, как этим оператором пользоваться? |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #1 | Добавлено: 01.04.06 19:22 |
|
Это в QB будет работать. В VB такого оператора нет.
|
||
|
Номер ответа: 2 Автор ответа: Temak ICQ: 264-692-095 Вопросов: 4 Ответов: 24 |
Профиль | | #2 | Добавлено: 02.04.06 02:32 |
|
Точно, этот пример я в QBasic встречал
А ты воспользуйся API-функцией sndPlaySound ПРИМЕР: Declare Function sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Public Const SND_ALIAS = &H10000 Public Const SND_ASYNC = &H1 Public Const SND_SYNC = &H0 Public Const SND_NOWAIT = &H2000 Public Const SND_LOOP = &H8 Sub SoundCheck() Dim lRetVal As Long lRetVal = sndPlaySound("c:\windows\media\chimes.wav", _ SND_SYNC) lRetVal = sndPlaySound("SystemStart", SND_ALIAS + _ SND_ASYNC + SND_NOWAIT) End Sub |
||
|
Номер ответа: 3 Автор ответа: TemakICQ: 264-692-095 Вопросов: 4 Ответов: 24 |
Профиль | | #3 | Добавлено: 02.04.06 02:35 |
|
SORRY! Ошибки в синтаксисе:
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _  ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Const SND_ALIAS = &H10000 Public Const SND_ASYNC = &H1 Public Const SND_SYNC = &H0 Public Const SND_NOWAIT = &H2000 Public Const SND_LOOP = &H8 Sub SoundCheck()  im lRetVal As Long
lRetVal = sndPlaySound("c:\windows\media\chimes.wav", SND_SYNC) lRetVal = sndPlaySound("SystemStart", SND_ALIAS + SND_ASYNC + SND_NOWAIT) End Sub |
||
|
Номер ответа: 4 Автор ответа:  Billi GatesICQ: 242-026-281 Вопросов: 25 Ответов: 57 |
Профиль | | #4 | Добавлено: 02.04.06 09:36 |
|
Ну это панятно! Но ты в код всмотрись! Там ведь не место указанно, где готовый файл лежит, там ноты!
Буква от А до G Исполнение ноты, обозначенной указанной буквой Буква от А до G, за которой следует знак #, + или - Исполнение ноты в соответствии с буквой, где знак # или + означают "диез", а знак — соответствует "бемоль" Lx Исполнение последующих нот с интервалом 1/х, где х меняется в диапазоне от 1 до 64 Ox Играть в октаве х. Третья октава начинается со среднего "ми" (нота С). Всего имеется семь октав (с 0 по 6), расположенных между "ми" и "ре" (от С до В) Px Пауза длительностью 1/х (х от 0 до 64) Tx Задание темпа или четвертных нот, исполняемых в минуту (х может меняться от 32 до 255; по умолчанию равно 120) Nx Исполнение ноты х, которая может меняться от 0 до 84. Каждая октава имеет 12 нот, включая диезы и бемоли. 0 означает паузу MN Нормаль. Каждая нота звучит 7/8 времени, заданного в команде L ML Легато. Каждая нота звучит полный интервал, заданный в команде L MF Стаккато. Каждая нота звучит 3/4 времени, заданного в команде L MS Установка режима непосредственного исполнения. Каждая нота, заданная в операторах PLAY н sound, исполняется только после завершения предыдущей. Исполнение программы приостанавливается до окончания музыки. Этот режим принимается по умолчанию MB Установка режима фонового исполнения. Каждая нота, заданная в операторах PLAY и SOUND, сохраняется в отдельном буфере и исполняется в процессе работы основной программы . (точка) Увеличение продолжительности звучания на 50% Я ведь музыкант (гитараст) 
И очень интересно попробовать это в VB! Нет ли в VB6 чёнить похожего на QB в плане нот? |
||
|
Номер ответа: 5 Автор ответа: GSergВопросов: 0 Ответов: 1876 
|
Профиль | | #5 | Добавлено: 02.04.06 10:16 |
|
гитараст
Где же опечатка? - подумал я, глядя на это слово... Нет ли в VB6 чёнить похожего на QB в плане нот?
В плане нот чёнить есть в группе функций, чьи имена начинаются с midi. |
||
|
Номер ответа: 6 Автор ответа: Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #6 | Добавлено: 02.04.06 10:16 |
| http://www.vbnet.ru/forum/show.aspx?id=41383. Может поможет | ||
|
Номер ответа: 7 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #7 | Добавлено: 02.04.06 10:17 |
|
Точно, этот пример я в QBasic встречал PLAY и в старом-добром Turbo Basic'е был...
2 GSerg: посмотри на время наших постов )
|
||
|
Номер ответа: 8 Автор ответа: Billi GatesICQ: 242-026-281 Вопросов: 25 Ответов: 57 |
Профиль | | #8 | Добавлено: 02.04.06 13:47 |
| спасибо! | ||
|
Номер ответа: 9 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #9 | Добавлено: 03.04.06 03:40 |
|
есть апи для запускания звуков, укзывая продолжительсность и герцы, через сис динамик... И частота в герцах для каждой нотки тоже в инете расписана
1.... (сто нулей) всё знает...google.com.
|
||
Страница: 1 |