求助 用VB编写串口通讯

[qq_42336883]

接受部分 每次都不能完整的接受第一个数据

Dim buffer As String
Dim cando As Boolean
Do Until Len(MSComm1.Input) > 0
Text2.Text = "未检测到数据！"
DoEvents
Loop
Text2.Text = "正在接受数据，请稍等......."
Do Until cando = True
Sleep 1000
If MSComm1.InBufferCount <> 0 Then
buffer = buffer + MSComm1.Input
Else
cando = True
Text2.Text = "数据接收完毕！"
End If
Text1.Text = buffer
DoEvents
'Wend

发送部分 仪器没办法接受到数据

Open CommonDialog2.FileName For Input As #5

Do Until EOF(5)
DoEvents
Line Input #5, Ls3
Text2.Text = Ls3
MSComm1.Output = Ls3
Sleep 100
Loop



求各位大佬帮忙

[脆皮大雪糕]

串口参数到底设置对了没有

[qq_42336883]

参数设置对的

[笨狗先飞]

问题比较多，懒的说了，接收部分至少也该是这样写的。

Private Sub MSComm1_OnComm()
    Dim C As Long, Data() As Byte
    Select Case MSComm1.CommEvent
        Case comEvReceive
            Do
                C = MSComm1.InBufferCount
                Sleep 10
            Loop Until C = MSComm1.InBufferCount
            Data = MSComm1.Input
           '一般接收代码需要这样处理，虽然你收到的是asc字符，但是最好用一个数组来接收，然后转成string，ascii值在128~254的符号用字符串来接收是可能丢失的
        Case Else
    End Select
End Sub