【正文】 39。 繪制坐標(biāo)系 If = False Then = True 39。 打開串口 mark = True = False Exit Suberr: Select Case Case PortAlreadyOpen 39。 如果串口已經(jīng)打開，則提示 MsgBox 沒有發(fā)現(xiàn)此串口或被占用, 49, 溫度采集系統(tǒng) Case Else MsgBox 沒有發(fā)現(xiàn)此串口或被占用, 49, 溫度采集系統(tǒng) End Select End Sub39。39。 接收觸法事件39。39。獲取溫度測(cè)量值并顯示39。每發(fā)送一次指令，觸發(fā)下面事件，返回?cái)?shù)據(jù)串Private Sub MSComm1_OnComm() Dim Inbyte() As Byte 39。 接收數(shù)據(jù)暫存 Dim buffer As String 39。 溫度數(shù)據(jù)緩沖 Dim datatemp2a, datatemp2b As String 39。 兩字節(jié)進(jìn)制溫度數(shù)據(jù) Dim datatemp2 As String 39。 十六進(jìn)制溫度數(shù)據(jù) Dim count As Integer 39。 接收個(gè)數(shù)計(jì)數(shù) If num 1 Then 39。 接收個(gè)數(shù)判斷 = False 39。 接收完畢 = amp。H80FFamp。 Exit Sub End If 39。讀取儀表返回?cái)?shù)據(jù)串 Select Case Case EvReceive count = 39。 接收溫度數(shù)據(jù)個(gè)數(shù)，兩字節(jié)，低位在前 Inbyte = 39。 接收溫度數(shù)據(jù) If count 2 Then Exit Sub 39。 不是兩字節(jié)，表示接收錯(cuò)誤，跳出程序 counter = counter + 1 39。 基數(shù)器加1 For i = LBound(Inbyte) To UBound(Inbyte) 39。 把接收的數(shù)據(jù)安十六進(jìn)制格式放入緩沖中 buffer = buffer + Hex(Inbyte(i)) Next i End Select 39。獲取十進(jìn)制測(cè)量數(shù)據(jù) If Len(Trim(Mid(buffer, 1, 2))) = 1 Then datatemp(num) = Val(amp。H amp。 Mid(buffer, 3, 3) amp。 Str(0) amp。 Mid(buffer, 1, 2)) * Else datatemp(num) = Val(amp。H amp。 Mid(buffer, 3, 3) amp。 Mid(buffer, 1, 2)) * End If 39。保存數(shù)據(jù) Data_save (datatemp(num)) 39。獲取十六進(jìn)制測(cè)量數(shù)據(jù) If Len(Trim(Mid(buffer, 1, 2))) = 1 Then datatemp2a = Str(0) amp。 Trim(Mid(buffer, 1, 2)) Else datatemp2a = Mid(buffer, 1, 2) End If If Len(Trim(Mid(buffer, 4, 2))) = 1 Then datatemp2b = Str(0) amp。 Trim(Mid(buffer, 3, 2)) Else datatemp2b = Mid(buffer, 4, 2) End If datatemp2 = datatemp2a amp。 amp。 datatemp2b 39。顯示測(cè)量溫度值 If counter = num + 1 Then 39。 If datatemp(num) 0 Then 不能顯示零度,別的正常 = 1: = num + 1 = Format$(datatemp(num), ) If counter 13 Then = counter 12 39。 控制滾動(dòng)條的滾動(dòng) TempText = Format$(datatemp(num), ) 39。 10進(jìn)制顯示,保留一位小數(shù) num = num + 1 Call cal 39。 調(diào)用計(jì)算極值、平均值子程序 Call draw 39。 調(diào)用繪曲線過程 End If End Sub39。39。 統(tǒng)計(jì)計(jì)算39。 39。計(jì)算極值、平均值Sub cal() On Error GoTo err Sum = 0 Max = datatemp(0): Min = Max For i = 0 To num 1 If datatemp(i) = Max Then Max = datatemp(i) If datatemp(i) = Min Then Min = datatemp(i) Sum = Sum + datatemp(i) Next i aver = Sum / num = Format$(Max, ) = Format$(Min, ) = Format$(aver, )err:End Sub39。39。 溫度曲線繪制39。39。繪制溫度實(shí)時(shí)變化曲線Private Sub draw() = 2 39。 設(shè)置線寬 = vbSolid For i = 1 To num 1 X1 = (i 1): Y1 = datatemp(i 1) X2 = i: Y2 = datatemp(i) (X1, Y1)(X2, Y2), QBColor(0) 39。 繪制溫度曲線 Next i End Sub39。39。 重新采集數(shù)據(jù)39。Private Sub renew() If num = 0 Then Exit Sub = : = = : = Call ScaleSys For i = 0 To num 1 datatemp(i) = 0 Next i num = 0 counter = 0 Call tabinit 39。數(shù)據(jù)表格初始化 End Sub39。39。 數(shù)據(jù)表格初始化39。Public Sub tabinit() = 2 39。 兩列 = + 1 39。 Rows 的值必須至少比 FixedRows 的值大一 (0) = 650 39。 設(shè)置表格寬度 (1) = 850 = 0 For i = 1 To = i = + Str$(i) Next i = 0 = 0: = 序號(hào) = 1: = 溫度值 = 1 39。置在第一頁 = 1 End Sub39。39。 定時(shí)發(fā)送采集標(biāo)志39。39。每隔 x ms向儀表發(fā)送讀數(shù)據(jù)命令串39。每臺(tái)儀表有一個(gè)儀表號(hào)，PC機(jī)通過儀表號(hào)來識(shí)別網(wǎng)上的多臺(tái)儀表39。程序中儀表號(hào)（即地址代號(hào)）要與儀表設(shè)定值一致，否則不能返回?cái)?shù)據(jù)。Private Sub Timer1_Timer() Dim a as Variant A=1 = a 39。 發(fā)送開始標(biāo)志 End Sub39。39。 卸載窗體39。Private Sub Cmdquit_Click() If = True Then = False 39。 關(guān)閉串口 Unload Me 39。 卸載窗體 End End Sub39。39。 串口設(shè)置39。Sub setCom()On Error GoTo err: = Val(Mid(, 4, 1)) 39。 設(shè)置串口 = amp。 ,n,8,2 39。 設(shè)置波特率 If = False Then = True 39。 打開串口 = True 39。 開定時(shí)器 = amp。HFFamp。 Exit Suberr: Select Case Case PortAlreadyOpen 39。如果串口已經(jīng)打開，則提示 MsgBox 沒有發(fā)現(xiàn)此串口或被占用, 49, 溫度采集系統(tǒng) Case Else MsgBox 沒有發(fā)現(xiàn)此串口或被占用, 49, 溫度采集系統(tǒng) End Select = amp。H808080 39。 填充停止?fàn)顟B(tài) = False 39。 關(guān)閉定時(shí)器 = 開始采集 = False Call renew 39。 初始化表格 Call ScaleSys 39。 建立坐標(biāo)系 End Sub39。39。 建立圖像坐標(biāo)系39。