#include <reg51.h>
#include <intrins.h>            //_nop_();延時函數用
#define  Disdata P2                //段碼輸出口
#define  discan  P3                //掃描口
#define  uchar unsigned char
#define  uint  unsigned int
sbit     DQ=P1^7;                   //溫度輸入口
sbit     DIN=P2^7;                  //LED小數點控制
uint     h;
uint     temp;
//
//
//**************溫度小數部分用查表法***********//
uchar code ditab[16]=
{0x00,0x01,0x01,0x02,0x03,0x03,0x04,0x04,0x05,0x06,0x06,0x07,0x08,0x08,0x09,0x09};
//
//uchar code dis_7[12]={0xfc,0x60,0xda,0xf2,0x66,0xb6,0xbe,0xe0,0xfe,0xf6,0xff,0x02};
uchar code dis_7[12]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90,0xff,0xbf};
//共陽LED段碼表        "0"  "1"  "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9" "不亮" "-"             
uchar code scan_con[4]={0x08,0x04,0x02,0x01};  //列掃描控制字
uchar data temp_data[2]={0x00,0x00};           //讀出溫度暫放
uchar data display[5]={0x00,0x00,0x00,0x00,0x00};  //顯示單元數據，共4個數據和一個運算暫用

//
/*****************11us延時函數*************************/
//
void delay(uint t)
{
  for (;t>0;t--);
}
//

/****************顯示掃描函數***************************/
scan()
{
    char k;
    for(k=0;k<4;k++)    //4位LED掃描控制
    {
           
        discan=scan_con[k];         //送位選
        Disdata=dis_7[display[k]];  //送段碼數據
                  
        if (k==1)   //小數點顯示
        {
           DIN=0;
        }
        delay(300);
   }
}
//
//
/****************DS18B20復位函數************************/
ow_reset(void)
{
    char presence=1;
    while(presence)
    {
        while(presence)
        {
             DQ=1;     
    _nop_();_nop_();
             DQ=0;             //從高拉倒低                         
             delay(50);        //550 us
             DQ=1;                                       
             delay(6);        //66 us
             presence=DQ;     //presence=0 復位成功,繼續下一步
        }
        delay(45);            //延時500 us
        presence=~DQ;        
    }
    DQ=1;                   //拉高電平
}
//
//
/****************DS18B20寫命令函數************************/
//向1-WIRE 總線上寫1個字節
void write_byte(uchar val)
{
  uchar i;
  for(i=8;i>0;i--)
  {
   DQ=1;
   _nop_();_nop_();                 
   DQ=0;           //從高拉倒低
   _nop_();_nop_();_nop_();_nop_();  //5 us
   DQ=val&0x01;                      //最低位移出
   delay(6);                          //66 us
   val=val>>1;                         //右移1位
   }
   DQ=1;
   delay(1);
}
//
/****************DS18B20讀1字節函數************************/
//從總線上取1個字節
uchar read_byte(void)
{
    uchar i;
    uchar value=0;
    for(i=8;i>0;i--)
    {
        DQ=1;
        _nop_();_nop_();
        value>>=1;
        DQ=0;
        _nop_();_nop_();_nop_();_nop_();    //4 us
        DQ=1;
        _nop_();_nop_();_nop_();_nop_();    //4 us
        if(DQ)value|=0x80;
        delay(6);                           //66 us
    }
    DQ=1;
    return(value);
}
//
/****************讀出溫度函數************************/
//
read_temp()
{
    ow_reset();              //總線復位
    delay(200);
    write_byte(0xcc);        //發命令
    write_byte(0x44);        //發轉換命令
    ow_reset();
    delay(1);
    write_byte(0xcc);          //發命令
    write_byte(0xbe);
    temp_data[0]=read_byte();  //讀溫度值的低字節
    temp_data[1]=read_byte();  //讀溫度值的高字節
    temp=temp_data[1];
    temp<<=8;                                              
    temp=temp|temp_data[0];     // 兩字節合成一個整型變量。
    return temp;                //返回溫度值
}
//
/****************溫度數據處理函數************************/

//二進制高字節的低半字節和低字節的高半字節組成一字節,這個
//字節的二進制轉換為十進制后,就是溫度值的百、十、個位值,而剩
//下的低字節的低半字節轉化成十進制后,就是溫度值的小數部分

/********************************************************/
work_temp(uint tem)
{
    uchar n=0;
    if(tem>6348)                // 溫度值正負判斷
 {tem=65536-tem;n=1;}      // 負溫度求補碼,標志位置1
    display[4]=tem&0x0f;      // 取小數部分的值
    display[0]=ditab[display[4]];  // 存入小數部分顯示值
    display[4]=tem>>4 & 0xff; // 取中間八位,即整數部分的值
    display[3]=display[4]/100;     // 取百位數據暫存
    display[1]=display[4]%100;     // 取后兩位數據暫存
    display[2]=display[1]/10;      // 取十位數據暫存
    display[1]=display[1]%10; 
/******************符號位顯示判斷**************************/
    if(!display[3])
    {
        display[3]=10;      //最高位為0時不顯示
        if(!display[2])
        {
            display[2]=10;  //次高位為0時不顯示
        }
    }
    if(n)
 {
     display[3]=11;   //負溫度時最高位顯示"-"
 }     
}

/****************主函數************************/
main()
{
    Disdata=0x00;           //初始化端口
    discan=0x00;
    for(h=0;h<4;h++)        //開機顯示"8888"
    {
     display[h]=8;
 }
    ow_reset();             //開機先轉換一次
    write_byte(0xcc);       //Skip ROM
    write_byte(0x44);       //發轉換命令
    for(h=0;h<100;h++)      //開機顯示"8888"
    {
     scan();
 }
    while(1)
    {
        work_temp(read_temp());  //處理溫度數據
        scan();                  //顯示溫度值
    }
}