Trackbar/Slider nach Zeit bewegen!?

[alfold]

Hi, irgendwie hänge ich seit Tagen daran und finde keine Lösung!
Der Slider der Trackbar, soll von Max zu einer vorgegebenen Position in einer Vorgegeben Zeit sich bewegen!
Irgend wie stimmt da an der Formel was nicht oder im Timer!
noch zur Info:
Trackbar.Max:= 70;
Timer:= 17;
Der Slider bewegt sich ,kommt aber nie an seiner vorgegebenen Position an!

Vielleicht könnt ihr mir Helfen und findet das was falsch ist???? :cry:

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  StdCtrls, Buttons,  ExtCtrls, ComCtrls, Math;

type

  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    TrackBar1: TTrackBar;
    BlinkTimer: TTimer;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BlinkTimerTimer(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
  private
    { Private-Deklarationen }
    fin, trackbarzeit: Double;
    isSliding: Boolean;
    checktime, is_checktime, counter: TTime;
    checkfin:Double;
    endpos: Integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    Label1.Caption:= 'Eingabe Zeit in sec+millisec';
    Label2.Caption:= 'Eingabe Endpos';
    Button1.Caption:= 'Start';
    Edit1.Text:='10,000'; //Zeit Vorgabe in sec und millisec
    Edit2.Text:= '10';  //Zielposition des Sliders
    fin:= 10.000;
    endpos:= 10;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    checkfin:= 0;
    //---------------//
    trackbarzeit:= RoundTo((fin /(70-endpos)), -3);
    //---------------//
    Label3.Caption:= floattostr(trackbarzeit);
    TrackBar1.Position:= 70;
    issliding:= True;
    checktime:= Now;
    counter:= Now;
end;

procedure TForm1.BlinkTimerTimer(Sender: TObject);
begin
    Label4.Caption:= FormatDateTime('hh:nn:ss:zzz', Now- counter);

    if isSliding then
    begin
        is_checktime:= roundto(((Now- checktime) * 100000),-3);
        Label5.Caption :=  TimeToStr(is_checktime);
        if is_checktime > (trackbarzeit) then
        begin
            Label6.Caption:= FormatDateTime('hh:nn:ss:zzz', now- counter);
            checkfin:= checkfin+is_checktime;
            Label7.Caption:= FloatToStr(checkfin);
            TrackBar1.Position:=TrackBar1.Position -1;

            if checkfin >= fin then isSliding:= False;

            checktime:= Now;
        end;
    end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
    if Edit1.Text <>'' then
      fin:= StrToFloat(Edit1.Text);
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
    if Edit2.Text <>'' then
      endpos:= StrToInt(Edit2.Text);
end;

end.

[stahli]

irgendwie so?

Delphi-Quellcode:

// Initialisierung
StartTime := Now;
Duration := ...; // TDateTime
EndTime := StartTime + Duration;
Pos := MaxPos;
Length := MaxP - MinP;

// in Timerbehandlung
if (Now < EndTime) then
  Pos := MaxPos - Round(((Now - StartTime) * Length)) / Duration)
else
  Pos := MinPos;

[alfold]

Wie kommt man auf so eine Formel? :shock:
Ich nie und nimmer!!!!

Funct so weit so gut.
Einen Makel gibt es noch. Wenn die Zeit < 1sec ist, erreich er die endpos nicht.
Bei allen anderen Zeitwerten > 1sec wird die endpos vor der eingegebenen Zeit erreicht. Je grösser der Zeitwert je grösser die Differenz.:gruebel:

"Ist allerdings bei meinem Konstrukt auch, was die Zeiten betrifft."

Vermutung: integer, double also 'round' irgendwo bleibt der Rest.:wink:

gruss

[Sir Rufo]

Zitat:

Zitat von alfold (Beitrag 1315032)

Wie kommt man auf so eine Formel? :shock:
Ich nie und nimmer!!!!

Muss man in der Schule besser aufpassen, denn das ist ein klassischer Dreisatz :mrgreen:

Und wenn es nicht so genau hinkommt, dann muss man intern eben mit den Floats weiterrechnen.

[stahli]

Ja, die Formel führt mich auch schon an meine Grenzen. ;-)

Schalte den Timer mal erst nach dem "else" aus.
Dann wird je die MinPos eingestellt und dann kann der Timer aus gestellt werden.
Dann müsste es immer passen.

[alfold]

Dreiersatz.... da war doch mal was vor 40 Jahren.:wink:
Spass bei Seite.
Die Umrechnung vom Eingabefeld stimmt nicht!
Wenn '10,000' drin steht kommt ein anderer Wert bei der Ausgabe an!?

Code:

duration:= StrToFloat(Edit1.Text) / 100000;
Label7.Caption:= FormatDateTime('hh:nn:ss:zzz', duration);

Ausgabe 00:00:08:625 !
Wo liegt denn nun da der Fehler?:wall:

[stahli]

Was willst Du denn rechnen?

Schau Dir mal OneSecond an.
Das ist ein Floatwert, der für 1 Sekunde steht.

Je nachdem, was Du erreichen willst kannst Du damit weiter rechnen...

[alfold]

Jo, ändert aber nichts an der Tatsache.
Wenn ich 10,000 im Eingabefeld eingebe, darf nach der Umrechnung nicht 8 rauskommen.
Also muss da irgend was Falsch sein.
Ich Teste das ja schon seit Tagen und lass mir die einzelnen Parameter im Label Anzeigen. Nur die Umrechnung hab ich nie getestet und demzufolge jetzt erst bemerkt.

gruss

[stahli]

Was soll den rauskommen? Bzw. was willst Du berechnen?

[nahpets]

Zitat:

Zitat von alfold (Beitrag 1315037)

Dreiersatz.... da war doch mal was vor 40 Jahren.:wink:
Spass bei Seite.
Die Umrechnung vom Eingabefeld stimmt nicht!
Wenn '10,000' drin steht kommt ein anderer Wert bei der Ausgabe an!?

Code:

duration:= StrToFloat(Edit1.Text) / 100000;
Label7.Caption:= FormatDateTime('hh:nn:ss:zzz', duration);

Ausgabe 00:00:08:625 !
Wo liegt denn nun da der Fehler?:wall:

Du rechnest 10 / 100000 = 0.0001
Ein Tag hat 24 Stunden * 60 Minuten * 60 Sekunden -> 86400 Sekunden.
86400 * 0.0001 = 8,64 Sekunden.

Bei mir ist die Ausgabe

Delphi-Quellcode:

00:00:08:640

.
Der Fehler liegt demnach bei 0.015 Sekunden, oder welches Ergebnis hattest Du erwartet?

Soll 10,000 gleich zehn komma null sein oder zehntausend?