como crear un cronometro completo

[[kurono]]

hola amigos del foro me gustaria hacer un cronometro completo osea que me muestre tanto los segundo como los minuto trascurrido como lo hace un cronometro real de esto que usan los entrenadores deportivo

[[Delphius]]

Hola kurono, ¿y el problema es?

Disculpa si suena un tanto molesto, pero... ¿intentaste avanzar en algo? tienes algo de código hecho?

Piensa en funciones DecodeTime, Now, TTimer, TimeToStr, etc.

Una pista, debes obtener la diferencia entre la fecha actual y la desde el momento en que se inicia el conteo.

Kurono me gustaria que dieras el primer paso en intentarlo por favor. Además hay ejemplos de como hacer un cronómetro.

Saludos,

[[kurono]]

hola amigo delphius esto es lo que tengo

Código Delphi [-]
  public
    { Public declarations }
    segundos: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
segundos:=0;
timer1.Enabled:=true;
end;

end.

pues esto me muestra los segundo pero cuando llega a 60 segundo me gustaria que mostrara que transcurrio un minuto

[[Delphius]]

OK, bueno... ahora a esos segundos de más hay que convertirlos en minutos y luego a los minutos en horas...

Esto se puede hacer con simples operaciones de sumas, restas, multiplicación y modulos.

los minutos se obtienen calculando la parte entera de la división entre los segundos y 60, luego se vuelve a calcular los segundos sobrantes. Luego se obtiene las horas... con el mismo proceso: la división de los minutos en 60.

¿Se entiende?

minutos = segundos div 60
segundos = segundos - (minutos x 60)

horas = minutos div 60

Ahora, también nos podemos evitar estos tediosos calculos llevando tres contadores... uno para los segundos, otro para las horas y otro para los minutos. La idea es que cuando el contador de los segundos se ponga en 60, el de los minutos en 1, y el contador de segundos se restablece a cero.
El mismo proceso se lleva a cabo para las horas.


Existe otra alternativa, aun más simple... Como he dicho: emplear Now y calcular la diferencia con una hora inicial de conteo.

Sigue pensando.

Saludos,

[[kurono]]

mmmm... amigo delphius dices que con el now se hace mas simple pero no se utilizarlo pues intentare con los 3 contadores

[[Delphius]]

Empezado por kurono

mmmm... amigo delphius dices que con el now se hace mas simple pero no se utilizarlo pues intentare con los 3 contadores

¿Y digo yo? Porque no pruebas con F1? Simplemente basta con hacer algo como esto:

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

por ejemplo...

Código Delphi [-]
ShowMessage('la hora actual es : ' TimeToStr(Now));

Now es una función que regresa la fecha y hora actual. TimeToStr() es una función que convierte la hora en string... en formato hh mm ss.

de igual forma piensa... ¿que diferencia hay entre Now que calculé hace 5 horas con uno que calculé ahora? ¿Se entiende la idea?

Saludos,