sesi azaltmak veya artırmak

[Çağrıbey]

Arkadaşlar, Trackbar kontrolü ile Sesi azaltmak veya çoğaltmanın karmaşık olmayan bir formülü var mı, formda arama yaptim ama örnek bulamadim.

[Ali Erdoğan]

Mutlaka bunun için bir windows apisi vardır.Bu apiyi kullanarak da çok basit bir şekilde yapabilirsin.

Lib deki windows.pas dosyasını incelersen bulabilirsin.

[Çağrıbey]

delphi7 kullaniyorum, malesef belirttiğiniz dosyayi bulamadim.

[Ali Erdoğan]

delphi7 kullaniyorum, malesef belirttiğiniz dosyayi bulamadim.

uses kısmına windows yaz ve üzerine ctrl+sol click yap.

[i_zec]

procedure TForm4.TrackBar1Change(Sender: TObject);
var
ses1,ses2,vol:dword;
begin
ses1:=TrackBar1.Position;
ses2:=TrackBar1.Position;
vol:=(Dword(ses1) Shl 16) or ses2;
waveOutSetVolume(0,vol);
end;