日本JAPANESE熟睡人妻_久久99热只有频精品6狠狠_欧美一区内射最近更新_美女露100‰奶头18禁_日韩性生活一级片_国产三级无码内射在线看

liufuyao1234
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 128 個
工控威望: 443 點
下載積分: 747 分
在線時間: 120(小時)
注冊時間: 2011-03-24
最后登錄: 2024-10-16
查看liufuyao1234的 主題 / 回貼
樓主  發(fā)表于: 2015-06-24 15:35
  對VB不是很了解,現(xiàn)遇到個讀取端口數(shù)據(jù)處理的問題。

Public Function ReceiveData() As String
    Dim I As Integer                    '
    Dim cnum As Integer                 '定義為接收到的字符個數(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           '接收延時計時器打開
    LoopCheck = 0
    strRcv = ""
    InputRcv = ""

    FormMain.MSComm1.InputLen = 1                                '逐個讀取字符。
    '接收操作,循環(huán)
    Do
        DoEvents                                             '當(dāng)COM端口不對時,DO..loop循環(huán)便執(zhí)行該空操作,若無此句,陷入死循環(huán)
        If DelayTime > 2000 Then GoTo ERROR             '超時1s 提示錯誤
        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來檢測,因為COM端口不對時,InputRcv = FORMMAIN.MSComm1.Input 不執(zhí)行,InputRcv(0)為可變型,而AscB("}")為Byte類型,產(chǎn)生數(shù)據(jù)類型不匹配的錯誤
        End If
   Loop Until (LoopCheck = CInt(&H7D))            '條件中的單變量 要變?yōu)椋?),即InputRcv -》InputRcv(0),不知道為什么???
    
    FormMain.TimerRcvDelay.Enabled = False              '數(shù)據(jù)接收完畢后,延時定時器停止
    DelayTime = 0                                       '延時計時器清零
        cnum = I                                            '字符個數(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ù)一位時前面+"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                       '延時定時器停止
    DelayTime = 0                                       '延時計時器清零

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

請教各位高手我要怎么來處理這個應(yīng)答。
liufuyao1234
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 128 個
工控威望: 443 點
下載積分: 747 分
在線時間: 120(小時)
注冊時間: 2011-03-24
最后登錄: 2024-10-16
查看liufuyao1234的 主題 / 回貼
1樓  發(fā)表于: 2015-06-24 19:35
當(dāng)應(yīng)答字符串中間有7D時這個循環(huán)就結(jié)束了 Loop Until (LoopCheck = CInt(&H7D))
7B 00 0D 0C F0 00 00 2C 7D
用什么條件來結(jié)束這個DO    L00P Until  不會出錯呢?
892777011
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 213 個
工控威望: 334 點
下載積分: 1052 分
在線時間: 181(小時)
注冊時間: 2014-06-24
最后登錄: 2021-11-21
查看892777011的 主題 / 回貼
2樓  發(fā)表于: 2015-06-24 20:11
引用
引用第1樓liufuyao1234于2015-06-24 19:35發(fā)表的  :
當(dāng)應(yīng)答字符串中間有7D時這個循環(huán)就結(jié)束了 Loop Until (LoopCheck = CInt(&H7D))
7B 00 0D 0C F0 00 00 2C 7D
用什么條件來結(jié)束這個DO    L00P Until  不會出錯呢?

你是和什么通訊的,我用vb和基恩士GT2通訊是直接讀取MSComm1.Input接受到的數(shù)據(jù),VB會自動把接收到的通訊碼轉(zhuǎn)換為字符和十進(jìn)制數(shù)值,再用字符串指令取出數(shù)值就行了,沒有你這么麻煩啊
892777011
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 213 個
工控威望: 334 點
下載積分: 1052 分
在線時間: 181(小時)
注冊時間: 2014-06-24
最后登錄: 2021-11-21
查看892777011的 主題 / 回貼
3樓  發(fā)表于: 2015-06-24 20:14
試試在這里加一個條件,當(dāng)接收的數(shù)據(jù)大于某個值并且  LoopCheck = CInt(&H7D))時再退出,例如  Loop Until (LoopCheck = CInt(&H7D) and i >10 )
liufuyao1234
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 128 個
工控威望: 443 點
下載積分: 747 分
在線時間: 120(小時)
注冊時間: 2011-03-24
最后登錄: 2024-10-16
查看liufuyao1234的 主題 / 回貼
4樓  發(fā)表于: 2015-06-24 21:20
引用
引用第3樓892777011于2015-06-24 20:14發(fā)表的  :
試試在這里加一個條件,當(dāng)接收的數(shù)據(jù)大于某個值并且  LoopCheck = CInt(&H7D))時再退出,例如  Loop Until (LoopCheck = CInt(&H7D) and i >10 )

是同下位機(jī)通訊,智能儀器,如果加個條件的話I>10 或其他的數(shù)的話,當(dāng)出現(xiàn)7D的話還是會出錯的。因為第二條應(yīng)答指令的結(jié)束符和第一條出現(xiàn)7D是在同一個位置的。大于這個位置的話 第二條指令就讀不到了 會不會。
liufuyao1234
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 128 個
工控威望: 443 點
下載積分: 747 分
在線時間: 120(小時)
注冊時間: 2011-03-24
最后登錄: 2024-10-16
查看liufuyao1234的 主題 / 回貼
5樓  發(fā)表于: 2015-06-24 21:26
我想要用有效字節(jié)數(shù)來判斷  7B 00 0D 0C F0 00 00 2C 7D AA AA 06 7D  就是第二和第三個字節(jié), 即00 0D,當(dāng)?shù)谌齻字節(jié)值= i 時就結(jié)束循環(huán) 認(rèn)為指令讀取完成,這個程序應(yīng)該怎么寫。

主站蜘蛛池模板: 亚洲国产精品无码专区成人 | 高潮插的我好爽再干噢在线欢看 | 特级做A爰片毛片免费69 | 免费国产a | 麻豆免费在线看 | 亚洲欧洲老熟女AV | 亚洲砖码砖专无区2023 | 国产高清在线一区 | 亚洲一区二区无码影院 | 18禁啪啪无遮挡网站 | 久久AV无码精品人妻出轨 | 人禽l交免费视频 | 亚洲国产91色在线 | 亚洲AV无码乱码国产麻豆 | 夜夜骑天天射 | 黄色一级免费片 | 亚洲av不卡无码国产 | 99re国产精品 | 国产福利九一精品 | 向往的生活第2季免费观看 男生戳美女两腿中间那个视频 | 国产在线高清网址导航 | 国内自产拍自拍A免费毛片 高清亚洲日韩东京热Av | 国产99久久一区二区三区 | 一区二区三区在线播放 | 国产福利视频一区二区 | 美女张开腿黄网站免费 | 欧美疯狂做受xxxx高潮 | 网友自拍区视频精品 | 日本久久久久亚洲中字幕 | 黄色的视频免费观看 | 久久精品国产亚洲AV日韩 | 又污又黄无遮掩的网站 | 国产亚洲3P无码一区二区 | www高清在线视频日韩欧美 | 夜先锋av资源网站 | 加勒比久久高清 | 精品乱码久久久久久久 | 91精品国产乱码在线观看 | 国内黄色片 | 欧美精品首页 | 在线日韩av |