Timer Problem

[Darksniper]

danke für die mühe

aber das problem besteht weiterhin

wenn ich zb 1Min eingebe dann zählt das Label so runter

00:00:58
00:00:56
00:00:54
00:00:52
...
...
...
..
.

[Darksniper]

:?: Weis denn hier keiner eine Lösung für dieses Problem? :?:

[sirius]

Zitat:

Zitat von Darksniper

der timer funktioniert aber das label kommt nicht nach mit dem aktualisieren

Eine exakte Fehlerbeschreibung ist alles!

Es ist nicht das Label, was nicht nachkommt, sondern dein algo ist falsch. Darauf kommt man in dem man bemerkt, dass nicht jede zweite Zahl ausgelassen wird (oder eine willkürliche), sondern immer wieder dieselben.

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject);
var
    EM,ES,EH: Integer;
begin

  if SZ=0 then //diese Abfrage noch als Ergänzung
    Button3click(self)
  else
  begin
    dec(SZ);
    EH:=SZ div 3600;
    EM:=(SZ div 60) mod 60;
    ES:=SZ mod 60;
    label1.Caption:=format('%2d:%2d:%2d',[EH,EM,ES]);
  end;
end;

[scrat1979]

Habe mir erst vor ein paar Tagen auch einen Countdown gebastelt. WEnn ich nachher Zeit habe werde ich mein Source mal posten. Falls ich es vergesse -> PN schicken.

SCRaT

[scrat1979]

Danke für Deine Erinnerungs-Mail. Habe Dir gerade mal einen Mini-Countdown gebastelt. Das Prinzip ist folgendes:

• Man hat 3 Edit-Felder für STunden, Minuten und Sekunden.
• Beim Klick auf Start wird der aktuelle Zeitstempel in Form eines TDateTimes eingelesen
• Über IncHour, IncMinute und IncSecond wird der Zeitstempel des Countdown-Endes berechnet
• Im OnTimer-Ereignis wird der jeweils aktuelle Zeitstempel mit dem "Endzeitstempel" verglichen
  und die ausstehenden Stunden, Minuten und Sekunden in einem Label ausgegeben

Hier mal mein kompletter Source-Code. Ach so, nicht vergessen, die Unit "DateUtils" einzubinden!!!!

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit_STunden: TEdit;
    Edit_Minuten: TEdit;
    Edit_Sekunden: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Label_CountDown: TLabel;
    Timer: TTimer;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    DateTimeEnd : TDateTime;
    procedure UpdateCountDown;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var DateTimeNow : TDateTime;
begin
  // Aktueller Zeitstempel
  DateTimeNow := now;

  { Zu aktuellem Zeitstempel Stunden, Minuten und Sekunden
    dazuzählen um Zeitstempel des Countdownendes zu ermitteln }
  DateTimeEnd := inchour(DateTimeNow, strtoint(edit_stunden.Text));
  DateTimeEnd := incminute(DateTimeEnd, strtoint(edit_minuten.Text));
  DateTimeEnd := incsecond(DateTimeEnd, strtoint(edit_sekunden.Text));

  { Timer starten... }
  Timer.Enabled := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Label_Countdown.Caption := 'Inaktiv';
  Timer.Enabled := False;
end;

procedure TForm1.TimerTimer(Sender: TObject);
begin
  // Falls aktueller Zeitstempel >= Ende dann Timer beenden
  if now >= DateTimeEnd then Begin;
    { hier können dann Aktionen ausgeführt werden... }
    timer.Enabled := False;
    Showmessage('Countdown beendet!');
  end Else
  { Countdown aktualisieren }
  UpdateCountDown
end;

procedure Tform1.UpdateCountDown;
var h, m, s      : integer;
    hs, ms, ss   : String;
    DateTimeTemp : TDateTime;
begin
  { Aktueller Zeitstempel }
  DateTimeTemp := Now;

  { Zeitspanne ausrechnen }
  { Stunden }
  h  := HoursBetween(DateTimeTemp, DateTimeEnd);
  hs := InttoStr(h);
  if Length(hs) = 1 then hs := '0' + hs;
  DateTimeTemp := IncHour(DateTimeTemp, h);

  { Minuten }
  m  := MinutesBetween(DateTimeTemp, DateTimeEnd);
  ms := InttoStr(m);
  if Length(ms) = 1 then ms := '0' + ms;
  DateTimeTemp := IncMinute(DateTimeTemp, m);

  { Sekunden }
  s  := SecondsBetween(DateTimeTemp, DateTimeEnd);
  ss := InttoStr(s);
  if Length(ss) = 1 then ss := '0' + ss;

  { Label ausgeben }
  LabeL_CountDown.Caption := Format('%s:%s:%s', [hs, ms, ss]);
end;

end.

- getest und funktioniert!

Grüße,
SCRAT