對(duì)VB不是很了解,現(xiàn)遇到個(gè)讀取端口數(shù)據(jù)處理的問(wèn)題。
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)檢測(cè)的變量
cnum = 0
I = 0
FormMain.TimerRcvDelay.Enabled = True '接收延時(shí)計(jì)時(shí)器打開(kāi)
LoopCheck = 0
strRcv = ""
InputRcv = ""
FormMain.MSComm1.InputLen = 1 '逐個(gè)讀取字符。
'接收操作,循環(huán)
Do
DoEvents '當(dāng)COM端口不對(duì)時(shí),DO..loop循環(huán)便執(zhí)行該空操作,若無(wú)此句,陷入死循環(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)條件的檢測(cè),不可直接用InputRcv來(lái)檢測(cè),因?yàn)镃OM端口不對(duì)時(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 '顯示到主頁(yè)面
ReceiveData = strRcv '返回函數(shù)值
Exit Function
ERROR:
MsgBox "無(wú)法接收下位機(jī)響應(yīng)數(shù)據(jù),請(qǐng)更換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
這段程序一般情況下沒(méi)什么問(wèn)題,當(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ī)返回的測(cè)量值。第十二字節(jié)是校驗(yàn)和,也有可能會(huì)出現(xiàn)(7D)字符。下位機(jī)還會(huì)返回設(shè)置完成的應(yīng)答字符串(7B 00 09 0C 5A 80 00 EF 7D)這個(gè)返回的值是固定的。
請(qǐng)教各位高手我要怎么來(lái)處理這個(gè)應(yīng)答。