【正文】 9。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。當(dāng)選擇通信端口的Combo控件被選中后激活此事件39。若用戶改變通信端口時，關(guā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 cmbCOM_Click() 39。若通信端口號碼和現(xiàn)在的選擇一樣時就不必理會，直接跳出此子程序 If + 1 = Then Exit Sub = False 39。關(guān)閉定時器 TimeDelay 100 If Then = False 39。關(guān)閉通信端口 End If = 已停止檢測并關(guān)閉通訊端口 = True 39。允許使用【打開通信端口】按鈕End Sub39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。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)閉通信端口 EndEnd Sub39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。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 = + 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 SubErr: MsgBox 打開通信端口時發(fā)生錯誤！請確定通信端口存在且正常。, vbCritical + vbOKOnly, 系統(tǒng)信息End Sub39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。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 IfEnd Sub39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。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)二者的選項(xià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 Form_Load() Dim i% MaxPlotNo = 100 COM1 COM2 COM3(USB) COM4(USB) COM5 COM6 COM7 COM8 COM9 COM10 COM11 COM12 COM12 COM14 COM15 COM16 = 0 = False 39。以下設(shè)定繪圖范圍，(Xmin,YMax)(XMax,YMin) (0, 50)(MaxPlotNo, 0) = 2 39。使用兩個像素寬度的畫筆End Sub39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。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 MaxPlotNo Then NowX = 0 39。超過范圍則數(shù)值歸零End Sub9 總結(jié) 本系統(tǒng)的設(shè)計(jì)更加人性化，可以對4路設(shè)定不同的上限報警溫度，這樣在需要不同溫度的測量中更具有優(yōu)勢，當(dāng)然更多路溫度的設(shè)計(jì)方法也一樣。并且報警方面只稍微改動了一下固話就達(dá)到了遠(yuǎn)程報警的功能，溫度較大變化時還會自動存儲同時時間也會儲存起來，可以給操作人員提供更多的信息。本系統(tǒng)所需的元器件價格低廉，單片機(jī)資源利用率比較高。4個開關(guān)實(shí)現(xiàn)的功能比較多，使操作人員操作更加方便?！?，可以滿足一定場合的用途。可改進(jìn)之處：本系統(tǒng)雖然已經(jīng)實(shí)現(xiàn)了大部分功能但仍可繼續(xù)改造。如果遠(yuǎn)程測溫等，通過無線模塊可實(shí)現(xiàn)采集到的溫度傳送到控制臺，進(jìn)行遠(yuǎn)程監(jiān)控，無需到現(xiàn)場。由于精力問題沒有實(shí)現(xiàn)到這個系統(tǒng)上。 圖 遠(yuǎn)程測溫測試參考文獻(xiàn)[1] 陳洪財(cái). 單片機(jī)C語言和匯編語言實(shí)用開發(fā)技術(shù)[M]．哈爾濱工業(yè)出版社 .[2] 劉和平等. PIC16F877X單片機(jī)實(shí)用軟件與接口技術(shù)C語言及其應(yīng)用[M]. 北京航空航天大學(xué)出版社, 200311[3] 李學(xué)海. PIC單片機(jī)實(shí)用教程—基礎(chǔ)篇[M]. 北京航空航海大學(xué)出版社, 200702[4] —提高篇[M]. 北京航空航海大學(xué)出版社,200702[5] [J].電子制作,2007年,11期[6] ：入門、提高、開發(fā)、拓展[M].電子工業(yè)出版社,200902 1471634234394409[7] [M].[8] 張?jiān)? 張炎,趙延軍．基于DS18B20溫度傳感器的數(shù)字溫度計(jì)[J]．微電子學(xué), 第37卷第5期，2007，10[9][J].中文核心期刊《微計(jì)算機(jī)信息》(嵌入式與SOC),2008:54～56致謝本次畢業(yè)設(shè)計(jì)通過張友能教授的指導(dǎo)，以及自己的努力，我才能完成任務(wù)。不但讓我增長了見識也讓我真正感受到理論與實(shí)際相結(jié)合的成果，受益匪淺。感謝我的指導(dǎo)老師張又能教授，他給予我許多的幫助和鼓勵。我還要感謝在設(shè)計(jì)過程中所有給予我真誠幫助的老師和同學(xué)。 論文指導(dǎo)（階段性進(jìn)度檢查）記錄：時間交流內(nèi)容分值得分 年 月 日選題合理性20年 月 日進(jìn)展情況40年 月 日創(chuàng)新情況20年 月 日總體完成情況20論文成績: 指導(dǎo)教師評語：簽名蓋章 年 月 日答辯組評語：答辯成績: 簽名蓋章 總評成績： 年 月 日