系统程序
#include uchar code Temp_Disp_Title[]={\"Current Temp : \uchar temp_buffer[]={\"TEMP: \ uchar code 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_byte(); 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_Digit[2]>2) //设定报警温度 } if(zhi==0) BUFFER=0; delay(2000); BUFFER=1; if(AN==0) //检测按键 { } delay1602(5) ; //去抖 if(AN==0) //按下按键 { } zhi=~zhi; //while(1); //保持当前温度 while(!AN); //松手检测 delay1602(1); } void delay(uint t) { uint x,y; for(x=z;x>0;x--) for(y=110;y>0;y--) ; } { while(t--); } void delay1602(uint z) /**************************** 初始化，检测DS18B20是否在线 *****************************/ void init_ds18b20() { } void write_byte(uchar date) { uchar i; for(i=0;i<8;i++) { } DQ=0; // 写数据前将数据线拉低 DQ=date&0x01; // 从最低位开始写 delay(5);// 留出ds18b20采样时间 DQ=1;// 采样完将数据拉高，等待下一次采样 date>>=1;//date右移一位 DQ=1; delay(8); DQ=0; delay(85); DQ=1; delay(14); delay(5); } delay(5); uchar read_byte() { } void read_temp() { } void display_temp() { uint i; Temp_value[0]=read_byte(); Temp_value[1]=read_byte(); Display_Digit[0] = xs[Temp_value[0]&0x0f]; //显示小数位 T=((Temp_value[0]&0xf0)>>4) | ((Temp_value[1]&0x07)<<4); Display_Digit[3] = T/100;//百位 Display_Digit[2] = T%100/10; //十位 init_ds18b20(); write_byte(0xcc);//跳过ROM write_byte(0x44);//启动温度测量 delay(200);//给出温度测量时间 init_ds18b20(); write_byte(0xcc);//跳过ROM write_byte(0xbe);//读取温度 uint i,value; for(i=0;i<8;i++) { } return value; DQ=0; value>>=1;//右移一位，同时起延时作用 DQ=1; if(DQ==1) value|=0x80;//从高位开始读 delay(5); } Display_Digit[1] = T%10;//个位 temp_buffer[11]= Display_Digit[0]+'0' ; temp_buffer[10]='.'; temp_buffer[9]=Display_Digit[1]+'0' ; temp_buffer[8]=Display_Digit[2]+'0' ; temp_buffer[7]=Display_Digit[3]+'0' ; if(Display_Digit[3] == 0) { } write_com(0x80+0x40) ; for(i=0;i<12;i++) { } write_2(temp_buffer[i]); delay1602(10); write_2(Temp_Disp_Title[i]); temp_buffer[7]=' ';//如果百位为0，则显示空格 temp_buffer[8]=' ';//如果百位和十位同时为0，则十位处显示空格 write_com(0x80); for(i=0;i<15;i++) if(Display_Digit[2] == 0&&Display_Digit[3]==0) write_com(0x80+0x4d); write_2(0xdf); write_2('C'); void write_com(uchar com) { } void write_2(uchar da) lcdrs=0; P0=com; delay1602(5); lcden=1; delay1602(5); lcden=0; { } void init1602() { } 仿真图 lcdrs=1; P0=da; delay1602(5); lcden=1; delay1602(5); lcden=0; lcden=0; lcdrw=0; write_com(0x38); write_com(0x0c); write_com(0x06); write_com(0x80); 程序清单 #include #define uchar unsigned char #define uint unsigned int uchar i; sbit lcdrs=P3^0; sbit lcdrw=P3^1; sbit lcden=P3^2; sbit d1=P1^0; sbit d2=P1^1; uchar code t0[]=\"the temperature \"; uchar code t1[]=\" is \"; uchar code wendu[]=\"0123456789\"; 乱码 sbit DQ = P3^7;//定义ds18B20总线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_com(0x0c); write_com(0x06); write_com(0x80); for(i=0;i<16;i++) { write_date(t0[i]); delay(0); } write_com(0x80+0x40); for(i=0;i<16;i++) { write_date(t1[i]); delay(0); } } //温度采集模块 void tmpDelay(int num)//延时函数 { while(num--) ; } /******************************************************************************/ void Init_DS18B20()//初始化ds1820 { unsigned char x=0; DQ = 1; //DQ复位 tmpDelay(8); //稍做延时 DQ = 0; //单片机将DQ拉低 tmpDelay(80); //精确延时 大于 480us DQ = 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 char 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(); WriteOneChar(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() { unsigned 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(0x80+0x40+5); write_date(wendu[shi]); write_com(0x80+0x40+6); write_date(wendu[ge]); write_com(0x80+0x40+7); write_date(0x2e); write_com(0x80+0x40+8); write_date(wendu[xiaoshu]); } void main() { init_lcd(); while(1) { display(); } } 仿真图 delay(10); 汇编程序 ;================================================================ ;DS18B20温度计 ;采用4位LED共阳显示器显示测温值，显示精度0.1℃，测温范围-55～+125℃ ;用AT89C51单片机，12MHz晶振 ;============================常数定义============================= TIMEL EQU 0E0H ;20ms，定时器0时间常数 TIMEH EQU 0B1H TEMPHEAD EQU 36H ;==========================工作内存定义============================ BITST DATA 20H TIME1SOK BIT BITST.1 TEMPONEOK BIT BITST.2 TEMPL DATA 26H TEMPH DATA 27H TEMPHC DATA 28H TEMPLC DATA 29H ;============================= 引脚定义=========================== TEMPDIN BIT P3.7 ;============================= 中断向量区========================= ORG 0000H LJMP START ORG 00BH LJMP T0IT ;=============================系统初始化========================== ORG 100H START: MOV SP,#60H CLSMEM: MOV R0,#20H MOV R1,#60H CLSMEM1: MOV @R0,#00H INC R0 DJNZ R1,CLSMEM1 MOV TMOD,#00100001B ;定时器0工作方式1（16BIT） MOV TH0,#TIMEL MOV TL0,#TIMEH ;20ms SJMP INIT ERROR: NOP LJMP START NOP INIT: NOP SETB ET0 SETB TR0 SETB EA MOV PSW,#00H CLR TEMPONEOK LJMP MAIN ;====================== 定时器0中断服务程序======================= T0IT: PUSH PSW MOV PSW,#10H MOV TH0,#TIMEH MOV TL0,#TIMEL INC R7 CJNE R7,#32H,T0IT1 MOV R7,#00H SETB TIME1SOK ;1s定时到标志 T0IT1: POP PSW RETI ;============================= 主程序============================= MAIN: LCALL DISP1 ;调用显示子程序 JNB TIME1SOK,MAIN CLR TIME1SOK ;测温每1s一次 JNB TEMPONEOK,MAIN2 ;上电时先温度转换一次 LCALL READTEMP1 ;读出温度值子程序 LCALL CONVTEMP ;温度BCD码计算处理子程序 LCALL DISPBCD ;显示区BCD码温度值刷新子程序 LCALL DISP1 ;消闪烁，显示一次 MAIN2: LCALL READTEMP ;温度转换开始 SETB TEMPONEOK LJMP MAIN ;============================= 子程序区=========================== ;RESET DS18B20 ;================================================================ INITDS1820:SETB TEMPDIN NOP NOP CLR TEMPDIN MOV R6,#0A0H ;DELAY 480us DJNZ R6,$ MOV R6,#0A0H DJNZ R6,$ SETB TEMPDIN MOV R6,#32H ;DELAY 70us DJNZ R6,$ MOV R6,#3CH LOOP1820: MOV C,TEMPDIN JC INITDS1820OUT DJNZ R6,LOOP1820 MOV R6,#064H DJNZ R6,$ SJMP INITDS1820 RET INITDS1820OUT: SETB TEMPDIN RET ;====== 读DS18B20的程序，从DS18B20中读出一个字节的数据============= READDS1820: MOV R7,#08H SETB TEMPDIN NOP NOP READDS1820LOOP: CLR TEMPDIN NOP NOP NOP SETB TEMPDIN MOV R6,#07H ;DELAY 15us DJNZ R6,$ MOV C,TEMPDIN MOV R6,#3CH ;DELAY 120us DJNZ R6,$ RRC A SETB TEMPDIN DJNZ R7,READDS1820LOOP MOV R6,#3CH ;DELAY 120 us DJNZ R6,$ RET ;======== 写DS18B20的程序，从DS18B20中写一个字节的数据============= WRITEDS1820: MOV R7,#08H SETB TEMPDIN NOP NOP WRITEDS1820LOP: CLR TEMPDIN MOV R6,#07H ;DELAY 15us DJNZ R6,$ RRC A MOV TEMPDIN,C MOV R6,#34H ;DELAY 104us DJNZ R6,$ SETB TEMPDIN DJNZ R7,WRITEDS1820LOP RET ;========================= READ TEMP =========================== READTEMP: LCALL INITDS1820 MOV A,#0CCH LCALL WRITEDS1820 ;SKIP ROM MOV R6,#34H ;DELAY 104us DJNZ R6,$ MOV A,#44H LCALL WRITEDS1820 ;START CONVERSION MOV R6,#34H ;DELAY 104 DJNZ R6,$ RET READTEMP1: LCALL INITDS1820 MOV A,#0CCH LCALL WRITEDS1820 ;SKIP ROM MOV R6,#34H ;DELAY 104us DJNZ R6,$ MOV A,#0BEH LCALL WRITEDS1820 ;SCRATCHPAD MOV R6,#34H ;DELAY 104us DJNZ R6,$ MOV R5,#09H MOV R0,#TEMPHEAD MOV B,#00H READTEMP2: LCALL READDS1820 MOV @R0,A INC R0 READTEMP21: LCALL CRC8CAL DJNZ R5,READTEMP2 MOV A,B JNZ READTEMPOUT MOV A,TEMPHEAD+0 MOV TEMPL,A MOV A,TEMPHEAD+1 MOV TEMPH,A READTEMPOUT: 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 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 ;整数部分 ANL A,#0F0H SWAP A MOV TEMPL,A MOV A,TEMPH ANL A,#0FH SWAP A ORL A,TEMPL LCALL HEX2BCD1 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 TEMPC12 ANL A,#0FH SWAP A MOV R7,A MOV A,TEMPHC ;TEMPLC HI=百位数BCD ANL A,#0FH ORL A,R7 MOV TEMPHC,A TEMPC12: 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 70H,A MOV A,TEMPLC SWAP A ANL A,#0FH MOV 71H,A MOV A,TEMPHC ANL A,#0FH MOV 72H,A MOV A,TEMPHC SWAP A ANL A,#0FH MOV 73H,A MOV A,TEMPHC ANL A,#0F0H CJNE A,#010H,DISPBCD0 SJMP DISPBCD2 DISPBCD0: MOV A,TEMPHC ANL A,#0FH JNZ DISPBCD2 ;十位数是0 MOV A,TEMPHC SWAP A ANL A,#0FH MOV 73H,#0AH ;符号位不显示 MOV 72H,A ;十位数显示符号 DISPBCD2: RET ;======================= 显示子程序=============================== ;显示数据在70H~73H单元内，用4位LED共阳数码管显示，P1口输出段码数据， ;P3口做扫描控制，每个LED数码管亮1ms时间再逐位循环。 DISP1: MOV R1,#70H ;指向显示数据首址 MOV R5,#0FEH ;扫描控制字初值 PLAY: MOV P0,#0FFH MOV A,R5 ;扫描字放入A MOV P3,A ;从P3口输出 MOV A,@R1 ;取显示数据到A MOV DPTR,#TAB ;取段码表地址 MOVC A,@A+DPTR ;查显示数据对应段码 MOV P0,A ;段码放入P0口 MOV A,R5 JB ACC.1,LOOP5 ;小数点处理 CLR P0.7 LOOP5: LCALL DL1MS ;显示1ms INC R1 ;指向下一地址 MOV A,R5 ;扫描控制字放入A JNB ACC.3,ENDOUT ;ACC.3=0时一次显示结束 RL A ;A中数据循环左移 MOV R5,A ;放回R5内 AJMP PLAY ;跳回PLAY循环 ENDOUT: MOV P0,#0FFH ;一次显示结束，P0口复位 MOV P3,#0FFH ;P3口复位 RET ;子程序返回 TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH,0BFH ;共阳段码表 “0”“1”“2”“3”“4”“5”“6”“7”“8”“9”“不亮”“-” DL1MS: MOV R6,#14H ;1ms延时程序，LED显示程序用 DL1: MOV R7,#19H DL2: DJNZ R7,DL2 DJNZ R6,DL1 RET ;===================== 单字节十六进制转BCD ======================= HEX2BCD1: MOV B,#064H ;十六进制->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-8Values. Uses The CCITT-8Polynomial,Expressed As ;X^8+X^5+X^4+1 ;================================================================ CRC8CAL: PUSH ACC MOV R7,#08H ;Number Bits In Byte CRC8LOOP1: XRL A,B ;Calculte CRC RRC A ;Move To Carry MOV A,B ;Get The Last CRC Value JNC CRC8LOOP2 ;Skip If Data==0 XRL A,#18H ;Updata The New CRC CRC8LOOP2: RRC A ;Position The New CRC MOV B,A ;Store The New CRC POP ACC ;Get The Remaining Bits RR A ;Position The Next Bit PUSH ACC ;Save The Remaining Bits DJNZ R7,CRC8LOOP1 ;Repeat For 8 Bits POP ACC RET END 因篇幅问题不能全部显示，请点此查看更多更全内容