como crear un cronometro completo

[[kurono]]

amigo delphius ya termine el cronometro y funciona perfectamente

Código Delphi [-]
  public
    { Public declarations }
    segundos,minuto,hora:integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
segundos:=segundos+1;
label1.Caption:=inttostr(segundos);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
minuto:=0;
segundos:=0;
hora:=0;
timer1.Enabled:=true;
timer2.Enabled:=true;
timer3.Enabled:=true;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
minuto:=minuto+1;
label2.Caption:=inttostr(minuto);
segundos:=00;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
hora:=hora+1;
label3.Caption:=inttostr(hora);
end;

end.

pero como decias antes hay forma mas facil de hacer y me estaba preguntando si no habra un componente que haga estoy solo para reducir el tiempo de programacion en otra ocacion

[[egostar]]

Hola



Salud OS

[[Delphius]]

Empezado por kurono

amigo delphius ya termine el cronometro y funciona perfectamente

Código Delphi [-] public { Public declarations } segundos,minuto,hora:integer; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); begin segundos:=segundos+1; label1.Caption:=inttostr(segundos); end; procedure TForm1.Button1Click(Sender: TObject); begin minuto:=0; segundos:=0; hora:=0; timer1.Enabled:=true; timer2.Enabled:=true; timer3.Enabled:=true; end; procedure TForm1.Timer2Timer(Sender: TObject); begin minuto:=minuto+1; label2.Caption:=inttostr(minuto); segundos:=00; end; procedure TForm1.Timer3Timer(Sender: TObject); begin hora:=hora+1; label3.Caption:=inttostr(hora); end; end.


pero como decias antes hay forma mas facil de hacer y me estaba preguntando si no habra un componente que haga estoy solo para reducir el tiempo de programacion en otra ocacion

Tranquilamente lo puedes hacer con un solo Timer.
Bueno te doy una solución implementando el Now.

1. En el momento en que se desee dar comienzo al cronómotro guardamos en una variable TDateTime la hora actual:

Código Delphi [-]
HoraInicial := Now;

2. En el evento onTimer ponemos algo como esto:

Código Delphi [-]
cronometro: string;
..

cronometro := TimeToStr(Now - HoraInicial);

luego, ya es cuestión de mostrarlo... Por ejemplo en la barra de título:

Código Delphi [-]
Form1.Caption := cronometro;

Para que funcione adecuadamente no está demás decir que la propiedad Interval del TTimer debe ser de un segundo, o 1000 milésimas.

Saludos,

[[kurono]]

ok mucha gracia delphius lo probare haora

[[kurono]]

amigo delphius acabo de probarel ejemplo con el now todo funciona bien pero cuando inicio el cronometro inicia de esta forma 12:00:00 deberia inicial todo en cero osea asi 00:00:00

[[Delphius]]

¿estás seguro? Prueba con esto:

Código Delphi [-]
unit Unit1;

interface

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

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

var
  Form1: TForm1;
  HoraInicial: TDateTime;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  HoraInicial := Now;
  Timer1.Enabled := true;
  Button2.Enabled := True;
  Button1.Enabled := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Caption := 'El cronometro cuenta : ' + TimeToStr(Now - HoraInicial);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer1.Enabled := False;
  Button1.Enabled := True;
  Button2.Enabled := True;
end;

end.

Debería funcionar. A me funciona apropiadamente.
Saludos,

[[kurono]]

amigo delphius todavia sigue iniciando asi 12:00:00 pero creo que el error tiene que ver con la zona horaria que tengo

[[kurono]]

amigo delphius ya resolvi el problema era justamente eso la zona horaria que tenia