成人精品一区二区久久久 I 国产美女永久无遮挡 I 中文字幕+乱码+中文字幕明步 I 国产在视频一区二区三区吞精 I 日韩精品小视频 I 成人性生交大片免费4 I 免费aaa级毛片在线视频 I 一级片毛片 I 大型成人社区 I 国模在线播放 I 欧美大荫蒂毛茸茸视频 I 偷偷色噜狠狠狠狠的777米奇 I www.久久亚洲 I 日日搞夜夜操 I 亚洲成色777777女色窝 I 毛片黄色毛片 I 午夜片在线观看 I 国产一区二区三区中文字幕 I 天天干夜夜骑 I 日韩在线视频一区二区三区 I 久久久无码精品亚洲a片0000 I 写真福利片hd在线播放 I 欧美成人一区二免费视频 I 色噜噜狠狠爱综合视频 I 中文字幕无线码免费人妻 I 国产精品久久久久久久久久不蜜臀 I 欧美综合人人做人人爱 I 1024成人网色www I 国产精品视频一二三区 I 亚洲免费美女视频

  對VB不是很了解，現遇到個讀取端口數據處理的問題。

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

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

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

請教各位高手我要怎么來處理這個應答。

當應答字符串中間有7D時這個循環就結束了 Loop Until (LoopCheck = CInt(&H7D))
7B 00 0D 0C F0 00 00 2C 7D
用什么條件來結束這個DO    L00P Until  不會出錯呢？

引用

引用第1樓liufuyao1234于2015-06-24 19:35發表的  :
當應答字符串中間有7D時這個循環就結束了 Loop Until (LoopCheck = CInt(&H7D))
7B 00 0D 0C F0 00 00 2C 7D
用什么條件來結束這個DO    L00P Until  不會出錯呢？

你是和什么通訊的，我用vb和基恩士GT2通訊是直接讀取MSComm1.Input接受到的數據，VB會自動把接收到的通訊碼轉換為字符和十進制數值，再用字符串指令取出數值就行了，沒有你這么麻煩啊

試試在這里加一個條件，當接收的數據大于某個值并且  LoopCheck = CInt(&H7D))時再退出，例如  Loop Until (LoopCheck = CInt(&H7D) and i >10 )

引用

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

是同下位機通訊，智能儀器，如果加個條件的話I>10 或其他的數的話，當出現7D的話還是會出錯的。因為第二條應答指令的結束符和第一條出現7D是在同一個位置的。大于這個位置的話 第二條指令就讀不到了 會不會。

我想要用有效字節數來判斷  7B 00 0D 0C F0 00 00 2C 7D AA AA 06 7D  就是第二和第三個字節， 即00 0D，當第三個字節值= i 時就結束循環 認為指令讀取完成，這個程序應該怎么寫。