日本特级淫片免费看-日本特级黄色-日本特级黄录像片-日本视频中文字幕-成年偏黄网站站免费-成年人福利

  對VB不是很了解，現(xiàn)遇到個(gè)讀取端口數(shù)據(jù)處理的問題。

Public Function ReceiveData() As String
    Dim I As Integer                    '
    Dim cnum As Integer                 '定義為接收到的字符個(gè)數(shù)
    Dim ChRcv(1 To 100) As String * 2 '定義為
    Dim strRcv As String                '定義為接收字符的存放字符串
    Dim InputRcv As Variant             '定義為接收緩沖區(qū)數(shù)據(jù)的暫存處
    Dim LoopCheck As Byte               '定義為用于循環(huán)檢測的變量
    cnum = 0
    I = 0
    FormMain.TimerRcvDelay.Enabled = True           '接收延時(shí)計(jì)時(shí)器打開
    LoopCheck = 0
    strRcv = ""
    InputRcv = ""

    FormMain.MSComm1.InputLen = 1                                '逐個(gè)讀取字符。
    '接收操作，循環(huán)
    Do
        DoEvents                                             '當(dāng)COM端口不對時(shí)，DO..loop循環(huán)便執(zhí)行該空操作，若無此句，陷入死循環(huán)
        If DelayTime > 2000 Then GoTo ERROR             '超時(shí)1s 提示錯(cuò)誤
        If FormMain.MSComm1.InBufferCount > 0 Then               '判斷接收緩存字節(jié)＞0
            InputRcv = FormMain.MSComm1.Input
            I = I + 1
            DataRcv(I) = InputRcv(0)
            LoopCheck = InputRcv(0)                     'LoopCheck變量用于循環(huán)條件的檢測，不可直接用InputRcv來檢測，因?yàn)镃OM端口不對時(shí)，InputRcv = FORMMAIN.MSComm1.Input 不執(zhí)行，InputRcv(0)為可變型，而AscB("}")為Byte類型，產(chǎn)生數(shù)據(jù)類型不匹配的錯(cuò)誤
        End If
   Loop Until (LoopCheck = CInt(&H7D))            '條件中的單變量 要變?yōu)椋?），即InputRcv -》InputRcv(0),不知道為什么？？？
    
    FormMain.TimerRcvDelay.Enabled = False              '數(shù)據(jù)接收完畢后，延時(shí)定時(shí)器停止
    DelayTime = 0                                       '延時(shí)計(jì)時(shí)器清零
        cnum = I                                            '字符個(gè)數(shù)
    For I = 1 To cnum
                'ChRcv(I) = Hex(DataRcv(I))
        'ChRcv(I) = Chr(DataRcv(I))
     ChRcv(I) = String(2 - Len(Hex(DataRcv(I))), "0") & Hex(DataRcv(I))  '在換算成十六進(jìn)制數(shù)一位時(shí)前面+"0"
     strRcv = strRcv + ChRcv(I)
    Next I
      FormMain.Label15.Caption = strRcv                  '顯示到主頁面
      ReceiveData = strRcv                                '返回函數(shù)值
  
    Exit Function
   ERROR:
    MsgBox "無法接收下位機(jī)響應(yīng)數(shù)據(jù)，請更換COM端口或檢查接線！", vbOKOnly, "通知你"
    If FormMain.MSComm1.PortOpen = True Then FormMain.MSComm1.PortOpen = False
    FormMain.TimerRcvDelay.Enabled = False                       '延時(shí)定時(shí)器停止
    DelayTime = 0                                       '延時(shí)計(jì)時(shí)器清零

End Function
這段程序一般情況下沒什么問題，當(dāng)下位機(jī)返回值與貞尾字符一樣時(shí)就會(huì)讀取字符不全，造成錯(cuò)誤。
如 返回值：7B 00 0D 0C F0 00 00 2C 7D AA AA 06 7D  ;
當(dāng)?shù)?個(gè)字節(jié)與最后一個(gè)字節(jié)相同時(shí) 只讀取了第一個(gè)（7D）前面的字符這時(shí)就出錯(cuò)了。7至9字節(jié)是下位機(jī)返回的測量值。第十二字節(jié)是校驗(yàn)和，也有可能會(huì)出現(xiàn)（7D）字符。下位機(jī)還會(huì)返回設(shè)置完成的應(yīng)答字符串（7B 00 09 0C 5A 80 00 EF 7D)這個(gè)返回的值是固定的。

請教各位高手我要怎么來處理這個(gè)應(yīng)答。

當(dāng)應(yīng)答字符串中間有7D時(shí)這個(gè)循環(huán)就結(jié)束了 Loop Until (LoopCheck = CInt(&H7D))
7B 00 0D 0C F0 00 00 2C 7D
用什么條件來結(jié)束這個(gè)DO    L00P Until  不會(huì)出錯(cuò)呢？

引用

引用第3樓892777011于2015-06-24 20:14發(fā)表的  :
試試在這里加一個(gè)條件，當(dāng)接收的數(shù)據(jù)大于某個(gè)值并且  LoopCheck = CInt(&H7D))時(shí)再退出，例如  Loop Until (LoopCheck = CInt(&H7D) and i >10 )

是同下位機(jī)通訊，智能儀器，如果加個(gè)條件的話I>10 或其他的數(shù)的話，當(dāng)出現(xiàn)7D的話還是會(huì)出錯(cuò)的。因?yàn)榈诙�條應(yīng)答指令的結(jié)束符和第一條出現(xiàn)7D是在同一個(gè)位置的。大于這個(gè)位置的話 第二條指令就讀不到了 會(huì)不會(huì)。

我想要用有效字節(jié)數(shù)來判斷  7B 00 0D 0C F0 00 00 2C 7D AA AA 06 7D  就是第二和第三個(gè)字節(jié)， 即00 0D，當(dāng)?shù)谌齻�(gè)字節(jié)值= i 時(shí)就結(jié)束循環(huán) 認(rèn)為指令讀取完成，這個(gè)程序應(yīng)該怎么寫。