Mathe Porblem

[Alf]

hi

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
   s: TTime;
   pTime,e : LongInt;
   c: Real;
   tin:real;
begin

     e:=800;  //Volumen endwert
     tin:=10; //  Testwerte tin
     if CheckBox1.Checked then
        ptime:=MediaPlayer1.Length-MediaPlayer1.Position
     else
         ptime:=MediaPlayer1.Position;

     if Time < tin then
        label2.caption:=floattostr(e/tin*Time) //ergebnis 72,xxxxxxxxxxxxx zahlen
                                               //nix von 0-800 
     else
     timer1.Enabled:=false;

.........

irgendwo ist da noch der haken oder?

hi jelly

Zitat:

Alternativ kannst du das Ganze auch mit einem Timer lösen

das ganze muss über einen Timer Laufen!


gruss Alf