串口读取数据不完整该如何解决？？？？？？？？？？

wxl565 2011-03-25 11:21:09

串口控件comm事件
Private Sub Comm_OnComm()
Dim tempstr As String
Select Case Comm.CommEvent
Case comEvReceive
tempstr = Comm.Input
End Select
End Sub
因为返回在是字符串较长，tempstr有时候读取不完整，该如何解决？
是否需要加定时器，加延时定时器该如何加？

...全文

770 20 打赏收藏转发到动态举报

写回复

用AI写文章

20 条回复

切换为时间正序

请发表友善的回复…

发表回复

zdingyun 2011-03-25

打赏
举报

将Dim tempstr As String变量定义句放窗体声明处然后



Private Sub Comm_OnComm()

    Select Case Comm.CommEvent  

        Case comEvReceive

            tempstr = tempstr + Comm.Input

    End Select

End Sub

心匪石不可转 2011-03-25

打赏
举报

有可能在你处理的时候，接收那里又满了，但事件没能及时触发

zdingyun 2011-03-25

打赏
举报

tempstr = tempstr + Comm.Input

wxl565 2011-03-25

打赏
举报

有十几位吧，不加任何延时在话有时候只能收取到一两位

flfq 2011-03-25

打赏
举报

字符串有多长？

心匪石不可转 2011-03-25

打赏
举报

应该扩大接收缓存区

嗷嗷叫的老马 2011-03-25

打赏
举报

[Quote=引用 9 楼 wxl565 的回复:]
返回的数据长度不一致，但都是以空格回车结尾
[/Quote]
二进制方式接收,再把所有接收到的内容都存着,直到发现了空格+回车后截断为一个字符串,扔给处理过程

剩下的继续接收追加,等待下一个空格+回车.

贝隆 2011-03-25

打赏
举报



Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'串口属性设置，根据你的实际情况修改

Private Sub Form_Load()

    With MSComm1

        .CommPort = 1

        .Settings = "9600,n,8,1"

        .InBufferSize = 1024

        .OutBufferSize = 1024

        .InputLen = 1

        .RThreshold = 1

        .InputMode = comInputModeBinary

        .PortOpen = True

    End With

End Sub

'用中断方式接收数据

Private Sub MSComm1_OnComm()

    Dim intP As Integer

    Dim varP As Variant

    Dim ReadByte(0 To 1023) As Byte     '定义一个足够大的数组，用来接收串口数据

    If MSComm1.CommEvent = 2 Then

        MSComm1.RThreshold = 0

        Sleep 20

        For intP = 0 To MSComm1.InBufferCount - 1

            If varP <> Null Then varP = Null

            varP = MSComm1.Input

            ReadByte(intP) = varP(0)

        Next intP

        MSComm1.RThreshold = 1

    End If

End Sub