VB使用MScomm控件问题

来源：百度知道 编辑：UC知道 时间：2024/06/18 08:12:38
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 '给数组赋

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 =