VB实现PC与单片机串口通信

VB进行串口的关键在于MScomm控件，下面小厮先就MScomm控件进行介绍。

每个MSComm控件对应于一个串行端口。使用多个串行口时，要使用多个MSComm控件。MSComm控件的主要属性及说明如下。

“工程”——“部件”，选中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

写好单片机程序后，连接串口，运行即可。