新VB串口通信程序设计典型实例{修}.pdf
《新VB串口通信程序设计典型实例{修}.pdf》由会员分享,可在线阅读,更多相关《新VB串口通信程序设计典型实例{修}.pdf(36页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、VB 串口通信程序设计典型实例利用 VB 开发串口通信程序既可以使用MSComm控件也可以调用 Windows API函数实现。不过,只要 MSComm 控件可以被选用,我们推荐选择此控件实现,因为 MSComm 控件的功能和 API 调用一样强,甚至比它还好且使用起来更加简单。在本章提供的串口通信程序设计中,除了PC 与 PC 串口通信外,PC 与单片机、PC 与智能仪表、PC 与 PLC、PC 与 GSM 短信模块等串口通信任务的实现均采用MSComm控件。6.1PC 与 PC 串口通信程序设计当两台串口设备通信距离较近时,可以直接连接,最简单的情况,在通信中只需 3 根线(发送线、接收线
2、、信号地线)便可实现全双工异步串行通信。本设计通过两台 PC 串口 3 线连接,介绍了利用 API 函数和 MSComm 控件设计串口通信程序的方法,包括字符与文件的发送与接收。6.1.1PC 与 PC 串口通信程序设计目的(1)掌握 PC 与 PC 串口通信的线路连接方法。(2)利用 MSComm 控件和 API 函数实现 PC 与 PC 串口通信的程序设计方法。6.1.2PC 与 PC 串口通信程序设计用软、硬件本设计用到的硬件和软件清单如表6-1 所示。表 6-1序号123PC 或 IPC串口通信线(三线制)Visual Basic 6.0设计用软、硬件名称数量2116.1.3PC 与
3、PC 串口通信程序硬件线路图线路说明,在计算机通电前,按图6-1 所示将两台 PC 通过串口线连接起来:计算机A串口 COM1 端口的 TXD 与计算机B 串口COM1端口的RXD相连,计算机A 串口 COM1 端口的 RXD 与计算机 B 串口 COM1 端口的 TXD 相连,计算机 A 串口 COM1 端口的 GND 与计算机 B 串口 COM1 端口的 GND 相连。PC机AA计算机PC机BB计算机TXDCOM1RXDGNDTXDRXDGNDCOM1图 6-1PC 与 PC 串口通信线路6.1.4设计任务利用 MSComm控件和 VB API函数编写程序实现 PC 与 PC 串口通信。任
4、务要求,两台计算机互发字符并自动接收,如一台计算机输入字符串“Please returnabc123”,单击“发送字符”命令,另一台计算机若收到,就输入字符串“abc123”,单击“发送字符”命令,信息返回到第一组的计算机。实际上就是编写一个简单的双机聊天程序。6.1.5任务实现6.1.5.1利用 MSComm 控件实现字符型数据发送与接收1建立新工程VB 使用“工程”来管理每一个应用程序要使用的所有文件,每建立一个新程序,就要新建一个工程。一个工程由窗体、标准模块、控件及应用所需的开发环境设置等组成。运行 VB 程序,出现“新建工程”对话框,选择“标准 EXE”,单击“打开”命令按钮,进入
5、VB 工程集成开发环境,窗体设计器中自动出现一个名为Form1 的空白窗体。2程序界面设计向空白窗体添加各种控件,以完成预定的各种功能。开始一个项目的设计时,VB 的工具箱中会有许多默认的控件让设计者予以选用,这些原本就出现在工具箱中的控件是内置控件,它提供了一些基本的系统设计组件给设计者,但功能比较特别的控件就不会出现在其中,如用来设计串口通信功能的控件MSComm 就不在其中。(1)添加串口通信控件 MSComm。由于 VB 的串行通信组件并不会主动出现在工具箱里中,当我们需要 MSComm控件时,首先要把它加入到工具箱中。让 MSComm 控件出现在工具箱中的步骤如下。选择“工程”菜单下
6、的“部件”子菜单,在弹出的“部件”对话框中,在“控件”选项卡属性中选中“Microsoft Comm Control 6.0”复选框,单击“确定”按钮后,在工具箱中就出现了一个形似“电话”的图标,它就是MSComm 控件。工具箱中有了 MSComm 控件,就可以选择 MSComm 控件的图标后将其添加到程序窗体上,利用该控件编程,PC 就可以通过 VB 实现与串口设备的串口通信了。由于每个使用的 MSComm 控件对应着一个串行端口,如图 6-2程序窗体界面果应用程序需要访问多个串行端口,必须添加多个MSComm 控件。(2)为了实现连续的自动接收,将工具箱中的Timer控件添加到程序窗体上。
7、(3)添加两个文本框控件:Text1 和 Text2,用于输入要发送的字符和显示要接收的字符。(4)添加两个标签控件:Label1 和 Label2,作为发送和接收字符区的标签。(5)添加一个按钮控件:Command1执行发送字符命令。程序设计界面如图 6-2 所示。3属性设置从属性窗口设置属性时,只需从对象列表框中选择待设置属性的对象,然后从属性列表的左列选择属性,最后在属性列表的右列中输入或选择新的属性值。程序窗体、控件对象的主要属性设置如表6-2 所示。表 6-2控 件 类 型窗体、控件对象的主要属性设置主 要 属 性(名称)=COMFormFormBorderStyle=3Captio
8、n=PC 与 PC 串口通信(名称)=Label1LabelCaption=显示接收字符区:(名称)=Label2LabelCaption=输入发送字符区:(名称)=TextsendTextBoxMultiLine=TrueScrollBars=2-Vertical(名称)=TextReceiveTextBoxMultiLine=TrueScrollBars=2-VerticalCommandButton(名称)=CmdsendCaption=发送字符(名称)=MSComm1其他属性在程序中设置(名称)=Timer1TimerEnabled=TrueInterval=500标签文本文本框控件允
9、许多行显示垂直滚动条可用文本框控件允许多行显示垂直滚动条可用按钮控件手动发送字符串口通信控件时钟控件时钟初始可用设置发送周期(ms)标签文本标签控件窗体控件运行时窗体固定大小窗体标题栏显示程序名称标签控件功能MSComm两台计算机中VB 程序界面及属性设置应完全相同,尤其MSComm控件的InputMode 和Settings属性值应相同。4程序代码设计程序要实现自动发送或读取,在 VB 程序中有两个方式可以达到,一是查询方式,利用查询事件是否发生,当发生时,去执行默认的程序代码。可以使用计时器控件(Timer),该控件属性中的 Interval 可以控制计时器被启动的时间间隔,当时间间隔一到
10、,便会执行原先放在计时器中的程序代码。下面是利用查询方式编写的PC 与 PC 串口通信的参考程序,代码如下所示:串口初始化Private Sub Form_Load()MSComm1.CommPort=1 设置通信端口号为 COM1MSComm1.Settings=9600,n,8,1 设置串口 1 参数MSComm1.InputMode=0 接收文本型数据MSComm1.PortOpen=True 打开通信端口 1End Sub 把字符通过串口发送出去Private Sub Cmdsend_Click()If Textsend.Text=Thenpp=MsgBox(发送的数据不能为空!,16
11、)Exit SubEnd IfMSComm1.Output=Trim(Textsend.Text)For i=1 To 20000000Next iEnd Sub 通过时钟控制来自动接收字符Private Sub Timer1_Timer()Dim buf$buf=Trim(MSComm1.Input)将缓冲区内的数据读入 buf 变量中If Len(buf)0 Then 判断缓冲区内是否存在数据TextReceive.Text=TextReceive.Text+Chr(13)+Chr(10)+buf/回车换行End IfEnd Sub 关闭通信端口,停止程序运行Private Sub Cmd
12、quit_Click()MSComm1.PortOpen=FalseUnload MeEnd Sub在 Windows 系统环境下,串口是系统资源的一部分。应用程序要使用串口进行通信,必须在使用之前向操作系统提出资源申请要求(打开串口),通信完成后必须释放资源(关闭串口)。在 Windows系统的系统函数中,均包含了支持通信中断的功能。二是使用事件方式。MSComm 控件提供事件回应功能,可以利用此功能达到自动发送/接收的目的。下面是利用事件方式编写的PC 与 PC 串口通信的参考程序,界面设计与图 6-2基本相同,区别是事件方式不需要时间控件。串口初始化Private Sub Form_Lo
13、ad()MSComm1.CommPort=1设置通信端口号为 COM1MSComm1.Settings=9600,n,8,1设置串口参数MSComm1.InputMode=0接收文本型数据MSComm1.RThreshold=1 接收缓冲区每收到一个字符都会使 MSComm 控件触发 OnComm 事件MSComm1.PortOpen=True打开通信端口 1End Sub把字符通过串口发送出去启动定时器Private Sub Cmdsend_Click()If Textsend.Text=Thenpp=MsgBox(发送的数据不能为空!,16)Exit SubEnd IfMSComm1.Ou
14、tput=Trim(Textsend.Text)End SubMSComm 的 OnComm 事件程序由 CommEvent 属性值的不同,将各自的程序代码写入相关的子程序中只要 RThresold 中的设定字符数到达时便会使得 CommEvent 属性值变成 comEvReceive因此接收的子程序便会被执行Private Sub MSComm1_OnComm()Dim buf$Select Case MSComm1.CommEvent通过取代每一个 case 表达式来处理每个事件与错误Case comEvCD CD 线的状态发生变化Case comEvCTS CTS 线的状态发生变化Cas
15、e comEvDSR DSR 线的状态发生变化Case comEvReceivebuf=Trim(MSComm1.Input)将缓冲区内的数据读入 buf 变量中Case comEvSendEnd SelectTextReceive.Text=TextReceive.Text&bufEnd Sub停止程序运行Private Sub Cmdquit_Click()Unload MeEnd Sub关闭通信端口,Private Sub Form_Unload(Cancel As Integer)MSComm1.PortOpen=FalseEnd Sub5运行程序程序设计、调试完毕,单击工具栏快捷按钮
16、“启动”,运行程序。两台计算机同时运行本程序。首先在一台计算机程序窗体中发送字符区输入要发送的字符,如“我是第一组,收到请回话!”,单击“发送字符”按钮,发送区的字符串通过COM1 口发送出去。如果联网通信的另一台计算机程序收到字符,则返回字符串,如“收到,我是第 2 组!”,如果通信正常该字符串将显示在接收区中。程序运行界面如图 6-3 所示。图 6-3程序运行界面6.1.5.2利用 API 函数实现字符型数据发送与接收1建立新工程运行 VB,创,作为发送和接收字符区的标签。建标准的工程项目文件,设计程序窗体。添加两个 TextBox 控件,用于输入要发送的字符和显示需接收的字符。添加两个
17、Label控件 添加一个 Timer 控件,用于周期性地读取串口数据。添加两个 CommandButton 控件,分别执行发送字符、关闭程序等命令。设计的程序界面如图 6-4所示。2属性设置程序窗体、控件对象的主要属性设置如表6-3所示。表 6-3控 件 类 型FormLabelLabelTextBox名称COMFormLabel1Label2Textsend窗体、控件对象的主要属性设置主 要 属 性BorderStyle=3Caption=API 串口通讯Caption=发送数据区:Caption=接收数据区:MultiLine=TrueScrollBars=2-VerticalMultiL
18、ine=TrueScrollBars=2-VerticalCaption=发送数据Caption=关闭程序Interval=500功能运行时窗体固定大小窗体标题栏显示程序名称标签标签允许多行显示垂直滚动条可用允许多行显示垂直滚动条可用手动间断发送字符关闭程序设置发送周期(ms)图 6-4程序窗体界面TextBoxCommandButtonCommandButtonTimerTextReceiveBTNSendBTNCloseComTMRComm3程序代码设计在程序标准模块 SerialPort.bas的说明部分放置使用的 API 函数声明及所用的结构、常数的声明:Option Explicit
19、Global ComNum As LongGlobal bRead(255)As ByteType COMSTATfCtsHold As LongfDsrHold As LongfRlsdHold As LongfXoffHold As LongfXoffSent As LongfEof As LongfTxim As LongfReserved As LongcbInQue As LongcbOutQue As LongEnd TypeType COMMTIMEOUTSReadIntervalTimeout As LongReadTotalTimeoutMultiplier As LongR
20、eadTotalTimeoutConstant As LongWriteTotalTimeoutMultiplier As LongWriteTotalTimeoutConstant As LongEnd TypeType DCBDCBlength As LongBaudRate As LongfBinary As LongfParity As LongfOutxCtsFlow As LongfOutxDsrFlow As LongfDtrControl As LongfDsrSensitivity As LongfTXContinueOnXoff As LongfOutX As LongfI
21、nX As LongfErrorChar As LongfNull As LongfRtsControl As LongfAbortOnError As LongfDummy2 As LongwReserved As IntegerXonLim As IntegerXoffLim As IntegerByteSize As ByteParity As ByteStopBits As ByteXonChar As ByteXoffChar As ByteErrorChar As ByteEofChar As ByteEvtChar As ByteEnd TypeType OVERLAPPEDIn
22、ternal As LongInternalHigh As Longoffset As LongOffsetHigh As LonghEvent As LongEnd TypeType SECURITY_ATTRIBUTESnLength As LonglpSecurityDescriptor As LongbInheritHandle As LongEnd TypeDeclare Function CloseHandle Lib kernel32(ByVal hObject As Long)As LongDeclare Function GetLastError Lib kernel32()
23、As LongDeclareFunctionReadFileLibkernel32(ByValhFileAsLong,lpBufferAsAny,ByValnNumberOfBytesToRead As Long,lpNumberOfBytesRead As Long,lpOverlapped As Long)As LongDeclareFunctionWriteFileLibkernel32(ByValhFileAsLong,lpBufferAsAny,ByValnNumberOfBytesToWrite As Long,lpNumberOfBytesWritten As Long,lpOv
24、erlapped As Long)As LongDeclare Function SetCommTimeouts Lib kernel32(ByVal hFile As Long,lpCommTimeouts AsCOMMTIMEOUTS)As LongDeclare Function GetCommTimeouts Lib kernel32(ByVal hFile As Long,lpCommTimeouts AsCOMMTIMEOUTS)As LongDeclare Function BuildCommDCB Lib kernel32 Alias BuildCommDCBA(ByVal l
25、pDef As String,lpDCB As DCB)As LongDeclare Function SetCommState Lib kernel32(ByVal hCommDev As Long,lpDCB As DCB)As LongDeclare Function CreateFile Lib kernel32 Alias CreateFileA(ByVal lpFileName As String,ByValdwDesiredAccess As Long,ByVal dwShareMode As Long,ByVal lpSecurityAttributes As Long,ByV
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 串口 通信 程序设计 典型 实例
限制150内