/********************************************************
**這個(gè)程序是時(shí)鐘程序用lcm12832作為顯示.
**p1口作為鍵盤輸入p1.0=增加鍵；p11為選擇鍵
**時(shí)鐘顯示格式為：“時(shí)：分：秒”字體為16*16點(diǎn)陣
**修改方式為兩鍵式選擇鍵合修改鍵
**還可顯示萬年歷：“年：月：日”
**需要子函數(shù)：
**  1、hex->bcd子函數(shù)hex_bcd()
**  2、顯示子函數(shù)display()
**  3、鍵盤子函數(shù)key()
**  4、時(shí)鐘子函數(shù)time()
**  5、日歷子函數(shù)day()
**  6、顯示控制子函數(shù)discommond()
**  7、定時(shí)器中斷0 time0()
**  8、初始化子函數(shù) begin().
**  9、初始屏顯display_begin().
**  10、時(shí)間屏顯display_time().
**  11、潤年判斷l(xiāng)eapf().
**現(xiàn)有問題:鍵盤修改程序還未完成
**   程序不夠精簡(jiǎn)
*********************************************************/
#include<reg51.h>
#define time_th 0x3c;   // time0 :50ms  12m
#define time_tl 0xba;

unsigned char data msecond=0;
bit data second_flag=0,day_flag=0,leap=0,display_flag=0,ku_flag;
unsigned char day_temp;

struct  time_str{
unsigned char hour;
unsigned char minute;
unsigned char second;
}time_now;

struct day_str{
unsigned int year;
unsigned char month;
unsigned char day;
}day_now;

//顯示緩沖區(qū)
unsigned char data display_bcd[13];

//每月天數(shù)表
unsigned char code day_num[]=
{31,28,31,30,31,30,31,31,30,31,30,31};

//時(shí)間顯示位置表
unsigned char code time_loc[][1]=
{0,2,0,3,0,4,0,5,0,8,0,9,0,12,0,13
,16,4,16,5,16,8,16,9,16,12,16,13};

//漢字顯示位置表
//指定位置顯示“年，月，日，時(shí)，分，秒”
unsigned char code zhi_loc[]=
{0x06,0x01,0x0a,0x01,0x0e,0x01,0x06,0x10,0x0a,0x10,0x0e,0x10};
/********************************************************************
**字庫開始
**********************************************************************/
unsigned char code shi[]={
/*--  文字:  年  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=16x16   --*/
0x08,0x00,0x0f,0xfc,0x10,0x80,0x10,0x80,0x20,0x80,0x4f,0xf8,0x88,0x80,0x08,0x80,
0x08,0x80,0x08,0x80,0xff,0xfe,0x00,0x80,0x00,0x80,0x00,0x80,0x00,0x80,0x00,0x80,

/*--  文字:  月  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=16x16   --*/
0x07,0xf0,0x04,0x10,0x04,0x10,0x04,0x10,0x07,0xf0,0x04,0x10,0x04,0x10,0x04,0x10,
0x07,0xf0,0x04,0x10,0x08,0x10,0x08,0x10,0x10,0x10,0x20,0x50,0x40,0x20,0x00,0x00,

/*--  文字:  日  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=16x16   --*/
0x00,0x00,0x1f,0xf0,0x10,0x10,0x10,0x10,0x10,0x10,0x10,0x10,0x1f,0xf0,0x10,0x10,
0x10,0x10,0x10,0x10,0x10,0x10,0x10,0x10,0x1f,0xf0,0x10,0x10,0x00,0x00,0x00,0x00,

/*--  文字:  時(shí)  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=16x16   --*/
0x00,0x10,0x00,0x10,0x7c,0x10,0x44,0x10,0x47,0xfe,0x44,0x10,0x7c,0x10,0x45,0x10,
0x44,0x90,0x44,0x90,0x7c,0x10,0x00,0x10,0x00,0x10,0x00,0x10,0x00,0x50,0x00,0x20,

/*--  文字:  分  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=16x16   --*/
0x08,0x80,0x0c,0x80,0x08,0x40,0x10,0x20,0x10,0x30,0x20,0x18,0x40,0x0e,0x9f,0xe4,
0x04,0x20,0x04,0x20,0x04,0x20,0x04,0x20,0x08,0x20,0x10,0xa0,0x20,0x40,0x40,0x00,

/*--  文字:  秒  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=16x16   --*/
0x0c,0x20,0xf0,0x20,0x10,0x20,0x11,0x28,0xfd,0xa4,0x11,0x22,0x32,0x22,0x3a,0x20,
0x54,0x22,0x54,0x22,0x90,0x04,0x10,0x08,0x10,0x10,0x10,0x60,0x11,0x80,0x16,0x00};
unsigned char code num[]={
/*--  文字:  0  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0x00,0x00,0x00,0x18,0x24,0x42,0x42,0x42,0x42,0x42,0x42,0x42,0x24,0x18,0x00,0x00,

/*--  文字:  1  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0x00,0x00,0x00,0x10,0x70,0x10,0x10,0x10,0x10,0x10,0x10,0x10,0x10,0x7c,0x00,0x00,

/*--  文字:  2  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0x00,0x00,0x00,0x3c,0x42,0x42,0x42,0x04,0x04,0x08,0x10,0x20,0x42,0x7e,0x00,0x00,

/*--  文字:  3  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0x00,0x00,0x00,0x3c,0x42,0x42,0x04,0x18,0x04,0x02,0x02,0x42,0x44,0x38,0x00,0x00,

/*--  文字:  4  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0x00,0x00,0x00,0x04,0x0c,0x14,0x24,0x24,0x44,0x44,0x7e,0x04,0x04,0x1e,0x00,0x00,

/*--  文字:  5  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0x00,0x00,0x00,0x7e,0x40,0x40,0x40,0x58,0x64,0x02,0x02,0x42,0x44,0x38,0x00,0x00,

/*--  文字:  6  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0x00,0x00,0x00,0x1c,0x24,0x40,0x40,0x58,0x64,0x42,0x42,0x42,0x24,0x18,0x00,0x00,

/*--  文字:  7  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0x00,0x00,0x00,0x7e,0x44,0x44,0x08,0x08,0x10,0x10,0x10,0x10,0x10,0x10,0x00,0x00,

/*--  文字:  8  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0x00,0x00,0x00,0x3c,0x42,0x42,0x42,0x24,0x18,0x24,0x42,0x42,0x42,0x3c,0x00,0x00,

/*--  文字:  9  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0x00,0x00,0x00,0x18,0x24,0x42,0x42,0x42,0x26,0x1a,0x02,0x02,0x24,0x38,0x00,0x00,

/*--  文字:  0  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0xff,0xff,0xff,0xe7,0xdb,0xbd,0xbd,0xbd,0xbd,0xbd,0xbd,0xbd,0xdb,0xe7,0xff,0xff,

/*--  文字:  1  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0xff,0xff,0xff,0xef,0x8f,0xef,0xef,0xef,0xef,0xef,0xef,0xef,0xef,0x83,0xff,0xff,

/*--  文字:  2  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0xff,0xff,0xff,0xc3,0xbd,0xbd,0xbd,0xfb,0xfb,0xf7,0xef,0xdf,0xbd,0x81,0xff,0xff,

/*--  文字:  3  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0xff,0xff,0xff,0xc3,0xbd,0xbd,0xfb,0xe7,0xfb,0xfd,0xfd,0xbd,0xbb,0xc7,0xff,0xff,

/*--  文字:  4  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0xff,0xff,0xff,0xfb,0xf3,0xeb,0xdb,0xdb,0xbb,0xbb,0x81,0xfb,0xfb,0xe1,0xff,0xff,

/*--  文字:  5  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0xff,0xff,0xff,0x81,0xbf,0xbf,0xbf,0xa7,0x9b,0xfd,0xfd,0xbd,0xbb,0xc7,0xff,0xff,

/*--  文字:  6  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0xff,0xff,0xff,0xe3,0xdb,0xbf,0xbf,0xa7,0x9b,0xbd,0xbd,0xbd,0xdb,0xe7,0xff,0xff,

/*--  文字:  7  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0xff,0xff,0xff,0x81,0xbb,0xbb,0xf7,0xf7,0xef,0xef,0xef,0xef,0xef,0xef,0xff,0xff,

/*--  文字:  8  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0xff,0xff,0xff,0xc3,0xbd,0xbd,0xbd,0xdb,0xe7,0xdb,0xbd,0xbd,0xbd,0xc3,0xff,0xff,

/*--  文字:  9  --*/
/*--  宋體12;  此字體下對(duì)應(yīng)的點(diǎn)陣為：寬x高=8x16   --*/
0xff,0xff,0xff,0xe7,0xdb,0xbd,0xbd,0xbd,0xd9,0xe5,0xfd,0xfd,0xdb,0xc7,0xff,0xff,

};
unsigned char code ku[]={
/*--  調(diào)入了一幅圖像：這是哭的的圖像  --*/
/*--  寬度x高度=16x16  --*/
0x03,0xc0,0x0c,0x30,0x10,0x08,0x20,0x04,0x40,0x02,0x52,0x4a,0x8c,0x31,0x80,0x01,
0x80,0x01,0x81,0x81,0x42,0x42,0x44,0x22,0x20,0x04,0x10,0x08,0x0c,0x30,0x03,0xc0,
/*--  調(diào)入了一幅圖像：這是笑的的圖像  --*/
/*--  寬度x高度=16x16  --*/
0x03,0xc0,0x0c,0x30,0x10,0x08,0x20,0x04,0x40,0x02,0x40,0x02,0x8c,0x31,0x92,0x49,
0x80,0x01,0x80,0x01,0x44,0x22,0x42,0x42,0x21,0x84,0x10,0x08,0x0c,0x30,0x03,0xc0
};
/*****************************************************************************
**字庫結(jié)束
******************************************************************************/

void day();
void time();
void begin();
void display(unsigned char *cpoint,unsigned char x_line,unsigned char y_line,unsigned char s_l);
unsigned char hex_bcd(unsigned char hex);
void display_begin();
void display_time(struct time_str time,struct day_str day);
bit leapf(unsigned int year);

void main()
{
 begin();
 display_begin();
 while (1)
 {
  while (1)
  {
   time();
   day();
   if (display_flag)
   {
    display_flag=0;
    display_time(time_now,day_now);
  
   }
   if (display_flag)
    continue;
   if((day_now.month==2)&leap)
   {
    leap=0;
    day_temp=29;
   }
  }
 }
}

/******************************************************
**time()子函數(shù)
**參數(shù)：second_flay
**
******************************************************/
void time(){
if(second_flag){
 display_flag=1;
 second_flag=0;
//     day_flag=1;

 time_now.second++;
 if(time_now.second==60){
  time_now.second=0;
  time_now.minute++;
  if(time_now.minute==60){
   time_now.minute=0;
   time_now.hour++;
   if(time_now.hour==24){
    time_now.hour=0;
    day_flag=1;
    }
   }
  }
 }
}

/*********************************************************
**day()子函數(shù)
**參數(shù)：day_flag日標(biāo)志；leap潤年標(biāo)志
**
**********************************************************/
void day(){
if(day_flag){
 day_flag=0;
 day_now.day++;
 if(day_now.day==day_temp+1){
  day_now.month++;
  if((day_now.month==2)&leap){
   leap=0;
   day_temp=29;
   }
  else day_temp=day_num[day_now.month-1];
  day_now.day=1;
  if(day_now.month==13){
   day_now.month=1;
   day_temp=day_num[day_now.month-1];
   day_now.year++;
   leap=leapf(day_now.year);
   }
  }
 }
}

/****************************************************************
**begin()子函數(shù)系統(tǒng)參數(shù)初始化
**
****************************************************************/
void begin(){
//定時(shí)器0初始化
 tmod=0x21;    //50ms int  12m
 th0=0x3c;
 tl0=0xba;
 tr0=1;
 ie=0x92;
 scon|=0x40;
//狀態(tài)標(biāo)志位初始化
 
//參量初始化
time_now.second=0;
time_now.minute=0;
time_now.hour=0;

day_now.year=1980;
day_now.month=6;
day_now.day=27;
leap=leapf(day_now.year);
day_temp=day_num[day_now.month-1];
}

/****************************************************************
**display()子函數(shù)
**參數(shù)說明：*cpoint:要顯示的字符地址指針
**   x_line:橫軸坐標(biāo)（1-16）
**   y_line:縱軸坐標(biāo)（1-16）
**   s_l: 1為8*16字體；2為16*16字體
**返回值：無
****************************************************************/
void display(unsigned char *cpoint,unsigned char x_line,unsigned char y_line,unsigned char s_l){
unsigned char xdata *xpoint;
unsigned char i,j;
xpoint=0x8000+x_line+y_line*16;
for(i=0;i<16;i++){
 for(j=0;j<s_l;j++){
  *xpoint=*cpoint;
  cpoint++;
  xpoint++;
  }
 xpoint=xpoint+16-s_l;
 }

}

/****************************************************************
**display_begin()子函數(shù)顯示屏幕的初始值如：
** —————————
** |  1980年09月05日|
** |    23時(shí)03分09秒|
**  —————————
**調(diào)用函數(shù)：display()
**   display_time()
**   
****************************************************************/
//指定位置顯示“年，月，日，時(shí)，分，秒”
//unsigned char code zhi_loc[]=
//{0x06,0x01,0x0a,0x01,0x0e,0x01,0x06,0x10,0x0a,0x10,0x0e,0x10};
void display_begin(){
unsigned char x_display,y_display,i,j=0;
unsigned char code *p_display;
p_display=&shi;

for (i=0;i<6;i++){
 x_display=zhi_loc[j];
 j++;
 y_display=zhi_loc[j];
 j++;
 display(p_display,x_display,y_display,2);
 p_display=p_display+32;
 }

//指定位置顯示時(shí)間
display_time(time_now,day_now);

}

/****************************************************************
** display_time()顯示時(shí)間子函數(shù)
** 參數(shù)：struct time_str time
**    struct day_str  day
** 返回值：無
** 調(diào)用函數(shù)：display()
**     hex_bcd()
****************************************************************/
void display_time(struct time_str time,struct day_str day){
unsigned char temp,temp1,temp_year,temp_x,temp_y;
unsigned char *temp_p;

//顯示哭笑符
if (ku_flag)temp_p=(&ku)+32;
else temp_p=&ku;
temp_x=0;
temp_y=16;
ku_flag=!ku_flag;
display(temp_p,temp_x,temp_y,2);

//顯示秒
temp=time.second;
temp=hex_bcd(temp);
temp1=temp>>4;
temp=temp&0xf;
temp_p=(&num)+16*temp;
temp_x=13;
temp_y=16;
display(temp_p,temp_x,temp_y,1);
temp_x=12;
temp_p=(&num)+16*temp1;
display(temp_p,temp_x,temp_y,1);

//顯示分
temp=time.minute;
temp=hex_bcd(temp);
temp1=temp>>4;
temp=temp&0xf;
temp_p=(&num)+16*temp;
temp_x=9;
temp_y=16;
display(temp_p,temp_x,temp_y,1);
temp_x=8;
temp_p=(&num)+16*temp1;
display(temp_p,temp_x,temp_y,1);

//顯示時(shí)
temp=time.hour;
temp=hex_bcd(temp);
temp1=temp>>4;
temp=temp&0xf;
temp_p=(&num)+16*temp;
temp_x=5;
temp_y=16;
display(temp_p,temp_x,temp_y,1);
temp_x=4;
temp_p=(&num)+16*temp1;
display(temp_p,temp_x,temp_y,1);

//顯示日
temp=day.day;
temp=hex_bcd(temp);
temp1=temp>>4;
temp=temp&0xf;
temp_p=(&num)+16*temp;
temp_x=13;
temp_y=0;
display(temp_p,temp_x,temp_y,1);
temp_x=12;
temp_p=(&num)+16*temp1;
display(temp_p,temp_x,temp_y,1);

//顯示月
temp=day.month;
temp=hex_bcd(temp);
temp1=temp>>4;
temp=temp&0xf;
temp_p=(&num)+16*temp;
temp_x=9;
temp_y=0;
display(temp_p,temp_x,temp_y,1);
temp_x=8;
temp_p=(&num)+16*temp1;
display(temp_p,temp_x,temp_y,1);

//顯示年
temp_year=day.year/100;
temp=day.year%100;
temp=hex_bcd(temp);
temp1=temp>>4;
temp=temp&0xf;
temp_p=(&num)+16*temp;
temp_x=5;
temp_y=0;
display(temp_p,temp_x,temp_y,1);
temp_x=4;
temp_p=(&num)+16*temp1;
display(temp_p,temp_x,temp_y,1);

//顯示年高位
temp=hex_bcd(temp_year);
temp1=temp>>4;
temp=temp&0xf;
temp_p=(&num)+16*temp;
temp_x=3;
temp_y=0;
display(temp_p,temp_x,temp_y,1);
temp_x=2;
temp_p=(&num)+16*temp1;
display(temp_p,temp_x,temp_y,1);

}

/****************************************************************
**潤年判斷l(xiāng)eap()子函數(shù)
**參數(shù)：unsigned int year
**返回字：潤年標(biāo)志leap0為非潤年
**內(nèi)部變量：bit leap1
****************************************************************/
bit leapf(unsigned int year){
bit bdata leap1;
 if(year%4==0){
    if(year%100==0){
     if(year%400==0){
      leap1=1;
      }
     else leap1=0;
     }
    else leap1=1;
    }
   else leap1=0;
return(leap1);
}
/****************************************************************
**hex_bcd()子函數(shù)
**參數(shù)：hex需要轉(zhuǎn)換的單字節(jié)16進(jìn)制數(shù)
**返回字：轉(zhuǎn)換完成的單字節(jié)bcd碼，高4位為高位低4位為低位
**內(nèi)部變量：bcd,temp為無符號(hào)字符型
****************************************************************/
unsigned char hex_bcd(unsigned char hex){
unsigned char bcd,temp;

bcd=hex%10;
temp=hex/10;
temp=temp<<4;
bcd=bcd|temp;
return (bcd);
}

/****************************************************************
** key()鍵盤子函數(shù)
** 鍵盤為兩鍵式一個(gè)鍵
** 參數(shù)：
****************************************************************/

/****************************************************************
** time0()定時(shí)器0中斷子函數(shù)，產(chǎn)生50ms中斷
**
****************************************************************/
void time0() interrupt 1 using 1{
th0=0x3c;      //time0 50ms interrupt
tl0=0xba;
tr0=1;
msecond++;
if (msecond==20){
 second_flag=1;
 msecond=0;
 }
}