Programación General > Pascal

 Aporte , Calendario

(1/1)

epayan:
En Otro foro vi que alguien solicitaba un calendario y la forma convencional de presentarlo en pantalla , por lo que he visto no hay alguno
he aqui mi granito de arena, aceptamos sugerencias y correcciones..espero le sirva a alguien, o cuando menos se de una idea para generar el suyo.

el siguiente es un ejemplo de una funcion que recoje un tecla, la funcion en si, dibuja un calendario desplegando los dias de la semana y la particularidad de manipular lo meses y los años con las flechas, ademas de tomar el dia segun se posicione el cursor.

nota: compilado en freepascal


--- Código: Pascal --- Program EjemploCalendario;Uses crt,sysutils,Calendario;{cuerpo del programa}var  Tecla:char;  Fecha:String[10];Begin   textattr:=14+1*16;   clrscr;   Fecha:=FormatDateTime('DD/MM/YYYY',Date);   Tecla:= FechaAlmanaque(Fecha,10,12,14,4);   write ('La Fecha es :',fecha);   readkey;End.   

algunas imagenes :
h t t p:// 4.bp.blogspot.com/_5QIJNhCUCcc/Sx_nNDqOSCI/AAAAAAAAADY/ZjWfeb6V-IU/s1600-h/pantalla+fecha2.JPG
h t t p:// 3.bp.blogspot.com/_5QIJNhCUCcc/Sx_wf_uuskI/AAAAAAAAADw/oUTtOBgG0eY/s1600-h/pantalla+fecha8.JPG
h t t p:// www.pillin-slk.blogspot.com/

Navegación

[0] Índice de Mensajes