Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.25;
Скачать: CL | DM;

Вниз

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

 
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...


 
Digitman ©   (2005-07-18 12:24) [7]


> SpyBoy ©   (18.07.05 00:58) [3]
> А как насчёт этого:


А где здесь идет речь о каких-то там "динамиках" ?


 
SpyBoy ©   (2005-07-20 20:14) [8]

Antonn ©   (18.07.05 12:23) [6]
TWAVEOUTCAPS-что за тип и вкаком модуле лежит?


 
XProger ©   (2005-07-20 21:36) [9]

mmSystem



Страницы: 1 вся ветка

Текущий архив: 2005.12.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.03 c
14-1133388997
crazycorpse
2005-12-01 01:16
2005.12.25
Интерпритатор формул


6-1126597225
saNat
2005-09-13 11:40
2005.12.25
Ошибка при подключении к серверу


1-1133426979
general
2005-12-01 11:49
2005.12.25
Ограничение на длину элемента списка в TMemo


3-1131004093
AlexTer
2005-11-03 10:48
2005.12.25
Отчет с перекрестной таблицей


14-1133787571
syte_ser78
2005-12-05 15:59
2005.12.25
Постоянное подключение к ЮСБ