51单片机制作万年历

万年历一、题目要求：1、实现目标：用液晶屏显示时间、日期、星期和温度，时间、日期可调，且可以设置闹钟。

2、所用功能：1602液晶屏，独立按键，矩阵键盘，DS18B20温度传感器，1302时钟器，蜂鸣器，定时、中断。

二、程序框图：主程序框图计算阳历程序图三、程序：;==================变量和管脚的定义=================== LCD_RW EQU P2.5LCD_RS EQU P2.6LCD_EN EQU P2.7 ; LCD液晶显示控制端接口RS BIT P2.0RW BIT P2.1E BIT P2.2LCD EQU P0JIDIANQI EQU P2.3BEER EQU P2.4H_BIT EQU 20HM_BIT EQU 21HS_BIT EQU 22HHH EQU 23HMM EQU 24HSS EQU 25HHH_BIT EQU 26HMM_BIT EQU 27HSS_BIT EQU 28HBUF EQU 30H ; 30H-33H保存解码结果FLAG1 BIT F0 ;DS18B20存在标志位DQ BIT P3.4 ;DS18B20占用的总线TEMPER_L EQU 29HTEMPER_H EQU 28HROM1 EQU 2AHROM2 EQU 2BHROM3 EQU 2CHROM4 EQU 2DHROM5 EQU 2EHROM6 EQU 2FHROM7 EQU 30HROM8 EQU 31HA_BIT EQU 35HB_BIT EQU 36HLG EQU 45HLG1 EQU 46H ; LCD1602液晶显示位ORG 0000HLJMP INTIORG 000BH;===================================================; 初始化;=================================================== ORG 1000HINTI:MOV LG, #35HMOV LG1, #34H ; LCD1602液晶显示初值MOV TMOD, #11H ; 定时器方式1和0MOV TH0, #4CHMOV TL0, #B0H ; 定时器0初值，控制中断时间MOV TH1, #D8H ;设定时1初值MOV TL1, #F0HMOV TCON, #50HMAIN:LCALL LCD_INITLCALL LCDSET1 ; LCD1602液晶显示初始化SETB ET0 ; 打开定时器中断SETB EA ; 打开总中断SETB TR0 ; 开定时器SETB TR1 ; 开定时器MOV SP, #60HMOV P1, #00HMOV R5, #00HMOV H_BIT, #00HMOV M_BIT, #00HMOV S_BIT, #00HMOV HH_BIT, #00HMOV MM_BIT, #00HMOV SS_BIT, #00HMOV HH, #00HMOV MM, #00HMOV SS, #00HMOV TMOD, #01HMOV TH0, #3CHMOV TL0, #0B0HMOV LCD, #01HLCALL LCDWCLCALL INIT_18B20 ;复位程序LCALL GET_TEMPER ;读转换后的温度AJMP CHANGEMOV SP, #70H ;堆栈指针设到70H的地方MOV R7, #10ACALL DELAY_MSMOV DPTR, #MSG1CALL DISPLAY_LINE1;在第一行显示MOV DPTR, #MSG2CALL DISPLAY_LINE2;在第二行显示HERE:LCALL KEYJMP HERE ; 按键标志，不断循环KEY:ORL P1, #11111111B ; 拉高独立按键MOV A, P1CPL AANL A, #0CFHJZ KEY0 ; 若为0，跳到KEY0LJMP KEY1KEY0:LJMP KEY2KEY1:JB P1.2, KEY2CLR EA ; 开中断MOV A, #02H ; 清除屏幕ACALL LCD_CMD ; 进行LCD忙检测MOV A, #80HLCALL LCD_CMDMOV A, #53HLCALL LCD_WDATA ; 查表，得到显示数MOV A, #81HLCALL LCD_CMDMOV A, #51HLCALL LCD_WDATAMOV A, #82HLCALL LCD_CMDMOV A, #52HLCALL LCD_WDATAMOV A, #85HLCALL LCD_CMDMOV A, #46HLCALL LCD_WDATAMOV A, #86HLCALL LCD_CMDMOV A, #30HLCALL LCD_WDATAMOV A, #87HLCALL LCD_CMDMOV A, #37HLCALL LCD_WDATAMOV A, #89HLCALL LCD_CMDMOV A, #41HLCALL LCD_WDATAMOV A, #8AHLCALL LCD_CMDMOV A, #32HLCALL LCD_WDATAMOV A, #8BHLCALL LCD_CMDMOV A, #34HLCALL LCD_WDATAMOV A, #8CHLCALL LCD_CMDMOV A, #30HLCALL LCD_WDATASETB EA ; 开中断LJMP KEY7D1MS:MOV R5, #10D1:MOV R6, #250DJNZ R6, $DJNZ R5, D1RET;=================================================== ; 延时10MS; 占用资源：R5, R6;=================================================== D10MS:MOV R5, #3D2:MOV R6, #200DJNZ R6, $DJNZ R5, D2RET;=================================================== ; 检测LCD控制器忙状态; 读数据; RS=L,RW=H,E=H,输出：D0-D7=数据;=================================================== CHECKBUSY:PUSH ACCMOV P0, #0FFHCLR LCD_RSSETB LCD_RWSETB LCD_ENBUSYLOOP:NOPJB P0.7, BUSYLOOPCLR LCD_ENPOP ACCRET;=================================================== ; 写显示数据到LCD; RS=H,RW=L,D0-D7=数据，E=高脉冲;=================================================== LCD_WDATA:ACALL CHECKBUSY; 高4字节SETB LCD_RSCLR LCD_RWCLR LCD_ENMOV P0, ANOPNOPNOPNOPSETB LCD_ENNOPNOPNOPNOPCLR LCD_EN; 低4字节SETB LCD_RSCLR LCD_RWCLR LCD_ENNOPNOPNOPNOPANL A, #0FHSWAP AMOV P0, ANOPNOPNOPNOPSETB LCD_ENNOPNOPNOPNOPCLR LCD_ENRET;=================================================== ; 写指令数据到LCD; RS=L,RW=L,D0-D7=指令码，E=高脉冲;=================================================== LCD_CMD:ACALL CHECKBUSYLCD_CMD_NC:; 高4字节CLR LCD_RSCLR LCD_RWCLR LCD_ENNOPNOPMOV P0, ANOPNOPNOPNOPSETB LCD_ENNOPNOPNOPNOPCLR LCD_EN; 低4字节ANL A, #0FHSW AP AMOV P0, ANOPNOPNOPNOPSETB LCD_ENNOPNOPNOPNOPCLR LCD_ENRET;=================================================== ; 写8位指令数据到LCD; RS=L,RW=L,D0-D7=指令码，E=高脉冲;=================================================== LCD_CMD_8BIT:ACALL CHECKBUSYLCD_CMD_8BIT_NC:CLR LCD_RSCLR LCD_RWCLR LCD_ENNOPNOPMOV P0, ANOPNOPNOPNOPSETB LCD_ENNOPNOPNOPNOPCLR LCD_ENRET;===================================================; LCD初始化设定子程序;===================================================LCD_INIT:ACALL D1MS ; 延时15MSACALL D1MS ; 等待LCD电源稳定ACALL D1MSMOV A, #38H ; 16*2显示，5*7点阵，8位数据ACALL LCD_CMD_8BIT_NC ; 不进行LCD忙检测ACALL D1MSMOV A, #38H ; 16*2显示，5*7点阵，8位数据ACALL LCD_CMD_8BIT_NC ; 不进行LCD忙检测ACALL D1MSMOV A, #28H ; 16*2显示，5*7点阵，8位数据ACALL LCD_CMD_8BIT_NC ; 不进行LCD忙检测ACALL D1MS; 转4位界面MOV A, #28H ; 16*2显示，5*7点阵，8位数据ACALL LCD_CMD ; 不进行LCD忙检测ACALL D1MSMOV A, #0cH ; 显示关ACALL LCD_CMD ; 进行LCD忙检测ACALL D1MSMOV A, #02H ; 清除屏幕ACALL LCD_CMD ; 进行LCD忙检测ACALL D1MSMOV A, #01H ; 移动光标ACALL LCD_CMD ; 进行LCD忙检测ACALL D1MSRET;===================================================; 显示位置与移动光标设定;===================================================LCDSET1:MOV A, #01H ; 清除屏幕ACALL LCD_CMDACALL D1MSMOV A, #06H ; 移动光标（光标加1）ACALL LCD_CMDACALL D1MSMOV A, #87H ; 显示第一行左边第一位位置ACALL LCD_CMDACALL D1MSRET;===================================================LOOP:LCALL EYLCALL KEYLCALL EYYLJMP LOOP;***************************时钟显示***************************************;===================子程序=================EY:LCALL LOOP1LCALL LCDSETMOV DPTR,#TAB1MOV A,H_BITLCALL DISPMOV A,HH_BITLCALL DISPMOV A,#58MOV LCD,ALCALL WRRMOV A,M_BITLCALL DISPMOV A,MM_BITLCALL DISPMOV A,#58MOV LCD,ALCALL WRRMOV A,S_BITLCALL DISPMOV A,SS_BITLCALL DISPRET;=======BCD码转换子程序=============== LOOP1:MOV A,SSMOV B,#10DIV ABMOV S_BIT,AMOV SS_BIT,BMOV A,MMMOV B,#10DIV ABMOV M_BIT,AMOV MM_BIT,BMOV A,HHMOV B,#10DIV ABMOV H_BIT,AMOV HH_BIT,BRET;==========中断子程序================= TIME0:PUSH ACCPUSH PSWMOV TH0,#3CHMOV TL0,#0B0HINC R5CJNE R5,#20,LOOP2MOV R5,#00HINC SSMOV A,SSCJNE A,#60,LOOP2MOV SS,#00HINC MMMOV A,MMCJNE A,#60,LOOP2MOV MM,#00HINC HHMOV A,HHCJNE A,#24,LOOP2MOV HH,#00HLOOP2:POP PSWPOP ACCRETI;=====按键检测子程序==================== KEY:clr eaJNB P3.2,SS_KEYKEY1:setb eaRET;========秒钟调整子程序================SS_KEY:LCALL EY1LCALL DIS1JNB P3.2,SS_KEYSSA:LCALL EY1JNB P3.3,S_ADDKEYJNB P3.4,S_DECKEYLCALL DIS1JNB P3.2,MM_KEYJNB P3.5,KEY3LJMP SSAKEY3:LJMP KEY1;=========秒加1========================== S_ADDKEY:lcall ey1LCALL DIS1JNB P3.3,S_ADDKEYINC SSMOV A,SSCJNE A,#60,SS_KEY1MOV SS,#00HSS_KEY1:LJMP SSA;=========秒减1=========================lcall ey1LCALL DIS1JNB P3.4,S_DECKEYMOV A,SSCJNE A,#00,SS_KEY2MOV SS,#60SS_KEY2:DEC SSLJMP SS_KEY1;=========分钟调整子程序=============== MM_KEY:LCALL EY2LCALL DIS1JNB P3.2,MM_KEYMMA:LCALL EY2JNB P3.3,M_ADDKEYJNB P3.4,M_DECKEYLCALL DIS1JNB P3.2,HH_KEYJNB P3.5,KEY4LJMP MMAKEY4:LJMP KEY1;============分加1==================== M_ADDKEY:lcall ey2LCALL DIS1JNB P3.3,M_ADDKEYINC MMMOV A,MMCJNE A,#60,MM_KEY1MOV MM,#00HMM_KEY1:LJMP MMA;===========分减1==================== M_DECKEY:lcall ey2LCALL DIS1JNB P3.4,M_DECKEYMOV A,MMCJNE A,#00,MM_KEY2MOV MM,#60DEC MMLJMP MM_KEY1;=======时钟调整子程序============== HH_KEY:LCALL EY3LCALL DIS1JNB P3.2,HH_KEY HHA:LCALL EY3JNB P3.3,H_ADDKEYJNB P3.4,H_DECKEYLCALL DIS1JNB P3.2,SSBJNB P3.5,KEY5LJMP HHAKEY5:LJMP KEY1;==========时加1================== H_ADDKEY:lcall ey3LCALL DIS1JNB P3.3,H_ADDKEYINC HHMOV A,HHCJNE A,#24,HH_KEY1MOV HH,#00HHH_KEY1:LJMP HHA;==========时减1================= H_DECKEY:lcall ey3LCALL DIS1JNB P3.4,H_DECKEYMOV A,HHCJNE A,#00,HH_KEY2MOV HH,#24HH_KEY2:DEC HHLJMP HH_KEY1SSB:LJMP SS_KEYDISP:MOVC A,@A+DPTRMOV LCD,ALCALL WRRRET;======================== LCDSET:MOV LCD,#38HLCALL LCDWCMOV LCD,#06HLCALL LCDWCMOV LCD,#0CHLCALL LCDWCMOV LCD,#0C4HLCALL LCDWCRET;============================ LCDWC:CLR RSCLR RWCLR ELCALL LCDBFSETB ERET;=========================== WRR:SETB RSCLR RWCLR ELCALL LCDBFSETB ERET;================================ LCDBF:MOV LCD,#0FFHCLR RSSETB RWCLR ENOPSETB EJB LCD.7,LCDBFRET;================================ EYY:MOV LCD,#80HLCALL LCDWCMOV DPTR,#TAB2MOV R2,#16MOV R1,#00H EYY1:MOV A,R1LCALL DISPINC R1DJNZ R2,EYY1RET;========================== EY1:MOV LCD,#0C4HLCALL LCDWCMOV R4,#02EY11:LCALL HINDDJNZ R4,EY11LCALL LOOP1MOV A,S_BITLCALL DISPMOV A,SS_BITLCALL DISPRET;========================== EY2:MOV LCD,#0C4HLCALL LCDWCLCALL HINDLCALL LOOP1MOV A,M_BITLCALL DISPMOV A,MM_BITLCALL DISPLCALL HINDRET;=======================EY3:MOV LCD,#0C4HLCALL LCDWCLCALL LOOP1MOV A,H_BITLCALL DISPMOV A,HH_BITLCALL DISPMOV R4,#02EY33:LCALL HINDDJNZ R4,EY33RET;==============================HIND:MOV R3,#3HIND1:MOV A,#' 'MOV LCD,ALCALL WRRDJNZ R3,HIND1RET;==========延时程序=============DIS1:MOV R6,#20DJNZ R6,$RET;=======段码表=====================TAB1:DB 30H,31h,32H,33H,34H,35H,36H,37H,38H,39HTAB2: DB "TIM";******************************************************************** ; 读取数据表并将数据写入子程序;******************************************************************** WRITE1:MOVC A,@A+DPTR ;查表LCALL WR_DATARET;******************************************************************** ; 写数据子程序;******************************************************************** WR_DATA:MOV P0,ASETB RS ;RS=1CLR RW ;RW=0 ;准备写入数据CLR E ;E=0 ;执行显示命令LCALL BUSY ;判断液晶模块是否忙?SETB E ;E=1 ;显示完成,程序停车RET;********************************************************************; 写命令子程序;******************************************************************** WR_CODE:CLR RS ;写入控制命令的子程序CLR RWCLR ELCALL BUSYSETB ERET;********************************************************************; 判断忙碌子程序;******************************************************************** BUSY:MOV P0,#0FFH ;判断液晶显示器是否忙的子程序CLR RSSETB RWCLR ENOPSETB EJB P0.7,BUSY ;如果P1.7为高电平表示忙就循环等待RET;****************** HEX转BCD碼****************************hex_BCD:mov a,hexadd a,#00hda aret;***************BCD碼转dec*********************************bcd_dec:mov a,bcdmov b,#16div ab ;a中放置十位，b中放置个位swap aadd a,bret;***************** 温度显示**************************************** common:mov scon,#50h ;串口方式1，允许接收mov 87h,#00h ;PCON设置(将SMOD置0,使波特率不加倍)setb tr1 ;启动计时;********************************************************************;**********DS18B20复位程序*****************INIT_18B20: ;SETB DQ ;DS18B20占用的总线;NOPCLR P1.0 ;二极管指示用于观察调试CLR DQ ;DS18B20占用的总线MOV R0,#0FBHTSR1: DJNZ R0,TSR1 ;延时SETB DQMOV R0,#25HTSR2: ;JNB DQ ,TSR3 ;延时DJNZ R0,TSR2TSR3: SETB FLAG1 ;置标志位，表明DS18B20存在;AJMP TSR5;TSR4: CLR FLAG1;LJMP TSR7TSR5: MOV R0,#06BH ;yf延时TSR6: DJNZ R0,TSR6;TSR7: SETB DQ ;表明不存在SETB P1.0 ;二极管指示用于观察调试RET;********************设定DS18B20暂存器设定值**************RE_CONFIG:JB FLAG1,RE_CONFIG1RETRE_CONFIG1: MOV A,#0CCH ;放跳过ROM命令LCALL WRITE_18B20MOV A,#4EHLCALL WRITE_18B20 ;写暂存器命令MOV A,#00H ;报警上限中写入00HLCALL WRITE_18B20MOV A,#00H ;报警下限中写入00HLCALL WRITE_18B20MOV A,#1FH ;选择九位温度分辨率LCALL WRITE_18B20RET;*****************读转换后的温度值****************GET_TEMPER:SETB DQLCALL INIT_18B20 ;yf复位JB FLAG1,TSS2 ;yf若FLAG1位为1则跳转RET ;若不存在则返回TSS2: MOV A,#033H ;读ROMLCALL WRITE_18B20MOV A,#44H ;发出温度转换命令LCALL WRITE_18B20LCALL DISPLAY ;延时LCALL INIT_18B20MOV A,#0CCH ;跳过ROMLCALL WRITE_18B20MOV A,#0BEH ;发出读温度换命令LCALL WRITE_18B20LCALL READ2_18B20 ;读两个字节的温度RET;***************写DS18B20命令程序************WRITE_18B20:MOV R2,#8CLR CWR1:CLR DQMOV R3,#6 ;yf延时DJNZ R3,$RRC A ;yf带进位右移MOV DQ,C ;yf象总线写一位数MOV R3,#23 ;yf延时DJNZ R3,$SETB DQNOPDJNZ R2,WR1 ;yf判断8位是否发完SETB DQRET;***********读18B20程序，读出两个字节的温度*********READ2_18B20:CLR P1.1 ;二极管指示用于观察调试yfMOV R4,#2 ;给2字节数，低位存在29 H,高位存在28HMOV R1,#29H ;yf给地址初值RE00: MOV R2,#8 ;yf给R2给一字节循环数RE01: CLR CSETB CNOPNOPCLR DQNOPNOPNOPSETB DQMOV R3,#7 ;yf延时DJNZ R3,$MOV C,DQ ;yf将读得的数传给CMOV R3,#23 ;yf延时DJNZ R3,$RRC A ;yf右移一位,移位8次后A中的值即为所采得的数值DJNZ R2,RE01 ;yf一字节数采集够MOV @R1,A ;yf将累加器值存入间接地址mov sbuf,a ;将29H单元采集的数据传到串口用于调试yfjnb ti,$clr tiDEC R1 ;yf地址减1DJNZ R4,RE00 ;yf第一字节采集完后采集第二字节SETB P1.1 ;二极管指示用于观察调试yfRET;************读出的温度进行数据转换**************CHANGE: MOV A,29HMOV C,28H.0 ;将28H中的最低位移入CRRC AMOV C,28H.1RRC AMOV C,28H.2RRC AMOV C,28H.3RRC AMOV 29H,ALCALL DISPLAY ;调用数码管显示子程序LJMP MAIN;*******************DISPLAY******DISPLAY: mov a,29H ;将29H中的十六进制数转换成10进制mov b,#10 ;待转换的数/10=10进制div abmov b_bit,a ;十位在amov a_bit,b ;个位在bmov dptr,#TAB ;指定查表启始地址mov r0,#4dpl1: mov r1,#250 ;显示1000次dplop: mov a,a_bit ;取个位数MOVC A,@A+DPTR ;查个位数的7段代码mov p0,a ;送出个位的7段代码clr p2.5 ;开个位显示acall d1ms ;显示1mssetb p2.5mov a,b_bit ;取十位数MOVC A,@A+DPTR ;查十位数的7段代码mov p0,a ;送出十位的7段代码clr p2.4 ;开十位显示acall d1ms ;显示1mssetb p2.4djnz r1,dplop ;100次没完循环djnz r0,dpl1 ;4个100次没完循环ret;============================================;测量低电平时间,50US采样一次,R7加1一次,比如低电平时间为9000US,测得R7的结果为180(0B4H);OUTPUT: R7GET_LOW:MOV R7,#00HGET_LOW_NEXT:MOV R6,#20 ;在晶振为11.0592M时,延50US需要46个机器周期,DJNZ R6,$ ;这条指令执行需要2个机器周期JB IRR,GET_LOW_RTN ;接收头为高电平,结束测量INC R7MOV A,R7JNZ GET_LOW_NEXT ;看R7是否有溢出GET_LOW_RTN:RET;============================================;测量高电平时间,50US采样一次,R7加1一次,比如高电平时间为4500US,测得R7的结果为90;OUTPUT: R7GET_HIGH:MOV R7,#00HGET_HIGH_NEXT:MOV R6,#20 ;在晶振为11.0592M时,延50US需要46个机器周期,DJNZ R6,$ ;这条指令执行需要2个机器周期JNB IRR,GET_HIGH_RTN ;接收头为低电平,结束测量INC R7MOV A,R7GET_HIGH_RTN:RET;============================================;============================================DELAY_MS:MOV R6,#250DELAY_MS_NEXT:NOPNOPDJNZ R6,DELAY_MS_NEXTDJNZ R7,DELAY_MSRET;============================================;INPUT: R7DELAY:DJNZ R7,$RET;============================================;向LCD写一个命令字节;INPUT: ACCSEND_COMMAND_BYTE:CLR RSCLR RWMOV P0,ASETB ENOPNOPNOPNOPNOPNOPCLR EMOV R7,#100ACALL DELAYRET;===============================================;向LCD写一个数据字节;INPUT: ACCSEND_DATA_BYTE:SETB RSCLR RWMOV P0,ASETB ENOPNOPNOPNOPNOPNOPCLR EMOV R7,#100ACALL DELAYRET;===================================================;初始化LCDINIT_LCD:MOV A,#30HACALL SEND_COMMAND_BYTEACALL SEND_COMMAND_BYTEACALL SEND_COMMAND_BYTEMOV A,#38H ;设置工作方式ACALL SEND_COMMAND_BYTEMOV A,#0CH ;显示状态设置ACALL SEND_COMMAND_BYTEMOV A,#01H ;清屏ACALL SEND_COMMAND_BYTEMOV A,#06H ;输入方式设置ACALL SEND_COMMAND_BYTERET;===================================================;在第一行显示;INPUT: DPTR指向要显示的内容DISPLAY_LINE1:MOV A,#080HDISPLAY_LINE1_A:ACALL SEND_COMMAND_BYTE ;设置DDRAM地址MOV R6,#20DISPLAY_LINE1_NEXT:CLR AMOVC A,@A+DPTRACALL SEND_DATA_BYTEINC DPTRDJNZ R6,DISPLAY_LINE1_NEXTMOV R7,#100ACALL DELAYRET;===================================================;在第二行显示;INPUT: DPTR指向要显示的内容DISPLAY_LINE2:MOV A,#0C0HAJMP DISPLAY_LINE1_A;===================================================END四、程序说明：此程序是一个比较简单和基本的程序，没有太多功能，可以实现：用液晶屏显示时间、日期、星期和温度，时间、日期可调，且可以设置闹钟。