我的接收程序,经过实际验证过的 Private Sub MSComm2_OnComm() Dim str As String Select Case MSComm2.CommEvent Case comEvReceive MSComm2.InputMode = comInputModeBinary Dim i, j As Integer j = MSComm2.InBufferCount ReDim buffer(0 To j - 1) buffer = MSComm2.Input buffertem(buffercount) = buffer(i) End Subinputbuffersize设置为1 接收到的数据存到buffertem数组里面了
上面的程序还要定义2个变量 Public buffer() As Byte Public buffertem(0 To 100) As Byte
dim arr() as byte
arr=mscomm1.input如果MSComm1.InputMode等于comInputModeText,那么
dim s as string
s=mscomm1.input
设置 MSComm1.InputLen 设置要读取的数据长度下同楼上的
Private Sub MSComm2_OnComm()
Dim str As String
Select Case MSComm2.CommEvent
Case comEvReceive
MSComm2.InputMode = comInputModeBinary
Dim i, j As Integer
j = MSComm2.InBufferCount
ReDim buffer(0 To j - 1)
buffer = MSComm2.Input
buffertem(buffercount) = buffer(i)
End Subinputbuffersize设置为1
接收到的数据存到buffertem数组里面了
Public buffer() As Byte
Public buffertem(0 To 100) As Byte