/*STC89C52+LCD1602+DS18B20温度显现
显现4位小数
仅支持正温度
DJNZ指令为两周期指令*/
RS BIT P2.4
RW BIT P2.5
E BIT P2.6
DQ BIT P1.7
COM DATA 30H
DAT DATA 31H
BAI DATA 32H
SHI DATA 33H
GEX DATA 34H
TH DATA 35H
TL DATA 36H
XI DATA 37H
ORG 0000H
SJMP MAIN
ORG 0030H
MAIN:MOV SP,#40H
LCALL INIT_LCD
N1:LCALL TEMP_18B20//测温
LCALL LCD18B20//兼并整数 ,拆分小数
LCALL BCD//数据拆解，将16进制转为BCD码
LCALL DISP_LCD//温度显现
LJMP N1
TEMP_18B20:LCALL INIT_18B20
MOV COM,#0CCH
LCALL WRITE_18B20
MOV COM,#44H
LCALL WRITE_18B20
LCALL DELAY200MS
LCALL INIT_18B20
MOV COM,#0CCH
LCALL WRITE_18B20
MOV COM,#0BEH
LCALL WRITE_18B20
LCALL READ_18B20
MOV TL,DAT
LCALL READ_18B20
MOV TH,DAT
RET
INIT_18B20:SETB DQ
NOP
CLR DQ
LCALL DELAY600US//延时600US
SETB DQ
MOV R0,#20
N2:NOP
DJNZ R0,N2//延时60US
JB DQ,$
LCALL DELAY600US//等候18B20呼应结束
SETB DQ
RET
WRITE_18B20:MOV A,COM
MOV R2,#8
WR1:SETB DQ
NOP
CLR DQ
NOP
RRC A
MOV DQ,C
MOV R3,#30
DJNZ R3,$
DJNZ R2,WR1
SETB DQ//写完一个数据必须将DQ拉到，由于
RET //若最终一位C为低电平超越600US则DS18B20被复位
READ_18B20:MOV R2,#8
RE01:SETB DQ
NOP
CLR DQ
NOP
SETB DQ
MOV R3,#5
DJNZ R3,$
MOV C,DQ
MOV R3,#23
DJNZ R3,$
RRC A
DJNZ R2,RE01
MOV DAT,A
RET
LCD18B20:MOV R0,#04
MOV A,TH
N8:RL A
DJNZ R0,N8
MOV TH,A
MOV A,TL
SWAP A
ANL A,#0FH
ORL A,TH
MOV TH,A//整数部分
MOV A,#0FH
ANL A,TL
MOV TL,A//小娄部分
RET
BCD: MOV A,TH
MOV B,#100
DIV AB
MOV BAI,A
MOV A,B
MOV B,#10
DIV AB
MOV SHI,A
MOV GEX,B
MOV A,TL
MOV R0,#4
MOV R1,#XI//四位小数由高到低分别在XI开端的单元中存储
M1:MOV B,#10
MUL AB
MOV B,#16
DIV AB
MOV @R1,A
INC R1
MOV A,B
DJNZ R0,M1
RET
INIT_LCD:MOV COM,#00111000B
LCALL WRITE_COM
MOV COM,#00001110B
LCALL WRITE_COM
MOV COM,#00000110B
LCALL WRITE_COM
MOV COM,#00000001B
LCALL WRITE_COM
RET
DISP_LCD:MOV COM,#80H
LCALL WRITE_COM
MOV DPTR,#TABLE1
MOV R1,#16
MOV R0,#00
M2:MOV A,R0
MOVC A,@A+DPTR
MOV DAT,A
LCALL WRITE_DAT
INC R0
LCALL DELAY1MS
DJNZ R1,M2
MOV COM,#0C0H
LCALL WRITE_COM
MOV DPTR,#TABLE3
MOV R1,#05H
MOV R0,#00H
M3:MOV A,R0
MOVC A,@A+DPTR
MOV DAT,A
LCALL WRITE_DAT
INC R0
LCALL DELAY1MS
DJNZ R1,M3
MOV DPTR,#TABLE2
MOV A,BAI
MOVC A,@A+DPTR
MOV DAT,A
LCALL WRITE_DAT
MOV A,SHI
MOVC A,@A+DPTR
MOV DAT,A
LCALL WRITE_DAT
MOV A,GEX
MOVC A,@A+DPTR
MOV DAT,A
LCALL WRITE_DAT
MOV A,#10
MOV DPTR,#TABLE2
MOVC A,@A+DPTR
MOV DAT,A
LCALL WRITE_DAT
MOV R1,#04
MOV R0,#XI
M4:MOV A,@R0
MOVC A,@A+DPTR
MOV DAT,A
LCALL WRITE_DAT
LCALL DELAY1MS
INC R0
DJNZ R1,M4
MOV A,#11
MOVC A,@A+DPTR
MOV DAT,A
LCALL WRITE_DAT
LCALL DELAY1MS
RET
WRITE_COM:CLR RS
CLR RW
MOV P0,COM
LCALL DELAY3MS
CLR E
SETB E
CLR E
RET
WRITE_DAT:SETB RS
CLR RW
MOV P0,DAT
LCALL DELAY3MS
CLR E
SETB E
CLR E
RET
DELAY200MS: ;差错 0us
MOV R7,#04H
DL6:
MOV R6,#74H
DL5:
MOV R5,#0D6H
DJNZ R5,$
DJNZ R6,DL5
DJNZ R7,DL6
NOP
RET
DELAY3MS: ;差错 0us
MOV R6,#6FH
DL0:
MOV R5,#0CH
DJNZ R5,$
DJNZ R6,DL0
RET
DELAY1MS: ;差错 0us
MOV R7,#01H
DL4:
MOV R6,#8EH
DL3:
MOV R5,#02H
DJNZ R5,$
DJNZ R6,DL3
DJNZ R7,DL4
RET
DELAY600US: ;差错 0us
MOV R6,#03H
DL2:
MOV R5,#62H
DJNZ R5,$
DJNZ R6,DL2
RET
TABLE1: DB “Digital thermomet”
TABLE2: DB “0123456789.C”
TABLE3: DB “temp:”
END
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
#include
#include
#define uint unsigned int
#define uchar unsigned char
sbit rs=P2^4;
sbit rw=P2^5;
sbit e=P2^6;
sbit dq=P1^7;
uchar bai,shi,ge,xi1,xi2,i;
uint temp;
uchar code table1[]={“0123456789.C”};
uchar code table2[]=”Digital thermomet”;
uchar code table3[]=”temp:”;
void delay(uchar t) //差错 0us 1mS延时
{
unsigned char a,b;
for(t=1;t>0;t–)
for(b=142;b>0;b–)
for(a=2;a>0;a–);
}
/**************DS18B20操作******************/
void init_ds18b20()
{
dq=1;
_nop_();
dq=0;
for(i=0;i<200;i++);//延时min=480uS ,max=960uS;
dq=1;
for(i=0;i<20;i++);//延时min=15uS,max=60uS.DS18B20等候15~60uS;
while(dq);//dq为1标明无DS18B20
for(i=0;i<200;i++)//延时300us使DS18B20输出应对结束
dq=1;
}
void WriteOneByte(uchar dat)
{
uchar j;
for(j=8;j>0;j–)
{
dq=1;
_nop_(); //至少1mS延时
dq=0;
_nop_();
dq=(bit)(dat&0x01);
for(i=0;i<20;i++);//写周期最少为60uS,不能超越120uS
dq=1;
//for(i=0;i<1;i++); //能够没有
dat>>=1;
}
}
uchar ReadOneByte()
{
uchar j,dat;
for(j=0;j<8;j++)
{
dq=1;
_nop_(); //至少1uS的恢复期
dq=0;
_nop_();
dq=1;
for(i=0;i<3;i++);//主机在15uS内读取DQ
dat>>=1;
if(dq==1)
dat|=0x80;
else
dat|=0x00;
for(i=0;i<15;i++);//一个读周期至少要60us
}
return(dat);
}
void temp_ds18b20()
{
uchar th,tl;
uint x;
float p;
init_ds18b20();
WriteOneByte(0xcc);
WriteOneByte(0x44);
delay(255);//等候转化最大为750ms，典型值为200mS
init_ds18b20();
WriteOneByte(0xcc);
WriteOneByte(0xbe);
tl=ReadOneByte();
th=ReadOneByte();
x=th;
x<<=8;
x|=tl;//兼并高低位
p=x*0.0625;//实践转化温度值为p
temp=p*100+0.5;//将小数转化为整数并保存两位小数，第三位小数四舍五入
}
/******************************************************/
/***********************数据转化***********************/
void datchx()
{
uchar d,t;
float g;
g=temp/100.00;
d=g;
t=(g-d)*100;//整数与小数部分别离，t为小数，d为整数；
bai=d/100;
shi=(d%100)/10;
ge=d%10;//整数别离
xi1=t/10;
xi2=t%10;
}
/****************************************************/
/******************LCD1602操作***********************/
void write_com(uchar dat)
{
rs=0;
rw=0;
P0=dat;
delay(3);
e=0;
e=1;
e=0;
}
void write_dat(uchar dat)
{
rs=1;
rw=0;
P0=dat;
delay(3);
e=0;
e=1;
e=0;
}
void init_lcd()
{
write_com(0x38);
write_com(0x0D);
write_com(0x06);
write_com(0x01);
}
void disp_lcd()
{
write_com(0x80);
for(i=0;i<16;i++)
{
write_dat(table2[i]);
delay(5);
}
write_com(0xc0);
for(i=0;i<5;i++)
{
write_dat(table3[i]);
delay(5);
}
write_dat(table1[bai]);
write_dat(table1[shi]);
write_dat(table1[ge]);
write_dat(table1[10]);
write_dat(table1[xi1]);
write_dat(table1[xi2]);
write_dat(table1[11]);
}
/****************************************************/
void main()
{
SP=0x30;
init_lcd();
while(1)
{
temp_ds18b20();
datchx();
disp_lcd();
}
}
