日历时钟单片机课程设计Word文档下载推荐.docx
- 文档编号:15980916
- 上传时间:2022-11-17
- 格式:DOCX
- 页数:15
- 大小:79.50KB
日历时钟单片机课程设计Word文档下载推荐.docx
《日历时钟单片机课程设计Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《日历时钟单片机课程设计Word文档下载推荐.docx(15页珍藏版)》请在冰豆网上搜索。
AD1EQU40H;
秒
AD2EQU41H;
分
AD3EQU42H;
时
AD4EQU43H;
天
AD5EQU44H;
月
AD6EQU45H;
年
初始化存储单元结束
ORG0000H
LJMPMAIN
ORG000BH;
T0中断入口
LJMPINT
ORG0030H
MAIN:
MOVR0,#AD1
MOVR7,#06H
LOOP0:
MOVA,#00H
MOV@R0,A
INCR0
DJNZR7,LOOP0;
R0~R7清零
MOVAD1,#37H
MOVAD2,#22H
MOVAD3,#0CH
MOVAD4,#08H
MOVAD5,#08H
MOVAD6,#08H;
初始化时间为12:
34:
56,日期为08年08月08日
MOVIE,#82H;
允许T0中断
MOVTMOD,#01H;
T0允许工作
MOVTH0,#4CH
MOVTL0,#00H;
送入计数初值
MOVR5,#00H
初始化结束
SETBTR0;
T0使能
LOOP:
LCALLTEST;
扫描键盘
CJNEA,#0FEH,NEXTD;
0FEH为1键
LCALLDY1MS
LCALLKEYDONE
NEXTD:
SJMPLOOP;
扫描键盘看是否需要调整日历
DISPLAY:
LCALLTEST;
CJNEA,#0DFH,ERSHISI1;
0DFH为6键
SETB;
显示十二小时
LJMPTIMEZHUAN
ERSHISI1:
CJNEA,#0EFH,ERSHISI2;
0EFH为5键
CLR;
显示二十四小时
CLRCHANGE2
LJMPTIMEZHUAN
ERSHISI2:
CJNEA,#0CFH,CHANGE;
0CFH为5+6键
CLR
SETBCHANGE2;
CHANGE2=1表示把十二表示法转换成二十四小时
CHANGE:
TIMEZHUAN:
LCALLTEST
CJNEA,#7FH,NEXTL;
7FH为8键
SETB
LJMPZHUAN1
NEXTL:
CJNEA,#0BFH,ZHUAN1;
0BFH为7键
ZHUAN1:
JB,DAY;
=0调整时间,为1则调整日期
MOVA,AD1;
调整时间键码分离
MOVB,#0AH
DIVAB
MOVR0,#DBUF
MOV@R0,B
MOVA,AD2
JB,TIMEZHUAN1
LJMPTIMEZHUAN2
TIMEZHUAN1:
;
判断时间是否大于12
MOVA,AD3
MOVB,#0CH
SUBBA,B
JCNORMALT
MOVAD3,A
LJMPNORMALT
TIMEZHUAN2:
JNBCHANGE2,NORMALT;
判断是否加12
ADDA,#
CLRCHANGE2
NORMALT:
SJMPDDISP
DAY:
;
调整日期键码分离
MOVA,AD4
MOVA,AD5
MOVA,AD6
DDISP:
显示,串入并处的方式,上升沿写入
MOVR7,#06H
LOOP2:
MOVR6,#08H
MOVA,@R0
MOVDPTR,#TAB
MOVCA,@A+DPTR;
显示秒
CLRC
LOOP3:
RRCA
CLRCLK
MOVDISP,C
SETBCLK
DJNZR6,LOOP3
DJNZR7,LOOP2
RET
KEYDONE:
人工手动调整日历
AGAINB:
LCALLDY250MS;
防抖250ms
CJNEA,#7FH,NEXTL1;
LJMPZHUAN12
NEXTL1:
CJNEA,#0BFH,ZHUAN12
CLR;
以上为扫描键盘并设置
ZHUAN12:
JB,NEXT6B;
判断调整日期还是时间
CJNEA,#0FDH,NEXTA;
0FDH为2键,如果按键值为FDH则结束
LJMPBACK
NEXTA:
CJNEA,#0FBH,NEXTB;
0FBH为3键
INCAD1;
秒加1
MOVA,AD1
CJNEA,#3CH,AGAINA
MOVAD1,#00H
SJMPAGAINA
NEXTB:
CJNEA,#0F7H,NEXTC;
0F7H为4键
INCAD2;
分加1
MOVAD2,#00H
NEXTC:
CJNEA,#0EFH,AGAINA;
INCAD3;
时加1
CJNEA,#18H,AGAINA
MOVAD3,#00H
NEXTT:
NEXT6B:
CJNEA,#0FDH,NEXTAB;
JIESHUJIAN;
0FDH为2键
NEXTAB:
CJNEA,#0FBH,NEXTBB;
INCAD4;
日加1
CJNEA,#20H,AGAINA
MOVAD4,#01H
NEXTBB:
CJNEA,#0F7H,NEXTCB;
INCAD5;
月加1
CJNEA,#0DH,AGAINA
MOVAD5,#01H
NEXTCB:
INCAD6;
年加1
CJNEA,#64H,AGAINA
MOVAD6,#00H
AGAINA:
LCALLDISPLAY
LJMPAGAINB
BACK:
INT:
INCR5
CJNER5,#20,NEXTS1;
循环20次,每次循环为秒,共*20=1秒
MOVR5,#00H
LCALLDISPLAY;
满一秒后的显示
LJMPMEND
NEXTS1:
LJMPNEXTS;
MEND:
CJNEA,#0AH,LAREMEND
SETBLED;
满十秒关灯,否则继续
LAREMEND:
INCAD1
CJNEA,#3CH,NEXTS2
LJMPMEND1
NEXTS2:
以上为看是否修改秒,满60,分加一否则跳转继续
MEND1:
INCAD2
CJNEA,#3CH,NEXTS3
LJMPMEND2
NEXTS3:
以上为看是否修改分,满60,时加一否则跳转继续
MEND2:
INCAD3
CJNEA,#0Ah,ZAIJIANCHA
AJMPBAOSHI
ZAIJIANCHA:
CJNEA,#0Bh,ZHENGCHANG
BAOSHI:
CLRLED;
以上为两个报时开灯
ZHENGCHANG:
CJNEA,#18H,NEXTS4;
不满二十四小时跳出
LJMPMEND3;
满二十四后跳到清零小时继续加天
NEXTS4:
LJMPNEXTS
MEND3:
MOVAD3,#00H
INCAD4
CJNEA,#02H,JIXUTIAN;
判断是否为二月份
MOVB,#4H
MOVA,B
JZRUNNIAN;
判断是否为闰年
PINGNIAN:
MOVA,AD4;
平年
CJNEA,#1DH,NEXTS
MOVAD4,
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 日历 时钟 单片机 课程设计