| Pregunta: | 55805 - AYUDA CON UN RELOJ HH:MM:SS |
| Autor: | Andres Villanueva |
| Hola amigos programadores, tengo un problema, estoy iniciando en la programacion con pascal, y me mandaron a hacer un reloj en FORMATO HH:MM:SS, AM, PM
Como puedo hacer para que cree un loop.? con el While.? sinceramente estoy algo confundido... Espero su pronta respuesta.! | |
| Respuesta: | juan miguel Mendoza López |
| para leer el reloj tienes que usar la libreria 'dos', en este se encuentra la funcion gettime, y para el while no te preocupes, hazlo de la siguiente forma:
uses crt, dos ; var hh, mm, ss, mmm : word ; {hh = hora, mm = minutos, ss = segundos, mmm = milesimas} begin while not keypressed {mientras no se presione una tecla} begin gettime(hh,mm,ss,mmm) ; {leemos el tiempo del sistema} gotoxy(0,0) ; {vamos a la posición 0,0} write(hh,':',mm,':',ss) ; {escribimos al hora como: HH:MM:SS} end ; end ; ya solo te falta condicionarlo para que te muste am o pm y ya está, espero que te sirva, si tienes mas dudas, contactame^^. saludos | |