Eins nach dem anderen abarbeiten

Stread · Beiträge: 188 Win 7 Delphi XE

Hi,

ich habe mit einem Timer einen Countdown von 5 sek. auf 0 sek. Dieser wird mir in einem Edit Feld angezeigt wenn ich auf einen Button drücke. Nach dem Countdown soll das Programm noch anderes machen. Mein Problem ist: Wie bekomme ich es hin dass erst die 5 Sekunden ablaufen und dann das Programm fortgesetzt wird? Mit sleep geht auch der Timer nicht weiter. Brauche ich einen Timer für den Timer? :shock:

Jann1k · Verfasst: Mi 21.04.10 19:51

Mehrere Möglichkeiten:

1) Du überprüfst in deiner "anderen" Prozedur in einer while-Schleife, ob der Timer schon fertig mit zählen ist (mit application.processmessages kannst du verhindern, dass dein Programm während der Schleife einfriert).

2) Wenn dein Timer mit dem Zählen fertig ist startet er den "anderen" Programmabschnitt (würde ich als Lösung bevorzugen).

Was du dir überlegen musst, ist was der User während des Countdowns noch machen können soll/darf, und alles andere "abschalten".

Chemiker · Verfasst: Mi 21.04.10 20:08

Hallo Stread,

vielleicht so:

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:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  iTicks:= 0;
  Timer1.Enabled:= TRUE;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  t: String;
  h, m, s: integer;
begin
  iTicks:= iTicks+1;
  s:= iTicks mod 60;
  m:= (iTicks div 60) mod 60;
  h:= (iTicks div 3600) mod 24;

  t:= Format('%2.2d:%2.2d:%2.2d', [h, m, s]);
  Edit1.Text:= t;
  Repaint;
  if iTicks= 5 then
  begin
    Timer1.Enabled:= FALSE;
  end;
end;

Bis bald Chemiker

Stread · Beiträge: 188 Win 7 Delphi XE

Der Benutzer soll nur dem Countdown zusehen und ihn abbrechen können wenn er auf einen Button klickt.
Wann soll das application.processmessages stehen? Am Anfang? In der Schleife? Nur einmal in der ganzen Prozedur?

2) hört sich am besten an aber WIE soll ich das machen? Wie merkt er dass der Timer fertig ist und wie startet/ oder wie setzt er den Programmabschnitt fort?

Chemiker: Ist das nicht ein bisschen zu aufwändig?

Hidden · Verfasst: Mi 21.04.10 21:01

Hi

Einen Timer nehmen, und dann eine Schleife laufen lassen, bis der Timer abgelaufen ist, ist verrückt..

Lösung: Prozedur aufteilen. Der erste Teil läuft ab, startet den Timer und ist fertig. Im OnTimer-Ereignis wir dann der zweite Teil der Prozedur aufgerufen.

lg,

_________________
Centaur spears can block many spells, but no one tries to block if they see that the spell is a certain shade of green. For this purpose it is useful to know some green stunning hexes. (HPMoR)

Stread · Beiträge: 188 Win 7 Delphi XE

Auch wenn der 2. Teil 99% der Prozedur ausmacht?
ich hab es jetzt so gemacht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm12.Button1Click(Sender: TObject);
begin
PrZeit:=5;
TimerPrStart.Enabled:=True;
while PrZeit<>0 do
begin
Application.ProcessMessages;
end;
X1:=....

GuaAck · Verfasst: Mi 21.04.10 21:31

Hi,

Warum nicht anfach alle anderen Arbeiten in der OnTimer-Routine machen, also im Vorschlag von Chemiker

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

IF sTick=5 then
 begin
  Timer1.enabled:=false;
  mache_vieles_andere;
 end;

Gruß
Guenther

Moderiert von Narses: Delphi-Tags hinzugefügt

Hidden · Verfasst: Mi 21.04.10 21:34

Hi

Japp, die Länge des auszuführenden Codesegments ist dabei eigentlich egal.

Also genauso, wie user profile icon

GuaAck das gerade schreibt, falls ich anders verstanden wurde.

lg,

_________________
Centaur spears can block many spells, but no one tries to block if they see that the spell is a certain shade of green. For this purpose it is useful to know some green stunning hexes. (HPMoR)

Chemiker · Verfasst: Mi 21.04.10 22:07

Hallo Stread,

Zitat:

Chemiker: Ist das nicht ein bisschen zu aufwändig?

Das meiste ist doch für das Darstellen in der Edit-Komponente erforderlich.

Zitat:

Der Benutzer soll nur dem Countdown zusehen und ihn abbrechen können wenn er auf einen Button klickt.

Überarbeitet Fassung:

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:

procedure TForm1.btStartClick(Sender: TObject);
begin
  iTicks:= 6;
  Timer1.Enabled:= TRUE;
  btStop.Enabled:= TRUE;
  btStart.Enabled:= FALSE;
end;

procedure TForm1.btStopClick(Sender: TObject);
begin
  Timer1.Enabled:= FALSE;
  btStop.Enabled:= FALSE;
  btStart.Enabled:= TRUE;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  t: String;
  h, m, s: integer;
begin
  iTicks:= iTicks-1;
  s:= iTicks mod 60;
  m:= (iTicks div 60) mod 60;
  h:= (iTicks div 3600) mod 24;

  t:= Format('%2.2d:%2.2d:%2.2d', [h, m, s]);
  Edit1.Text:= t;
  Repaint;
  if iTicks= 0 then
  begin
    Timer1.Enabled:= FALSE;
  end;
end;

Bis bald Chemiker

Hidden · Verfasst: Mi 21.04.10 22:18

Hi

Statt eines Edits würde ich dann auch jeden Fall ein Label nehmen.
Der Quelltext von user profile icon

Chemiker lässt ja eigentlich immer noch die Frage offen, wo denn die eigentliche Prozedur aufgerufen wird(vmtl. vergessen). Die käme dann noch in die Abfrage "iTicks = 0" rein.

lg,

_________________
Centaur spears can block many spells, but no one tries to block if they see that the spell is a certain shade of green. For this purpose it is useful to know some green stunning hexes. (HPMoR)

Chemiker · Verfasst: Do 22.04.10 01:31

Hallo Hidden,

und in den Stopp-Button-Ereignis.
2 Version:

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:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:

unit frmDemoTimerDemo;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Edit1: TEdit;
    btStop: TButton;
    btStart: TButton;
    btSchliessen: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure btStartClick(Sender: TObject);
    procedure btStopClick(Sender: TObject);
    procedure btSchliessenClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    iTicks: integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure PRG_Starten();
begin
  ShowMessage('Das Programm ist gestartet');
  Form1.btSchliessen.Enabled:= TRUE;
end;

procedure TForm1.btSchliessenClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.btStartClick(Sender: TObject);
begin
  iTicks:= 6;
  Timer1.Enabled:= TRUE;
  btStop.Enabled:= TRUE;
  btStart.Enabled:= FALSE;
end;

procedure TForm1.btStopClick(Sender: TObject);
begin
  Timer1.Enabled:= FALSE;
  btStop.Enabled:= FALSE;
  btStart.Enabled:= TRUE;
  PRG_Starten();
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if not (Timer1.Enabled) then
  begin
    Action:= caFree;
  end else
  begin
    Action := caNone;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  t: String;
  h, m, s: integer;
begin
  iTicks:= iTicks-1;
  s:= iTicks mod 60;
  m:= (iTicks div 60) mod 60;
  h:= (iTicks div 3600) mod 24;

  t:= Format('%2.2d:%2.2d:%2.2d', [h, m, s]);
  Edit1.Text:= t;
  Repaint;
  if iTicks= 0 then
  begin
    Timer1.Enabled:= FALSE;
    PRG_Starten();
  end;
end;
end.;

Bis bals Chemiker

Hidden · Verfasst: Do 22.04.10 08:51

Hi

Der Stopp-Button dient glaube ich zum Abbrechen, oder?
Aber ein Sofort-Starten-Button wäre eventuell auch gut.

Intuitiv würde ich jetzt erwarten, dass der Countdown abgebrochen wird und das Programm geschlossen, wenn ich das Fenster schließe.

lg,

_________________
Centaur spears can block many spells, but no one tries to block if they see that the spell is a certain shade of green. For this purpose it is useful to know some green stunning hexes. (HPMoR)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme