Автор: Хованский Ян. Дата публикации: 20.08.2004
Звук через внутренний динамик
В этой статье я расскажу вам о том, как выдавать звуковой сигнал через
внутренний динамик. Для этого мы воспользуемся 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
Вот и всё! Вы создали программу для генерации звука из системного динамика.
Комментарии |
| отсутствуют |
Добавление комментария |