UC知道VB MScomm 控件如何一次发送多个字节
来源：百度知道 编辑：UC知道 时间：2024/05/28 08:25:15
以下是我的程序，可是每次按下按键后只发送a(0)字节，为什么，应该如何解决，谢谢~
Private Sub Command2_Click()
MSComm1.PortOpen = False '关闭串口
Unload Form1 '卸载form1
End Sub
Private Sub Command3_Click()
'Timer1.Enabled = True
'i = 0
Dim a() As Byte
ReDim a(4)
a(0) = &HA1
a(1) = &HA1
a(2) = &HA2
a(3) = &HA3
MSComm1.Output = a
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1 '设置串口为com1
MSComm1.Settings = "9600,n,8,1" '通讯参数 波特率 奇偶校验 数据位 停止位
MSComm1.InputMode = comInputModeBinary '二进制接收
MSComm1.PortOpen = True '打开串口
MSComm1.InBufferCount = 0 '清空接收缓冲区
MSComm1.RThreshold = 1 '缓冲区中接收到一个字符，就产生一次OnComm事件
End Sub
Private Sub MSComm1_OnComm()
Dim indata As Variant '定义变量
Dim arr(0) As Byte '定义字节数组
Select Case MSComm1.CommEvent ''CommEvent属性：返回最近的通讯事件或错误。通过对它具体属性值的查询，我们就可以获得通讯事件和通 讯错误的完整信息。当其值是comEvRece
Private Sub Command2_Click()
MSComm1.PortOpen = False '关闭串口
Unload Form1 '卸载form1
End Sub
Private Sub Command3_Click()
'Timer1.Enabled = True
'i = 0
Dim a() As Byte
ReDim a(4)
a(0) = &HA1
a(1) = &HA1
a(2) = &HA2
a(3) = &HA3
MSComm1.Output = a
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1 '设置串口为com1
MSComm1.Settings = "9600,n,8,1" '通讯参数 波特率 奇偶校验 数据位 停止位
MSComm1.InputMode = comInputModeBinary '二进制接收
MSComm1.PortOpen = True '打开串口
MSComm1.InBufferCount = 0 '清空接收缓冲区
MSComm1.RThreshold = 1 '缓冲区中接收到一个字符，就产生一次OnComm事件
End Sub
Private Sub MSComm1_OnComm()
Dim indata As Variant '定义变量
Dim arr(0) As Byte '定义字节数组
Select Case MSComm1.CommEvent ''CommEvent属性：返回最近的通讯事件或错误。通过对它具体属性值的查询，我们就可以获得通讯事件和通 讯错误的完整信息。当其值是comEvRece
LZ：你是接收代码的问题：
Private Sub MSComm1_OnComm()
Dim indata As Variant '定义变量
Dim arr() As Byte '定义字节数组
Dim i As Integer
Select Case MSComm1.CommEvent ''CommEvent属性：返回最近的通讯事件或错误。通过对它具体属性值的查询，我们就可以获得通讯事件和通 讯错误的完整信息。当其值是comEvReceive时表示接收到数据。
Case comEvReceive '有接收事件
indata = MSComm1.Input '接收到的数据存放到indata里
arr = indata '返回indata的值
For i = 0 To UBound(arr)
If Len(Hex(arr(i))) = 1 Then
Text2.Text = Text2.Text & "0" & Hex(arr(i)) '在text2中显示数据
Else
Text2.Text = Text2.Text & Hex(arr(i)) '在text2中显示数据
End If
Next
MSComm1.InBufferCount = 0 ' 清空接收缓冲区
End Select
End Sub
此外你发送4字节应该
ReDim a(3)，不然会发送5字节，多了个&H0