【正文】 程序清單如下：Private Sub Command6_Click() 39。發(fā)送命令字，flag_mandword = True = 已發(fā)送flag_send = True 39。如果發(fā)送鍵按下之后，則置位發(fā)送標志位Dim outbte(0) As Byte 39。定義為byte型0~255Dim i As Integerout(0) = Val()out(1) = amp。HA1out(2) = Val()If Val() = amp。HB0 Then = = 0End IfIf (Val() = amp。HC1 And Val() 0) Then 39。如果是要啟動設備1，則打開定時器5 flag1 = True 39。置位標志位flag1 = Val() * 1000 39。開放定時器5，開始定時Else If (Val() = amp。HD1 And Val() 0) Then 39。如果是要啟動設備1，則打開定時器5 flag2 = True 39。置位標志位flag2 = Val() * 1000 End IfEnd IfIf Val() = amp。HC1 Then 39。如果命令字要求開放設備一，則置位flag_led1 flag1 = TrueEnd IfIf Val() = amp。HD1 Then 39。如果命令字要求開放設備二，則置位flag_led2 flag2 = TrueEnd IfIf out(0) = 1 Then 39。尋址那個罐子（單片機） = False = TrueEnd IfIf out(0) = 2 Then = True = FalseEnd IfEnd SubPrivate Sub MSComm1_OnComm()Dim i As IntegerDim outbte(0) As Byte 39。定義為byte型0~255Dim indata As VariantDim z1 As IntegerDim z2 As IntegerDim z3 As IntegerDim bte(0 To 5) As Byte 39。必須保證命令字為“返回溫度”的時候命令已經(jīng)發(fā)送給單片機，否則單片機接收不到數(shù)據(jù)，產(chǎn)生錯誤，此處提前發(fā)送一下保證能接收到溫度If flag_mandword = True Then 39。保證以下程序只執(zhí)行一次 If flag_send = True Then If Val() = amp。HB1 Then = 0 39。關閉定時器1，避免時序沖突，影響單片機活動 out(0) = Val() out(1) = amp。HA1 out(2) = amp。HB1 39。接受溫度 For i = 0 To 2 outbte(0) = out(i) = 0 39。發(fā)送緩沖區(qū)清零 = outbte 39。把num發(fā)送出去 Next i = 500 39。開放定時器1，使定時器繼續(xù)發(fā)送上位機命令 flag_mandword = False End If End IfEnd IfSelect Case Case EvReceive indata = bte(0) = AscB(indata) bte(1) = AscB(Mid(indata, 2, 1))If out(2) amp。HB1 Then 39。如果上位機要求停止接受溫度是，關閉發(fā)送標志位 = 0 39。把溫度顯示的進度條寬度變?yōu)? = 39。清空溫度顯示 flag_send = FalseEnd IfIf flag_send = True Then 39。如果發(fā)送鍵按下之后，則接收后兩個字節(jié) If out(2) = amp。HB1 Then bte(2) = AscB(Mid(indata, 3, 1)) bte(3) = AscB(Mid(indata, 4, 1)) End IfEnd If39。buf = Str(bte(0)) + Str(bte(1)) + Str(bte(2)) + Str(bte(3))39。****************************************************************buf = bte(0) * 100 + bte(1)Select Case buf 39。對每一個階段的液位進行校正 Case 0 To 100 buf = buf + 19 Case 100 To 200 buf = buf + 17 Case 200 To 300 buf = buf + 14 Case 300 To 400 buf = buf + 8 Case 400 To 500 buf = buf + 10 Case 500 To 600 buf = buf + 7 Case 600 To 700 buf = buf + 5 Case 700 To 800 buf = buf + 3 Case 800 To 900 buf = buf + 0 Case 900 To 1000 buf = buf + 0 Case 1000 To 1100 buf = buf 3 Case 1100 To 1200 buf = buf 6 Case 1200 To 1300 buf = buf 11 Case 1300 To 1400 buf = buf 15 Case 1400 To 1500 buf = buf 22 Case 1500 To 1600 buf = buf 22 Case 1600 To 1700 buf = buf 25 Case 1700 To 1800 buf = buf 32End SelectIf buf 4000 Then buf = 4000End Ifz = buf 39。取三次的平均值z1 = z2z2 = z3z3 = zIf z2 = 0 Then buf = z3Else If z1 = 0 Then buf = Int((z2 + z3) / 2) Else buf = Int((z1 + z2 + z3) / 3) End IfEnd IfIf buf 4000 Then 39。防止有時候單片機出現(xiàn)錯誤造成上位機溢出 buf = 4000End IfIf Val() 0 Then 39。只設上限的情況and上限下限都設了的情況 If buf Val() Then 39。大于上限時，使上面的臉變紅，警告 = amp。HFFamp。 = amp。HFF00amp。 Else If buf Val() Then 39。當在設定的范圍內時，兩個臉都是綠色，表示 = amp。HFF00amp。 = amp。HFF00amp。 Else 39。小于下限時，使下面的臉變紅，警告 = amp。HFFamp。 = amp。HFF00amp。 End If End IfElse = amp。HFF00amp。End IfIf Val() 0 And Val() = 0 Then 39。只設下限的情況 If buf 90000 Then 39。大于上限時，使上面的臉變紅，警告 = amp。HFFamp。 = amp。HFF00amp。 Else If buf Val() Then 39。當在設定的范圍內時，兩個臉都是綠色，表示正常 = amp。HFF00amp。 = amp。HFF00amp。 Else 39。小于下限時，使下面的臉變紅，警告 = amp。HFFamp。 = amp。HFF00amp。 End If End IfElseEnd Ifbuf = Trim(Str(buf)) = buf + mmIf out(2) = amp。HB1 Then 39。如果返回溫度的話，顯示溫度If bte(2) = 1 Then = Trim( + Str(bte(3))) = (10 bte(3)) * Else: = Trim(Str(bte(3))) = bte(3) * End IfEnd IfCircle (, ), , , , , 39。畫下面的橢圓弧End SelectEnd