DS18B20数字温度计(原创).docx

DS18B20数字温度计（原创）单片机DIY 2008-01-12 19:39:27 阅读2659 评论0 字号：大中小订阅 1.原理图：2.实物图：3.汇编程序：;* 汇编 *;*MCU: AT892051 *;*MCU-crystal: 12M *;*Version: 01*;*Last Updata: 2007-5-27 *;*Author: zhaojun*;*Description: *;DS18B20的读写程序,数据脚P3.4 *;温度传感器18B20汇编程序, 采用器件默认的12位转化 *;最大转化时间750微秒,显示温度-55到+125度,显示精度 *;为0.1度，显示采用4位LED共阳显示测温值 *;*;单片机内存分配申明!;*TEMPER_L EQU 40H ;用于保存读出温度的低8位TEMPER_H EQU 41H ;用于保存读出温度的高8位FLAG1 EQU 38H ;是否检测到DS18B20标志位SEC EQU 20H ;数码管个位数存放内存位置MIN EQU 21H ;数码管十位数存放内存位置TEMPL EQU 30H ;用于保存读出温度的低8位TEMPH EQU 31H ;用于保存读出温度的高8位TEMPHC EQU 32H ;温度转换寄存器低8位TEMPLC EQU 33H ;温度转换寄存器高8位BUF1 EQU 34H ;显示缓冲寄存器小数位BUF2 EQU 35H ;显示缓冲寄存器个数位BUF3 EQU 36H ;显示缓冲寄存器十数位BUF4 EQU 37H ;显示缓冲寄存器百数位TEMPDIN BIT P3.4 ;数据脚定义DIN BIT P1.7 ;小数点控制;* ORG 0000H ;主程序入口地址 AJMP MAIN ;转主程序 ORG 0003H ;外中断0中断入口 DB 00H,00H,00H,00H,00H,00H,00H; RETI ;跳至INTEX0执行中断服务程序 ORG 000BH ;定时器T0中断入口地址 DB 00H,00H,00H,00H,00H,00H,00H ; RETI ;跳至定时器T0执行中断服务程序 ORG 0013H ;外中断1中断入口 DB 00H,00H,00H,00H,00H,00H,00H ; RETI ;跳至INTEX1执行中断服务程序 ORG 001BH ;定时器T1中断入口地址 DB 00H,00H,00H,00H,00H,00H,00H ; RETI ;中断返回（不开中断） ORG 0023H ;串行口中断入口地址 DB 00H,00H,00H,00H,00H,00H,00H ; RETI ;中断返回（不开中断）;*;两位数码管来显示温度,显示范围00到99度,显示精度为1度;因为12位转化时每一位的精度为0.0625度,我们不要求显示小数所以可以抛弃29H的低4位;将28H中的低4位移入29H中的高4位,这样获得一个新字节,这个字节就是实际测量获得的温度;无需乘于0.0625系数;*MAIN: MOV SP, #50H ; MOV P1, #0FFH ;LPTEMP: LCALL GET_TEMPER ;调用读温度子程序 LCALL CONVTEMP ;温度BCD码计算处理子程序 LCALL DISPBCD ;显示区BCD码温度值刷新子程序;* LCALL DISPLAY ;调用数码管显示子程序;* ;CPL P3.0 ; AJMP LPTEMP ;*; 这是DS18B20复位初始化子程序;*INIT_1820: SETB TEMPDIN NOP CLR TEMPDIN ;主机发出延时537微秒的复位低脉冲 MOV R1,#3TSR1: MOV R0,#107 DJNZ R0,$ DJNZ R1,TSR1 SETB TEMPDIN ;然后拉高数据线 NOP NOP NOP MOV R0,#25HTSR2: JNB TEMPDIN,TSR3 ;等待DS18B20回应 DJNZ R0,TSR2 LJMP TSR4 ;延时TSR3: SETB FLAG1 ;置标志位,表示DS1820存在 ;CLR P3.7 ;检查到DS18B20就点亮P3.7LED LJMP TSR5TSR4: CLR FLAG1 ;清标志位,表示DS1820不存在 ;CLR P3.1 LJMP TSR7TSR5: MOV R0,#117TSR6: DJNZ R0,TSR6 ;时序要求延时一段时间TSR7: SETB TEMPDIN ; RET;*; 读出转换后的温度值;*GET_TEMPER: SETB TEMPDIN ; LCALL INIT_1820 ;先复位DS18B20 JB FLAG1,TSS2 RET ;判断DS1820是否存在?若DS18B20不存在则返回TSS2: ;CLR P3.3 ;DS18B20已经被检测到! MOV A,#0CCH ;跳过ROM匹配 LCALL WRITE_1820 MOV A,#44H ;发出温度转换命令 LCALL WRITE_1820;*;这里通过调用显示子程序实现延时一段时间,等待AD转换结束,12位的话750微秒;* LCALL DISPLAY;* LCALL INIT_1820 ;准备读温度前先复位 MOV A,#0CCH ;跳过ROM匹配 LCALL WRITE_1820 MOV A,#0BEH ;发出读温度命令 LCALL WRITE_1820 LCALL READ_18200 ;将读出的温度数据保存到35H/36H RET;*;写DS18B20的子程序(有具体的时序要求);*WRITE_1820: MOV R2,#8 ;一共8位数据 CLR C ;WR1: CLR TEMPDIN ; MOV R3,#6 DJNZ R3,$ RRC A MOV TEMPDIN,C ; MOV R3,#23 DJNZ R3,$ SETB TEMPDIN ; NOP DJNZ R2,WR1 ; SETB TEMPDIN ; RET;*;处理温度BCD码子程序;*CONVTEMP: MOV A,TEMPH ; ANL A,#80H ; JZ TEMPC1 ; 判断温度是否在零下？ CLR C ; 温度值补码 变成原码 MOV A,TEMPL ; CPL A ADD A,#01H ; MOV TEMPL,A ; MOV A, TEMPH ; - CPL A ; ADDC A,#00H ; MOV TEMPH,A ; TEMPHC HI=符号位 MOV TEMPHC,#0BH ; 置-标志 SJMP TEMPC11 ;TEMPC1: MOV TEMPHC,#0AH ; 置+标志;*TEMPC11: MOV A,TEMPHC ; 计算小数位温度BCD值 SWAP A MOV TEMPHC,A ; MOV A,TEMPL ; ANL A,#0FH ; 乘0.0625 MOV DPTR,#TEMPDOTTAB ; MOVC A,A+DPTR ; MOV TEMPLC,A ; TEMPLC LOW= 小数部分 BCD;* MOV A,TEMPL ; 计算整数位温度BCD值 ANL A,#0F0H ; SWAP A ; MOV TEMPL,A ; MOV A,TEMPH ; ANL A,#0FH ; SWAP A ; ORL A,TEMPL ; MOV TEMPER_L ,A ; LCALL HEX2BCD1 ; 调用单字节十六进制转BCD子程序;* MOV TEMPL,A ; ANL A,#0F0H ; SWAP A ; ORL A,TEMPHC ; TEMPHC LOW = 十位数 BCD MOV TEMPHC,A ; MOV A,TEMPL ; ANL A,#0FH ; SWAP A ; TEMPLC HI = 个位数 BCD ORL A,TEMPLC ; MOV TEMPLC,A ; MOV A,R7 ; JZ TEMPOUT ; ANL A,#0FH ; SWAP A ; MOV R7,A ; MOV A,TEMPHC ; TEMPHC HI = 百位数 BCD ANL A,#0FH ; ORL A,R7 ; MOV TEMPHC,A ;TEMPOUT: RET ;*;小数部分分码表;*TEMPDOTTAB: DB 00H,01H,01H,02H,03H,03H,04H,04H,05H,06H DB 06H,07H,08H,08H,09H,09H ;*;显示区 BCD 码温度值刷新子程序;*DISPBCD: MOV A,TEMPLC ; 温度数据移入显示寄存器 ANL A,#0FH ; MOV BUF1,A ; 显示小数 MOV A,TEMPLC ; SWAP A ; ANL A,#0FH ; MOV BUF2,A ; 显示个位 MOV A,TEMPHC ; ANL A,#0FH ; MOV BUF3,A ; 显示十位 MOV A,TEMPHC ; SWAP A ; ANL A,#0FH ; MOV BUF4,A ; 显示百位 MOV A,TEMPHC ; ANL A,#0F0H ; CJNE A,#10H,DISPBCD0 ; 百位数=0？ SJMP DISPOUT ;DISPBCD0: MOV A, TEMPHC ; ANL A, #0FH ; JNZ DISPOUT ; 十位数是0? MOV A,TEMPHC ; SWAP A ; ANL A,#0FH ; MOV BUF4,0AH ; 符号位不显示 MOV BUF3,A ; 十位数显示符号DISPOUT: RET ;*;单字节十六进制转BCD;*HEX2BCD1:MOV B,#64H ; 十六进制 -BCD DIV AB ; B=A%100 MOV R7,A ; R7=百位数 MOV A,#0AH ; XCH A,B ; DIV AB ; B=A%B SWAP A ; ORL A,B ; RET ;*; Calculate CRC-8 Values, Uses The;CCITT-8 Polynomial,Expressed As; X8+X5+X4+1;*CRC8CAL: PUSH ACC ; MOV R7,#08H ; Number Bits ByteCRC8LOOP1: XRL A,B ; Calculate CRC RRC A ; Move T0 Carry MOV A,B ; Get The Last CRC Value JNC CRC8LOOP2 ; Skip If Data=0 XRL A,#18H ; Update The CRC ValueCRC8LOOP2: RRC A ; Position The New CRC MOV B,A ; Store The New CRC POP ACC ; Get The Remaining Bits RR A ; Possition The Next Bit PUSH ACC ; Save The Remaining Bits DJNZ R7,CRC8LOOP1 ; Repeat For 9 Bits POP ACC ; RET ;*;读DS18B20的程序,从DS18B20中读出9个字节数据;开始的两个字节为温度数据;*READ_18200: MOV R4,#9 ; 将温度高位和低位从DS18B20中读出 MOV R1,#TEMPER_L ; 低位存入29H(TEMPER_L),高位存入28H(TEMPER_H) MOV B, #00H ;*RE00: MOV R2,#8 ; 数据一共有8位RE01: CLR C SETB TEMPDIN ; NOP NOP CLR TEMPDIN ; NOP NOP NOP SETB TEMPDIN ; MOV R3,#9RE10: DJNZ R3,RE10 ; MOV C,TEMPDIN ; MOV R3,#23RE20: DJNZ R3,RE20 ; RRC A DJNZ R2,RE01 ;* MOV R1,A ; INC R1 ; LCALL CRC8CAL ; DJNZ R4,RE00 ; MOV A,B ; JNZ READ_OUT ; MOV TEMPL,TEMPER_L ; MOV TEMPH,TEMPER_H ;READ_OUT: RET;*;显示子程序;*DISPLAY: MOV DPTR,#NUMTAB ; 指定查表启始地址 MOV R0,#4DP11: MOV R1,#250 ; 显示1000次DPLP: SETB P1.7 MOV A,BUF1 ; 取小位数 MOVC A,A+DPTR ; 查小位数的7段代码 MOV P1,A ; 送出小位的7段代码 CLR P3.0 ; 开小位显示 ACALL DL1ms ; 显示1ms SETB P3.0 ; MOV A,BUF2 ; 取个位数 MOVC A,A+DPTR ; 查个位数的7段代码 MOV P1,A ; 送出个位的7段代码 CLR P1.7 CLR P3.1 ; 开个位显示 ACALL DL1ms ; 显示1ms SETB P3.1 ; SETB P1.7 MOV A,BUF3 ; 取十位数 MOVC A,A+DPTR ; 查十位数的7段代码 MOV P1,A ; 送出十位的7段代码 CLR P3.2 ; 开十位显示 ACALL DL1ms ; 显示1ms SETB P3.2 ; SETB P1.7 MOV A,BUF4 ; 取百位数 MOVC A,A+DPTR ; 查百位数的7段代码 MOV P1,A ; 送出百位的7段代码 CLR P3.3 ; 开百位显示 ACALL DL1ms ; 显示1ms SETB P3.3 ; DJNZ R1,DPLP ; 250次没完循环 DJNZ R0,DP11 ; 4个100次没完循环 RET;*;0.2MS延时(按12MHZ算);*DL1MS: MOV R7,#100 DJNZ R7,$ RET;*;7段数码管09数字的共阳显示代码;*NUMTAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH,0BFH ; 0 1 2 3 4 5 6 7 8 9 不亮 -;* END= 汇编结束 =4.C51程序：/* C程序*/*MCU: AT892051 /*MCU-crystal: 12M /*Version: 01 /*Last Updata: 2007-6-9 /*Author: zhaojun /*Description: /DS18B20的读写程序,数据脚P3.4 /温度传感器18B20汇编程序,采用器件默认的12位转化 /最大转化时间750微秒,显示温度-55到+125度,显示精度 /为0.1度，显示采用4位LED共阳显示测温值 /P1口为段码输入,P0P3为位选 /*WAVE-E6000/T*/#include reg52.h#define uchar unsigned char#define uint unsigned int#define Disdata P1 / 段码入口sbit DQ=P34; / 温度输入口uint temp; / variable of temperature 定义一个变量uchar flag1; / 定义一个标志,标志温度是负还是正,1为负,0为正sbit DIN=P17; / 小数点控制 #define discan P3 /扫描口uchar h; / 定义变量/位选位定义sbit DEC=P30; / 小数sbit POS=P31; / 个位sbit TEN=P32; / 十位sbit HUN=P33; / 百位,符号位unsigned char code table=0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90,0xff,0xbf; /共阳数码管段码表 0 1 2 3 4 5 6 7 8 9 灭 -unsigned char code table1=0x40,0x79,0x24,0x30,0x19,0x12,0x02,0x78,0x00,0x10;/带小数点的编码/共阳数码管带小数点段码表 0 1 2 3 4 5 6 7 8 9 uchar data temp_data2=0x00,0x00;/读出温度暂放uchar data Dis_play5=0x00,0x00,0x00,0x00,0x00;/显示单元数据，共4个数据和一个运算暂用uchar code ditab16=0x00,0x01,0x01,0x02,0x03,0x03,0x04,0x04,0x05,0x06,0x06,0x07,0x08,0x08,0x09,0x09;/小数部分对应十进制 0 1 2 3 4 5 6 7 8 9 A B C D E Fuchar code scan_con4=0xfe,0xfd,0xfb,0xf7; /列扫描控制字/*/* 延时子程序 */*/void delay(uint i) /delay while(i-); /*/* 初始化ds18b2子函数* */*/Init_DS18B20(void) uchar x=0; DQ = 1; /DQ复位 delay(8); /稍做延时 DQ = 0; /单片机将DQ拉低 delay(80); /精确延时 大于 480us DQ = 1; /拉高总线 delay(14); x=DQ; /稍做延时后 如果x=0则初始化成功 x=1则初始化失败 delay(20); /*/* 读字节子函数 */*/ReadOneChar(void) uchar i = 0; uchar dat = 0; for (i=8;i0;i-) DQ = 0; / 给脉冲信号 dat=1; / 数据右移一位 DQ = 1; / 给脉冲信号 if(DQ) / DQ为1 dat|=0x80; / 读出数据 delay(4); / 延时 return(dat); /*/* 写字节子函数 */*/WriteOneChar(unsigned char dat) uchar i = 0; for (i=8; i0; i-) DQ = 0; DQ = dat&0x01; /写入一位数据 delay(5); DQ = 1; dat=1; /右移一位数据 /*/* DS18B20写命令函数 */*/*void tmpwritebyte(uchar dat) / write a byte to ds18b20 / 给温度传感器写一个字节 uint i; uchar j; b