|
VB进行串口的关键在于MScomm控件，下面小厮先就MScomm控件进行介绍。
每个MSComm控件对应于一个串行端口。使用多个串行口时，要使用多个MSComm控件。MSComm控件的主要属性及说明如下。
| 属性 |
说明 |
| CommPort |
设置并返回通信端口号 |
| Settings |
以字符串的形式设置并返回波特率、奇偶校验、数据位、停止位 |
| PortOpen |
设置并返回通信端口的状态。也可以打开和关闭端口 |
| Input |
从接收缓冲区返回字符 |
| Output |
向传输缓冲区写一个字符 |
“工程”——“部件”，选中Microsoft Comm control 6.0，“确定”，完成MSComm控件的添加。
有两种处理通信的方式：
(1)事件驱动。利用OnComm事件捕获并处理通信事件，所有的通信事件和通信错误列表都包含在控件的CommEvent属性中。
(2)查询方式。在程序关键功能之后，通过检查CommEvent的值来查询事件和错误。
下面小厮就自己编写的一简单程序展开讲解。
1.添加MScomm控件，并在窗体装入时进行初始化
Private Sub Form_Load()
Timer1.Enabled = False
MSComm1.InBufferSize = 40 '初始化串口
MSComm1.InBufferCount = 0
MSComm1.InputMode = comInputModeBinary '二进制方式
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.RThreshold = 1
MSComm1.InputLen = 0 '每次读入缓冲区所有字符
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True '打开串口
End If
End Sub
2.添加8个Check并分别命名为LED1——LED8 ，用于控制单片机的8个灯的状态
添加一个命令按钮Command“应用”用于确认信息无误后发送。
Private Sub Command1_Click()
Dim A,B
A =Check1(0).Value + Check1(1).Value * 2 + Check1(2).Value * 4 + Check1(3).Value * 8
B = Check1(4).Value + Check1(5).Value * 2 + Check1(6).Value * 4 + Check1(7).Value * 8
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True '打开串口
End If
MSComm1.OutBufferCount = 0
MSComm1.Output = Chr(CInt(B)) '向单片机发送数据
MSComm1.OutBufferCount = 0
MSComm1.Output = Chr(CInt(A))
End Sub
本程序用了二进制方式传送数据，但传送的数据不能大于128，否则就会出错，所以小厮通过两次发送数据来实现（先发高四位，后发低四位），单片机接收到数字之后再进行相应的处理，转化为8位码控制灯的状态。
3.添加Text，用于显示单片机返回的数据（在此只是为了演示接收）
Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
Text1.Text = AscB(MSComm1.Input)
End If
MSComm1.InBufferCount = 0
End Sub
写好单片机程序后，连接串口，运行即可。
| 
