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. :warn:

[Pitch-Bull]

Tschuldigung.
Aber ist doch wahr!!

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

Danka :dp:

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

[AlexII]

Zitat:

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? :gruebel: :gruebel:

[himitsu]

Zitat:

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? :gruebel: :gruebel:

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