Einfach Stoppuhr

[Pitch-Bull]

Ich möchte eine einfache Stoppuhr proggen, die Sekundengenau ist und nach einem bestimmten Zeitintervall wieder auf 00:00 steht.

Wie kann ich das am besten machen?

[barf00s]

schau dir mal den TTimer an (im reiter System zu finden)

[Pitch-Bull]

Ich habe das jetzt so programmiert:

Delphi-Quellcode:

procedure TForm1.Timer3Timer(Sender: TObject);
begin
  if Sekunde<10 then Label1.Caption:=IntToStr(minute)+':0'+IntToStr(Sekunde)
  else Label1.Caption:=IntToStr(minute)+':'+IntToStr(Sekunde);
  sekunde:=sekunde+Timer3.Interval div 1000;
  if Sekunde=60 then
  begin
  Minute:=minute+1;
  Sekunde:=0;
  end;
end;

Meinst du es geht auch einfacher?

Zitat:

reiter System

was is n dat?

[barf00s]

"Reiter" sind die "Tabs" in einem PageControl ... guxtu mal in die Komponentenleiste -.-°


Wie alt warst du gleich noch? (verzeih mir die frage)

[Luckie]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    StartTime: TTime;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := TimeToStr(Time - StartTime);
end;

[Pitch-Bull]

20 steht doch da! warum denn? ist die frage so kacke, oder wie?

[Luckie]

Und mäßige bitte deine Ausdrucksweise.

[Pitch-Bull]

Tschuldigung.
Aber ist doch wahr!!

Naja, nichts desto trotz hast du (luckie) mir mal wieder weitergeholfen.

Danka

P.S. So hieß übrigens mal meine Katze

[AlexII]

Zitat von Luckie:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    StartTime: TTime;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := TimeToStr(Time - StartTime);
end;

Luckie ich habe aber mehrere Timer im Programm und ich denke deswegen funkt das bei mir nicht. Wie weise ich der StartTime meinen sechsten Timer zu?

[himitsu]

Zitat von AlexII:

Luckie ich habe aber mehrere Timer im Programm und ich denke deswegen funkt das bei mir nicht. Wie weise ich der StartTime meinen sechsten Timer zu?

Wenn mehrere Timer gleichzeitig laufen können, dann
jedem Timer ein eigenes "StartTime".