Проигрываем звук через внутренний динамик

В этой статье я расскажу вам о том, как выдавать звуковой сигнал через внутренний динамик. Для этого мы воспользуемся Api функцией Beep. Ну что, перейдём к делу:
1. Создайте новый проект.
2. На созданную вместе с проектом форму добавьте две метки (lbl1, lbl2) , две горизонтальные полосы прокрутки (srlChastota и srlTime) и одну кнопку (cmdGen):

Имя элемента управления:
Свойство:
Значение:
lbl1
Caption
Частота звука:
lbl2
Caption
Продолжительность звука:
srlChastota
Min
37
srlChastota
Max
32767
srlTime
Min
0
srlTime
Max
10000
cmdGen
Caption
&Сгенерировать сигнал


После всех перечисленных выше действий форма должна выглядеть примерно так:

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

Вот и всё! Вы создали программу для генерации звука из системного динамика.
Пример здесь

Автор статьи: Хованский Ян (web: yansoft.by.ru)