Мощный звук

← →
SpyBoy © (2005-07-17 21:01) [0]

Как в несколько раз увеличить громкость динамиков?

← →
ххх (2005-07-17 21:53) [1]

Купить динамики помощьнее :)

← →
Marser © (2005-07-18 00:23) [2]

УЗЧ помощнее. Если динамики выдержат - хорошо :-))

← →
SpyBoy © (2005-07-18 00:58) [3]

ххх (17.07.05 21:53) [1]
Marser © (18.07.05 00:23) [2]
А как насчёт этого:
procedure TForm1.TrackBar1Change(Sender: TObject);
var LValue,RValue:Word; begin LValue:=$FF-TrackBar1.Position; RValue:=$FF-TrackBar2.Position; waveOutSetVolume(0, (RValue SHL 8)+LValue); end;

← →
ххх (2005-07-18 04:16) [4]

А от этого динамики громче не станут, просто повысится амплитуда сигнала выходящего с аудиокарты.

А сам вопрос был именно о том, КАК УВЕЛИЧИТЬ ГРОМКОСТЬ ДИНАМИКОВ, именно динамиков, а не усилителя и аудиокарты.
Я сомневаюсь, что это можно сделать без покупки новых динамиков.

p.s. народ, умейте правильно задавать вопросы, какой вопрос - такой и ответ

← →
Sha © (2005-07-18 10:42) [5]

> ххх
> Купить динамики помощьнее :)

Неверно.
Вопрос в том, как в несколько раз увеличить громкость динамиков?
Т.е. как увеличить КПД, а не масимально воспроизводимую мощность.
Правильный ответ: купить динамики с большей отдачей.

> p.s. народ, умейте правильно задавать вопросы, какой вопрос - такой и ответ

Во-во. А еще умейте правильно отвечать :)

← →
Antonn © (2005-07-18 12:23) [6]

> Как в несколько раз увеличить громкость динамиков?

все проще - нужно увеличить громкость, а не пускаться в дебри про КПД, звуковое давление, диаметр купола и тп.

procedure SetWaveVolume(const AVolume: DWord);
var
Woc : TWAVEOUTCAPS;
begin
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =
MMSYSERR_NOERROR then
if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
WaveOutSetVolume(WAVE_MAPPER, AVolume);
end;

использование:
SetWaveVolume(MakeLong(TrackBar1.Progress*655,TrackBar2.Progress*655)); // max равен по 100, ессно...
//хотя там до 65535...

mmSystem

Мощный звук Найти похожие ветки