Delphi - cuenta atras

   
Vista:

cuenta atras

Publicado por pompeu (1 intervención) el 26/03/2008 09:15:39
Buenas tardes,

Tengo que hacer un ejercicio que no se por donde empezar, me explico:

introducir en un formulario 2 numeros (estos representan segundos)
se ha de garantizar que A < B
Se ha de mostrar un reloj con formato h:m:s que vaya desde el tiempo A al tiempo B

¿me podeis guiar?

Grácias

Pompeu
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:cuenta atras

Publicado por E.T. (1108 intervenciones) el 26/03/2008 17:46:49
Lo que necesitas hacer es, una ves hecha la comparación de a y b, verificar que a sea mayor a 60, en este caso usamos los operadores "mod" y "div" los cuales te dan el residuo y la división exacta respectivamente algo así

a:=32480;//suponiendo que a tenga esta cantidad de segundos
h:=0;
m:=0;
s:=0; //estas tres de arriba son variables integer
if a>60 then begin
m:=a div 60;
s:=a mod 60;
if m>60 then begin
h:=m div 60;
m:=m mod 60;
end;
end else
s:=a;
showmessage(inttostr(h)+':'+inttostr(m)+':'+inttostr(s))

este codigo te muestra a, desplegado en horas, minutos y segundos, solo hay que hacer lo mismo para b, luego en un T Timer, hacemos una simulación del reloj, le sumanos de 1 en 1 a s, cuando s =60 entonces le sumamos 1 a m y s lo ponemos en cero, luego cuando m=60 le sumamos 1 a h y m le damos cero, cuando h, m y s, sean iguales a los h,m y s de b, se termina el ciclo, o mas bien se detiene el timer
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar