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

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

Добавлено: 21 Сентября 2013 12:14:45 Добавил: Андрей Ковальчук Нравится 0

Добавить