Звук через внутренний динамик VB
В этой статье я расскажу вам о том, как выдавать звуковой сигнал через внутренний динамик. Для этого мы воспользуемся API функцией Beep. Ну что, перейдём к делу:
1. Создайте новый проект.
2. На созданную вместе с проектом форму добавьте две метки (lbl1, lbl2) , две горизонтальные полосы прокрутки (srlChastota и srlTime) и одну кнопку (cmdGen):
После всех перечисленных действий форма должна выглядеть примерно так:
3. Добавьте следующий код:
Option Explicit
"Функция генерирует звуковой сигнал
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
"dwFred - частота звука
"dwDuration - продолжительность сигнала в миллисекундахPrivate Sub cmdGen_Click()
"Генерируем звук
Beep srlChastota.Value, srlTime.Value
End Sub
