主题：串口数据传递问题

 write之后不一定马上就能得到数据啊

Dim Val() As Byte = New Byte(){&H68,&H00,&H21,&H13,&H00,&H80,&H13,&H68,&H01,&H02,&H44,&HE9,&HC7,&H16}
Ports("COM1").Write(Val, 0, Val.Length)

'-----------------------------------------------------------

Ports.Add("COM1")
With Ports("COM1")
.Close()
.Parity = Parity.Even
.Handshake = Handshake.None
.Encoding = Encoding.Default
.StopBits = StopBits.One
.BaudRate = 1200
.DataBits = 8
.ReadBufferSize() = 4096
.WriteBufferSize() = 2048
.Open
End With

Dim Val() As Byte = New Byte(){&H68,&H00,&H21,&H13,&H00,&H80,&H13,&H68,&H01,&H02,&H44,&HE9,&HC7,&H16}
Ports("COM1").Write(Val, 0, Val.Length)
Dim cnt As Integer = Ports("COM1").BytesToRead
If cnt > 0 Then '缓冲区是否有数据
    Dim rval(cnt - 1) As Byte
    Ports("COM1").Read(rval,0,cnt)
End If

1、msgbox(cnt)

2、http://www.foxtable.com/help/topics/1967.htm

 对你无语。18是长度，11楼的是显示长度。

 获取值以后，循环取出。

Dim cnt As Integer = Ports("COM1").BytesToRead
If cnt > 0 Then '缓冲区是否有数据
    Dim rval(cnt - 1) As Byte
    Ports("COM1").Read(rval,0,cnt)

    For each r As byte in rval

        msgbox(r)

    Next
End If