/**********************************************************************
* 文件名称: 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 unsigned int

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;} //并将最左边数码管显示“-”号
        else DispBuf[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则十位不显示。
            else DispBuf[1]=DispTab[TempH%10];

        if(DispBuf[0]==0xff)//正温度情况下
            {
            if(TempH/10) DispBuf[0]=DispTab[TempH/10];//百位有数值显示
            else DispBuf[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|=0x01<         uDelay(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);}

} 关键字：CEPARK  51单片机  DS18B20