LAMERIADA 2: jak regulowac poziom dzwieku ??

Jak regulowac poziom dzwieku w FAQ jest tylko funkcja lae jak z nij korzystac :]

co
WaveSetOut(0, FFFFFFFF) := Track.Poision; ??

ty naprawde nie myslisz glowa a ....

Masz ten kod wsadz go do jakiegos trackbara i juz
pierwsze 4xf to bodajze glosnik lewy a 4xf po prawej to prawy

ej jak boga kocham wstawialem

procedure TrackBar1Change(.......cośtam)
WaveSetOut(no ite róze wartosci);
end;

i nothing po kliknieciu (tlko klikniecei) i Od razu ustawia si e na maxa albo na min.

To widocznie slabo kochasz Boga

Gdy umieścisz na komponencie komponent "ScrollBar" chcesz, aby przy jego pomocy regulować dzwięk. W procedurze "OnScroll" tego komponentu powinieneś wpisać taki kod:

if ScrollPos = 100 then { jezeli jest na maxa to ustaw dzwiek na maxa }
WaveOutSetVolume(0, $FFFFFFF)
else
WaveOutSetVolume(0, ScrollPos * 1000);
{ inaczej ustaw wg. ustawień Scroll'a }

Nie zapomnij do listy modułów ( uses ) dodać słowa "MMSystem".

Autor: Adam Boduch

użyj do tego TrackBara
w delphi 5 jest to zakładka Win32

ustaw właściwość max na 65535

i w zdarzeniu onchange wpisz:
WaveOutSetVolume(0, (TrackBar1.Position and TrackBar1.Position))

aha , nie zapomnij dodać do uses modułu MMSystem.

powodzenia!

AHA
dział ato wylko dla plików wav, dla midi lub CD trzeba zrobić inaczej.

LOOFIX Dzieki za pomoc :]

na ale ja dizs bylem u spowiedzi i boog mi przebaczyl

Jak regulowac poziom dzwieku w FAQ jest tylko funkcja lae jak z nij korzystac :]

co
WaveSetOut(0, FFFFFFFF) := Track.Poision; ??

Ludzie, metodą prób i błędów trochę zmodyfikowałem ten kod.

W onScrollu musisz wpisać:

if ScrollBar1.Position = 60 then WaveOutSetVolume(0, $ffffffff)
else WaveOutSetVolume(0, $ffScrollBar1.Position1024*$ff);

Oczywiście w scrollBar maksymalną wartość dajesz na 60