'СОРС ЗА ФОРМАТА

' При натискане на бутона СЪОБЩЕНИЕ

Private Sub Command1_Click()

PlayZvuk App.Path & "\Signal.wav" ' Подаваме на функцията PlayZvuk пътя да звуковия файл

End Sub

'СОРС ЗА МОДУЛА ProstoZvuk

'Декларираме АПИ функцията за изпращане на команди към библиотеката на windows winmm.dll

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Function PlayZvuk(ZvukovFail)

ZvukovFail = Chr(34) & ZvukovFail & Chr(34) ' Заграждаме в кавички пътя до файла

Call mciSendString("Open " & ZvukovFail & " Alias MM", 0, 0, 0) ' Отваряме звуковия файл и го подаваме на winmm.dll

Call mciSendString("Play MM", 0, 0, 0) ' Подаваме команда за възпроизвеждането на звука

End Function