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

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 Sub 2.添加8个Check并分别命名为LED1——LED8 ，用于控制单片机的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 = AscB(MSComm1.Input)?????????????End IfMSComm1.InBufferCount = 0 End Sub 写好单片机程序后，连接串口，运行即可。