数字体温计protues仿真图和程序

1、系统程序#include<reg52.h>#include <intrins.h>#define uchar unsigned char#define uint unsigned intsbit BUFFER=P15;sbit DQ=P37 ;sbit lcdrs=P26;sbit lcden=P27;sbit lcdrw=P25;sbit AN=P20;sbit AM=P21;uchar code Temp_Disp_Title="Current Temp : "uchar temp_buffer="TEMP: "uchar c

2、ode xs=0,1,1,2,3,3,4,4,5,6,6,7,8,8,9,9 ;/小数位uchar Temp_value=0x00,0x00;/为DS18B20读取的字节分配地址uchar Display_Digit=0,0,0,0;uint T;void delay(uint);void delay1602(uint);void init_ds18b20();void write_byte(uchar date);void display_temp();void write_com(uchar);void write_2(uchar);void init1602();uchar read_b

3、yte();void read_temp();void main()bit zhi=0;AN=1; init1602(); /1602初始化 read_temp(); /读取温度 delay(50000); while(1) read_temp(); if(zhi=0) display_temp(); /按键没有按下时显示温度 if(Display_Digit2>2) /设定报警温度 if(zhi=0)BUFFER=0;delay(2000);BUFFER=1; delay1602(1); if(AN=0) /检测按键 delay1602(5) ; /去抖if(AN=0)/按下按键 zh

4、i=zhi;/while(1); /保持当前温度while(!AN);/松手检测 void delay(uint t)while(t-);void delay1602(uint z)uint x,y; for(x=z;x>0;x-)for(y=110;y>0;y-) ;/*初始化，检测DS18B20是否在线*/void init_ds18b20()DQ=1;delay(8);DQ=0;delay(85);DQ=1;delay(14);delay(5);void write_byte(uchar date)uchar i;for(i=0;i<8;i+)DQ=0;/ 写数据前将数

5、据线拉低DQ=date&0x01; / 从最低位开始写delay(5);/ 留出ds18b20采样时间DQ=1;/ 采样完将数据拉高，等待下一次采样date>>=1;/date右移一位delay(5);uchar read_byte()uint i,value;for(i=0;i<8;i+) DQ=0; value>>=1;/右移一位，同时起延时作用 DQ=1; if(DQ=1) value|=0x80;/从高位开始读delay(5);return value;void read_temp()init_ds18b20();write_byte(0xcc);

6、/跳过ROMwrite_byte(0x44);/启动温度测量delay(200);/给出温度测量时间init_ds18b20();write_byte(0xcc);/跳过ROMwrite_byte(0xbe);/读取温度void display_temp()uint i;Temp_value0=read_byte();Temp_value1=read_byte();Display_Digit0 = xsTemp_value0&0x0f;/显示小数位T=(Temp_value0&0xf0)>>4) | (Temp_value1&0x07)<<4);

7、 Display_Digit3 = T/100;/百位Display_Digit2 = T%100/10; /十位Display_Digit1 = T%10;/个位temp_buffer11= Display_Digit0+'0' ;temp_buffer10='.'temp_buffer9=Display_Digit1+'0' ;temp_buffer8=Display_Digit2+'0' ;temp_buffer7=Display_Digit3+'0' ;if(Display_Digit3 = 0)temp_

8、buffer7=' '/如果百位为0，则显示空格if(Display_Digit2 = 0&&Display_Digit3=0)temp_buffer8=' '/如果百位和十位同时为0，则十位处显示空格write_com(0x80); for(i=0;i<15;i+)write_2(Temp_Disp_Titlei); write_com(0x80+0x40) ;for(i=0;i<12;i+)write_2(temp_bufferi);delay1602(10);write_com(0x80+0x4d);write_2(0xdf);

9、write_2('C');void write_com(uchar com) lcdrs=0; P0=com; delay1602(5); lcden=1; delay1602(5); lcden=0;void write_2(uchar da) lcdrs=1; P0=da; delay1602(5); lcden=1; delay1602(5); lcden=0;void init1602()lcden=0;lcdrw=0;write_com(0x38);write_com(0x0c);write_com(0x06);write_com(0x80);仿真图程序清单#incl

10、ude<reg51.h>#define uchar unsigned char #define uint unsigned int uchar i;sbit lcdrs=P30;sbit lcdrw=P31;sbit lcden=P32;sbit d1=P10;sbit d2=P11;uchar code t0="the temperature "uchar code t1=" is "uchar code wendu="0123456789" /利用一个温度表解决温度显示乱码sbit DQ = P37;/定义ds18B2

11、0总线IO/液晶显示模块void delay(uint z)uint x,y;for(x=100;x>1;x-)for(y=z;y>1;y-);void write_com(uchar com)lcdrs=0;P2=com;delay(5);lcden=1;delay(5);lcden=0;void write_date(uchar date)lcdrs=1;P2=date;delay(5);lcden=1;delay(5);lcden=0;void init_lcd()lcden=0;lcdrw=0;write_com(0x38);write_com(0x01);write_co

12、m(0x0c);write_com(0x06);write_com(0x80);for(i=0;i<16;i+)write_date(t0i);delay(0);write_com(0x80+0x40);for(i=0;i<16;i+)write_date(t1i);delay(0);/温度采集模块void tmpDelay(int num)/延时函数while(num-) ;/*/void Init_DS18B20()/初始化ds1820unsigned char x=0;DQ = 1; /DQ复位tmpDelay(8); /稍做延时DQ = 0; /单片机将DQ拉低tmpDel

13、ay(80); /精确延时 大于 480usDQ = 1; /拉高总线tmpDelay(14);x=DQ; /稍做延时后 如果x=0则初始化成功 x=1则初始化失败tmpDelay(20); unsigned char ReadOneChar()/读一个字节unsigned char i=0;unsigned char dat = 0;for (i=8;i>0;i-)DQ = 0; / 给脉冲信号dat>>=1;DQ = 1; / 给脉冲信号if(DQ)dat|=0x80;tmpDelay(4);return(dat);void WriteOneChar(unsigned c

14、har dat)/写一个字节unsigned char i=0;for (i=8; i>0; i-)DQ = 0;DQ = dat&0x01;tmpDelay(5);DQ = 1;dat>>=1; unsigned int Readtemp()/读取温度unsigned char a=0;unsigned char b=0;unsigned int t=0;float tt=0;Init_DS18B20();WriteOneChar(0xCC); / 跳过读序号列号的操作WriteOneChar(0x44); / 启动温度转换Init_DS18B20();WriteO

15、neChar(0xCC); /跳过读序号列号的操作WriteOneChar(0xBE); /读取温度寄存器a=ReadOneChar(); /连续读两个字节数据 /读低8位 b=ReadOneChar(); /读高8位t=b;t<<=8;t=t|a; /两字节合成一个整型变量。tt=t*0.0625; /得到真实十进制温度值，因为DS18B20可以精确到0.0625度，所以读回数据的最低位代表的是0.0625度t= tt*10+0.5; /放大十倍，这样做的目的将小数点后第一位也转换为可显示数字，同时进行一个四舍五入操作。return(t);void display()unsign

16、ed int num,num1; /定义的时候用uchar宏定义就会出错unsigned int shi,ge,xiaoshu; /这里的num,shi,ge,xiaoshu 必须用unsigned int无符号整数来表示，用unshigned char 字符型则显示错误num=Readtemp();num1=num/10;if(num1>37) d1=0;d2=1;delay(500);if(num1<10) d1=1;d2=0;delay(500);else d1=1;d2=1;shi=num/100;ge=num/10%10;xiaoshu=num%10;write_com(

17、0x80+0x40+5);write_date(wendushi);write_com(0x80+0x40+6);write_date(wenduge);write_com(0x80+0x40+7);write_date(0x2e);write_com(0x80+0x40+8);write_date(wenduxiaoshu);void main()init_lcd();while(1)display();delay(10);仿真图汇编程序;=;DS18B20温度计;采用4位LED共阳显示器显示测温值，显示精度0.1，测温范围-55+125;用AT89C51单片机，12MHz晶振;=常数定义=

18、TIMELEQU 0E0H ;20ms，定时器0时间常数TIMEHEQU 0B1HTEMPHEAD EQU 36H;=工作内存定义=BITST DATA 20HTIME1SOK BIT BITST.1TEMPONEOKBIT BITST.2TEMPL DATA 26HTEMPH DATA 27HTEMPHC DATA 28HTEMPLC DATA 29H;= 引脚定义=TEMPDIN BIT P3.7;= 中断向量区=ORG 0000HLJMP STARTORG 00BHLJMP T0IT;=系统初始化=ORG100HSTART: MOVSP,#60HCLSMEM: MOV R0,#20HMO

19、V R1,#60HCLSMEM1:MOV R0,#00HINC R0DJNZ R1,CLSMEM1MOV TMOD,#00100001B ;定时器0工作方式1（16BIT）MOVTH0,#TIMELMOV TL0,#TIMEH ;20msSJMPINITERROR:NOPLJMP STARTNOPINIT:NOPSETB ET0SETB TR0SETBEAMOV PSW,#00HCLR TEMPONEOKLJMP MAIN;= 定时器0中断服务程序=T0IT:PUSH PSWMOV PSW,#10HMOV TH0,#TIMEHMOV TL0,#TIMELINC R7CJNE R7,#32H,T

20、0IT1MOV R7,#00HSETB TIME1SOK ;1s定时到标志T0IT1:POP PSWRETI;= 主程序=MAIN:LCALL DISP1 ;调用显示子程序JNB TIME1SOK,MAINCLR TIME1SOK ;测温每1s一次JNB TEMPONEOK,MAIN2 ;上电时先温度转换一次LCALL READTEMP1;读出温度值子程序LCALL CONVTEMP ;温度BCD码计算处理子程序LCALL DISPBCD ;显示区BCD码温度值刷新子程序LCALL DISP1 ;消闪烁，显示一次MAIN2: LCALLREADTEMP ;温度转换开始SETB TEMPONEO

21、KLJMP MAIN;= 子程序区=;RESET DS18B20;=INITDS1820:SETB TEMPDINNOPNOPCLR TEMPDINMOV R6,#0A0H ;DELAY 480usDJNZ R6,$MOV R6,#0A0HDJNZ R6,$SETB TEMPDINMOV R6,#32H ;DELAY 70usDJNZ R6,$MOVR6,#3CHLOOP1820:MOV C,TEMPDINJC INITDS1820OUTDJNZ R6,LOOP1820MOV R6,#064HDJNZ R6,$SJMP INITDS1820RETINITDS1820OUT:SETB TEMPD

22、INRET;= 读DS18B20的程序，从DS18B20中读出一个字节的数据=READDS1820:MOV R7,#08HSETB TEMPDINNOPNOPREADDS1820LOOP:CLR TEMPDINNOPNOPNOPSETB TEMPDINMOV R6,#07H ;DELAY 15usDJNZ R6,$MOV C,TEMPDINMOV R6,#3CH ;DELAY 120usDJNZ R6,$RRC ASETB TEMPDINDJNZ R7,READDS1820LOOPMOV R6,#3CH ;DELAY 120 usDJNZ R6,$RET;= 写DS18B20的程序，从DS18

23、B20中写一个字节的数据=WRITEDS1820:MOV R7,#08HSETB TEMPDINNOPNOPWRITEDS1820LOP:CLR TEMPDINMOV R6,#07H ;DELAY 15usDJNZ R6,$RRC AMOV TEMPDIN,CMOV R6,#34H ;DELAY 104usDJNZ R6,$SETB TEMPDINDJNZ R7,WRITEDS1820LOPRET;= READ TEMP =READTEMP:LCALL INITDS1820MOV A,#0CCHLCALL WRITEDS1820 ;SKIP ROMMOV R6,#34H ;DELAY 104u

24、sDJNZ R6,$MOV A,#44HLCALL WRITEDS1820 ;START CONVERSIONMOV R6,#34H ;DELAY 104DJNZ R6,$RETREADTEMP1:LCALLINITDS1820MOV A,#0CCHLCALL WRITEDS1820;SKIP ROMMOV R6,#34H ;DELAY 104usDJNZ R6,$MOV A,#0BEHLCALL WRITEDS1820 ;SCRATCHPADMOV R6,#34H ;DELAY 104usDJNZ R6,$MOV R5,#09HMOV R0,#TEMPHEADMOV B,#00HREADTE

25、MP2:LCALL READDS1820MOV R0,AINC R0READTEMP21:LCALL CRC8CALDJNZ R5,READTEMP2MOV A,BJNZ READTEMPOUTMOV A,TEMPHEAD+0MOV TEMPL,AMOV A,TEMPHEAD+1MOV TEMPH,AREADTEMPOUT:RET;= 处理温度BCD码子程序=CONVTEMP:MOV A,TEMPHANL A,#80HJZ TEMPC1CLR CMOV A,TEMPLCPL AADD A,#01HMOV TEMPL,AMOV A,TEMPH ;-CPL AADDC A,#00HMOV TEMP

26、H,A ;TEMPHC HI=符号位MOV TEMPHC,#0BHSJMP TEMPC11TEMPC1:MOV TEMPHC,#0AH ;+TEMPC11:MOV A,TEMPHCSWAP AMOV TEMPHC,AMOV A,TEMPLANL A,#0FH ;乘0.0625MOV DPTR,#TEMPDOTTABMOVC A,A+DPTRMOV TEMPLC,A ;TEMPLC LOW=小数部分BCDMOV A,TEMPL ;整数部分ANL A,#0F0HSWAP AMOV TEMPL,AMOV A,TEMPHANL A,#0FHSWAP AORL A,TEMPLLCALL HEX2BCD1

27、MOV TEMPL,AANL A,#0F0HSWAP AORL A,TEMPHC ;TEMPHC LOW=十位数BCDMOV TEMPHC,AMOV A,TEMPLANL A,#0FHSWAP A ;TEMPLC HI=个位数BCDORL A,TEMPLCMOV TEMPLC,AMOV A,R7JZ TEMPC12ANL A,#0FHSWAP AMOV R7,AMOV A,TEMPHC ;TEMPLC HI=百位数BCDANL A,#0FHORL A,R7MOV TEMPHC,ATEMPC12:RET;= 小数部分码表=TEMPDOTTAB:DB 00H,01H,01H,02H,03H,03H

28、,04H,04H,05H,06HDB 06H,07H,08H,08H,09H,09H;= 显示区BCD码温度值刷新子程序=DISPBCD:MOV A,TEMPLCANL A,#0FHMOV 70H,AMOV A,TEMPLCSWAP AANL A,#0FHMOV 71H,AMOV A,TEMPHCANL A,#0FHMOV 72H,AMOV A,TEMPHCSWAPAANL A,#0FHMOV 73H,AMOV A,TEMPHCANL A,#0F0HCJNE A,#010H,DISPBCD0SJMP DISPBCD2DISPBCD0:MOV A,TEMPHCANL A,#0FHJNZ DISP

29、BCD2;十位数是0MOV A,TEMPHCSWAP AANL A,#0FHMOV 73H,#0AH;符号位不显示MOV 72H,A;十位数显示符号DISPBCD2:RET;= 显示子程序=;显示数据在70H73H单元内，用4位LED共阳数码管显示，P1口输出段码数据，;P3口做扫描控制，每个LED数码管亮1ms时间再逐位循环。DISP1:MOV R1,#70H;指向显示数据首址MOV R5,#0FEH;扫描控制字初值PLAY:MOV P0,#0FFHMOV A,R5;扫描字放入AMOV P3,A;从P3口输出MOV A,R1;取显示数据到AMOV DPTR,#TAB;取段码表地址MOVC A,A+DPTR;查显示数据对应段码MOV P0,A;段码放入P0口MOV A,R5JB ACC.