Как проиграть простейшую музыку по нотам? - VB
Формулировка задачи:
Есть ноты. Как можно их озвучить?
Beep выдает один тон
Решение задачи: «Как проиграть простейшую музыку по нотам?»
textual
Листинг программы
- Private Declare Function PlaySound Lib 'winmm.dll' _
- Alias 'PlaySoundA' (ByVal lpszName As String, _
- ByVal hModule As Long, ByVal dwFlags As Long) As Long
- Private Const SND_FILENAME = &H20000 ' name is a file name
- Private Const SND_ASYNC = &H1 ' play asynchronously
- Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
- Private Const SND_NODEFAULT = &H2 'Suppress default system sound
- Call PlaySound('C:WindowsMediaOffice97Pants.wav', 0, _
- SND_FILENAME Or SND_ASYNC)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
