Проигрываем
звук через внутренний динамик
|
В этой статье я расскажу вам
о том, как выдавать звуковой сигнал через внутренний динамик. Для этого мы
воспользуемся 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)