原创力文档- 1、本文档共7页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
电子日历程序
#includereg52.h
#includeabsacc.h
#define uchar unsigned char
#define uint unsigned int
#define Q8255A XBYTE[0x1fff]
#define Q8255B XBYTE[0x2fff]
#define Q8255C XBYTE[0x5fff]
#define Q8255D XBYTE[0x7fff]
uchar DATA_7SEG[10]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90};
char hour=16,min=59,sec=55,day=30,month=6,year=10,hour_alarm=17,min_alarm=0;
uchar deda=0,flag;
bit d_05s=0;
sbit P1_0=P1^0;
sbit P1_1=P1^1;
sbit P1_2=P1^2;
sbit P1_3=P1^3;
sbit P1_4=P3^1;
sbit P1_5=P1^5;
sbit P0_7=P0^7;
sbit P2_2=P2^2;
sbit P2_5=P2^5;
uchar s1num=0;
void conv();
void disp();
void delay(uint k) //****************延时程序
{
uint i,j;
for(i=0;ik;i++)
{
for(j=0;j121;j++)
{;}
}
}
void delay2(uint k) //***************延时程序2
{
uint i;
for(i=0;ik;i++) {;}
}
void init_timer() //*************定时器0初始化程序
{
TMOD=0x01;
TH0=-(4800/256);
TL0=-(4800%256);
IE=0x82;
TR0=1;
}
void T0_srv(void) interrupt 1 //*********定时器0中断程序
{
TH0=-(4800/256);
TL0=-(4800%256);
deda++;
}
void didi() //************喇叭鸣响程序
{
int i;
for(i=0;i=50;i++)
{
P1_5=1;
delay2(5);
P1_5=0;
delay2(5);
}
}
void conv() //**********时钟显示程序
{
if(deda=30)
d_05s=0;
else
d_05s=1;
if(deda=60) //*********计数deda到60
{ sec++;deda=0;} //*********秒加1，deda清0
if(sec==60) //*********秒到60
{ min++;sec=0;} //*********分钟加1，秒清0
if(min==60) //*********分钟到60
{ hour++;min=0; //********小时加1，分钟清0
didi(); //********整点报时
}
if(hour==24) //*********小时到24
{ day++;hour=0;} //********日期加1，小时清0
if(day==31) //*********日期到31
{ month++;day=1;} //********月份加1，日期清0
if(month==13) //*********月份到13
{ year++;month=1;} //********年加1，月份清0
}
void disp1() //********显示时分程序
{
uchar num,num1;
Q8255B=0x08;Q8255A=0xff;Q8255A=DATA_7SEG[hour/10];delay(1);
Q8255B=0x04;Q8255A=0xff;Q8255A=DAT
文档评论（0）