Pascal/Turbo Pascal - Reloj del sistema que avance

   
Vista:

Reloj del sistema que avance

Publicado por soulblazer laura-ps00@hotmail.com (19 intervenciones) el 06/03/2013 17:03:46
Hola tengo este código:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program sistem_time;
uses crt, dos;
var
   hora, minuto, segundo, microseg, mes, dia, annio, diasemana : word;
begin
     clrscr;
     gettime(hora, minuto, segundo, microseg);      {obtiene la hora}
     getdate(annio, mes, dia, diasemana);   {obtiene la fecha}
     gotoxy(20,3);
     write('----------------------------------------');
     gotoxy(20,4);
     writeln('La hora del sistema es: ',hora, ':',minuto,':',segundo);
     gotoxy(20,5);
     writeln('Y la fecha del sistema es: ',dia,'/',mes,'/',annio);
     gotoxy(20,6);
     write('----------------------------------------');
     readln;
end.


Obtiene la hora actual del sistema y todo... pero yo quiero vayan avanzando los segundos y demás.

Muchas gracias :)
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

Reloj del sistema que avance

Publicado por ramon (2072 intervenciones) el 06/03/2013 17:26:21
1
2
3
4
5
6
7
8
9
10
11
12
13
program sistem_time;
uses crt, dos;
var
hora, minuto, segundo, microseg, mes, dia, annio, diasemana : word;
begin
clrscr;
getdate(annio, mes, dia, diasemana);
gotoxy(36,10);write(dia,':',mes,':',annio);
repeat
gettime(hora, minuto, segundo, microseg);
gotoxy(36,12);write(hora,':',minuto,':',segundo);
until keypressed;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Reloj del sistema que avance

Publicado por soulblazer laura-ps00@hotmail.com (19 intervenciones) el 06/03/2013 17:44:32
Muchas gracias
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