协议如下：
发送十进制数“11”则P17变低电平（发光管点亮）
发送十进制数“12”则P17变高电平（发光管熄灭）
发送十进制数“13”则P16变低电平（发光管点亮）
发送十进制数“14”则P16变高电平（发光管熄灭）

上位机中用一个Check控件表示，打勾表示有效，即使发光管亮。实验中用了Check1和Check2分别控制P17和P16，VB实验程序如下：（波特率4800）
Private Sub Check1_Click()
If Check1.value = 1 Then
MSComm1.Output = send(0)
Else
MSComm1.Output = send(1)
End If
End Sub

Private Sub Check2_Click()
If Check2.value = 1 Then
MSComm1.Output = send(2)
Else
MSComm1.Output = send(3)
End If
End Sub

Private Sub Form_Load()
MSComm1.PortOpen = True
Dim buf As Byte
Dim send(4) As Byte
send(0) = 11
send(1) = 12
send(2) = 13
send(3) = 14
End Sub
VB调试时发现串口发送数据时有问题，如：MSComm1.Output  ......

>>返回讨论的主题