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

VB实现PC与单片机串口通信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 = FalseMSComm1.InBufferSize = 40 初始化串口MSComm1.InBufferCount = 0MSComm1.InputMode = comInputModeBinary 二进制方式MSComm1.CommPort = 1MSComm1.Settings = 9600,N,8,1MSComm1.RThreshold = 1MSComm1.InputLen =0 每次读入缓冲区所有字符If MSComm1.PortOpen = False ThenMSComm1.PortOpen = True 打开串口End IfEnd Sub2.添加8个Check并分别命名为LED1LED8 ，用于控制单片机的8个灯的状态 添加一个命令按钮Command“应用”用于确认信息无误后发送。Private Sub Command1_Click()Dim A,BA =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 * 8If MSComm1.PortOpen = False ThenMSComm1.PortOpen = True 打开串口End IfMSComm1.OutBufferCount = 0MSComm1.Output = Chr(CInt(B) 向单片机发送数据MSComm1.OutBufferCount = 0MSComm1.Output = Chr(CInt(A)End Sub本程序用了二进制方式传送数据，但传送的数据不能大于128，否则就会出错，所以小厮通过两次发送数据来实现（先发高四位，后发低四位），单片机接收到数字之后再进行相应的处理，转化为8位码控制灯的状态。3.添加Text，用于显示单片机返回的数据（在此只是为了演示接收）Private Sub MSComm1_OnComm()If MSComm1.CommEvent = comEvReceive ThenText1.Text =