CEPARK 51单片机DS18B20测试程序

/**********************************************************************
*文件名称:CEPARK 51 V2.0开发板
*程序版本:V1.0
*技术支持：http://bbs.cepark.com

*CEPARK
http://bbs.cepark.com/viewthread.php?tid=34&fromuid=6136

*Cepark暑期51在线免费培训用程序---活动报名地址：
http://bbs.cepark.com/viewthread.php?tid=14228&fromuid=6136
**********************************************************************/
#include"STC89C51RC_RD_PLUS.H"

#define uchar unsigned char
#define uint unsignedint

uchar code C51BOX2[3]_at_ 0x43;//仿真器用三字节空间

uchar code DispTab[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90,
0x88,0x83,0xc6,0xa1,0x86,0x8e};//段码0-9,a-f
uchar DispBuf[4];

uchar TempH,TempL;
uint Temp;
bit Presence;

sfr LedPort=0x80;//P0口接段码
sbit Led0=P1^0;//LED控制脚
sbit Led1=P1^1;
sbit Led2=P1^2;
sbit Led3=P1^3;
sbit DataPort=P1^6;//18B20的数据口

void uDelay(uchar DelayTime)//延时子程序，入口参数每加1约加2us
{while(--DelayTime);

}

void Hex2Bcd()//HEX转BCD程序
{
if(Presence==1)
{ //如果没有检测到存在则显示“no”
DispBuf[0]=0xab;
DispBuf[1]=0xa3;
DispBuf[2]=0xff;
DispBuf[3]=0xff;
}
else
{ //分解后查表得到段码放入显示缓存
Temp=TempH*256+TempL;//数据合并成一个双字节数

if((Temp>>12)==0xf)//右移12位判断是否为负温度
{Temp=0x10000-Temp;//计算出负温度值
DispBuf[0]=0xbf;}//并将最左边数码管显示“-”号
elseDispBuf[0]=0xff;//否则不显示

TempH=Temp>>4;//将小数点4位值移出后，得到整数部分放在TempH中
Temp=(Temp&0x0f)*625;//相与取出小数点四位，乘法得到小数点值
DispBuf[3]=DispTab[Temp/1000];//小数点位只取最高一位，后三位不显示

DispBuf[2]=DispTab[TempH%10]&0x7f;//个位处理并点亮小数点
TempH=TempH/10;//取出百位、十位

if(!TempH)DispBuf[1]=0xff;//百位和十位均为0则十位不显示。
elseDispBuf[1]=DispTab[TempH%10];

if(DispBuf[0]==0xff)//正温度情况下
{
if(TempH/10)DispBuf[0]=DispTab[TempH/10];//百位有数值显示
elseDispBuf[0]=0xff;//为0不显示
}
}
}

void Display(uchar j)//显示子程序
{
for(;j>0;j--)
{
LedPort=DispBuf[0];
Led0=0;
uDelay(20);
Led0=1;
LedPort=DispBuf[1];
Led1=0;
uDelay(20);
Led1=1;
LedPort=DispBuf[2];
Led2=0;
uDelay(20);
Led2=1;
LedPort=DispBuf[3];
Led3=0;
uDelay(20);
Led3=1;
}
}

void Inti()
{
DataPort=0;//拉低
uDelay(180);//延时后拉高
DataPort=1;
uDelay(24);//延时后读状态，如果存在，由18B20将端口拉低
Presence=DataPort;//状态存入，用于后面显示判断
uDelay(230);//延时完成一周期时间
}

void WriteByte(uchar val)//字节写入
{
uchar i;
for(i=8;i>0;i--)
{
DataPort=0;
uDelay(4);
DataPort=val&0x01;
uDelay(20);
DataPort=1;
val=val/2;
}
uDelay(50);
}

uchar ReadByte()//字节读取
{
uchar i;
uchar value=0;
for(i=0;i<8;i++)//读入8字节
{
DataPort=0;//拉低后再拉高，产生读间隙
DataPort=1;
uDelay(4);//延时后读入
if(DataPort)value|=0x01uDelay(20);//延时完成一周期时间
}
return(value);
}

void SetStep(uchar Dat)//入口参数，1F－0.5度步进，3F－0.25度，5F-0.125度，7F-0.0625度
{
Inti();
WriteByte(0xcc);
WriteByte(0x4e);
WriteByte(0x15);//写地址2—TH
WriteByte(0x00);//写地址3—TL
WriteByte(Dat);//地址4,保留区，用于小数后分辨率，1F，3F，5F，7F取值，值越大分辨率越高
Inti();
WriteByte(0xcc);
WriteByte(0xbe);
ReadByte();
Inti();
WriteByte(0xcc);
WriteByte(0x48);//拷贝指令，发出后等6ms等待18B20将数据写入EEPROM，写结束再复位。
uDelay(100);
Inti();
DataPort=1;
}

void GetTemp()//温度获得子程序，返回值在TempH,TempL中
{
Inti();Display(8);//每执行一条指令补充显示，消除闪动
WriteByte(0xcc);Display(8);
WriteByte(0x44);Display(8);
Inti();Display(8);
WriteByte(0xcc);Display(8);
WriteByte(0xbe);Display(8);
TempL=ReadByte();Display(8);
TempH=ReadByte();Display(8);
}

void main(void)
{
uDelay(100);
Presence=1;
SetStep(0x7f);
GetTemp();Display(100);//发送第一个取温度指令后，要延时一段时间等待内部转换。（解决开机显示85度的问题。）
while(1){GetTemp();Hex2Bcd();Display(50);}

}