Question

vb中mscomm以二进制发送数据和将串口2.3连接怎么用vb以二进制接收 求程序

dim bytdata（） as byte
Private Sub cmdSend_Click()
bytData(0) = Val(Text8.Text)

bytData(1) = Val(Text1.Text)
bytData(2) = Val(Text2.Text)
bytData(3) = Val(Text3.Text)
bytData(4) = Val(Text4.Text)
bytData(5) = Val(Text5.Text)
bytData(6) = Val(Text6.Text)
bytData(7) = Val(Text7.Text)

Call SendData(bytData())

End Sub

Public Function SendData(ByRef bytData() As Byte) As Long

On Error Resume Next

MSComm1.InBufferCount = 0 '清空接收缓冲区

MSComm1.Output = bytData '发送数据

Do

DoEvents

Loop Until MSComm1.OutBufferCount = 0 '等待，直到数据发送完毕
MSComm1.OutBufferCount = 0 '清空发送缓冲区

End Function

Answer 1

接收 可以 写 OnComm 事件

推荐看书
Visual_Basic与_RS-232_串行通信控制