Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода
Автор: Хованский Ян. Дата публикации: 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 Добавьте следующий код:

CODE NOW!

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

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



Комментарии

отсутствуют

Добавление комментария


Ваше имя (на форуме):

Ваш пароль (на форуме):

Комментарии могут добавлять только пользователи,
зарегистрированные на форуме данного сайта. Если Вы не
зарегистрированы, то сначала зарегистрируйтесь тут

Комментарий:





Главная     Программы     Статьи     Разное     Форум     Контакты