51单片机实现万年历程序

5151 单片机实现万年历单片机实现万年历 利用 AT89S52 单片机的 P0 口来和另外几个口来控制 1602 液晶的显示和 P1 口还有其它口来控制 ds12887 时钟芯片 设置四个按键 1 个定义为时间设置功能键 一个定义为闹钟设置功能键 另外两个用来调节时间的增减 原理图 pcb 图 源程序 include include define define uintuint unsignedunsigned intint define define ucharuchar unsignedunsigned charchar sbitsbit beep P2 0 beep P2 0 蜂鸣器控制口 sbitsbit timeadd P2 1 timeadd P2 1 调节时间加 sbitsbit timesub P2 2 timesub P2 2 调节时间减 sbitsbit timeclk P2 3 timeclk P2 3 闹钟设定键 sbitsbit timefun P2 4 timefun P2 4 时间设定键 sbitsbit lcdrs P2 5 lcdrs P2 5 液晶的命令和数据控制口 sbitsbit ledrw P2 6 ledrw P2 6 液晶的写数据口 sbitsbit lcden P2 7 lcden P2 7 液晶显示模块的使能端 sbitsbit timeds P3 3 timeds P3 3 时钟芯片地址闸 sbitsbit timerw P3 4 timerw P3 4 时钟芯片读写 sbitsbit timeas P3 5 timeas P3 5 时钟芯片地址闸 sbitsbit timeen P3 6 timeen P3 6 时钟芯片片选 ucharuchar codecode table 20table 20 weekweek ucharuchar codecode table1 table1 要显示的字符串 charchar num shi fen miao nian 2000 yue ri week numfun anumfun flag flag1 num shi fen miao nian 2000 yue ri week numfun anumfun flag flag1 ucharuchar leap leap voidvoid delay uintdelay uint x x ucharuchar i j i j for i x i 0 i for i x i 0 i for j 110 j 0 j for j 110 j 0 j voidvoid didi didi beep 0 beep 0 delay 1000 delay 1000 beep 1 beep 1 delay 1000 delay 1000 voidvoid write com ucharwrite com uchar com com lcdrs 0 lcdrs 0 P0 com P0 com delay 5 delay 5 lcden 1 lcden 1 delay 20 delay 20 lcden 0 lcden 0 voidvoid write date ucharwrite date uchar date date lcdrs 1 lcdrs 1 P0 date P0 date delay 5 delay 5 lcden 1 lcden 1 delay 20 delay 20 lcden 0 lcden 0 voidvoid write sfm ucharwrite sfm uchar add ucharadd uchar date date ucharuchar shi ge shi ge shi date 10 shi date 10 ge date 10 ge date 10 write com 0 x80 0 x40 add write com 0 x80 0 x40 add write date 0 x30 shi write date 0 x30 shi write date 0 x30 ge write date 0 x30 ge voidvoid write nyr ucharwrite nyr uchar add ucharadd uchar date date ucharuchar shi ge shi ge shi date 10 shi date 10 ge date 10 ge date 10 write com 0 x80 add write com 0 x80 add write date 0 x30 shi write date 0 x30 shi write date 0 x30 ge write date 0 x30 ge voidvoid write zhou ucharwrite zhou uchar add ucharadd uchar date date write com 0 x80 add write com 0 x80 add write date 0 x30 date write date 0 x30 date voidvoid write ds ucharwrite ds uchar add ucharadd uchar date date timeen 0 timeen 0 timeas 1 timeas 1 timeds 1 timeds 1 timerw 1 timerw 1 P1 add P1 add timeas 0 timeas 0 timerw 0 timerw 0 P1 date P1 date timerw 1 timerw 1 timeas 1 timeas 1 timeen 1 timeen 1 ucharuchar read ds ucharread ds uchar add add ucharuchar ds date ds date timeas 1 timeas 1 timeds 1 timeds 1 timerw 1 timerw 1 timeen 0 timeen 0 P1 add P1 add timeas 0 timeas 0 timeds 0 timeds 0 P1 0 xff P1 0 xff ds date P1 ds date P1 timeds 1 timeds 1 timeas 1 timeas 1 timeen 1 timeen 1 returnreturn ds date ds date voidvoid keyscan keyscan if flag1 1 if flag1 1 用来关闭闹钟铃声 if timeadd 0 if timeadd 0 delay 5 delay 5 if timeadd 0 if timeadd 0 while timeadd 0 while timeadd 0 flag1 0 flag1 0 if timesub 0 if timesub 0 delay 5 delay 5 if timesub 0 if timesub 0 while timesub 0 while timesub 0 flag1 0 flag1 0 if timefun 0 if timefun 0 delay 5 delay 5 if timefun 0 if timefun 0 while timefun while timefun flag 1 flag 1 numfun numfun if numfun 1 if numfun 1 write com 0 x80 0 x40 0 x0a write com 0 x80 0 x40 0 x0a write com 0 x0f write com 0 x0f if numfun 2 if numfun 2 write com 0 x80 0 x40 0 x07 write com 0 x80 0 x40 0 x07 write com 0 x0f write com 0 x0f if numfun 3 if numfun 3 write com 0 x80 0 x40 0 x04 write com 0 x80 0 x40 0 x04 write com 0 x0f write com 0 x0f if numfun 4 if numfun 4 write com 0 x80 0 x0f write com 0 x80 0 x0f write com 0 x0f write com 0 x0f if numfun 5 if numfun 5 write com 0 x80 0 x09 write com 0 x80 0 x09 write com 0 x0f write com 0 x0f if numfun 6 if numfun 6 write com 0 x80 0 x06 write com 0 x80 0 x06 write com 0 x0f write com 0 x0f if numfun 7 if numfun 7 write com 0 x80 0 x03 write com 0 x80 0 x03 write com 0 x0f write com 0 x0f if numfun 8 if numfun 8 numfun 0 numfun 0 flag 0 flag 0 if numfun 0 if numfun 0 if timeadd 0 if timeadd 0 delay 5 delay 5 while timeadd while timeadd if numfun 1 if numfun 1 miao miao if miao 60 if miao 60 miao 0 miao 0 write sfm 9 miao write sfm 9 miao write com 0 x80 0 x40 9 write com 0 x80 0 x40 9 write ds 0 miao write ds 0 miao if numfun 2 if numfun 2 fen fen if fen 60 if fen 60 fen 0 fen 0 write sfm 6 fen write sfm 6 fen write com 0 x80 0 x40 6 write com 0 x80 0 x40 6 write ds 2 fen write ds 2 fen if numfun 3 if numfun 3 shi shi if shi 24 if shi 24 shi 0 shi 0 write sfm 3 shi write sfm 3 shi write com 0 x80 0 x40 3 write com 0 x80 0 x40 3 write ds 4 shi write ds 4 shi if numfun 4 if numfun 4 week week if week 8 if week 8 week 1 week 1 write zhou 0 x0f week write zhou 0 x0f week write com 0 x80 0 x0f write com 0 x80 0 x0f write ds 6 week write ds 6 week if numfun 5 if numfun 5 if nian 0 if nian 0 switch yue switch yue casecase 1 ri if ri 32 1 ri if ri 32 ri 1 break ri 1 break casecase 2 ri if ri 30 2 ri if ri 30 ri 1 break ri 1 break casecase 3 ri if ri 32 3 ri if ri 32 ri 1 break ri 1 break casecase 4 ri if ri 31 4 ri if ri 31 ri 1 break ri 1 break casecase 5 ri if ri 32 5 ri if ri 32 ri 1 break ri 1 break casecase 6 ri if ri 31 6 ri if ri 31 ri 1 break ri 1 break casecase 7 ri if ri 32 7 ri if ri 32 ri 1 break ri 1 break casecase 8 ri if ri 32 8 ri if ri 32 ri 1 break ri 1 break casecase 9 ri if ri 31 9 ri if ri 31 ri 1 break ri 1 break casecase 10 ri if ri 32 10 ri if ri 32 ri 1 break ri 1 break casecase 11 ri if ri 31 11 ri if ri 31 ri 1 break ri 1 break casecase 12 ri if ri 32 12 ri if ri 32 ri 1 break ri 1 break elseelse if leapri if ri 30 if ri 30 ri 1 ri 1 elseelse if yue 2ri if ri 29 if ri 29 ri 1 ri 1 elseelse switch yue switch yue casecase 1 ri if ri 32 1 ri if ri 32 ri 1 break ri 1 break casecase 3 ri if ri 32 3 ri if ri 32 ri 1 break ri 1 break casecase 4 ri if ri 31 4 ri if ri 31 ri 1 break ri 1 break casecase 5 ri if ri 32 5 ri if ri 32 ri 1 break ri 1 break casecase 6 ri if ri 31 6 ri if ri 31 ri 1 break ri 1 break casecase 7 ri if ri 32 7 ri if ri 32 ri 1 break ri 1 break casecase 8 ri if ri 32 8 ri if ri 32 ri 1 break ri 1 break casecase 9 ri if ri 31 9 ri if ri 31 ri 1 break ri 1 break casecase 10 ri if ri 32 10 ri if ri 32 ri 1 break ri 1 break casecase 11 ri if ri 31 11 ri if ri 31 ri 1 break ri 1 break casecase 12 ri if ri 32 12 ri if ri 32 ri 1 break ri 1 break write nyr 8 ri write nyr 8 ri write com 0 x80 0 x08 write com 0 x80 0 x08 write ds 7 ri write ds 7 ri if numfun 6 if numfun 6 yue yue if yue 13 if yue 13 yue 0 yue 0 write nyr 5 yue write nyr 5 yue write com 0 x80 0 x05 write com 0 x80 0 x05 write ds 8 yue write ds 8 yue if numfun 7 if numfun 7 nian nian if nian 100 if nian 100 nian 0 nian 0 leap nian 4 0leap nian 4 0 write nyr 2 nian write nyr 2 nian write com 0 x80 2 write com 0 x80 2 write ds 9 nian write ds 9 nian if timesub 0 if timesub 0 delay 5 delay 5 while timesub while timesub if numfun 1 if numfun 1 miao miao if miao 1 if miao 1 miao 59 miao 59 write sfm 9 miao write sfm 9 miao write com 0 x80 0 x40 9 write com 0 x80 0 x40 9 write ds 0 miao write ds 0 miao if numfun 2 if numfun 2 fen fen if fen 1 if fen 1 fen 59 fen 59 write sfm 6 fen write sfm 6 fen write com 0 x80 0 x40 6 write com 0 x80 0 x40 6 write ds 2 fen write ds 2 fen if numfun 3 if numfun 3 shi shi if shi 1 if shi 1 shi 23 shi 23 write sfm 3 shi write sfm 3 shi write com 0 x80 0 x40 3 write com 0 x80 0 x40 3 write ds 4 shi write ds 4 shi if numfun 4 if numfun 4 week week if week 0 if week 0 week 7 week 7 write zhou 0 x0f week write zhou 0 x0f week write com 0 x80 0 x0f write com 0 x80 0 x0f write ds 6 week write ds 6 week if numfun 5 if numfun 5 if nian 0 if nian 0 switch yue switch yue casecase 1 ri if ri 0 1 ri if ri 0 ri 31 break ri 31 break casecase 2 ri if ri 0 2 ri if ri 0 ri 29 break ri 29 break casecase 3 ri if ri 0 3 ri if ri 0 ri 31 break ri 31 break casecase 4 ri if ri 0 4 ri if ri 0 ri 30 break ri 30 break casecase 5 ri if ri 0 5 ri if ri 0 ri 31 break ri 31 break casecase 6 ri if ri 0 6 ri if ri 0 ri 30 break ri 30 break casecase 7 ri if ri 0 7 ri if ri 0 ri 31 break ri 31 break casecase 8 ri if ri 0 8 ri if ri 0 ri 31 break ri 31 break casecase 9 ri if ri 0 9 ri if ri 0 ri 30 break ri 30 break casecase 10 ri if ri 0 10 ri if ri 0 ri 31 break ri 31 break casecase 11 ri if ri 0 11 ri if ri 0 ri 30 break ri 30 break casecase 12 ri if ri 0 12 ri if ri 0 ri 31 break ri 31 break elseelse if leapri if ri 0 if ri 0 ri 29 ri 29 elseelse if yue 2ri if ri 0 if ri 0 ri 28 ri 28 elseelse switch yue switch yue casecase 1 ri if ri 0 1 ri if ri 0 ri 31 break ri 31 break casecase 3 ri if ri 0 3 ri if ri 0 ri 31 break ri 31 break casecase 4 ri if ri 0 4 ri if ri 0 ri 30 break ri 30 break casecase 5 ri if ri 0 5 ri if ri 0 ri 31 break ri 31 break casecase 6 ri if ri 0 6 ri if ri 0 ri 30 break ri 30 break casecase 7 ri if ri 0 7 ri if ri 0 ri 31 break ri 31 break casecase 8 ri if ri 0 8 ri if ri 0 ri 31 break ri 31 break casecase 9 ri if ri 0 9 ri if ri 0 ri 30 break ri 30 break casecase 10 ri if ri 0 10 ri if ri 0 ri 31 break ri 31 break casecase 11 ri if ri 0 11 ri if ri 0 ri 30 break ri 30 break casecase 12 ri if ri 0 12 ri if ri 0 ri 31 break ri 31 break write nyr 8 ri write nyr 8 ri write com 0 x80 0 x08 write com 0 x80 0 x08 write ds 7 ri write ds 7 ri if numfun 6 if numfun 6 yue yue if yue 1 if yue 1 yue 12 yue 12 write nyr 5 yue write nyr 5 yue write com 0 x80 0 x05 write com 0 x80 0 x05 write ds 8 yue write ds 8 yue if numfun 7 if numfun 7 nian nian if nian 1 if nian 1 nian 99 nian 99 leap nian 4 0leap nian 4 0 write nyr 2 nian write nyr 2 nian write com 0 x80 2 write com 0 x80 2 write ds 9 nian write ds 9 nian voidvoid set alarm set alarm ucharuchar ashi afen amiao ashi afen amiao if timeclk 0 if timeclk 0 判断是否按下闹钟设定键 delay 5 delay 5 延时消抖 if timeclk 0 if timeclk 0 while timeclk while timeclk anumfun anumfun 按键次数加 1 if anumfun 1 if anumfun 1 flag 1 flag 1 write com 0 x80 0 x40 0 x0a write com 0 x80 0 x40 0 x0a write com 0 x0f write com 0 x0f if anumfun 2 if anumfun 2 flag 1 flag 1 write com 0 x80 0 x40 0 x07 write com 0 x80 0 x40 0 x07 write com 0 x0f write com 0 x0f if anumfun 3 if anumfun 3 flag 1 flag 1 write com 0 x80 0 x40 0 x04 write com 0 x80 0 x40 0 x04 write com 0 x0f write com 0 x0f if anumfun 4 if anumfun 4 flag 0 flag 0 anumfun 0 anumfun 0 if anumfun 0 if anumfun 0 if timeadd 0 if timeadd 0 如果加功能键按下 delay 5 delay 5 while timeadd while timeadd if anumfun 1 if anumfun 1 设定秒 amiao amiao if amiao 60 if amiao 60 amiao 0 amiao 0 write sfm 9 amiao write sfm 9 amiao write com 0 x80 0 x40 9 write com 0 x80 0 x40 9 write ds 1 amiao write ds 1 amiao if anumfun 2 if anumfun 2 afen afen if afen 60 if afen 60 afen 0 afen 0 write sfm 6 afen write sfm 6 afen write com 0 x80 0 x40 6 write com 0 x80 0 x40 6 write ds 3 afen write ds 3 afen if anumfun 3 if anumfun 3 ashi ashi if ashi 24 if ashi 24 ashi 0 ashi 0 write sfm 3 ashi write sfm 3 ashi write com 0 x80 0 x40 3 write com 0 x80 0 x40 3 write ds 5 ashi write ds 5 ashi if anumfun 0 if anumfun 0 if timesub 0 if timesub 0 delay 5 delay 5 while timesub while timesub if anumfun 1 if anumfun 1 amiao amiao if amiao 1 if amiao 1 amiao 59 amiao 59 write sfm 9 amiao write sfm 9 amiao write com 0 x80 0 x40 9 write com 0 x80 0 x40 9 write ds 1 amiao write ds 1 amiao if anumfun 2 if anumfun 2 afen afen if afen 1 if afen 1 afen 59 afen 59 write sfm 6 afen write sfm 6 afen write com 0 x80 0 x40 6 write com 0 x80 0 x40 6 write ds 3 afen write ds 3 afen if anumfun 3 if anumfun 3 ashi ashi if ashi 1 if ashi 1 ashi 23 ashi 23 write sfm 3 ashi write sfm 3 ashi write com 0 x80 0 x40 3 write com 0 x80 0 x40 3 write ds 5 ashi write ds 5 ashi voidvoid init init EA 1 EA 1 开总中断 EX0 1 EX0 1 开外部中断 0 IT0 1 IT0 1 设定触发方式为负跳变沿有效 lcden 0 lcden 0 选通液晶显示屏 ledrw 0 ledrw 0 设定液晶显示屏的读写方式为读 write com 0 x38 write com 0 x38 设置液晶显示模式为 16 2 显示 5 7