【導(dǎo)讀】本文介紹了一種基于PIC16F877A單片機(jī)，利用DS18B20對多路溫度采集，并進(jìn)行溫度的控制與檢測，并通過12864液晶顯示出來。系統(tǒng)中通過控制按鈕實。在溫度超過設(shè)定溫度時溫度跟時間通過24C02存儲起來，以便查看，同時可以通過固定電話遠(yuǎn)程報警，還能將溫度上傳至PC機(jī)，進(jìn)行后續(xù)處理。本文將設(shè)計一款由新型的數(shù)字溫度傳感器。正因為在PIC單片機(jī)中采用了哈佛雙總線結(jié)。數(shù)據(jù)總線都是8位的，但指令總線位數(shù)分別位12、14、16位。執(zhí)行時,允許下一條指令同時被取出,這樣就實現(xiàn)了單周期指令。得運(yùn)行速度大大提高。PIC單片機(jī)的功率消耗極低，是目前世界上最低的單片機(jī)品種之一。PIC單片機(jī)片內(nèi)集成了上電復(fù)位電路、I/O引腳上拉電路、看門狗定時器等，可以最大程度減少或免用外接器件，以便實現(xiàn)“純單片機(jī)”應(yīng)用。PIC16F877A的詳細(xì)引腳如圖－1所示。Timer2：帶有8位周期寄存器，預(yù)分頻器和后分頻器的8位定時器/計數(shù)器。因可以歸納成4類：人工復(fù)位、上電復(fù)位、看門狗復(fù)位、欠壓復(fù)位。

　　

【正文】 39。關(guān)閉定時器 TimeDelay 100 If Then False 39。關(guān)閉通信端口 End If 已停止檢測并關(guān)閉通訊端口 True 39。允許使用【打開通信端口】按鈕 End Sub 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 39。單擊【結(jié)束】按鈕后激活 此事件 39。使用 End 命令將系統(tǒng)結(jié)束 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 Private Sub cmdEnd_Click False 39。關(guān)閉通信端口 End End Sub 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 39。單擊【打開通信端口】按鈕后激活此事件 39。將 MSComm 控件的參 數(shù)設(shè)置好，并打開 39。激活【開始檢測】按鈕 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 Private Sub cmdOpenCOM_Click 39。判斷端口號碼是否落在 116 之間 If 0 And 16 Then MSComm1mPort + 1 Else MsgBox 指定通信 端口時發(fā)生錯誤！ , vbCritical + vbOKOnly, 系統(tǒng)信息 Exit Sub End If 39。激活錯誤檢測機(jī)制 On Error GoTo Err 119200,n,8,1 39。設(shè)定通信參數(shù) True 39。打開通信端口 False 39。將此按鈕設(shè)為禁用狀態(tài) True 39。激活【開始檢測】按鈕 可單擊【開始檢測】按鈕，執(zhí)行檢測的工作。 Exit Sub Err: MsgBox 打開通信端口時發(fā)生錯誤！請確定通信端口存在且正常。 , vbCritical + vbOKOnly, 系統(tǒng)信息 End Sub 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 39。單擊【開始檢測】按鈕后激活此事件 39。將定時器激活或關(guān)閉，并顯示對應(yīng)的 文字在按鈕上，以指示用戶操作 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 Private Sub cmdStart_Click Not If Then 停止檢測 Else 開始檢測 已停止檢測 End If End Sub 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 39。窗體的 Load 事件 39。輸入圖形暫時設(shè)為灰色，表示無狀態(tài)信息進(jìn)入 39。將通訊端口號碼及站號填入 Combo 控件；并默認(rèn)二者的選項是第一個 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 Private Sub Form_Load Dim i% PlotNo 100 COM1 COM2 COM3 USB COM4 USB COM5 COM6 COM7 COM8 COM9 COM10 COM11 COM12 COM12 COM14 COM15 COM16 0 False 39。以下設(shè)定繪圖范圍， Xmin,Y X,YMin 0, 50 PlotNo, 0 2 39。使用兩個像素寬度的畫筆 End Sub 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 39。定時器的 Timer 事件引發(fā)后，就不斷地執(zhí)行其中的程序。 39。將模擬讀值命令送出，再取得返回字符串并判斷。 39。 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 Private Sub Timer1_Timer Dim Buf$, ValueStr As Single, Pos1% Buf$ Buf$ + 39。讀取變量 TimeDelay 2150 ValueStr Val Mid Buf, Pos1 + 1, 7 39。分離出正號以后的數(shù)值 39。清空上一次數(shù)據(jù) Format ValueStr, amp。 ℃ 39。顯示在畫面上 If NowX 0 Then 39。清除圖形 0, ValueStr 39。設(shè)定起點(diǎn) Else 39。以下判斷現(xiàn)在的讀值是否大于前一次的讀值，若是，則以紅色繪線 39。若否，則以藍(lán)色繪線 39。If ValueStr PreValue + Then NowX, ValueStr , RGB 255, 0, 0 39。由上一次的位置畫至此點(diǎn) 39。Else 39。 NowX, ValueStr , RGB 0, 0, 255 39。由上一次的位置畫至此點(diǎn) 39。End If End If PreValue ValueStr NowX NowX + 1 39。位置加 1 If NowX PlotNo Then NowX 0 39。超過范圍則數(shù)值歸零 End Sub 9 總結(jié) 本系統(tǒng)的設(shè)計更加人性化，可以對 4 路設(shè)定不同的 上限報警溫度，這樣在需要不同溫度的測量中更具有優(yōu)勢，當(dāng)然更多路溫度的設(shè)計方法也一樣。并且報警方面只稍微改動了一下固話就達(dá)到了遠(yuǎn)程報警的功能，溫度較大變化時還會自動存儲同時時間也會儲存起來，可以給操作人員提供更多的信息。 本系統(tǒng)所需的元器件價格低廉，單片機(jī)資源利用率比較高。 4 個開關(guān)實現(xiàn)的功能比較多，使操作人員操作更加方便。 在溫度數(shù)據(jù)的處理上精度可達(dá)到 ℃，可以滿足一定場合的用途。 可改進(jìn)之處：本系統(tǒng)雖然已經(jīng)實現(xiàn)了大部分功能但仍可繼續(xù)改造。如果遠(yuǎn)程測溫等，通過無線模塊可實現(xiàn)采集到的溫度傳送到控制臺， 進(jìn)行遠(yuǎn)程監(jiān)控，無需到現(xiàn)場。圖 是通過 NRF24L01 在開發(fā)板上實現(xiàn)的功能。由于精力問題沒有實現(xiàn)到這個系統(tǒng)上。 圖 遠(yuǎn)程測溫測試 附錄 部分原理圖： 參考文獻(xiàn) [1] 陳洪財 . 單片機(jī) C 語言和匯編語言實用開發(fā)技術(shù) [M]． [2] 劉和平等 [M]. 北京航空航天大學(xué)出版社 202011 [3] 李學(xué)海 . PIC 單片機(jī)實用教程―基礎(chǔ)篇 [M]. 北京航空航海大學(xué)出版社 , 202002 [4] 李學(xué)海 .PIC 單片機(jī)實用教程―提高篇 [M]. 北京航空航海大學(xué)出版社 ,202002 [5] 能昌會 .時鐘芯片 DS1302 在單片機(jī)系統(tǒng)中的應(yīng)用 [J].電子制作 ,2020年 ,11 期 [6] 郭天祥 .新概念 51 單片機(jī) C 語言教程：入門、提高、開發(fā)、拓展 [M].電子工業(yè)出版社 ,202002 14716 34234 394409 [7] 龍脈工作室 .51 單片機(jī) C 語言應(yīng)用開發(fā)技術(shù)大全 [M].人民郵電出版社 .20209 [8] 張越 嵌入式與 SOC ,2020:54～ 56 [10] 廖琪梅，韓彬，楊文昭，屈景輝 .基于單總線器件 DSl8820 的溫度測量儀 [J]《國外電子元器 件》 2020 年第 2 期 2020， 2 國外電子元器件 CNKIDSl8B20與單片機(jī)的接口及編程技術(shù) [J]. 河北工業(yè)科技 .第 24 卷第 4 期， 2020， 7 [12]張俊芳，張忠民，劉利民 .智能單片機(jī)溫度控制系統(tǒng) [J].遼寧工程技術(shù)大學(xué)學(xué)報， 2020:69～ 71 [13]龔紅軍 .單片機(jī)溫度控制系統(tǒng) [J].電氣時代， 2020:66～ 67 [14]吳金戌，沈慶陽，郭庭吉 .單片機(jī)時間與應(yīng)用 [J].清華大學(xué)出版社，2020:36～ 38 [15] 李江全，張麗，芩紅蕾 . Visual Basic 串口通信與測控應(yīng)用技術(shù)實戰(zhàn)詳解 人民郵電出版社 30℃ ℃ PC 機(jī)通訊 4 * 溫度傳感器 固話 報警 PIC16F877A 單片機(jī) 12864 液晶顯示 實時時鐘 上限報警接口 按鍵控制 PC 機(jī)通訊 AT24C02 溫度儲存 四路溫度 采集 芯片上電 復(fù)位 DS18B20 發(fā)出 Skip ROM 指令 啟動溫度轉(zhuǎn)換 1s 到 ? Y N 復(fù)位 DS18B20 發(fā)出 Skip ROM 指令 讀取溫度 N Y 溫度有 較大變化？ 啟動 24c02 監(jiān)控溫度 儲存溫度 儲存時間 關(guān)閉寫保護(hù) 讀出秒數(shù)據(jù) 時間正確？ Y N 回送秒數(shù)據(jù) 打開寫保護(hù) 芯片上電 結(jié) 束 調(diào)用時間設(shè)置 打開寫保護(hù) 結(jié)束 RC0 改裝后 的固話 溫度 監(jiān)控系統(tǒng) 繼電器