(完整版)基于51单片机电子万年历毕业论文

图-C 时间调整程序流程图

图-D 阴历程序流程图 3.2 子程序的设计

3.2.1 DS18B20温度子程序 CONFIG12 EQU 7FH TEMPH EQU 21H TEMPL EQU 20H REG2 EQU 22H REG3 EQU 23H REG4 EQU 24H DAT EQU P0.7

TOUTOU: LCALL CHUSHI LCALL RDTEMP MOV A,TEMPL ANL A,# B MOV TEMPL,A MOV A,TEMPH

ANL A,# B 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 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:

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 SETB DAT MOV 58H,#8 RD2A:

RD1A: DJNZ 54H,RD2A CLR DAT MOV C,DAT MOV 54H,#6 RRC A NOP

MOV 55H,#30

3.2.2 读、写DS1302子程序 ;写1302程序WRITE: NOP CLR SCLK NOP NOP NOP SETB RST SETB SCLK NOP NOP MOV A,32H NOP

MOV R4,#8 DJNZ R4,WRITE1 WRITE1:

CLR SCLK RRC A ;送地址给 NOP 1302 MOV A,31H NOP MOV R4,#8 NOP WRITE2: CLR SCLK RRC A

NOP NOP ;送数据给 NOP 1302 NOP CLR SCLK MOV IO,C

NOP

RD3A:

DJNZ 55H,RD3A DJNZ 58H,RD1A SETB DAT RET

NOP MOV IO,C NOP NOP NOP SETB SCLK NOP NOP

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 NOP NOP SETB SCLK NOP

DJNZ R4,READ2 MOV 31H,A CLR RST RET

四. 指标测 4.1 测试仪器

序号 1 2 3 4 名称 PC机 双路直流稳压电源 V8通用单片机仿真器 数字万用表 型号 LXB-HF769A CA17303D V8L DT9208