Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11855
Последний выпуск: 19.06.2015

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

Хованский Ян
http://vbkoders.net.ru/

В этой статье я расскажу вам о том, как выдавать звуковой сигнал через внутренний динамик. Для этого мы воспользуемся API функцией Beep. Ну что, перейдём к делу:

1. Создайте новый проект.

2. На созданную вместе с проектом форму добавьте две метки (lbl1, lbl2) , две горизонтальные полосы прокрутки (srlChastota и srlTime) и одну кнопку (cmdGen):

Имя элемента управления:Свойство:Значение:
lbl1CaptionЧастота звука:
lbl2CaptionПродолжительность звука:
srlChastotaMin37
srlChastotaMax32767
srlTimeMin0
srlTimeMax10000
cmdGenCaption&Сгенерировать сигнал

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

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

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

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

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

Комментарий:
можно использовать BB-коды
Максимальная длина комментария - 4000 символов.
 

Комментарии

1.
30K
17 февраля 2008 года
Ден Зурин
28 / / 17.02.2008
Мне нравитсяМне не нравится
17 февраля 2008, 13:19:37
КГ/АМ
Во-первых, описание функции Beep есть в MSDN и любом справочнике по Win32 API. Какой смысл цитировать документацию? Вот если бы ты предложил что-нибудь свое... Например, то же самое средствами DirectX.
Во-вторых, функция Beep работает только в NT (2000, XP). В Windows 9x и ME функция Beep игнорирует частоту и продолжительность, воспроизводит стандартный звуковой сигнал. Поэтому ее никто особо и не использует.
2.
Аноним
Мне нравитсяМне не нравится
14 ноября 2005, 16:27:17
Ксожалению, не взлетело (((
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог