【正文】 //正溫 if(dispbuf[4]126) { if(dispbuf[4]100) {digitalshow(10,dispbuf[2],dispbuf[1],dispbuf[0])。} //溫度小于100 度，則百位不顯示 else {msb=msb%10。 //溫度大于 100度時十位需要在除 10取余 福建工程學院國脈信息學院本科畢業(yè)設計 digitalshow(Tflag,dispbuf[2],dispbuf[1],dispbuf[0])。}。} //溫度大于 100度，百位顯示為 1 else { digitalshow(11,11,11,11)。 } //溫度大于 125度時顯示 else { if(dispbuf[4]56) //負溫大于 55 度時正常顯示 {digitalshow(11,dispbuf[2],dispbuf[1],dispbuf[0])。} else {digitalshow(11,11,11,11)。}} //負溫小于 55度時顯示為 } } } 附錄 3 PC 機程序： Dim n As Integer Dim t As Integer ‘定義全局變量 Private Sub Command1_Click() ‘單擊溫度設置按鈕程序 Dim i As Integer If Len(Trim()) 3 Or Val() 100 Or Val() 0 Or Left(Right(, 2), 1) . Then = 設定輸入錯誤，不發(fā)送 Else = Select Case Len(Trim()) Case 5 = Trim() Case 4 = 0 amp。 Trim() Case 3 福建工程學院國脈信息學院本科畢業(yè)設計 = 00 amp。 Trim() End Select = C = True End If End Sub Private Sub Command2_Click() ‘單擊按鈕執(zhí)行數據采集或停止采集 If = 采集數據 Then = 停止采集 = True = A Else = 采集數據 = False = B = B End If End Sub Private Sub Command4_Click() ‘單擊按鈕清空數據 = = End Sub Private Sub Command5_Click() ‘單擊按鈕開 關通信端口 If = 開通信端口 Then = 關通信端口 = False = True = True = True Select Case 39。指定端口號（ COM） Case 0 = 1 Case 1 = 2 福建工程學院國脈信息學院本科畢業(yè)設計 Case 2 = 3 Case 3 = 4 End Select = 9600,n,8,1 39。9600 波特，無校驗， 8 位數據位， 1 位停止位 = InputModeText 39。接收文本數據 = 0 39。讀出接收緩沖區(qū)的所有內容 = 1024 = 1024 = 1 39。每接收到 1 個字符，發(fā)生 1 次事件 = True 39。打開串口 Else = False = B = B = 開通信端口 = True = False = 采集數據 = False = False = False End If End Sub Private Sub Command7_Click() ‘單擊按鈕保存溫度數據 = 2 Open For Append As 1 Write 1, Now Write 1, Close 1 End Sub Private Sub Form_Load() COM1 COM2 福建工程學院國脈信息學院本科畢業(yè)設計 COM3 COM4 End Sub Private Sub MSComm1_OnComm() ‘串口接收到數據時讀出數據 Select Case Case EvReceive = amp。 Case Else End Select End Sub Private Sub Text1_Change() ‘對讀出的數據進行處理 If (Len() Mod 4 = 0) And (Len() 0) Then = Right$(, 4) amp。 ℃ = Time amp。 Chr$(6) amp。 Chr$(6) amp。 Chr$(6) amp。 amp。 amp。 = Time$ n = n + 1 End If If n = 100 Then n = 0 = End If End Sub Private Sub Text5_Change() ‘改變讀數據的時間 = Val() * 1000 End Sub Private Sub Timer1_Timer() ‘采集數據后進行繪圖 = A Dim a As Single Dim a1 As String Dim a2 As String Dim a3 As String 福建工程學院國脈信息學院本科畢業(yè)設計 Dim k As Integer Static b(200) As Integer = Time For k = 1 To 199 b(k) = b(k + 1) Next k b(200) = Val() With MSChart1 For i = 1 To 200 a = Val(Mid(, 1, 2)) * 3600 + Val(Mid(, 4, 2)) * 60 + Val(Mid(, 7, 2)) 200 * Val() + i * Val() + 1 If a 0 Then a = a + 86400 ElseIf a 86400 Then a = a 86400 End If If a \ 3600 10 Then a1 = 0 amp。 (a \ 3600) Else a1 = Str(a \ 3600) End If If (a Mod 3600) \ 60 10 Then a2 = 0 amp。 ((a Mod 3600) \ 60) Else a2 = (a Mod 3600) \ 60 End If If ((a Mod 3600) Mod 60) 10 Then a3 = 0 amp。 ((a Mod 3600) Mod 60) Else a3 = ((a Mod 3600) Mod 60) End If .Row = i .Data = b(i) .RowLabel = a1 amp。 : amp。 a2 amp。 : amp。 a3 Next i 福建工程學院國脈信息學院本科畢業(yè)設計 End With End Sub Private Sub Timer2_Timer() ‘設置溫度時間隔開發(fā)送數據的時間，以使 If t = 0 Then ‘單片機能正常處理 = Mid(, 1, 1) t = t + 1 ElseIf t = 1 Then = Mid(, 2, 1) t = t + 1 ElseIf t = 2 Then = Mid(, 3, 1) t = t + 1 ElseIf t = 3 Then = Mid(, 4, 1) t = t + 1 ElseIf t = 4 Then = Mid(, 5, 1) t = 0 = False End If End Sub