Question

VB使用MScomm控件问题

With MSComm1
.CommPort = 1 '使用COM2
.Settings = "9600,n,8,1" '波特率9600，无偶校验，8个数据位，1个停止位
.InBufferSize = 10 '设置MyComm接收缓冲区为40个字节
.OutBufferSize = 1 '设置MyComm发送缓冲区为2个字节
.InputMode = comInputModeBinary '设置接收数据模式为二进制模式
.InputLen = 1 '设置一次从接收缓冲区读取字节数为1
.SThreshold = 1 '设置一次从发送缓冲区读取字节数为1
.PortOpen = True '打开通信口

Private Sub Command11_Click()
Dim i%
Dim vsend(12) As Byte '定义数组数型
Dim output(12) As String
'a5 00 12 00 07 7f 00 00 00 00 00 0a c5 打开串口1指令
vsend(0) = &HA5
vsend(1) = &H0
vsend(2) = &H12
vsend(3) = &H0
vsend(4) = &H7
vsend(5) = &H7F
vsend(6) = &H0
vsend(7) = &H0
vsend(8) = &H0
vsend(9) = &H0
vsend(10) = &H0
vsend(11) = &HA
vsend(12) = &HC5 '给数组赋值
MSComm1.OutBufferCount = 0 '清空发送数据缓冲区
If MSComm1.PortOpen = True Then
For i = 0 To 12
MSComm1.output = vsend(i) '发送数据到发送数据缓冲区
Next i
End If
End Sub

我上面这段代码发送的时候老是提示MSComm1.output = vsend(i)的vsend(i)值是无效值（380号错误）！我是个初学者，麻烦各位大哥帮帮小弟，小弟不胜感激！ 我想直接发送16进制数值！

Answer 1

Private Sub Command1_Click()
Dim i%
Dim vsend(12) As Byte, xu(1) As Byte '定义数组数型
Dim output(12) As String
'a5 00 12 00 07 7f 00 00 00 00 00 0a c5 打开串口1指令
vsend(0) = &HA5
vsend(1) = &H0
vsend(2) = &H12
vsend(3) = &H0
vsend(4) = &H7
vsend(5) = &H7F
vsend(6) = &H0
vsend(7) = &H0
vsend(8) = &H0
vsend(9) = &H0
vsend(10) = &H0
vsend(11) = &HA
vsend(12) = &HC5 '给数组赋值
MSComm1.OutBufferCount = 0 '清空发送数据缓冲区
If MSComm1.PortOpen = True Then
For i = 0 To 12
xu(0) = vsend(i)
MSComm1.output = xu '发送数据到发送数据缓冲区
Next i
End If

End Sub

Private Sub Form_Load()
With MSComm1
.CommPort = 1 '使用COM2
.Settings = "9600,n,8,1" '波特率9600，无偶校验，8个数据位，1个停止位
.InBufferSize = 10 '设置MyComm接收缓冲区为40个字节
.OutBufferSize = 1 '设置MyComm发送缓冲区为2个字节
.InputMode = comInputModeBinary '设置接收数据模式为二进制模式
.InputLen = 1 '设置一次从接收缓冲区读取字节数为1
.SThreshold = 1 '设置一次从发送缓冲区读取字节数为1
.PortOpen = True '打开通信口
End With
End Sub

程序是好了，不过你怎么给得是0分，忘记设置了吧