Программирование
Веб программирование

Visual Basic звук

 
 

Любая программа, даже крутая, без озвучивания будет не программа, а какая - то фигня, но VB сам не может проигрывать звуковые файлы, и для проигрывания звуковых файлов воспользуемся API функцией. На форму кинь 2 кнопки, и впиши код:

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
'Чтобы воспроизвести файл:

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
'Чтобы воспроизвести файл:
Private Sub Command2_Click()
Call mciExecute("play 2.wav") 'Проигрываем файл 2.wav, он должен находиться в той же папке, где и сама программа(НИКОГДА НЕ ПИШИ ПОЛНЫЙ ПУТЬ - например c:2.wav, - на вражеском компе, звуков не будет, т.к. комп будет искать на другом компе, в диске c: звуковой файл(а его там и нету), а если ты напишешь 2.wav, то он будет искать в той же папке, где и сама программа)
End Sub

'Чтобы закрыть файл:
Private Sub Command1_Click()
Call mciExecute("close 2.wav")
End Sub

При нажатии на 2 кнопку, издастся звук, при нажатии на 1 кнопку он остановится.
Здесь Исходник




Есть вопросы? Спроси на нашем форуме!!
Гость [08.01.2011 12:35]

поправка "\2.wav"

lol [09.12.2012 05:18]

У меня и 2.wav работает

mrJester [22.12.2012 11:35]

а паралельное воспроизведение как сделать

ViAik [26.04.2014 19:02]

А оно поддерживает только .wav?

Stertor370 [26.04.2014 19:13]

Первый раз вижу, чтобы эту функцию использовали для воспроизведения звуков, товарищи на сайте очень любят делать все через анус.
Есть функция PlaySound, которая поддерживает 2 режима: синхронный и асинхронный. Если вы выберете асинхронный режим,звук будет проигрываться в отдельном потоке, вы сможете работать с прогой. Если в синхронном - до тех пор, пока звук проигрывается, главный поток будет заблокирован, форма не будет отвечать на действия пользователя. Также есть библиотека bass.dll fmod.dll поищите их в сети, наверняка и под бейсик обертки есть.



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.