Hi Leute
nix für ungut habe aber das problem gelöst.
die Vorlage kamm von Jelly
Delphi-Quellcode:
var
Vout: Real;
Tfest: Real;
Tout: Real;
begin
Vout:=800; //ist der Anfangwert von Volumen
Tfest:=60; //ist der Anfangszeitwert, in msec Beispiel(59.500 o. 0,500)
Tout:=Tfest*64.3; //in in sec (*4.3 scheint irgentwie was mit den TTimer zu tun
//ansonsten gibt es eine Zeitdifferenz)
............
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
pTime : LongInt;
tt: real;
Tin: real;
begin
if CheckBox1.Checked then
ptime:=MediaPlayer1.Length-MediaPlayer1.Position
else
ptime:=MediaPlayer1.Position;
Label2.Caption:='Time: '+zeit(ptime);
if (Tout)>0 then
begin
tt:=(Vout/(Tfest))*(Tout/64.3);
tin:=(sqr((tt))/1000); //hier wird der Wert in ein "Log" für
SetMPVolume(MediaPlayer1,Round(tin)); //SetMPVolume, ergibt weiches Fade
TrackBar1.SelStart:=(Round(1000-tt)); //der Balken wird mitbewegt
Label7.Caption:=FloatToStr(Round((tt)));
Tout:=(Tout-1); // Toutwert verkleinern
end
else
Timer1.Enabled:=False;
end;
Anbei, sollte ein Forum auch für unwissende sein, so wie "Ich"
sonst breuchte man kein Forum oder?
Programiere ja nur in der Urlaubzeit!!
Dank an alle
Gruss Alf