Jak regulowac poziom dzwieku w FAQ jest tylko funkcja lae jak z nij korzystac :]
co
WaveSetOut(0, FFFFFFFF) := Track.Poision; ??
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