Cronometro

[grone35]

Que tal Gente!

Alguien me podria colaborar para crear un cronometro con el que pueda contar milecimas o centecimas de segundo.

Gracias!!!!

[AGAG4]

Si solo quieres contar el tiempo usa el Ttimer que esta en la paleta SYSTEM en delphi, pero si quieres mostrar al usuario dicho tiempo en este mismo componente tiene un evento que se llama OnTimer, pero hay muchos componentes que hacen esto ya automático puedes visitar la página de Torrys.

[[egostar]]

Hola grone35

Alguna vez tuve la necesidad de hacer un cronometro y te lo dejo aqui por si te sirve o te da una idea de como hacerlo.

Código Delphi [-]
 
var
  Form1: TForm1;
  Present : TDateTime;
  Hour,Min,Sec,MSec: Word;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(MSec);
  If MSec = 100 then begin
     Sec := Sec + 1;
     MSec := 0;
  end;
  If Sec = 60 then begin
     Min := Min + 1;
     Sec := 0;
  end;
  If Min = 60 then begin
     Hour := Hour + 1;
     Min  := 0;
  end;
  Present := EncodeTime(Hour, Min, Sec, MSec);
  Label1.Caption := TimetoStr(Present)+' '+inttostr(MSec);;
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  If Timer1.Enabled = False then begin
     Timer1.Enabled := True;
     BitBtn1.Caption := 'Pausa';
  end
  else begin
         Timer1.Enabled := False;
         BitBtn1.Caption := 'Inicia';
       end;
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
  Present := EncodeTime(0,0,0,0);
  Label1.Caption := '00:00:00 00';
end;

Use un timer con un intervalo de 1 milisegundo, un label y un bitbtn.

Espero que tambien sirva a alguien mas ya que en su momento me dio dolores de cabeza.

Saludos

[grone35]

Excelente egostar!!

Gracias fue de mucha ayuda!!!

[xelip]

tambien puedes crear cuatro variables e tipo word y despues donde quieras comenzar a contar :

SetTime(las variables separadas por comas);

cuando termies de contar :

GetTime(las variables separadas por comas);

muestras las variables.

Por nada...