Звук через внутренний динамик

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

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

Пример здесь.

Оставить комментарий

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

Если вы не являетесь зарегистрированным пользователем, то вам необходимо зарегистрироваться. Регистрация бесплатна. Если вы уже зарегистрированы на CodeNet, то вам необходимо ввести логин и пароль в верхней (Alt-U) части страницы.

Комментарии