单片机实现万年历程序Word下载.docx
- 文档编号:22754608
- 上传时间:2023-02-05
- 格式:DOCX
- 页数:16
- 大小:330.06KB
单片机实现万年历程序Word下载.docx
《单片机实现万年历程序Word下载.docx》由会员分享,可在线阅读,更多相关《单片机实现万年历程序Word下载.docx(16页珍藏版)》请在冰豆网上搜索。
//液晶的命令和数据控制口
sbitledrw=P2^6;
//液晶的写数据口
sbitlcden=P2^7;
//液晶显示模块的使能端
sbittimeds=P3^3;
//时钟芯片地址闸
sbittimerw=P3^4;
//时钟芯片读写
sbittimeas=P3^5;
sbittimeen=P3^6;
//时钟芯片片选
ucharcodetable[]="
20
-
week"
;
ucharcodetable1[]="
:
:
"
//要显示的字符串
charnum,shi,fen,miao,nian=2000,yue,ri,week,numfun,anumfun,flag,flag1;
ucharleap;
voiddelay(uintx){
uchari,j;
for(i=x;
i>
0;
i--)
for(j=110;
j>
j--);
}
voiddidi()
{
beep=0;
delay(1000);
beep=1;
voidwrite_com(ucharcom){
lcdrs=0;
P0=com;
delay(5);
lcden=1;
delay(20);
lcden=0;
voidwrite_date(uchardate){
lcdrs=1;
P0=date;
voidwrite_sfm(ucharadd,uchardate){
ucharshi,ge;
shi=date/10;
ge=date%10;
write_com(0x80+0x40+add);
write_date(0x30+shi);
write_date(0x30+ge);
voidwrite_nyr(ucharadd,uchardate){
write_com(0x80+add);
voidwrite_zhou(ucharadd,uchardate)
write_date(0x30+date);
voidwrite_ds(ucharadd,uchardate){
timeen=0;
timeas=1;
timeds=1;
timerw=1;
P1=add;
timeas=0;
timerw=0;
P1=date;
timeen=1;
ucharread_ds(ucharadd){
uchards_date;
timeds=0;
P1=0xff;
ds_date=P1;
returnds_date;
voidkeyscan(){
if(flag1==1)//用来关闭闹钟铃声
if(timeadd==0)
delay(5);
if(timeadd==0)
{
while(!
timeadd==0);
flag1=0;
}
if(timesub==0)
if(timesub==0)
timesub==0);
if(timefun==0)
timefun);
flag=1;
numfun++;
if(numfun==1)
write_com(0x80+0x40+0x0a);
write_com(0x0f);
if(numfun==2)
write_com(0x80+0x40+0x07);
if(numfun==3)
write_com(0x80+0x40+0x04);
if(numfun==4)
write_com(0x80+0x0f);
if(numfun==5)
write_com(0x80+0x09);
if(numfun==6)
write_com(0x80+0x06);
if(numfun==7)
write_com(0x80+0x03);
if(numfun==8)
numfun=0;
flag=0;
if(numfun!
=0)
timeadd);
miao++;
if(miao==60)
miao=0;
write_sfm(9,miao);
write_com(0x80+0x40+9);
write_ds(0,miao);
fen++;
if(fen==60)
fen=0;
write_sfm(6,fen);
write_com(0x80+0x40+6);
write_ds(2,fen);
shi++;
if(shi==24)
shi=0;
write_sfm(3,shi);
write_com(0x80+0x40+3);
write_ds(4,shi);
week++;
if(week==8)
week=1;
write_zhou(0x0f,week);
write_ds(6,week);
if(nian==0)
switch(yue){
case1:
ri++;
if(ri==32)ri=1;
break;
case2:
if(ri==30)ri=1;
case3:
case4:
if(ri==31)ri=1;
case5:
case6:
case7:
case8:
case9:
case10:
case11:
case12:
elseif(leap&
&
yue==2)
if(ri==30)
ri=1;
elseif(yue==2&
leap==0)
if(ri==29)
else
switch(yue){
case1:
case3:
case4:
case5:
case6:
case7:
case8:
case9:
case10:
case11:
case12:
write_nyr(8,ri);
write_com(0x80+0x08);
write_ds(7,ri);
yue++;
if(yue==13)
yue=0;
write_nyr(5,yue);
write_com(0x80+0x05);
write_ds(8,yue);
nian++;
if(nian==100)
nian=0;
leap=nian%4==0&
nian%100!
=0;
write_nyr(2,nian);
write_com(0x80+2);
write_ds(9,nian);
timesub);
miao--;
if(miao==-1)
miao=59;
fen--;
if(fen==-1)
fen=59;
write_ds(2,fen);
shi--;
if(shi==-1)
shi=23;
week--;
if(week==0)
week=7;
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 单片机 实现 万年历 程序