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