Timer

[P.A.P.]

Hallo,
ich stell mich gerade richtig dumm an, ich glaube es ist ganz einfach aber ich arbeite das erste mal mit einem Timer.
Und zwar möchte ich einfach nur auf einem Panel eine zeit hochlaufen lassen und zwar mit sekunden und millisekunden. Wenn diese zeit einen wert überschreitet der sich in einem edit befindet, soll die uhr stoppen... Wie stell ich das am einfachsten an???

[a.def]

Hast du denn schon irgendwelche Tests die du vorweisen kannst?

[P.A.P.]

Im Moment hab ich einen Button der den Timer startet. In dem Timer steht dann folgendes:
procedure TForm1.Timer1Timer(Sender: TObject);
var
zähler: Real;

begin
zähler:=zähler+0.1;
PZeit.caption:=FloatToStr(zähler);
end;

Dann setzt es den Timer aber immer wieder auf 0 zurück und zeigt immer 0.1 an...
und wie man denn stoppt weiß ich noch nicht so ganz

[a.def]

Wär das was?

Delphi-Quellcode:

// oben bei private deklarieren:
iMilliSeconds: Integer;
// .....

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Inc(iMilliSeconds, Timer3.Interval);
 Panel1.Caption := IntToStr(iMilliSeconds);

 if iMilliSeconds = 5000 then
  Timer1.Enabled := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 iMilliSeconds := 0;
 Timer1.Enabled := True;
end;

Der setzt dir "zähler" immer wieder auf 0 zurück, weil "zähler" im Timer selber deklariert ist. Bei jedem Timerdurchlauf gehts dann wieder an den Anfang, also 0.
Die Variable "zähler" (oder wie bei mir iMilliSeconds) muss außerhalb des Timers deklariert werden und darf nur EIN MAL initialisiert (zurückgesetzt) werden. Am besten im Button der auch den Timer startet.

P.S.: wirkliche Millisekunden sind das aber auch nicht. Pro 1000ms die im Panel angezeigt werden kommt es mir so vor, als ob das tatsächlich etwa 1,5 Sekunden wären.

[Mavarik]

Zitat von P.A.P.:

Im Moment hab ich einen Button der den Timer startet. In dem Timer steht dann folgendes:
procedure TForm1.Timer1Timer(Sender: TObject);
var
zähler: Real;

begin
zähler:=zähler+0.1;
PZeit.caption:=FloatToStr(zähler);
end;

Dann setzt es den Timer aber immer wieder auf 0 zurück und zeigt immer 0.1 an...
und wie man denn stoppt weiß ich noch nicht so ganz

Zähler ist eine lokale Variable - Die verliert immer ihren Wert, wenn die Procedure beendet wird... Verschieben Var Zähler:real mal in den private Teil des Forms.

Mavarik

[P.A.P.]

Ok also zählen tut es schonmal um das ganze zu stoppen dachte ich mir jetzt folgendes:

procedure TForm1.Timer1Timer(Sender: TObject);
var zeit:real;
begin
zeit:=StrToFloat(Edit2.Text);
zähler:=zähler+0.1;
PZeit.caption:=FloatToStr(zähler);
if zähler=zeit then
begin
Timer1.Enabled:=false;
end;
end;

auch wenn Zähler=zeit ist, führt es die zeile nicht aus...

[Olli73]

Zitat von a.def:

P.S.: wirkliche Millisekunden sind das aber auch nicht. Pro 1000ms die im Panel angezeigt werden kommt es mir so vor, als ob das tatsächlich etwa 1,5 Sekunden wären.

Ein Timer ist viel zu ungenau. Besser du speicherst dir in der Variablen GetTickCount ab und rechnest immer GetTickCount - DieVariable.

[P.A.P.]

Danke für den Tipp, aber wie löse ich jetzt das Problem mit dem stoppen des Timers?

[Mavarik]

Zitat von P.A.P.:

auch wenn Zähler=zeit ist, führt es die zeile nicht aus...

if RealA = RealB funktioniert fast nie, da ggf. hintern Komma eine Ungenauigkeit entsteht...

Entweder nimm integer... bei der Ausgabe kannst du ja wieder durch 1000 teilen oder schreibe den if mit ">=".

Zitat von Olli73:

Ein Timer ist viel zu ungenau.

Er zählt doch selber... Da ist die Genauigkeit des Timers doch egal!

[Olli73]

Zitat von P.A.P.:

Danke für den Tipp, aber wie löse ich jetzt das Problem mit dem stoppen des Timers?

Entweder du rechnest komplett in Millisekunden (Typ Cardinal, wie es GetTickCount zurückgibt) oder du prüfst einfach mit SameValue(...). Denn bei real und Co darf man nie auf gleich prüfen, da diese Zahlen zu ungenau sind und fast nie z.B. exakt 2.0 ergeben sondern z.B: 2,000....0001.