//DS18B20的讀寫程序,數據腳P3.3                     //
//溫度傳感器18B20匯編程序,采用器件默認的12位轉化   //
//最大轉化時間750微秒,顯示溫度-55到+125度,顯示精度 //
//為0.1度，顯示采用4位LED共陽顯示測溫值            //
//P0口為段碼輸入,P24~P27為位選                       //
/***************************************************/

#include "reg51.h"
#include "intrins.h"                            //_nop_();延時函數用
#define  Disdata P0                             //段碼輸出口
#define  discan  P2                             //掃描口
#define  uchar unsigned char
#define  uint  unsigned int
sbit     DQ=P3^3;                               //溫度輸入口
sbit     DIN=P0^7;                              //LED小數點控制
uint     h; 
uchar flag;
//**************溫度小數部分用查表法***********//
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]={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]={0x7f,0xbf,0xdf,0xef};    //列掃描控制字
uchar data temp_data[2]={0x00,0x00};             //讀出溫度暫放
uchar data display[5]={0x00,0x00,0x00,0x00,0x00};     //顯示單元數據，共4個數據和一個運算暫用

//
//
//
/***********11微秒延時函數**********/
//
void delay(uint t)
{
for(;t>0;t--);
}
//
/***********顯示掃描函數**********/
scan()
{
char k;
    for(k=0;k<4;k++)         //四位LED掃描控制
     {
	 Disdata=0xff;
      Disdata=dis_7[display[k]];
      if(k==1){DIN=0;}
      discan=scan_con[k];delay(90);
	  discan=0xff;
     }
}
//
//
/***********18B20復位函數**********/
ow_reset(void)
{
char presence=1;
while(presence)
{
while(presence)
{
DQ=1;_nop_();_nop_();
DQ=0;    //
delay(50); // 550us
DQ=1;    // 
delay(6); // 66us
presence=DQ; // presence=0繼續下一步
   }
delay(45);    //延時500us
presence = ~DQ;
}
DQ=1;
} 
//
//
/**********18B20寫命令函數*********/
//向 1-WIRE 總線上寫一個字節
void write_byte(uchar val)
{
uchar i;
for (i=8; i>0; i--) //
{
DQ=1;_nop_();_nop_(); 
DQ = 0;_nop_();_nop_();_nop_();_nop_();_nop_();//5us
DQ = val&0x01;      //主機放數據到總線上
delay(6);           //66us     ds18b20對總線進行采樣
val=val/2;          //右移一位
}
DQ = 1;
delay(1); 
}
//
/*********18B20讀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_();   //4us
DQ = 1;_nop_();_nop_();_nop_();_nop_();   //4us ds18b02放數據到總線   主機釋放總線
if(DQ)value|=0x80;
delay(6);           //66us   單片機對總線進行采樣
}
DQ=1;
return(value);
}
//
/***********讀出溫度函數**********/
//
read_temp()
{
ow_reset();       //總線復位
write_byte(0xCC); // 發Skip ROM命令
write_byte(0xBE); // 發讀命令
temp_data[0]=read_byte(); //溫度低8位
temp_data[1]=read_byte(); //溫度高8位
ow_reset();
write_byte(0xCC); // Skip ROM
write_byte(0x44); // 發轉換命令
}
//
/***********溫度數據處理函數**********/
void work_temp()
{
uchar n=0;
uchar doth,dotl;
uchar flag3=1,flag2=1;       //數字顯示修正標記
if((temp_data[1]&0xf8)!=0x00)
{
   temp_data[1]=~(temp_data[1]);
   temp_data[0]=~(temp_data[0])+1;
   n=1;
   flag=1;
}//負溫度求補碼
if(temp_data[0]>255)
{
temp_data[1]++; 
}
display[4]=temp_data[0]&0x0f;
display[0]=ditab[display[4]];
doth=display[0]/10;
dotl=display[0]%10;
display[4]=((temp_data[0]&0xf0)>>4)|((temp_data[1]&0x07)<<4);
display[3]=display[4]/100;
display[2]=display[4]/10%10;
display[1]=display[4]%10;
if(!display[3])
   {
    display[3]=0x0a;
    flag3=0;
    if(!display[2])
    {
     display[2]=0x0a;
     flag2=0;
    }
   }//最高位為0時都不顯示
if(n)
{
   display[3]=0x0b;//負溫度時最高位顯示"-"
   flag3=0;
}
}

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

   scan();        //顯示溫度值2秒
}
}
//
//*********************結束**************************//