Mathe Porblem

[Alf]

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