VB 串口通信 MSComm控件的使用

当前位置:

首页 > temp > 简明python教程 >

VB 串口通信 MSComm控件的使用

串口通信控件简介

　　MSComm 控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能。MSComm控件在串口编程时非常方便，程序员不必去花时间去了解较为复杂的API函数，而且在VC、VB、Delphi等语言中均可使用。 Microsoft Communications Control（以下简称MSComm）是Microsoft公司提供的简化Windows下串行通信编程的ActiveX控件，它为应用程序提供了通过串行接口收发数据的简便方法。

　　由于MSComm控件不是标准控件，要使用它就必须将MSComm控件添加到控件工具箱中

　　添加控件的方法：选择“工程”|“部件”命令，在出现的“部件”对话框中选择“Microsoft Comm Controls 6.0”

选择并单击“确定”按钮。这时候MSComm控件就被添加到VB的控件工具箱中了。如右图：（在图中那个电话标识）

　　串口的初始化：

				
				1 With MSComm1 '初始化串口 2  　　.CommPort = 1 3 　　.Settings = "19200,N,8,1" 4 　　.OutBufferSize = 1024 5 　　.InBufferSize = 1024 6 　　.PortOpen = True 7 End With

　　在上述初始化中完成了：

　　　　设置通信端口，

　　　　串口通信参数（波特率、奇偶校验、数据位、停止位），

　　　　接收缓冲区的字节数，

　　　　传输缓冲区的字节数，

　　　　设置端口的状态为打开。

　　上述初始化放在窗体加载中完成。

　　数据的传输：

在这里，我们先添加2个按钮控件，1个文本控件，1个标签控件。

　　点击“生成串号”按钮，读取到当前日期，显示在文本控件中。

				1 Private Sub Command1_Click() 2  Dim time_now1 As Date 3  time_now1 = Now 4  Text1.Text = Format(time_now1, "yyyymmdd") 5  used_data = False 6 End Sub

　　used_data为一个全局变量，目的是避免一次的数据发送好几次。（这是为了满足我的一个特殊要求，可不重点考虑）。

　　点击“烧写串号”按钮

				
				1 Private Sub Command2_Click() 2 3  If used_data = False Then 4  MSComm1.Output = Text1.Text '发送数据  5  MsgBox "发送成功", vbInformation, "OK" 6  used_data = True '表示已发送，数据需要更新才能再发送 7  End If 8 9 End Sub

　　将文本控件中的内容赋值给MSComm的发送寄存器中，就能将数据发送出去。

　　如果想接收串口发来的数据，可以使用MSComm的接收寄存器Input。使用显示文本中的数据验证接收的数据的正确性。

				1 Label2.Caption = MSComm1.Input

　　好了，这次就先写到这里啦。

栏目列表