En este vídeo, crean un cronómetro que mida el tiempo entre dos pulsaciones de la tecla enter usando Python.
Vamos a ver como se hace en Object pascal.
Empezamos creando un programa nuevo.
Escribe el siguiente código.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
program Project1; {$mode objfpc}{$H+} uses {$IFDEF UNIX} cthreads, {$ENDIF} Classes { you can add units after this }, sysutils; var TiempoInicio, TiempoFinal, Diferencia: TDateTime; begin Writeln ('Pulsa enter para comenzar'); ReadLn; TiempoInicio := Time(); WriteLn('Pulsa enter para terminar'); ReadLn; TiempoFinal := Time(); Diferencia := TiempoFinal-TiempoInicio; WriteLn(TimeToStr(Diferencia)); ReadLn; end. |
En la línea 11, añadimos la clausula systutils.
Escribimos un mensaje y esperamos a una a que pulse la tecla enter.
En la línea 18, guardamos la fecha y la hora actual en la variable TiempoInicio.
Mostramos un mensaje un mensaje, y volvemos a esperar a que pulse la tecla enter el usuario.
En la línea 21 guardamos de nuevo el la fecha y la hora actual, en la variable TiempoFinal.
En la línea siguiente obtenemos la diferencia en ambas variables. Guardando el resultado en la variable Diferencia.
Y por último mostramos el valor por pantalla, usando la función TimeToStr para que se muestre en formato texto.
Saludos