liufuyao1234
級別: 略有小成
![]() |
對VB不是很了解,現遇到個(gè)讀取端口數據處理的問(wèn)題。 Public Function ReceiveData() As String Dim I As Integer ' Dim cnum As Integer '定義為接收到的字符個(gè)數 Dim ChRcv(1 To 100) As String * 2 '定義為 Dim strRcv As String '定義為接收字符的存放字符串 Dim InputRcv As Variant '定義為接收緩沖區數據的暫存處 Dim LoopCheck As Byte '定義為用于循環(huán)檢測的變量 cnum = 0 I = 0 FormMain.TimerRcvDelay.Enabled = True '接收延時(shí)計時(shí)器打開(kāi) LoopCheck = 0 strRcv = "" InputRcv = "" FormMain.MSComm1.InputLen = 1 '逐個(gè)讀取字符。 '接收操作,循環(huán) Do DoEvents '當COM端口不對時(shí),DO..loop循環(huán)便執行該空操作,若無(wú)此句,陷入死循環(huán) If DelayTime > 2000 Then GoTo ERROR '超時(shí)1s 提示錯誤 If FormMain.MSComm1.InBufferCount > 0 Then '判斷接收緩存字節>0 InputRcv = FormMain.MSComm1.Input I = I + 1 DataRcv(I) = InputRcv(0) LoopCheck = InputRcv(0) 'LoopCheck變量用于循環(huán)條件的檢測,不可直接用InputRcv來(lái)檢測,因為COM端口不對時(shí),InputRcv = FORMMAIN.MSComm1.Input 不執行,InputRcv(0)為可變型,而AscB("}")為Byte類(lèi)型,產(chǎn)生數據類(lèi)型不匹配的錯誤 End If Loop Until (LoopCheck = CInt(&H7D)) '條件中的單變量 要變?yōu)椋?),即InputRcv -》InputRcv(0),不知道為什么??? FormMain.TimerRcvDelay.Enabled = False '數據接收完畢后,延時(shí)定時(shí)器停止 DelayTime = 0 '延時(shí)計時(shí)器清零 cnum = I '字符個(gè)數 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 '顯示到主頁(yè)面 ReceiveData = strRcv '返回函數值 Exit Function ERROR: MsgBox "無(wú)法接收下位機響應數據,請更換COM端口或檢查接線(xiàn)!", vbOKOnly, "通知你" If FormMain.MSComm1.PortOpen = True Then FormMain.MSComm1.PortOpen = False FormMain.TimerRcvDelay.Enabled = False '延時(shí)定時(shí)器停止 DelayTime = 0 '延時(shí)計時(shí)器清零 End Function 這段程序一般情況下沒(méi)什么問(wèn)題,當下位機返回值與貞尾字符一樣時(shí)就會(huì )讀取字符不全,造成錯誤。 如 返回值:7B 00 0D 0C F0 00 00 2C 7D AA AA 06 7D ; 當第9個(gè)字節與最后一個(gè)字節相同時(shí) 只讀取了第一個(gè)(7D)前面的字符這時(shí)就出錯了。7至9字節是下位機返回的測量值。第十二字節是校驗和,也有可能會(huì )出現(7D)字符。下位機還會(huì )返回設置完成的應答字符串(7B 00 09 0C 5A 80 00 EF 7D)這個(gè)返回的值是固定的。 請教各位高手我要怎么來(lái)處理這個(gè)應答。 |
---|---|
|
liufuyao1234
級別: 略有小成
![]() |
當應答字符串中間有7D時(shí)這個(gè)循環(huán)就結束了 Loop Until (LoopCheck = CInt(&H7D)) 7B 00 0D 0C F0 00 00 2C 7D 用什么條件來(lái)結束這個(gè)DO L00P Until 不會(huì )出錯呢? |
---|---|
|
892777011
級別: 略有小成
![]() |
你是和什么通訊的,我用vb和基恩士GT2通訊是直接讀取MSComm1.Input接受到的數據,VB會(huì )自動(dòng)把接收到的通訊碼轉換為字符和十進(jìn)制數值,再用字符串指令取出數值就行了,沒(méi)有你這么麻煩啊 |
---|---|
|
892777011
級別: 略有小成
![]() |
試試在這里加一個(gè)條件,當接收的數據大于某個(gè)值并且 LoopCheck = CInt(&H7D))時(shí)再退出,例如 Loop Until (LoopCheck = CInt(&H7D) and i >10 ) |
---|---|
|
liufuyao1234
級別: 略有小成
![]() |
是同下位機通訊,智能儀器,如果加個(gè)條件的話(huà)I>10 或其他的數的話(huà),當出現7D的話(huà)還是會(huì )出錯的。因為第二條應答指令的結束符和第一條出現7D是在同一個(gè)位置的。大于這個(gè)位置的話(huà) 第二條指令就讀不到了 會(huì )不會(huì )。 |
---|---|
|