【導(dǎo)讀】溫度是一種被廣泛應(yīng)用于生產(chǎn)和生活的重要的物理量。針對與不同的應(yīng)用領(lǐng)域，生產(chǎn)和研制適當(dāng)?shù)臏y溫系統(tǒng)是十分必要的。本文設(shè)計的是近距離溫度檢測系統(tǒng)。統(tǒng)涵蓋了傳感器技術(shù)，信息處理技術(shù)，計算機通信技術(shù)等幾個方面的技術(shù)。機進行通訊打下了基礎(chǔ)。信號編碼進行接受和描述，將其直接顯示在可視的界面當(dāng)中。儲功能，便于對信號進行分析和處理。在本設(shè)計中，我們?yōu)榱四軐崿F(xiàn)人機的對話及及。時知道系統(tǒng)的運行狀況，我們給本系統(tǒng)增加了報警功能。線形關(guān)系，這說明了系統(tǒng)具有很高的精確度和穩(wěn)定性。到對每個通道的溫度標(biāo)定的目的。關(guān)鍵詞：溫度，編碼，單片機，實時曲線，DS18B20，

　　

【正文】 sence==1) { beep()。flash=1。} // DS18B20 不正常，蜂鳴器報警 else { flash=0。 WriteOneChar(0xCC)。 // 跳過讀序號列號的操作 WriteOneChar(0x44)。 // 啟動溫度轉(zhuǎn)換 Init_DS18B20()。 WriteOneChar(0xCC)。 // 跳過讀序號列號的操作 WriteOneChar(0xBE)。 // 讀取溫度寄存器 temp_data[0] = ReadOneChar()。 // 溫度低 8 位 temp_data[1] = ReadOneChar()。 // 溫度高 8 位 }}/*********************************************************/void Disp_Temperature()// 顯示溫度{ unsigned char n=0。 if(temp_data[1]7) //當(dāng)溫度高八位中的高五位全為 O { flag_zf=1。 // 所測溫度為負時，要進行轉(zhuǎn)換 temp_data[1]=!( temp_data[1])； temp_data[0]=!( temp_data[0])。temp_data[0]= temp_data[0]+1。長沙學(xué)院畢業(yè)設(shè)計32if(temp_data[0]=0) { temp_data[1]= temp_data[1]+1。}}Else {flag_zf=0} //判斷測得的溫度數(shù)據(jù)是正還是負，如果為正，不做任何//理 display[4]=temp_data[0]amp。0x0f。display[0]=ditab[display[4]]。 // 查表得小數(shù)位的值display[4]=((temp_data[0]amp。0xf0)4)|((temp_data[1]amp。0x0f)4)。display[3]=display[4]/100。display[1]=display[4]%100。display[2]=display[1]/10。display[1]=display[1]%10。 if(flag_zf=1) {p0=0xbf。 P2=0x02。 Delay(300)。} //溫度為負數(shù)時第二個數(shù)碼管顯示負號 if(!display[3]) // 高位為 0，不顯示 { display[3]=0x0a。 if(!display[2]) // 次高位為 0，不顯示 display[2]=0x0a。 }P0 = 0xc6。 // 顯示 CP2 = 0xfe。 // 位選線為 口，LED 為共陽極顯示，當(dāng)位選線為低電平時選通Delay(300)。P0 = 0x9c。 // 顯示 176。 P2 = 0xfd。 // 選中 口Delay(300)。P0 =LEDData[display[0]] 。 // 顯示小數(shù)位P2 = 0xfb。 //Delay(300)。P0 =LEDData1[display[1]]。 // 顯示個位P2 = 0xf7。Delay(300)。長沙學(xué)院畢業(yè)設(shè)計33P0 =LEDData[display[2]]。 // 顯示十位P2 = 0xef。 Delay(300)。P0 =LEDData[display[3]]。 // 顯示百位P2 = 0xdf。Delay(300)。P2 = 0xff。 // 關(guān)閉顯示}/*********************************************************/void beep(void){ unsigned char i。 for (i=0。i100。i++) { Delay(60)。 BEEP=!BEEP。 // BEEP 取反 } BEEP=1。 // 關(guān)閉蜂鳴器}/*********************************************************/void init(void){EA = 1。 // 中斷總允許 TMOD = 0x20。 // 定時器 1 工作于 8 位自動重載模式 , 用于產(chǎn)生波特率TH1=(unsigned char)(256 (XTAL / (32L * 12L * baudrate)))。TL1=(unsigned char)(256 (XTAL / (32L * 12L * baudrate)))。 // 定時器 0 賦初值SCON = 0x50。 // 設(shè)定串行口工作方式PCON amp。= 0x00。 // 波特率不倍增TR1 = 1。 // 啟動定時器 1IE = 0x00。 // 禁止任何中斷}/*********************************************************/void send_char(void)// 傳送十六位的溫度數(shù)據(jù)，低位在前長沙學(xué)院畢業(yè)設(shè)計34{unsigned i=0。while (i 2){SBUF = temp_data[i]。while (!TI)。 // 等特數(shù)據(jù)傳送TI = 0。 // 清除數(shù)據(jù)傳送標(biāo)志i++。}}/*********************************************************/void main(void){uchar receive。 init()。 while(1) { Read_Temperature()。 // 讀取溫度if (flash==0) {Disp_Temperature()。 // 顯示溫度}else {P2 = 0x00 。 // DS18B20 不正常，關(guān)閉顯示}if (RI) // 是否有數(shù)據(jù)到來{RI = 0。receive = SBUF。if (receive == 49) // 是否開始采集溫度{send_char()。 // 傳送采集的溫度}} }}/*********************************************************/長沙學(xué)院畢業(yè)設(shè)計35附錄 2 上位機程序39。定義窗體級變量39。在顯示、繪圖、報警等過程中使用Dim datatemp(200) As Single 39。 用于存儲溫度采樣值Dim num As Integer 39。 用于存儲采樣值個數(shù)Dim counter As Integer 39。 采樣個數(shù)計數(shù)器Dim mark As Boolean 39。 暫停標(biāo)志Dim strSql As StringPrivate Sub cmd_Search_Click() strSql = select * from Tbl_wD where 1=1 Set Rs = New = adUseClient strSql, Db, adOpenKeyset, adLockReadOnly If 1 Then MsgBox (數(shù)據(jù)庫中沒有數(shù)據(jù)！) Exit Sub End If Set = Rs End Sub39。39。 溫度采集39。長沙學(xué)院畢業(yè)設(shè)計36Private Sub CmdStart_Click() 39。 開始采集 If (Txttimes 200) Or (Txttimes 1) Then 39。 參數(shù)設(shè)置判斷 MsgBox 參數(shù)錯誤！采集次數(shù)應(yīng)取“0~200”之間的數(shù)。, 49, 溫度采集系統(tǒng) Call setAcquiescence 39。 默認設(shè)置 Exit Sub End If If (Txttime 60) Or (Txttime ) Then MsgBox 參數(shù)錯誤！間隔時間應(yīng)取“~60”之間的數(shù)。, 49, 溫度采集系統(tǒng) Call setAcquiescence 39。 默認設(shè)置 Exit Sub End If If = True Then = False Call setCom 39。 設(shè)置串口 Call tabinit 39。 初始化表格 If = True Then = 1000 * 39。 設(shè)置間隔采樣時間 = 重新采集 = True = 停止采集 = amp。HFFamp。 mark = True Call renew 39。 重新開始 End If End Sub長沙學(xué)院畢業(yè)設(shè)計3739。39。 默認設(shè)置39。Sub setAcquiescence() = 200 39。 恢復(fù)默認值 = 1 = False = 開始采集 = False = amp。H808080 39。 填充停止?fàn)顟B(tài) Call renew 39。 重新開始End Sub39。39。 停止溫度采集39。Private Sub CmdStop_Click() 39。 停止采集 If mark = True Then If = True Then = False mark = False = False = 繼續(xù)采集 = amp。H808080 Else If = False Then = True長沙學(xué)院畢業(yè)設(shè)計38 mark = True = True = 停止采集 = amp。HFFamp。 End If End Sub39。串口初始化39。在窗體的 Load 事件中加入下列代碼對串口進行初始化:39。39。 載入窗體39。Private Sub Form_Load()On Error GoTo err: = 1 39。 設(shè)置串口 = InputModeBinary 39。 二進制輸入模式 = 1 39。 接收 1 個字符觸法OnComm 事件 = 1 39。 發(fā)送 1 個字符觸法OnComm 事件 = 9600,n,8,2 39。 設(shè)置波特率 Call tabinit 39。 調(diào)用表格初始化子程序 Call ScaleSys 39。 繪制坐標(biāo)系 If = False