Zeit berechnen/abschätzen bis eine Prozedur abgearbeitet ist

freedy · Beiträge: 403 Erhaltene Danke: 1 Winows 7 Delphi XE

Hallo Forum!

Mir war mal wieder langweilig und da dachte ich mir, dass meinem Programm noch ein letzter Schliff fehlt.

Nein, ganz im Ernst... es wird so gefordert.

Aber hier nun mein Problem. Ich habe eine Prodezur laufen, die einige Berechnungen mit sich bringt. Da möchte ich gerne dem Benutzer zeigen, wie lange er noch warten muss. Kennt man ja aus vielen Progs.

Hier mal mein (reduzierter) Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

procedure TableCreateClick;
var
  Index : Integer;
  Line : String;
  EstimatedTime : TDateTime;
  t1, t2 : TDateTime;
  TimeStr : String;
begin
  try
    Screen.Cursor := crHourGlass;

    // Zeit holen
    t1 := Time;

    for Index := 0 to Count - 1 do
    begin

      // Hier wird die Berechnung ausgeführt

      // wenn das Zeitintervall zu klein ist, rechnet er immer mit NULL 
      // deshalb nur jeden 50. Schritt berechnen.
      if ((Count - Index) Mod 50 = 0) then
      begin
        t2 := Time;
        EstimatedTime := (Count - Index) * (t2 - t1);
        TimeStr := FormatDateTime('nn:ss', EstimatedTime);

        if Label6.Caption <> TimeStr then
          Label6.Caption := TimeStr;
        t1 := Time;
      end;
    end;

  finally
    Screen.Cursor := crDefault;
  end;
end;

Anstelle von sinnvollen Ausgaben auf meinem Label, werden ständig wechselnde Zeiten ausgegeben.

Hat jemand sowas schon einmal gemacht? Danke für eure Tips.

Gruß
freedy

Ehemaliges Mitglied Erhaltene Danke: 1

Für gewöhnlich wird vor Anfang der Berechnung überschlagen oder manchmal sogar genau berechnet, wie lange der Vorgang dauert, dann die Skala-Einteilung(TProgressBar) vorgenommen und in regelmäßigen Abständen während der Berechnung der Fortschritt aktualisiert.

freedy · Beiträge: 403 Erhaltene Danke: 1 Winows 7 Delphi XE

Hm... okay. Klingt erstmal einleuchtend. Eine Progressbar habe ich auch schon. Das klappt.

Ich würde aber gerne zeigen, wie lange der Vorgang noch dauert in Minuten/Sekunden.

Denn in knapp 15sec. gibt es auf der ProgressBar gerade mal 1%. Den Benutzer interessiert, ob er sich einen Kaffee kochen kann, oder nicht. :wink:

Gruß
freedy

patrick · Beiträge: 1481 WIN2k, WIN XP D6 Personal, D2005 PE

damit hast du dir schon selbst die antwort gegeben:
alles was du machen musst ist folgendes:
wenn das programm für 1% 15 sekunden braucht, dann kannst du berechnen wie lange es für 100% brauchst.

_________________
Patrick
im zweifelsfall immer das richtige tun!!!

patrick · Beiträge: 1481 WIN2k, WIN XP D6 Personal, D2005 PE

ich hab auf die schnelle dann mal eine entsprechende funktion erstellt:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

{-----------------------------------------------------------------------------
  Procedure: CalcEstimateTime
  Version:   1.0.0.0
  Author:    Patrick || NetTraxX.de.vu
  Date:      10.02.2005 22:28:22
  Arguments: StartTime,CurrentTime,MaxProgress,CurrentProgress:integer
  Result:    single - Estimate time in seconds
  Purpose:   StartTime and CurrentTime have to be milliseconds
  Notes:
-----------------------------------------------------------------------------}
function CalcEstimateTime(StartTime,CurrentTime,MaxProgress,CurrentProgress:integer):single;
var DivTime,
    ProgressDiv:integer;
begin
  DivTime := CurrentTime - StartTime;
  ProgressDiv := (MaxProgress - CurrentProgress);
  result := (DivTime / CurrentProgress) * ProgressDiv / 1000;
end;

aufrufbeispiel:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

var
  Form1: TForm1;
  GetStartTime: integer;
implementation

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetStartTime:=GetTickCount;
  Timer1.Enabled:=true;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var GetCurrentTime:integer;
begin
  ProgressBar1.StepIt;
  GetCurrentTime:=GetTickCount;
  Edit1.Text:=FloatToStr(CalcEstimateTime(GetStartTime,GetCurrentTime,progressbar1.Max,progressbar1.Position));
end;

_________________
Patrick
im zweifelsfall immer das richtige tun!!!

Spaceguide · Beiträge: 552 (D3/D7/D8) Prof.

Das ganze bitte nicht bei CurrentProgress=0 aufrufen ;-)

patrick · Beiträge: 1481 WIN2k, WIN XP D6 Personal, D2005 PE

jo, kann man nachvollziehen ^^
ich hab meine "schlampige" version überarbeitet und ne sicherheitsabfrage eingebaut.
hier die version 1.0.1.0:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

{-----------------------------------------------------------------------------
  Procedure: CalcEstimateTime
  Version:   1.0.1.0
  Author:    Patrick || NetTraxX.de.vu
  Date:      10.02.2005 22:28:22
  Arguments: StartTime,CurrentTime,MaxProgress,CurrentProgress:integer
  Result:    single - Estimate time in seconds
                    - "-1" on error
  Purpose:   StartTime and CurrentTime have to be milliseconds
  Notes:
-----------------------------------------------------------------------------}
function CalcEstimateTime(StartTime,CurrentTime,MaxProgress,CurrentProgress:integer):single;
var DivTime,
    ProgressDiv:integer;
begin
  DivTime := CurrentTime - StartTime;
  ProgressDiv := (MaxProgress - CurrentProgress);

  if (DivTime >= 0) and (ProgressDiv >= 0) and (CurrentProgress > 0) then
  begin
    result := (DivTime / CurrentProgress) * ProgressDiv / 1000;
  end
  else
  begin
    result:=-1;
  end;
end;

im fehlerfall wir als resultat -1 ausgegeben.
das kommt davon wenn man spät nachts ne 0815 programmierung hinrotzt :oops:

_________________
Patrick
im zweifelsfall immer das richtige tun!!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme