| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Мощный звук
SpyBoy © (2005-07-17 21:01:00)Как в несколько раз увеличить громкость динамиков?
XProger (2005-07-20 21:36:00) [1]mmSystem
SpyBoy (2005-07-20 20:14:00) [2]Antonn © (18.07.05 12:23) [6]
TWAVEOUTCAPS-что за тип и вкаком модуле лежит?
Digitman (2005-07-18 12:24:00) [3]
> SpyBoy © (18.07.05 00:58) [3]
> А как насчёт этого:
А где здесь идет речь о каких-то там "динамиках" ?
Antonn (2005-07-18 12:23:00) [4]
> Как в несколько раз увеличить громкость динамиков?
все проще - нужно увеличить громкость, а не пускаться в дебри про КПД, звуковое давление, диаметр купола и тп.
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...
Sha (2005-07-18 10:42:00) [5]> ххх
> Купить динамики помощьнее :)
Неверно.
Вопрос в том, как в несколько раз увеличить громкость динамиков?
Т.е. как увеличить КПД, а не масимально воспроизводимую мощность.
Правильный ответ: купить динамики с большей отдачей.
> p.s. народ, умейте правильно задавать вопросы, какой вопрос - такой и ответ
Во-во. А еще умейте правильно отвечать :)
ххх (2005-07-18 04:16:00) [6]А от этого динамики громче не станут, просто повысится амплитуда сигнала выходящего с аудиокарты.
А сам вопрос был именно о том, КАК УВЕЛИЧИТЬ ГРОМКОСТЬ ДИНАМИКОВ, именно динамиков, а не усилителя и аудиокарты.
Я сомневаюсь, что это можно сделать без покупки новых динамиков.
p.s. народ, умейте правильно задавать вопросы, какой вопрос - такой и ответ
SpyBoy (2005-07-18 00:58:00) [7]ххх (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;
Marser (2005-07-18 00:23:00) [8]УЗЧ помощнее. Если динамики выдержат - хорошо :-))
ххх (2005-07-17 21:53:00) [9]Купить динамики помощьнее :)
| |
