基于485總線的超聲波的液位測量與控制系統(tǒng)畢業(yè)設(shè)計(jì)報(bào)告-資料下載頁
2025-06-18 22:23本頁面
【正文】 程序清單如下：Private Sub Command6_Click() 39。發(fā)送命令字，flag_mandword = True = 已發(fā)送flag_send = True 39。如果發(fā)送鍵按下之后，則置位發(fā)送標(biāo)志位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。如果是要啟動(dòng)設(shè)備1，則打開定時(shí)器5 flag1 = True 39。置位標(biāo)志位flag1 = Val() * 1000 39。開放定時(shí)器5，開始定時(shí)Else If (Val() = amp。HD1 And Val() 0) Then 39。如果是要啟動(dòng)設(shè)備1，則打開定時(shí)器5 flag2 = True 39。置位標(biāo)志位flag2 = Val() * 1000 End IfEnd IfIf Val() = amp。HC1 Then 39。如果命令字要求開放設(shè)備一，則置位flag_led1 flag1 = TrueEnd IfIf Val() = amp。HD1 Then 39。如果命令字要求開放設(shè)備二，則置位flag_led2 flag2 = TrueEnd IfIf out(0) = 1 Then 39。尋址那個(gè)罐子（單片機(jī)） = 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。必須保證命令字為“返回溫度”的時(shí)候命令已經(jīng)發(fā)送給單片機(jī)，否則單片機(jī)接收不到數(shù)據(jù)，產(chǎn)生錯(cuò)誤，此處提前發(fā)送一下保證能接收到溫度If flag_mandword = True Then 39。保證以下程序只執(zhí)行一次 If flag_send = True Then If Val() = amp。HB1 Then = 0 39。關(guān)閉定時(shí)器1，避免時(shí)序沖突，影響單片機(jī)活動(dòng) 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。開放定時(shí)器1，使定時(shí)器繼續(xù)發(fā)送上位機(jī)命令 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。如果上位機(jī)要求停止接受溫度是，關(guān)閉發(fā)送標(biāo)志位 = 0 39。把溫度顯示的進(jìn)度條寬度變?yōu)? = 39。清空溫度顯示 flag_send = FalseEnd IfIf flag_send = True Then 39。如果發(fā)送鍵按下之后，則接收后兩個(gè)字節(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。對(duì)每一個(gè)階段的液位進(jìn)行校正 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。取三次的平均值z(mì)1 = 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。防止有時(shí)候單片機(jī)出現(xiàn)錯(cuò)誤造成上位機(jī)溢出 buf = 4000End IfIf Val() 0 Then 39。只設(shè)上限的情況and上限下限都設(shè)了的情況 If buf Val() Then 39。大于上限時(shí)，使上面的臉變紅，警告 = amp。HFFamp。 = amp。HFF00amp。 Else If buf Val() Then 39。當(dāng)在設(shè)定的范圍內(nèi)時(shí)，兩個(gè)臉都是綠色，表示 = amp。HFF00amp。 = amp。HFF00amp。 Else 39。小于下限時(shí)，使下面的臉變紅，警告 = amp。HFFamp。 = amp。HFF00amp。 End If End IfElse = amp。HFF00amp。End IfIf Val() 0 And Val() = 0 Then 39。只設(shè)下限的情況 If buf 90000 Then 39。大于上限時(shí)，使上面的臉變紅，警告 = amp。HFFamp。 = amp。HFF00amp。 Else If buf Val() Then 39。當(dāng)在設(shè)定的范圍內(nèi)時(shí)，兩個(gè)臉都是綠色，表示正常 = amp。HFF00amp。 = amp。HFF00amp。 Else 39。小于下限時(shí)，使下面的臉變紅，警告 = 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
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1