【正文】 計 PC 機程序界面采用 Windows 窗口模式，考慮到程序的實用性與友好性，提供了串口選擇、溫度曲線實時顯示、溫度實時顯示等功能。程序界面如下所示： 程序代碼 Option ExplicitDim NowX As Integer 39。現(xiàn)在的 X 軸位置Dim MaxPlotNo As Long 39。最長的 X 軸范圍Dim PreValue As Single 39。前一個測量值39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。當選擇通信端口的 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浙江科技學(xué)院本科畢業(yè)設(shè)計（論文）39 = 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() 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浙江科技學(xué)院本科畢業(yè)設(shè)計（論文）40 39。激活錯誤檢測機制 On Error GoTo Err = 9600,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)信息進入浙江科技學(xué)院本科畢業(yè)設(shè)計（論文）4139。將通訊端口號碼及站號填入 Combo 控件；并默認二者的選項是第一個39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。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 = 0 = False 39。以下設(shè)定繪圖范圍，(Xmin,YMax)(XMax,YMin) (0, 100)(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。Private Sub Timer1_Timer() Dim Buf$, ValueStr As Single, Pos1% Buf$ = Buf$ + TimeDelay 2150 ValueStr = Val(Mid(Buf, Pos1 + 1, 7)) 39。分離出正號以后的數(shù)值 = Format(ValueStr, ) amp。 ℃ 39。顯示在畫面上 If NowX = 0 Then 39。清除圖形 (0, ValueStr) 39。設(shè)定起點 Else浙江科技學(xué)院本科畢業(yè)設(shè)計（論文）42 39。以下判斷現(xiàn)在的讀值是否大于前一次的讀值，若是，則以紅色繪線 39。若否，則以藍色繪線 If ValueStr PreValue + Then (NowX, ValueStr), RGB(255, 0, 0) 39。由上一次的位置畫至此點 Else (NowX, ValueStr), RGB(0, 0, 255) 39。由上一次的位置畫至此點 End If End If PreValue = ValueStr NowX = NowX + 1 39。位置加 1 If NowX MaxPlotNo Then NowX = 0 39。超過范圍則數(shù)值歸零End SubDeclare Function GetTickCount Lib kernel32 () As LongSub TimeDelay(t As Long) 39。時間延遲子程序，單位是毫秒(ms) Dim TTamp。 TT = GetTickCount() Do DoEvents Loop Until GetTickCount() TT = tEnd Sub39。等待 RS 字符串返回，或是時間到達39。Comm 是通信控件名稱39。RS 是欲等待的字符39。DT 是最長的等待時間39。正常時返回值是所得的完整字符串，不正常時返回值是空字符串Function WaitRS(Comm As MSComm, RS As String, DT As Long) As String浙江科技學(xué)院本科畢業(yè)設(shè)計（論文）43 Dim Buf$, TT As Long Buf = TT = GetTickCount Do Buf = Buf amp。 Loop Until InStr(1, Buf, RS) 0 Or GetTickCount TT = DT If InStr(1, Buf, RS) 0 Then WaitRS = Buf Else WaitRS = End IfEnd Function 浙江科技學(xué)院本科畢業(yè)設(shè)計（論文）445 總 結(jié)經(jīng)過將近三個月的努力探索和奮力拼搏，畢業(yè)設(shè)計已經(jīng)結(jié)束。回看整個設(shè)計過程，雖然在設(shè)計過程中遇到過許多困難，但通過自己的不懈努力和指導(dǎo)老師的悉心指點，解決了大部分設(shè)計過程中碰到的各種困難，現(xiàn)已基本完成課題中的軟件設(shè)計、硬件規(guī)劃，整個系統(tǒng)的運行基本達到了預(yù)期目標。通過這次設(shè)計，我對傳感器和單片機以及相關(guān)的電子電路知識有了更深的認識，也學(xué)到了很重要的一點， “硬件及軟件的調(diào)試方法” 。在設(shè)計的過程中我對開發(fā)系統(tǒng)有了全面的了解，學(xué)到了課堂上無法學(xué)到的東西。通過實踐我還對自己所學(xué)的各個方面的知識進行了總結(jié)，提高了自我學(xué)習(xí)能力和獲取新知識的能力。通過對系統(tǒng)的分析、設(shè)計、編碼以及測試等各種環(huán)節(jié)使我提高了發(fā)現(xiàn)問題、解決問題的能力，并且對問題的觀察比以前更加敏銳了，考慮問題也更加全面了。這次的設(shè)計，不但讓我感覺到了獨立學(xué)習(xí)的能力的重要性，而且從設(shè)計的文獻資料到元器件的市場采購，更考驗了我的實際綜合能力。因此，我覺得這次畢業(yè)設(shè)計對我來說是具有十分重要的意義，將是我走上社會崗位前的一次大鍛煉。我很慶幸我在這次畢業(yè)設(shè)計中已經(jīng)盡心盡力，讓我學(xué)到了很多很多意想不到的東西。浙江科技學(xué)院本科畢業(yè)設(shè)計（論文）45致 謝深深感謝我的指導(dǎo)老師張麗老師，在畢業(yè)設(shè)計期間對我的悉心指導(dǎo)和親切關(guān)懷。同樣要感謝各科的老師在四年來的學(xué)習(xí)生活中給予我的精心指導(dǎo)、照顧和鼓勵。衷心感謝所有那些給過我?guī)椭睦蠋?、同學(xué)和朋友。 許 浩2022 年 5 月 31 日于杭州浙江科技學(xué)院本科畢業(yè)設(shè)計（論文）46參考文獻[1]肖洪兵，胡輝編著，：北京航空航天大學(xué)出版社，2022 年 8 月。[2]張俊謨編著， 北京：北京航空航天大學(xué)出版社，2022 年 6 月。[3]謝劍英，賈青編著，微型計算機控制技術(shù) 北京：國防工業(yè)出版社，2022 年。[4]羅朝盛主編，Visual 程序設(shè)計教程 北京：人民郵電出版社，2022 年 9 月。[5] 何立民，單片機應(yīng)用系統(tǒng)設(shè)計[M]，北京航天航空大學(xué)出版社，1990 年 7 月。[6] 江思敏、姚鵬翼、胡榮, Protel 電路設(shè)計教程[M], 清華大學(xué)出版社，2022 年 5 月。[7] 邱關(guān)源，電路[M]，高等教育出版社，1999 年 3 月。[8] 康華光，電子技術(shù)基礎(chǔ)(模擬部分) [M]，高等教育出版社，1999 年 3 月。[9] PRODUCT SE[EL3Y]R GUIDEDALLAS SEMICONDUCT