串口发送

[liumang12]

Dim MyData(255) As Byte

For i = 0 To 31

MyData(i) = data(i)

Next i

MSComm1.Output = MyData

Do

DoEvents

Loop Until MSComm1.OutBufferCount = 0
这是我串口的发送部分。位什么每次都发256个，我只要发送32个就可以，怎么设置哦？谢谢！

[slowgrace]

Dim MyData(31) As Byte 

[liumang12]

谢谢

[贝隆]

。。。。。。。