摘 要：
电子万年历是一种非常广泛日常计时工具，对现代社会越来越流行。它可以对年、月、日、周日、时、分、秒进行计时，还具有闰年补偿等多种功能，而且DS1302的使用寿命长，误差小。对于数字电子万年历采用直观的数字显示，可以同时显示年、月、日、周日、时、分、秒和温度等信息，还具有时间校准等功能。该电路采用AT89S52单片机作为核心，功耗小，能在3V的低压工作，电压可选用3~5V电压供电。
本设计是基于51系列的单片机进行的电子万年历设计，可以显示年月日时分秒及周信息，具有可调整日期和时间功能。在设计的同时对单片机的理论基础和外围扩展知识进行了比较全面准备。在硬件与软件设计时，没有良好的基础知识和实践经验会受到很大限制，每项功能实现时需要那种硬件，程序该如何编写，算法如何实现等，没有一定的基础就不可能很好的实现。在编写程序过程中发现以现有的相关知识要独自完成编写任务困难重重，在老师和同学的帮助下才完成了程序部分的编写。
万年历的设计过程在硬件与软件方面进行同步设计。硬件部分主要由AT89C52单片机，LED显示电路，以及调时按键电路等组成。在单片机的选择上本人使用了AT89C52单片机，该单片机适合于许多较为复杂控制应用场合。显示器使用2片7SEG-MPX8-CA和一片7SEG-MPX4-CA。7SEG-MPX8-CA是一种八个共阳二极管显示器，7SEG-MPX4-CA是一种四个共阳二极管显示器。为了能更轻松的控制这三片显示器，本人使用了3片74HC164来驱动。74HC164 是 8 位边沿触发式移位寄存器，串行输入数据，然后并行输出。软件方面主要包括日历程序、时间调整程序，公历转阴历程序，显示程序等。程序采用汇编语言编写，以便更简单地实现调整时间及阴历显示功能。所有程序编写完成后，在wave软件中进行调试，确定没有问题后，在Proteus软件中嵌入单片机内进行仿真。最后总在老师同学的帮助以及自己的努力下完成了此次电子万年历的设计。 关键词：
~~~~~~目录~~~~~~
一、设计要求与方案论证 ………………………………………………………………………4 1.1 设计要求 ……………………………………………………………………………………4 1.2 系统基本方案选择和论证 …………………………………………………………………4 1.2.1单片机芯片的选择方案和论证 ………………………………………………………4 1.2.2 显示模块选择方案和论证 ……………………………………………………………4 1.2.3 时钟芯片的选择方案和论证 …………………………………………………………4 二.系统的硬件设计与实现………………………………………………………………………5 2.1 电路设计框图 ………………………………………………………………………………5 2.2 系统硬件概述 ………………………………………………………………………………5 2.3 主要单元电路的设计 ………………………………………………………………………6 2.3.1单片机主控制模块的设计 ……………………………………………………………6 2.3.2时钟电路模块的设计 …………………………………………………………………6 2.3.3电路原理及说明 ………………………………………………………………………7
编辑版word
2.3 4显示模块的设计 ………………………………………………………………………8 三、系统的软件设计 ……………………………………………………………………………9 3.1程序流程框图 ………………………………………………………………………………9 3.2 子程序的设计 ………………………………………………………………………………9 3.2.1读、写DS1302子程序 ………………………………………………………………10 五、作品总结……………………………………………………………………………………12 六、致谢词………………………………………………………………………………………12 参考文献…………………………………………………………………………………………13 附录一：系统电路图……………………………………………………………………………14 附录二：系统程序清单…………………………………………………………………………15 附录三：系统使用说明书………………………………………………………………………40
一、设计要求与方案论证 1.1 设计要求： （１）基本要求
① 具有年、月、日、星期、时、分、秒等功能； ② 万年历具有闰月识别显示功能；
③ 具备年、月、日、星期、时、分、秒校准功能； ( 2 ) 创新要求
① 万年历具有阴历显示功能； ② 具有测量室内温度功能； 1.2 系统基本方案选择和论证
1.2.1单片机芯片的选择方案和论证： 方案一:
采用89C51芯片作为硬件核心，采用Flash ROM，内部具有4KB ROM 存储空间,能于3V的超低压工作,而且与MCS-51系列单片机完全兼容,但是运用于电路设计中时由于不具备ISP在线编程技术, 当在对电路进行调试时，由于程序的错误修改或对程序的新增功能需要烧入程序时，对芯片的多次拔插会对芯片造成一定的损坏。 方案二:
采用AT89S52,片内ROM全都采用Flash ROM；能以3V的超底压工作；同时也与MCS-51系列单片机完全该芯片内部存储器为8KB ROM 存储空间，同样具有89C51的功能，且具有在线编程可擦除技术，当在对电路进行调试时，由于程序的错误修改或对程序的新增功能需要烧入程序时，不需要对芯片多次拔插，所以不会对芯片造成损坏。 所以选择采用AT89S52作为主控制系统.
1.2.2 显示模块选择方案和论证： 方案一：
采用LED液晶显示屏,液晶显示屏的显示功能强大,可显示大量文字,图形,显示多样,清晰可见,但是价格昂贵,需要的接口线多,所以在此设计中不采用LED液晶显示屏. 方案二：
编辑版word
采用点阵式数码管显示，点阵式数码管是由八行八列的发光二极管组成，对于显示文字比较适合,如采用在显示数字显得太浪费,且价格也相对较高,所以也不用此种作为显示. 方案三：
采用LED数码管动态扫描,LED数码管价格适中,对于显示数字最合适,而且采用动态扫描法与单片机连接时,占用的单片机口线少。 所以采用了LED数码管作为显示。
1.2.3时钟芯片的选择方案和论证： 方案一：
直接采用单片机定时计数器提供秒信号，使用程序实现年、月、日、星期、时、分、秒计数。采用此种方案虽然减少芯片的使用，节约成本，但是，实现的时间误差较大。所以不采用此方案。 方案二：
采用DS1302时钟芯片实现时钟，DS1302芯片是一种高性能的时钟芯片，可自动对秒、分、时、日、周、月、年以及闰年补偿的年进行计数，而且精度高,位的RAM做为数据暂存区，工作电压2.5V～5.5V范围内，2.5V时耗电小于300nA. 1.3 电路设计最终方案决定
综上各方案所述,对此次作品的方案选定: 采用AT89S52作为主控制系统; DS1302提供时钟;数字式温度传感器;LED数码管动态扫描作为显示。
二.系统的硬件设计与实现 2.1 电路设计框图
2.2 系统硬件概述
本电路是由AT89S52单片机为控制核心，具有在线编程功能，低功耗，能在3V超低压工作；时钟电路由DS1302提供，它是一种高性能、低功耗、带RAM的实时时钟电路，它可以对年、月、日、周日、时、分、秒进行计时，具有闰年补偿功能，工作电压为2.5V～5.5V。采用三线接口与CPU进行同步通信，并可采用突发方式一次传送多个字节的时钟信号或RAM数据。DS1302内部有一个31*8的用于临时性存放数据的RAM寄存器。可产生年、月、日、周日、时、分、秒，具有使用寿命长，精度高和低功耗等特点，同时具有掉电自动保存功能；温度的采集由DS18B20构成；显示部份由２１个数码管，74ls138、74ls47译码器构成。使用动态扫描显示方式对数字的显示。 2.3 主要单元电路的设计
2.3.1单片机主控制模块的设计
AT89S52单片机为40引脚双列直插芯片,有四个I/O口P0,P1,P2,P3, MCS-51单片机共有4个8位的I/O口（P0、P1、P2、P3），每一条I/O线都能独立地作输出或输入。
单片机的最小系统如下图所示,18引脚和19引脚接时钟电路,XTAL1接外部晶振和微调电容的一端,在片内它是振荡器倒相放大器的输入,XTAL2接外部晶振和微调电容的另一端,在片内它是振荡器倒相放大器的输出.第9引脚为复位输入端,接上电容,电阻及开关后够上电复位电路,20引脚为接地端,40引脚为电源端. 如图-1 所示
编辑版word
图-1 主控制系统
2.3.2时钟电路模块的设计
图-2示出DS1302的引脚排列，其中Vcc1为后备电源，Vcc2为主电源。在主电源关闭的情况下，也能保持时钟的连续运行。DS1302由Vcc1或Vcc2两者中的较大者供电。当Vcc2大于Vcc1+0.2V时，Vcc2给DS1302供电。当Vcc2小于Vcc1时，DS1302由Vcc1供电。X1和X2是振荡源，外接32.７６８KHz晶振。RST是复位/片选线，通过把RST输入驱动置高电平来启动所有的数据传送。RST输入有两种功能：首先，RST接通控制逻辑，允许地址/命令序列送入移位寄存器；其次，RST提供终止单字节或多字节数据的传送手段。当RST为高电平时，所有的数据传送被初始化，允许对DS1302进行操作。如果在传送过程中RSTS置为低电平，则会终止此次数据传送，I/O引脚变为高阻态。上电动行时，在Vcc大于等于2.5V之前，RST必须保持低电平。中有在SCLK 为低电平时，才能将RST置为高电平，I/O为串行数据输入端（双向）。SCLK始终是输入端。
图-2 DS1302的引脚图 2.3.3电路原理及说明
(1) 时钟芯片DS1302的工作原理：
DS1302在每次进行读、写程序前都必须初始化，先把SCLK端置 \，接着把RST端置\，最后才给予SCLK脉冲；读/写时序如下图4所示。图5为DS1302的控制字，此控制字的位7必须置1，若为0则不能把对DS1302进行读写数据。对于位6，若对程序进行读/写时RAM=1，对时间进行读/写时，CK=0。位1至位5指操作单元的地址。位0是读/写操作位，进行读操作时，该位为1；该位为0则表示进行的是写操作。控制字节总是从最低位开始输入/输出的。表6为DS1302的日历、时间寄存器内容：\是时钟暂停标志位，当该位为1时，时钟振荡器停止，DS1302处于低功耗状态；当该位为0时，时钟开始运行。\
是写保护位，在任何的对时钟和RAM的写操作之前，WP必须为0。当\为1时，写保护位防止对任一寄存器的写操作。
(2) DS1302的控制字节
DS1302的控制字如表-1所示。控制字节的高有效位（位7）必须是逻辑1，如果它为0，则不能把数据写入DS1302中，位6如果0，则表示存取日历时钟数据，为1表示存取RAM数据；位5至位1指示操作单元的地址；最低有效位（位0）如为0表示要进行写操作，为1表示进行读操作，控制字节总是从最低位开始输出
RAM RD 1 A4 A3 A2 A1 A0
/ CK /WR 表-1 DS1302的控制字格式 (3) 数据输入输出（I/O）
在控制指令字输入后的下一个SCLK时钟的上升沿时，数据被写入DS1302，数据输入从低位即位0开始。同样，在紧跟8位的控制指令字后的下一个SCLK脉冲的下降沿读出DS1302的数据，读出数据时从低位0位到高位7。如下图-4所示
编辑版word
图-4 DS1302读/写时序图
(4) DS1302的寄存器
DS1302有12个寄存器，其中有7个寄存器与日历、时钟相关，存放的数据位为BCD码形式,其日历、时间寄存器及其控制字见表-2。
表-2 DS1302的日历、时间寄存器
此外，DS1302 还有年份寄存器、控制寄存器、充电寄存器、时钟突发寄存器及与RAM相关的寄存器等。时钟突发寄存器可一次性顺序读写除充电寄存器外的所有寄存器内容。 DS1302与RAM相关的寄存器分为两类：一类是单个RAM单元，共31个，每个单元组态为一个8位的字节，其命令控制字为C0H～FDH，其中奇数为读操作，偶数为写操作；另一类为突发方式下的RAM寄存器，此方式下可一次性读写所有的RAM的31个字节，命令控制字为FEH(写)、FFH(读)。
2.3.4显示模块的设计
如图－5所示，采用动态扫描显示，由２１个数码管，3-8译码器74LS138接1K限流电阻,再接8550三极管接到共阳数码管的CoM端作为选通位码,每位选择相应的列。74ls47接 240Ω限流电阻,再接共行的LED数码管的断码。
图-5 LED动态扫描显示 三、系统的软件设计 3.1程序流程框图
图-A 主程序流程图
图-B计算阳历程序流程图
图-C 时间调整程序流程图
3.2 子程序的设计
3.2.1 读、写DS1302子程序
编辑版word
;写1302程序WRITE: CLR SCLK NOP
SETB RST NOP
MOV A,32H MOV R4,#8 WRITE1:
RRC A ;送地址给1302 NOP NOP
CLR SCLK NOP NOP NOP
MOV IO,C NOP NOP NOP
SETB SCLK NOP NOP
DJNZ R4,WRITE1 CLR SCLK NOP
MOV A,31H MOV R4,#8 WRITE2: RRC A
NOP ;送数据给1302 CLR SCLK NOP NOP
MOV IO,C NOP NOP NOP
SETB SCLK NOP NOP
DJNZ R4,WRITE2 CLR RST RET
编辑版word
;读1302程序 READ:
CLR SCLK NOP NOP
SETB RST NOP
MOV A,32H MOV R4,#8 READ1:
RRC A ;送地址给1302 NOP
MOV IO,C NOP NOP NOP
SETB SCLK NOP NOP NOP
CLR SCLK NOP NOP
DJNZ R4,READ1 MOV R4,#8 READ2:
CLR SCLK
NOP ;从1302中读出数据 NOP NOP
MOV C,IO NOP NOP NOP NOP NOP RRC A NOP NOP NOP NOP
SETB SCLK NOP
编辑版word
DJNZ R4,READ2 MOV 31H,A CLR RST RET
五、作品总结
在整个设计过程中，发挥团队精神，分工合作，充分发挥人的主观能动性，自主学习，学到了许多没学到的知识。较好的完成了作品。达到了预期的目的，在最初的设计中，发挥\三个臭皮匠，顶个诸葛亮\的作用。相互学习、相互讨论、研究。完了最初的设想。在电路焊接时虽然没什么大问题，但从中也知道了焊接在整个作品中的重要性，电路工程量大，不能心急，一个个慢慢来不能急于求成。反而达到事半功倍的效果。对电路的设计、布局要先有一个好的构思，才显得电路板美观、大方。程序编写中，由于思路不清晰，开始时遇到了很多的问题，经过静下心来思考，和同组员的讨论，理清了思路，反而得心应手。在此次设计中，知道了做凡事要有一颗平常的心，不要想着走捷径，一步一脚印。也练就了我们的耐心，做什么事都在有耐心。此次比赛中学到了很多很多东西，这是最重要的。总之，参加电子竞赛我们的能力得到了全方位的提高。 致谢词
感谢学院给我们提供了一个展现自己的舞台，给我们一次难得煅炼的机会，使得我们的动手能力和专业技能都有了很大的提高。
在做作品的日子里得到了刘老师的悉心指导，在此向我们的指导教师致以诚挚的谢意。感谢提供相关技术帮助的老师和同学，你们的支持和鼓励使我们对这次的作品完成有了信心和动力，也给了我们很多无私的帮助和支持，我们在此深表谢意。
姓名：龚泽汗 参考文献
1 刘勇 编 数字电路 电子工业出版社 2004
2 陈正振 编 电子电路设计与制作 广西交通职业技术学院信息工程系 2007 3 杨子文 编 单片机原理及应用 西安电子科技大学出版社 2006 4 王法能 编 单片机原理及应用 科学出版社 2004
2010年5月20日
附录一：系统电路图
附录二：系统程序清单
CONFIG12 EQU 7FH TEMPH EQU 21H TEMPL EQU 20H REG2 EQU 22H REG3 EQU 23H REG4 EQU 24H DAT EQU P0.7
编辑版word
SCLK EQU P3.2 IO EQU P3.3 RST EQU P3.4 year DATA 66H month DATA 65H week DATA 64H day DATA 63H hour DATA 62H mintue DATA 61H second DATA 60H
ORG 0000H LJMP START ORG 001BH LJMP INTT1
START: ;初值 LCALL ZJ SETB EA
MOV SCON,#00H ; 串行输出，方式0 MOV TMOD,#10H ;计数器1，方式1 MOV TL1,#00H MOV TH1,#00H MOV 32H,#8EH
MOV 31H,#00H ;允许写1302 LCALL WRITE MOV 32H,#90H
MOV 31H,#0A6H ;1302充电，充电电流1.1MA LCALL WRITE
;主程序~~~~~~~~~~~~~~~~~~~~~ MAIN1:
MOV 32H,#8DH ;读出年 LCALL READ MOV year,31H
MOV 32H,#8BH ;读出星期 LCALL READ MOV week,31H
MOV 32H,#89H ;读出月 LCALL READ MOV month,31H
MOV 32H,#87H ;读出日
编辑版word
LCALL READ MOV day,31H
MOV 32H,#85H ;读出小时 LCALL READ MOV hour,31H
MOV 32H,#83H ;读出分钟 LCALL READ MOV mintue,31H
MOV 32H,#81H ;读出秒 LCALL READ MOV second,31H
;~~~~~~~~~~~~分离缓存~~~~~~~~ MOV R0,year ;年分离，送显示缓存 LCALL DIVIDE MOV 7BH,R1 MOV 4BH,R1 MOV 7CH,R2 MOV 4CH,R2 MOV 78H,week MOV 48H,week
MOV R0,month ;月分离，送显示缓存 LCALL DIVIDE MOV 79H,R1 MOV 49H,R1 MOV 7AH,R2 MOV 4AH,R2
MOV R0,day ;日分离，送显示缓存 LCALL DIVIDE MOV 76H,R1 MOV 46H,R1 MOV 77H,R2 MOV 47H,R2
MOV R0,hour ;小时分离，送显示缓存 LCALL DIVIDE MOV 74H,R1 MOV 44H,R1 MOV 75H,R2 MOV 45H,R2
MOV R0,mintue ;分钟分离，送显示缓存 LCALL DIVIDE MOV 72H,R1
编辑版word
MOV 42H,R1 MOV 73H,R2 MOV 43H,R2
MOV R0,second ;秒分离，送显示缓存 LCALL DIVIDE MOV 70H,R1 MOV 40H,R1 MOV 71H,R2 MOV 41H,R2 CLR EA
LCALL TOUTOU SETB EA
LCALL DISPLAY
LCALL GENGXIAN ;更新农历程序 JNB P0.1,SETG111 JNB F0,SSS
setb P0.4 ;非闰月，则p0.4清零,指示灯亮 LJMP MAIN1 SETG111: LJMP SETG SSS:
clr P0.4 ;闰月，则p0.4置位，指示灯不亮 LJMP MAIN1
;~~~~~~~~~~~~~~ 温度 TOUTOU:
LCALL CHUSHI LCALL RDTEMP MOV A,TEMPL ANL A,#11110000B MOV TEMPL,A MOV A,TEMPH ANL A,#00000111B ORL A,TEMPL SWAP A MOV 25H,A MOV A,25H MOV B,#64H DIV AB MOV A,B MOV B,#0AH DIV AB SWAP A ORL A,B
编辑版word
MOV 10H,A RET CHUSHI:
LCALL RESET MOV A,#0CCH LCALL WRITE111 MOV A,#4EH LCALL WRITE111 MOV A,#CONFIG12 LCALL WRITE111 RET RDTEMP:
LCALL RESET MOV A,#0CCH LCALL WRITE111 MOV A,#44H
LCALL WRITE111 LCALL DL1MS LCALL RESET MOV A,#0CCH LCALL WRITE111 MOV A,#0BEH LCALL WRITE111 LCALL ERAD111 MOV TEMPL,A LCALL ERAD111 MOV TEMPH,A RET RESET: LA:
SETB DAT MOV 52H,#200 LB:
CLR DAT DJNZ 52H,LB SETB DAT MOV 52H,#30 LC:
DJNZ 52H,LC CLR C
ORL C,DAT JC LB
MOV 58H,#80 LD:
编辑版word
ORL C,DAT JC LP
DJNZ 58H,LD SJMP LA LP:
MOV 52H,#250 LF:
DJNZ 52H,LF RET WRITE111: MOV 53H,#8 W51HA:
SETB DAT MOV 54H,#8 RRC A CLR DAT W52HA:
DJNZ 54H,W52HA MOV DAT,C MOV 54H,#30 W53HA:
DJNZ 54H,W53HA DJNZ 53H,W51HA SETB DAT RET ERAD111: CLR EA
MOV 58H,#8 RD1A:
CLR DAT MOV 54H,#6 NOP
SETB DAT RD2A:
DJNZ 54H,RD2A MOV C,DAT RRC A
MOV 55H,#30 RD3A:
DJNZ 55H,RD3A DJNZ 58H,RD1A SETB DAT RET
编辑版word
;公历设置程序~~~~~~~~~~~~~~~~~~~~~ SETG :
SETB TR1 SETB ET1
MOV 32H,#8EH
MOV 31H,#00H ;允许写1302 LCALL WRITE MOV 32H,#80H
MOV 31H,#80H ;1302停止振荡 LCALL WRITE
GWAIT: ;~~~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB P0.1,GWAIT SETG1:
LCALL DISPLAY JNB P0.1,SETG2
JNB P0.2,GADDYEAR JNB P0.3,JIANYEAR AJMP SETG1 GADDYEAR:
MOV R7,66H ;年加一 LCALL ADD1 MOV 66H,A
CJNE A,#51H,GADDYEAR1 MOV 66H,#00H AJMP GADDYEAR1 JIANYEAR:
MOV R7,66H ;年减一 LCALL JIAN1 MOV 66H,A
CJNE A,#00H,GADDYEAR1 MOV 66H,#51H GADDYEAR1:
MOV 32H,#8CH ;年值送人1302 MOV 31H,66H LCALL WRITE MOV R0,66H
LCALL DIVIDE ;年分离送显示缓存 MOV 4BH,R1 MOV 7BH,R1 MOV 4CH,R2 MOV 7CH,R2
WAITT1: ;~~~~~~~~~~~~~~~~ LCALL DISPLAY
编辑版word
JNB P0.2,WAITT1 JNB P0.3,WAITT1 AJMP SETG1 SETG2:
SETB 0AH ;调月时闪标志 GWAIT2:
LCALL DISPLAY JNB P0.1,GWAIT2 SETG3:
LCALL DISPLAY JNB P0.1,SETG4
JNB P0.2,GADDMONTH JNB P0.3,JIANMONTH AJMP SETG3 GADDMONTH:
MOV R7,65H ;月加一 LCALL ADD1 MOV 65H,A
CJNE A,#13H,GADDMONTH1 MOV 65H,#01H
AJMP GADDMONTH1 JIANMONTH:
MOV R7,65H ;月减一 LCALL JIAN1 MOV 65H,A
CJNE A,#00H,GADDMONTH1 MOV 65H,#12H GADDMONTH1:
MOV 32H,#88H ;月值送人1302 MOV 31H,65H LCALL WRITE MOV R0,65H
LCALL DIVIDE ;月分离，送显示缓存 MOV 79H,R1 MOV 49H,R1 MOV 7AH,R2 MOV 4AH,R2
WAITT2: ;~~~~~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB P0.2,WAITT2 JNB P0.3,WAITT2 AJMP SETG3 SETG4:
SETB 0BH ;调日时闪标志
编辑版word
GWAIT4:
LCALL DISPLAY JNB P0.1,GWAIT4 SETG5:
LCALL DISPLAY JNB P0.1,SETG6
JNB P0.2,GADDDAY JNB P0.3,JIANDAY AJMP SETG5 GADDDAY:
MOV R7,63H ;日加一 LCALL ADD1 MOV 63H,A
CJNE A,#32H,GADDDAY1 MOV 63H,#01H JIANDAY:
MOV R7,63H ;日减一 LCALL JIAN1 MOV 63H,A
CJNE A,#00H,GADDDAY1 MOV 63H,#31H GADDDAY1:
MOV 32H,#86H ;日值送人1302 MOV 31H,63H LCALL WRITE MOV R0,63H
LCALL DIVIDE ;日分离，送显示缓存 MOV 76H,R1 MOV 46H,R1 MOV 77H,R2 MOV 47H,R2
WAITT3: ;~~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB P0.2,WAITT3 JNB P0.3,WAITT3 AJMP SETG5 SETG6:
SETB 0CH ;调星期时闪标志 GWAIT6:
LCALL DISPLAY JNB P0.1,GWAIT6 SETG7:
LCALL DISPLAY JNB P0.1,SETG8
编辑版word
JNB P0.2,GADDWEEK JNB P0.3,JIANWEEK AJMP SETG7 GADDWEEK:
MOV R7,64H ;星期加一 LCALL ADD1 MOV 64H,A
CJNE A,#07H,GADDWEEK1 MOV 64H,#00H AJMP GADDWEEK1 JIANWEEK:
MOV R7,64H ;星期减一 LCALL JIAN1 MOV 64H,A
CJNE A,#00H,GADDWEEK1 MOV 64H,#06H GADDWEEK1: MOV 32H,#8AH
MOV 31H,64H ;星期值送人1302 LCALL WRITE MOV R0,64H
LCALL DIVIDE ;星期值分离送显示缓存 MOV 48H,R1 MOV 78H,R1
WAITT4: ;~~~~~~~~~~~~~~~ ~~~~~ LCALL DISPLAY JNB P0.2,WAITT4 JNB P0.3,WAITT4 AJMP SETG7 SETG8:
SETB 0DH ;调小时时闪标志 GWAIT8:
LCALL DISPLAY JNB P0.1,GWAIT8 SETG9:
LCALL DISPLAY JNB P0.1,SETG10
JNB P0.2,GADDHOUR JNB P0.3,JIANHOUR AJMP SETG9 GADDHOUR:
MOV R7,62H ;小时加一 LCALL ADD1 MOV 62H,A
编辑版word
CJNE A,#24H,GADDHOUR1 MOV 62H,#00H
AJMP GADDHOUR1 JIANHOUR:
MOV R7,62H ;小时减一 LCALL JIAN1 MOV 62H,A
CJNE A,#00H,GADDHOUR1 MOV 62H,#23H GADDHOUR1:
MOV 32H,#84H ;小时值送人1302 MOV 31H,62H LCALL WRITE MOV R0,62H
LCALL DIVIDE ;小时值分离送显示缓存 MOV 74H,R1 MOV 44H,R1 MOV 75H,R2 MOV 45H,R2
WAITT5: ;~~~~~~~~~~~~~~~~~~~~~~~~~ LCALL DISPLAY JNB P0.2,WAITT5 JNB P0.3,WAITT5 AJMP SETG9 SETG10:
SETB 0EH ;调分时候闪标志 GWAIT10:
LCALL DISPLAY JNB P0.1,GWAIT10 SETG11:
LCALL DISPLAY JNB P0.1,SETGOUT
JNB P0.2,GADDMINTUE JNB P0.3,JIANMINTUE AJMP SETG11 GADDMINTUE:
MOV R7,61H ;分钟加一 LCALL ADD1 MOV 61H,A
CJNE A,#60H,GADDMINTUE1 MOV 61H,#00H
AJMP GADDMINTUE1 JIANMINTUE:
MOV R7,61H ;分钟减一
编辑版word
LCALL JIAN1 MOV 61H,A
CJNE A,#00H,GADDMINTUE1 MOV 61H,#59H GADDMINTUE1:
MOV 32H,#82H ;分钟值送人1302 MOV 31H,61H LCALL WRITE MOV R0,61H
LCALL DIVIDE ;分钟值分离送显示缓存 MOV 72H,R1 MOV 42H,R1 MOV 73H,R2 MOV 43H,R2 WAITT6:
LCALL DISPLAY JNB P0.2,WAITT6 JNB P0.3,WAITT6 AJMP SETG11 SETGOUT:
LCALL DISPLAY JNB P0.1,SETGOUT LCALL GENGXIAN MOV 32H,#80H
MOV 31H,#00H ;1302晶振开始振荡 LCALL WRITE MOV 32H,#8EH
MOV 31H,#80H ;禁止写入1302 LCALL WRITE CLR 08H CLR 09H CLR 0AH CLR 0BH CLR 0CH CLR 0DH CLR 0EH CLR 0FH
CLR ET1 ;关闪中断 CLR TR1 LJMP MAIN1
;;闪动调时程序~~~~~~~~~~~~~~~~ INTT1:
PUSH ACC
编辑版word
PUSH PSW GFLASH: CPL 0FH
JB 0FH,GFLASH1
MOV 7CH,4CH ;全部显示 MOV 7BH,4BH MOV 7AH,4AH MOV 79H,49H MOV 78H,48H MOV 77H,47H MOV 76H,46H MOV 75H,45H MOV 74H,44H MOV 73H,43H MOV 72H,42H MOV 71H,41H MOV 70H,40H GFLASHOUT: POP PSW POP ACC RETI GFLASH1:
JB 0AH,GFLASH2 ;调年闪 MOV 7CH,#0FH MOV 7BH,#0FH AJMP GFLASHOUT GFLASH2:
JB 0BH,GFLASH3 ;调月闪 MOV 7AH,#0FH MOV 79H,#0FH AJMP GFLASHOUT GFLASH3:
JB 0CH,GFLASH4 ;调日闪 MOV 77H,#0FH MOV 76H,#0FH AJMP GFLASHOUT GFLASH4:
JB 0DH,GFLASH5 ;调星期闪 MOV 78H,#0FH AJMP GFLASHOUT GFLASH5:
JB 0EH,GFLASH6 ;调小时闪 MOV 75H,#0FH MOV 74H,#0FH
编辑版word
AJMP GFLASHOUT GFLASH6:
MOV 73H,#0FH ;调分钟闪 MOV 72H,#0FH AJMP GFLASHOUT
;加一程序~~~~~~~~~~~~~~~~~~~~~~~~~
ADD1:
MOV A,R7 ADD A,#1 DA A RET
;减一程序~~~~~~~~~~~~~~~~~~~~~~~~~ JIAN1:
MOV A,R7 DEC A
CJNE A,#4FH,KK1 MOV A,#49H KK1:
CJNE A,#3FH,KK2 MOV A,#39H KK2:
CJNE A,#2FH,KK3 MOV A,#29H KK3:
CJNE A,#1FH,KK4 MOV A,#19H KK4:
CJNE A,#0FH,KK5 MOV A,#09H KK5: RET
;分离程序~~~~~~~~~~~~~~~~~~~~~~~~~
DIVIDE: MOV A,R0 ANL A,#0FH MOV R1,A MOV A,R0 SWAP A
ANL A,#0FH MOV R2,A
编辑版word
RET
;写1302程序~~~~~~~~~~~~~~~~~~~~~~~~~~
WRITE:
CLR SCLK NOP
SETB RST NOP
MOV A,32H MOV R4,#8 WRITE1:
RRC A ;送地址给1302 NOP NOP
CLR SCLK NOP NOP NOP
MOV IO,C NOP NOP NOP
SETB SCLK NOP NOP
DJNZ R4,WRITE1 CLR SCLK NOP
MOV A,31H MOV R4,#8 WRITE2: RRC A
NOP ;送数据给1302 CLR SCLK NOP NOP
MOV IO,C NOP NOP NOP
SETB SCLK NOP NOP
编辑版word
DJNZ R4,WRITE2 CLR RST RET
;读1302程序~~~~~~~~~~~~~~~~~~~~~~~~~
READ:
CLR SCLK NOP NOP
SETB RST NOP
MOV A,32H MOV R4,#8 READ1:
RRC A ;送地址给1302 NOP
MOV IO,C NOP NOP NOP
SETB SCLK NOP NOP NOP
CLR SCLK NOP NOP
DJNZ R4,READ1 MOV R4,#8 READ2:
CLR SCLK
NOP ;从1302中读出数据 NOP NOP
MOV C,IO NOP NOP NOP NOP NOP RRC A NOP NOP
编辑版word
NOP NOP
SETB SCLK NOP
DJNZ R4,READ2 MOV 31H,A CLR RST RET
;BCD码转换为10进制程序~~~~~
BCD_10: MOV A,R0 ANL A,#0FH
MOV R1,A ;高位×10， 加低位 MOV A,R0 SWAP A
ANL A,#0FH MOV B,#10 MUL AB ADD A,R1 MOV R0,A RET
;查一年数据程序~~~~~~~~~~~~~~~~
CHECKMONTH: LCALL BCD_10
;农历和公历为同一年，
;NEW此时R2中的值为FFH时，R3有值，否则为0 NEW: NOP M1:
MOV A,R2 ;R2减一月天数 CLR C
SUBB A,#29 MOV R1,A MOV A,R6 JB ACC.6,SM11 MOV A,R2 CLR C
SUBB A,#30 MOV R1,A SM11:
编辑版word
JC SM12
MOV A,R1 ;R2减1月天数，够减 MOV R2,A ;转二月 AJMP M2 SM12:
CJNE R3,#00H,M13 ;R2减1月天数
LJMP Y1 ;不够减，判R3为0否 M13:
MOV A,R2 ;不为0，R3加到R2中 ADD A,R3 ;再让一月减
MOV R2,A ;还不够，则转Y1 MOV R3,#00H AJMP M1 M2:
CLR C ;R2减一月天数，够减 MOV A,R2 ;转三月 SUBB A,#29 MOV R1,A MOV A,R6 JB ACC.5,M21 MOV A,R2 CLR C
SUBB A,#30 MOV R1,A M21: JC M22
MOV A,R1 ;R2减2月天数，够减 MOV R2,A AJMP MM2 M22:
CJNE R3,#00H,M23 ;R2减2月天数
LJMP Y2 ;不够减，判，R3为0否 M23:
MOV A,R2 ;不为0，R3加到R2中 ADD A,R3 ;再让二月减
MOV R2,A ;还不够，则转Y2 MOV R3,#00H AJMP M2 MM2:
LCALL CHECKRE ;查2月，如果不为闰月 CJNE A,#02H,M3 ;转3月 RM2:
MOV A,R4 ANL A,#0FH
编辑版word
JNZ RM21 MOV A,R2 CLR C
SUBB A,#30 MOV R1,A AJMP RM22 RM21:
MOV A,R2 CLR C
SUBB A,#29 MOV R1,A RM22: JC RM23
MOV A,R1 ;R2减闰2月天数，够减 MOV R2,A ;转3月 AJMP M3 RM23:
CJNE R3,#00H,RM24 ;R2减闰2月天数 LJMP RY2 ;不够减，判，R3为0否 RM24:
MOV A,R2 ;不为0，R3加到R2中 ADD A,R3 ;再让闰2月减
MOV R3,#00H ;还不够，则转RY2
SUBB A,#30 MOV R1,A M121:
CJNE R3,#00H,M122 ;R2减12月天数
LJMP Y12 ;不够减，判，R3为0否 M122:
MOV A,R2 ;不为0，R3加到R2中 ADD A,R3 ;再让12月减
MOV R2,A ;还不够，则转Y12 MOV R3,#00H LJMP M12 Y1:
MOV A,R2
MOV R0,A ;R2中为日的值 LCALL D_BCD MOV 56H,A MOV 57H,#01H CLR F0 ;非闰月 LJMP S_PLAY Y2:
编辑版word
CJNE R2,#00H,Y21
MOV A,R6 ;R2中为0，则为前一个月 MOV 56H,#29H ;的的最后一天 JB ACC.6,Y22 MOV 56H,#30H Y22:
MOV 57H,#01H CLR F0
LJMP S_PLAY Y21:
MOV A,R2
MOV R0,A ;R2中为日的值 LCALL D_BCD MOV 56H,A MOV 57H,#02H CLR F0
LJMP S_PLAY RY2:
CJNE R2,#00H,RY21
MOV 56H,#29H ;R2中为0，则为前一个月 MOV A,R6 ;的的最后一天 JB ACC.5,RY22 MOV 56H,#30H RY22:
MOV 57H,#02H CLR F0
LJMP S_PLAY RY21:
MOV A,R2 ;R2中为日的值 MOV R0,A
LCALL D_BCD MOV 56H,A MOV 57H,#02H SETB F0 ;闰月 LJMP S_PLAY Y3:
CJNE R2,#00H,Y31
LCALL CHECKRE ;查前一个月是否为闰月 CJNE A,#02H,Y32
MOV 56H,#29H ;前一个月是闰月 MOV A,R4
ANL A,#0FH ;R2中为0，则为前一个月 JNZ Y33 ;的的最后一天 MOV 56H,#30H
编辑版word
MOV 57H,#02H SETB F0
LJMP S_PLAY Y33:
MOV 57H,#02H SETB F0
LJMP S_PLAY Y32:
MOV 56H,#29H ;前一个月不是闰月 MOV A,R6 JB ACC.5,Y34 MOV 56H,#30H Y34:
MOV 57H,#02H CLR F0
LJMP S_PLAY Y31:
MOV A,R2
MOV R0,A ;R2中为日的值 LCALL D_BCD MOV 56H,A MOV 57H,#03H CLR F0
LJMP S_PLAY RY3:
CJNE R2,#00H,RY31 MOV 56H,#29H MOV A,R6
JB ACC.4,RY32 ;R2中为0，则为前一个月 MOV 56H,#30H ;的的最后一天 RY32:
MOV 57H,#03H CLR F0
LJMP S_PLAY RY31:
MOV A,R2 ;R2中为日的值 MOV R0,A
LCALL D_BCD MOV 56H,A MOV 57H,#03H SETB F0
LJMP S_PLAY Y4:
CJNE R2,#00H,Y41
编辑版word
LCALL CHECKRE ;查前一个月是否为闰月 CJNE A,#03H,Y42
MOV 56H,#29H ;前一个月是闰月
MOV A,R4 ;R2中为0，则为前一个月 ANL A,#0FH ;的最后一天 JNZ Y43
MOV 56H,#30H MOV 57H,#03H SETB F0
LJMP S_PLAY Y43:
MOV 57H,#03H SETB F0
LJMP S_PLAY Y42:
MOV 56H,#29H ;前一个月不是闰月 MOV A,R6 JB ACC.4,Y44 MOV 56H,#30H Y44:
MOV 57H,#03H CLR F0
LJMP S_PLAY Y41:
MOV A,R2 ;R2中为日的值 MOV R0,A
LCALL D_BCD MOV 56H,A MOV 57H,#04H CLR F0
LJMP S_PLAY RY4:
CJNE R2,#00H,RY41
MOV 56H,#29H ;R2中为0，则为前一个月 MOV A,R6 ;的的最后一天 JB ACC.2,RY42 MOV 56H,#30H RY42:
MOV 57H,#04H CLR F0
LJMP S_PLAY RY41:
MOV A,R2 ;R2中为日的值 MOV R0,A
编辑版word
LCALL D_BCD MOV 56H,A MOV 57H,#04H SETB F0
LJMP S_PLAY Y5:
CJNE R2,#00H,Y51
LCALL CHECKRE ;查前一个月是否为闰月 CJNE A,#04H,Y52
MOV 56H,#29H ;前一个月是闰月
MOV A,R4 ;R2中为0，则为前一个月 ANL A,#0FH ;的最后一天 JNZ Y53
MOV 56H,#30H MOV 57H,#04H SETB F0
LJMP S_PLAY Y53:
MOV 57H,#04H SETB F0
LJMP S_PLAY Y52:
MOV 56H,#29H ;前一个月不是闰月 MOV A,R6 JB ACC.2,Y54 MOV 56H,#30H Y54:
MOV 57H,#04H CLR F0
LJMP S_PLAY Y51:
MOV A,R2 ;R2中为日的值 MOV R0,A
LCALL D_BCD MOV 56H,A MOV 57H,#05H CLR F0
LJMP S_PLAY RY5:
CJNE R2,#00H,RY51
MOV 56H,#29H ;R2中为0，则为前一个月 MOV A,R6 ;的最后一天 JB ACC.1,RY52 MOV 56H,#30H
编辑版word
RY52:
MOV 57H,#05H CLR F0
LJMP S_PLAY RY51:
MOV A,R2 ;R2中为日的值 MOV R0,A
LCALL D_BCD MOV 56H,A MOV 57H,#05H SETB F0
LJMP S_PLAY Y6:
CJNE R2,#00H,Y61
LCALL CHECKRE ;查前一个月是否为闰月 CJNE A,#05H,Y62
MOV 56H,#29H ;前一个月是闰月
MOV A,R4 ;R2中为0，则为前一个月 ANL A,#0FH ;的最后一天 JNZ Y63
MOV 56H,#30H MOV 57H,#05H SETB F0
LJMP S_PLAY Y63:
MOV 57H,#05H SETB F0
LJMP S_PLAY Y62:
MOV 56H,#29H ;前一个月不是闰月 MOV A,R6 JB ACC.1,Y64 MOV 56H,#30H Y64:
MOV 57H,#05H CLR F0
LJMP S_PLAY Y61:
MOV A,R2 ;R2中为日的值 MOV R0,A
LCALL D_BCD MOV 56H,A MOV 57H,#06H CLR F0
编辑版word
LJMP S_PLAY RY6:
CJNE R2,#00H,RY61
MOV 56H,#29H ;R2中为0，则为前一个月 MOV A,R6 ;的最后一天 JB ACC.0,RY62 MOV 56H,#30H RY62:
MOV 57H,#06H CLR F0
LJMP S_PLAY RY61:
MOV A,R2 ;R2中为日的值 MOV R0,A
LCALL D_BCD MOV 56H,A MOV 57H,#06H SETB F0
LJMP S_PLAY Y7:
CJNE R2,#00H,Y71
LCALL CHECKRE ;查前一个月是否为闰月 CJNE A,#06H,Y72
MOV 56H,#29H ;前一个月是闰月
MOV A,R4 ;R2中为0，则为前一个月 ANL A,#0FH ;的最后一天 JNZ Y73
MOV 56H,#30H MOV 57H,#06H SETB F0
LJMP S_pLAY Y73:
MOV 57H,#06H SETB F0
LJMP S_PLAY Y72:
MOV 56H,#29H ;前一个月不是闰月 MOV A,R6 JB ACC.0,Y74 MOV 56H,#30H Y74:
MOV 57H,#06H CLR F0
LJMP S_PLAY
编辑版word
Y71:
MOV A,R2 ;R2中为日的值 MOV R0,A
LCALL D_BCD MOV 56H,A MOV 57H,#07H CLR F0
LJMP S_PLAY RY7:
CJNE R2,#00H,RY71
MOV 56H,#29H ;R2中为0，则为前一个月 MOV A,R5 ;的最后一天 JB ACC.6,RY72 MOV 56H,#30H RY72:
MOV 57H,#07H CLR F0
LJMP S_PLAY RY71:
MOV A,R2 ;R2中为日的值 MOV R0,A
LCALL D_BCD MOV 56H,A MOV 57H,#07H SETB F0
LJMP S_PLAY Y8:
CJNE R2,#00H,Y81
LCALL CHECKRE ;查前一个月是否为闰月 CJNE A,#07H,Y82
MOV 56H,#29H ;前一个月是闰月 MOV A,R4 ;R2中为0，则为前一个月 ANL A,#0FH ;的最后一天 JNZ Y83
MOV 56H,#30H MOV 57H,#07H SETB F0
LJMP S_PLAY Y83:
MOV 57H,#07H SETB F0
LJMP S_PLAY Y82:
MOV 56H,#29H ;前一个月不是闰月
编辑版word
MOV A,R5 JB ACC.6,Y84 MOV 56H,#30H Y84:
MOV 57H,#07H CLR F0
LJMP S_PLAY Y81:
MOV A,R2 ;R2中为日的值
DL1MS:
MOV R6,#14H DL1:
MOV R7,#19H DL2:
DJNZ R7,DL2 DJNZ R6,DL1 RET
;数据表~~~~~~~~~~~~~~~~~~~`~~ TAB:
DB 35,15H,51H,00H,23,11H,52H,41H,42,12H,65H,00H DB 31,11H,32H,00H,21,42H,52H,21H,39,52H,25H,00H DB 28,25H,04H,71H,48,66H,42H,00H,37,33H,22H,00H DB 25,15H,24H,51H,44,05H,52H,00H,33,22H,65H,00H DB 22,21H,25H,41H,40,24H,52H,00H,30,52H,42H,91H DB 49,55H,05H,00H,38,26H,44H,00H,27,53H,50H,60H DB 46,53H,24H,00H,35,25H,54H,00H,24,41H,52H,41H DB 42,45H,25H,00H,31,24H,52H,00H,21,51H,12H,21H DB 40,55H,11H,00H,28,26H,21H,61H,47,26H,61H,00H DB 36,13H,31H,00H,25,05H,31H,51H,43,12H,54H,00H DB 33,51H,25H,00H,22,42H,25H,31H,41,32H,22H,00H DB 30,55H,02H,71H,49,55H,22H,00H,38,26H,62H,00H DB 27,13H,64H,60H,45,13H,32H,00H,34,12H,55H,00H DB 23,10H,53H,51H,42,22H,45H,00H,31,52H,22H,00H DB 21,52H,44H,21H,40,55H,44H,00H,29,26H,50H,71H DB 47,26H,64H,00H,36,25H,32H,00H,25,23H,32H,50H DB 44,44H,55H,00H,32,24H,45H,00H,22,55H,11H,30H END
附录三：系统使用说明书
编辑版word
如电路原理总图可知，本电路具有年、月、日、周日、时、分、秒、温度和农历功能， 总共由21个LED数码管显示，如下图-a所示。
图－a
日期和时间的修改由3个按键构成。如图-b所示。键１为向右移；键２为加１；键３为减１。
图－b
（此文档部分内容来源于网络，如有侵权请告知删除，文档可自行编辑修改内容，
供参考，感谢您的配合和支持）
编辑版word
51单片机电子万年历设计电路图及程序
