Как считать звук с микрофона?

← →
Rembo2010 (2010-08-10 01:35) [0]

Здравствуйте! Я хотел написать программу (просто для себя), которая считывала бы звук с микрофона и, если звук громкий (например, хлопок), она, к примеру гасила бы экран.
Как считать звук, я знаю, только не понимаю что сделать чтобы экран погасал, только когда звук громкий?
Объясните мне пожалуйста, поподробнее, как это сделать, т.к. в Delphi я новичок.

← →
trsas © (2010-08-10 01:43) [1]

> только не понимаю что сделать чтобы экран погасал

А что значит "экран погасал"? Но это так мелочи.
Что значит "звук громкий"?

← →
KilkennyCat © (2010-08-10 01:49) [2]

Кнопкой проще.

> Что значит "звук громкий"?

это означает, что колебание мембраны микрофона стало несколько сильнее, чем обычно. вероятно, следует чисто для практичности добавить еще "за некоторый период времени относительно "тихого" периода времени"

← →
trsas © (2010-08-10 02:17) [3]

> KilkennyCat © (10.08.10 01:49) [2]

...

> это означает, что колебание мембраны микрофона стало несколько
> сильнее, чем обычно. вероятно, следует чисто для практичности
> добавить еще "за некоторый период времени относительно "тихого"
> периода времени"

А зачем домысливать за автора? Он ведь уже знает как считать звук.

← →
Юрий Зотов © (2010-08-10 02:39) [4]

Надо хлопнуть по экрану. Сам погаснет, без микрофонов.

← →
KilkennyCat © (2010-08-10 02:55) [5]

> Юрий Зотов © (10.08.10 02:39) [4]

угу. завтра с утра такой экран у охранников "включать буду". то ли хлопнули, то ли еще что, программистов-то среди них нет, даж начинающих.

← →
Германн © (2010-08-10 02:58) [6]

Удалено модератором

← →
Германн © (2010-08-10 03:00) [7]

Удалено модератором

← →
KilkennyCat © (2010-08-10 03:09) [8]

> trsas © (10.08.10 02:17) [3]

> А зачем домысливать за автора?

а что еще делать-то...
я лично не знаю, что ему посоветовать...
монитор:
WM_SYSCOMMAND, SC_MONITORPOWER через SendMessage
http://msdn.microsoft.com/en-us/library/ms646360%28VS.85%29.aspx
микрофон:
http://msdn.microsoft.com/en-us/library/aa908147.aspx

← →
KilkennyCat © (2010-08-10 03:13) [9]

по микрофону точнее вот эта:
http://msdn.microsoft.com/en-us/library/dd743847%28VS.85%29.aspx

> Германн © (10.08.10 03:00) [7]

обычные, охрана бизнес-центра. драйвер подсветки сдох.

← →
trsas © (2010-08-10 03:33) [10]

Удалено модератором

← →
KilkennyCat © (2010-08-10 03:35) [11]

Удалено модератором

← →
Германн © (2010-08-10 03:39) [12]

Удалено модератором

← →
brother © (2010-08-10 05:21) [13]

Удалено модератором

← →
ixen © (2010-08-10 06:56) [14]

я не знаю как это реализовать программно, но если рассуждать логически то:
1) научись просто гасить экран, хотя бы по кнопке на форме
2) научись определять частоту входящего звука, в цифровом эквиваленте.
3) определи частоту звука как громкую, при которой следует выключать монитор
4) проверяй в таймере частоту входящего звука и сравнивай с громкой, если больше или равно гаси монитор
ИМХО

← →
RWolf © (2010-08-10 11:58) [15]

> [14]
в результате монитор будет гаснуть от звука телевизора, упавшего предмета, дверного звонка…

← →
ixen (2010-08-10 12:03) [16]

> в результате монитор будет гаснуть от звука телевизора,
> упавшего предмета, дверного звонка…

а как иначе? конечно будет... можно конечно включить анализатор звука.. который будет определять хлопок это или нет... но я думаю такой анализатор не каждый программист осилит...

← →
Virgo_Style © (2010-08-10 13:28) [17]

>2) научись определять частоту входящего звука, в цифровом эквиваленте.
>3) определи частоту звука как громкую,

Что такое, по-твоему, частота?

← →
Z from Police Academy (2010-08-10 13:35) [18]

А если наорать на монитор, то и экран лопнет... печально.

← →
ixen (2010-08-10 13:44) [19]

> Что такое, по-твоему, частота?

имелось в виду определить громкость в числовом эквиваленте.. в децибиллах..я в физике не очень...

← →
ixen (2010-08-10 13:44) [20]

в децибеллах.. опечатался..

← →
KilkennyCat © (2010-08-10 14:01) [21]

правильно в дебициллах ;)

← →
имя (2010-08-10 14:05) [22]

Удалено модератором

← →
имя (2010-08-10 14:12) [23]

Удалено модератором

← →
Сергей М. © (2010-08-10 15:00) [24]

> Rembo2010 (10.08.10 14:12) [23]

Так ведь в Караоке как раз в том и весь весь цимус чтобы поорать))
Собрались друзья-приятели культурно выпить-закусить-поорать под чью-то фанеру, а ты им такой облом устроить хочешь - экран гасить)
Это, я бы сказал, даже рисковано - по случаю бытия навеселе могут и экран надеть на уши автору такой программной засады))

← →
Rembo2010 (2010-08-10 23:34) [25]

> Так ведь в Караоке как раз в том и весь весь цимус чтобы
> поорать))
> Собрались друзья-приятели культурно выпить-закусить-поорать
> под чью-то фанеру, а ты им такой облом устроить хочешь -
> экран гасить)
> Это, я бы сказал, даже рисковано - по случаю бытия навеселе
> могут и экран надеть на уши автору такой программной засады))

Ну да, здорово было бы так пошутить)))))! Ну а все-таки, как можно сделать, вообще что использовать, какие-то функции (а именно как реализовать "громкий звук"?)))) Не понятно...

← →
KilkennyCat © (2010-08-11 00:40) [26]

> какие-то функции

я уже писал. готовый код мне лень искать, и еще более лень писать.

> как реализовать "громкий звук"

изучить формат WAV

← →
Германн © (2010-08-11 01:44) [27]

> KilkennyCat © (11.08.10 00:40) [26]
...
> > как реализовать "громкий звук"
>
> изучить формат WAV
>

Малополезно если под "громким звуком" подразумевается что-то типа "хлопок".

> Ну да, здорово было бы так пошутить)

Когда сможешь "так пошутить", патентуй решение. Заработаешь кучу денег.

← →
Германн © (2010-08-11 02:29) [28]

> да, здорово было бы так пошутить)))))! Ну а все-таки, как
> можно сделать, вообще что использовать, какие-то функции

Дайте код ! В конце то концов!
:)

> Малополезно если под "громким звуком" подразумевается что-
> то типа "хлопок".

на основе WAV не сложно построить осцилограмму. дальше берется любой лгоритм сравнивания подобных.

Алгоритм действий мне представляется следующим:
1. Непрерывно слушать аудиовход и строить спектр входящего сигнала.
2. Если суммарная энергия сигнала по спектру превышает некий порог, то нормализовать спектр и сравнить с эталонным, чтобы отсеять посторонние громкие звуки. При достаточно точном совпадении — сделать то, ради чего написана программа, будь то включить монитор или что-то иное.

← →
Rembo2010 (2010-08-11 15:28) [31]

procedure TForm1.OnWaveIn;
var
i: integer;
data8: PData8;
data16: PData16;
h: integer;
XScale, YScale: single;
begin
h := PaintBox1.Height;
XScale := PaintBox1.Width / BufSize;
if Bits16 then begin
data16 := PData16(PWaveHdr(Msg.lParam)^.lpData);
YScale := h / (1 shl 16);
for i := 0 to BufSize - 1 do
p^[i] := Point(round(i * XScale),
round(h / 2 - data16^[i] * YScale));
end else begin
Data8 := PData8(PWaveHdr(Msg.lParam)^.lpData);
YScale := h / (1 shl 8);
for i := 0 to BufSize - 1 do
p^[i] := Point(round(i * XScale),
round(h - data8^[i] * YScale));
end;
with PaintBox1.Canvas do begin
Brush.Color := clWhite;
FillRect(ClipRect);
Polyline(Slice(p^, BufSize));
end;
if stop
then WaveInAddBuffer(WaveIn, PWaveHdr(Msg.lParam),
SizeOf(TWaveHdr))
else stop := true;
end;

Вот эта функция выводит сигнал с микрофона в PainBox, там такая типа осицилограмма. Как может ее переделать чтобы при превышениии уровня осициллограмме в PainBox"e она что-то делала (неважно что, это я уже сам доделаю, главное чтобы она ЧТО-ТО делала)? Ну или может как по другому?

> главное чтобы она ЧТО-ТО делала

"Матюкалась" устроит ? :)

> Rembo2010 (11.08.10 15:28) [31]

KilkennyCat © про осциллограмму от балды ляпнул, а ты бросился искать "осциллограф")
Нафих он тут нужен, если все гораздо проще ?

"Выпрямляешь" исходный сигнал, сглаживаешь его и подаешь на вход пороговового компаратора - и всех делов)

> Сергей М. © (11.08.10 16:00) [33]

такой детектор не отличит хлопок в ладоши от падения юзера с дивана. Громкость-то одна.

← →
Rembo2010 (2010-08-11 16:40) [35]

> Сергей М."Выпрямляешь" исходный сигнал, сглаживаешь его
> и подаешь на вход пороговового компаратора - и всех делов)

Можно поподробнее?

> RWolf © (11.08.10 16:11) [34]

А по барабану)
Главное чтобы юзер упал с дивана с теми же "дебицилами".
Что собснно автору и требуется)
Ну а ежели требуется отличить падение с дивана от хлопка в ладоши, достаточно добавить в начало цепочки один или более полосовых фильтров, отсекающих ненужные участки спектра.

> Rembo2010 (11.08.10 16:40) [35]

А ты уже разобрался с PCM-форматом кодирования ?

> Сергей М. © (11.08.10 16:00) [33]
> KilkennyCat © про осциллограмму от балды ляпнул,

ну не совсем, просто это как бы визуально проще понимается, где громко, где негромко и какой частоты. Разумеется, рисовать ее не надо :))

но вообще, хлопковость уже не модно. модно силою мысли.

Как считать звук с микрофона? Найти похожие ветки