mod1.c

51单片机电子日历 电子日历

   }
 }

/**************************************************************************
*    函数原型: Uchar get_strokes(Uchar c);
*    功    能: 从LED显示段码表中查找并返回字符c的字型段码。
**************************************************************************/
Uchar get_strokes(Uchar c) {
   Uchar i=0;
   while(led_strokes[i].ascii != c) i++;
   return(led_strokes[i].stroke);
 }

/**************************************************************************
*    函数原型: void put_on_leds(void);
*    功    能: 将当前显示缓冲区的字符输出到LED显示器上。
**************************************************************************/
void put_on_leds(void) {
   Uchar dmask=0xfe;                               /* 显示位控制码 */
   Uchar pos;
   for(pos=0; pos<8; pos++) {
      if(led_buf[pos]==0x00) put_off_leds();       /* 关显示 */
      else {
     	 XBYTE[P8155IB]=get_strokes(led_buf[pos]); /* 输出字型码 */
     	 XBYTE[P8155IA]=dmask;                     /* 输出位控制码 */
      }
      delay(1);                                    /* 延时1ms */
      dmask=_crol_(dmask,1);                       /* 修改位控制码 */
   }
 }

/**************************************************************************
*    函数原型: void put_off_leds(void);
*    功    能: 关闭LED显示器。 
**************************************************************************/
void put_off_leds(void) {
    XBYTE[P8155IA]=0xff;
    XBYTE[P8155IB]=0xff;
 }

/**************************************************************************
*    函数原型: bit kb_hit(void);
*    功    能: 判断是否有键被可靠地按下, 有则返回1, 否则返回0。 
**************************************************************************/
bit kb_hit(void) {
   put_off_leds();                       /* 关显示 */
   XBYTE[P8155IB]=0x00;                  /* 往矩阵键盘列线送低电平 */
   if((XBYTE[P8155IC] & 0x3f)==0x3f)     /* 输入并检测行线状态 */
      return((bit)0);                    /* 行线为高电平时返回0 */
   delay(8);                             /* 延时8ms消颤 */
   if((XBYTE[P8155IC] & 0x3f)==0x3f)     /* 再次输入并检测行线状态 */
      return((bit)0);                    /* 行线为高电平时返回0 */
   return((bit)1);                       /* 有键可靠按下时返回1 */
 }

/**************************************************************************
*    函数原型: Uchar get_ch(void);
*    功    能: 等待用户按键, 从矩阵键盘上输入一个ASCII字符, 若输入成功
*              则返回所输入的字符, 否则返回0。
**************************************************************************/
Uchar get_ch(void) {
   Uchar row=0, col=0;
   Uchar mask=0xfe;
   Uchar pic;
   if(!kb_hit()) return(0);              /* 无键按下,输入不成功, 返回0 */
   /* 分析按键所在的列号 */
   XBYTE[P8155IB]=mask;
   while((XBYTE[P8155IC] & 0x3f)==0x3f && mask>0xef) {
      ++col;
      mask=_crol_(mask,1);
      XBYTE[P8155IB]=mask;
   }
   /* 分析按键所在的行号 */
   pic=XBYTE[P8155IC] & 0x3f;
   mask=0x01;
   while(pic & mask) {
      ++row;
      mask=_crol_(mask,1);
   }
   /* 等待按键释放 */
   while((XBYTE[P8155IC] & 0x3f)!=0x3f);
   XBYTE[P8155IB]=0xff;
   /* 计算按键序号并将其转换成ASCII码值返回 */
   pic=row*4+col;
   if(pic<10) pic+='0';
   else       pic+='A'-10;
   return(pic);
 }

/**************************************************************************
*    函数原型: * get_str(Uchar * str, Uchar len);
*    功    能: 从矩阵键盘输入长度为len的字符串, 并将其存储在由指针str所
*              指向的存储器空间, 并返回该指针。在输入的同时滚动显示所输
*              入的字符。
**************************************************************************/
Uchar * get_str(Uchar * str, Uint len) {
   Uchar pdata i;
   Uchar pdata ch;
   Uchar pdata keyboard_buf[14];             /* 定义键盘缓冲区 */
   Uchar pdata ledbuf_pos=0, keybuf_pos=0;   /* 清除显示缓冲区 */
   set_led_buf(0x00,0,8);
   while(keybuf_pos<len) {
      put_on_leds();
      ch=get_ch();                           /* 输入一个字符 */
      /* 如果成功, 将显示缓冲区原有字符向左滚动一位 */
      /* 并将新字符放在显示缓冲区末尾, 并送键盘缓冲区 */
      if(ch) {
	         for(i=ledbuf_pos; i>0; i--)
      	    led_buf[i]=led_buf[i-1];
     	 led_buf[0]=ch;
     	 if(++ledbuf_pos>7) ledbuf_pos=7;
     	 keyboard_buf[keybuf_pos++]=ch;
      }
   }
   for(i=0; i<255; i++) put_on_leds();       /* 短时显示最后输入的字符 */
   memcpy(str, keyboard_buf, len);           /* 拷贝键盘缓冲区中的输入串 */
   return(str);
 }

/**************************************************************************
*    函数原型: bit set_date_time(void);
*    功    能: 输入一个完整的表示日期和时间的字符串, 分析其合法性, 并将其
*              转换成年、月、日、时、分、秒值后存储到相应的结构变量中, 然
*              后启动计时和动态时间显示。如果成功则返回1, 否则返回0。
**************************************************************************/
bit set_date_time(void) {
   Uchar pdata str[14]; Uchar pdata ltime[5]; Uint pdata lyear;
   Uchar pdata lmonth, lday, lhour, lmin, lsec;
   get_str(str,14);
   for(lsec=0; lsec<14 && isdigit(str[lsec]); lsec++);
   if(lsec!=14) return((bit)0);          /* 日期时间字符串长度错, 返回0 */
   /* 下列语句从日期和时间字符串中分离出年月日和时分秒子字符串, 
      判断它们的合法性, 如果合法则转换成对应的整数值, 否则返回0 */
   memcpy(ltime, str,4);
   ltime[4]=0;
   if(strcmp(ltime, "1995")<0) return((bit)0);
   lyear=atoi(ltime);
   memcpy(ltime,str+4,2);
   ltime[2]=0;
   if(strcmp(ltime,"01")<0 || strcmp(ltime, "12")>0) return((bit)0);
   lmonth=atoi(ltime);
   memcpy(ltime,str+6,2);
   ltime[2]=0;
   lday=atoi(ltime);
   if(lmonth==2 && (lyear%4==0 && lyear%100 != 0 || lyear%400==0))
      if(lday<1 || lday>29)    return((bit)0);
   if(lday<1 || lday>days_month[lmonth]) return((bit)0);
   memcpy(ltime,str+8,2);
   ltime[2]=0;
   if(strcmp(ltime,"23")>0)    return((bit)0);
   lhour=atoi(ltime);
   memcpy(ltime,str+10,2);
   ltime[2]=0;
   if(strcmp(ltime,"59")>0)    return((bit)0);
   lmin=atoi(ltime);
   memcpy(ltime,str+12,2);
   ltime[2]=0;
   if(strcmp(ltime,"59")>0)    return((bit)0);
   lsec=atoi(ltime);
   /* 将年月日时分秒值转储到相应的结构变量中去, */
   /* 启动计时并设置日期时间初始化和动态显示刷新标志 */
   TR0=0;
   date.year=lyear;
   date.month=lmonth;
   date.day=lday;
   time.hour=lhour;
   time.min=lmin;
   time.sec=lsec;
   TMOD=V_TMOD;
   TL0=V_TL0;
   TH0=V_TH0;
   TR0=1;
   time_init=1;
   auto_flush=1;
   return((bit)1);
 }

/**************************************************************************
*    函数原型: void ask_date(void);
*    功    能: 将日期结构变量的年月日整数值转换成ASCII码字符后拷贝到显示
*              缓冲区并清除显示缓冲区自动刷新标志。 
**************************************************************************/
 void ask_date(void) {
    Uchar s[8];
    /* 将日期结构转换成日期字符串 */
    s[0]=date.day%10+0x30;
    s[1]=date.day/10+0x30;
    s[2]='-';
    s[3]=date.month%10+0x30;
    s[4]=date.month/10+0x30;
    s[5]='-';
    s[6]=date.year%10+0x30;
    s[7]=(date.year/10)%10+0x30;
    auto_flush=0;                        /* 清除显示缓冲区自动刷新标志 */
    memcpy(led_buf,s,8);                 /* 将日期字符串拷贝到显示缓冲区 */
    message_time=10;                     /* 将日期字符串显示时间置为10秒 */
    message_flag=1;                      /* 设置日期显示标志 */
 }

/**************************************************************************
*    函数原型: void error_message(void);
*    功    能: 将字符串"ERROR"填充到显示缓冲区。 
**************************************************************************/
void error_message(void) {
   auto_flush=0;                         /* 清除显示缓冲区自动刷新标志 */
   set_led_buf('R',0,1);
   set_led_buf('O',1,1);
   set_led_buf('R',2,1);
   set_led_buf('R',3,1);
   set_led_buf('E',4,1);
   set_led_buf(0x00,5,3);
   message_time=10;                      /* 将出错信息显示时间置为10秒 */
   message_flag=1;                       /* 设置错误信息显示标志 */
 }