VB串口设置介绍.doc

mscomm.vbx通信控件描述mscomm.vbx通信控件可直接从vb的toolbox中加入窗体form，即可用其进行通信。若toolbox中无此控件，则用tools的custom controls 将mscomm.vbx从windows的system子目录中加入vb的toolbox中。 1.1 通信方式 mscomm.vbx有2种不同的方式来处理和解决各类通信软件的开发和设计问题 1、事件驱动。它与c/c+写windows 软件时的窗口回调函数类似，是1种功能强大的处理问题的方法。在实际工作中，往往要处理许多通信中的相关事件，例如：当线路数据到达本端或cd线和rts信号线状态发生变化时，要求我们使用相应的事件来跟踪和处理，该控件是使用oncomm事件来实现的，它也包括检测和处理通信错误等方面的问题，commevent 值返回最近的通信事件或错误的数字代码。通信控件详细的错误和事件举例有： mscomm-er-break 收到1个break signal mscomm-er-cdto cd 信号超时 mscomm-ev-cd cd信号改变 2、查询方式。由程序设计者负责读取commevent的值并处理所发生的错误或事件。通常简单的应用程序设计可采用这种办法。 1.2 通信控件的属性 利用通信控件编制通信程序，关键是准确理解设置通信控件的属性。mscomm.vbx提供了27个关于通信控件方面的属性，例如： commport：设置或返回通信口编号。 settings：设置或返回以字符串形式出现的数据通信格式：波特率、校验、数据位和停 止位。 portopen：设置或返回通信口状态（包括打开和关闭1个通信口） 2、 实例 本程序应用背景为dcc95型静电除尘器自动监控系统软件，解决1个pc工控机（主站）与32个单片机（子站）之间的通信问题。主站与子站之间这总线式网络结构，采用rs-485通信标准，以问答方式进行数据通信。由于32个子站与主站发送通信命令（下行命令），主站在接收子站发回的相应回答命令（上行命令）后继续发送下行命令的通信形式。根据系统功能的要求，主站需发送2种类型的命令：（1）同期命令，它由定时器触发引起，每隔ls周期发送1次；（2）非周期性命令，它由操作者按动相应命令按钮引起，非周期性发送。自动监控系统软件安装在主站上，而通信程序作为自动监控系统软件的一部分也安装在主站上。 本文仅列出调试通信程序时进行试验用的基本演示程序清单。试验时，用1台pc机作为主站，另一台pc机模拟32个子站的工作，两台pc机之间采用rs232c串口通信。往主站的通信演示程序窗体（form）中加入:1个通信控件（mscomm1）通信控件用于访问串口，发送和接收数据；2个定时器控件（periodic）用于控制每秒由主站向各子站发送周期性命令；（nonperiodic）用于发送非周期性命令。1个命令按钮控件(nonperiodic-command) 用于发送非周期性命令。数据传送采用事件驱动的通信方式，根据不同的发送命令设置rtreshlod属性，从而引起oncomm事件以接收数据。 2.1 窗体各控件初始化程序 设置通信串口工作参数，设置periodic定时器的在断间隔为ls, nonperiodic定时器的中断间隔为0.5s。 sub form-load () mport=2 mscomm1.settings=9600，n8，1 mscomm1.inputlen=0 mscomm1.inbuffersize=1024 mscomm1.portopen=true mscomm1.inbuffercount=0 mscomm1.outbuffercount=0 eval=100 eval=500 command-pressed=false during- periodic=false during- nonperiodic=false 选用com2串行口波特率9600，无奇偶校验位，8位数据位1位停止位input将读取接收缓冲区的全部内容设置接收缓冲区的字节长度打开通信口清除发送缓冲区数据清除接收缓冲区数据设置ls定时间隔，使遥测命令每隔ls发送1次设置0.5s定时间隔，查询命令按钮是否处于激活状态以确定是否发送周期性命令命令按钮为未激活状态周期性命令数据传输尚未开始非周期性命令数据传输尚未开始end sub 2.2 非周期性命令发送程序 根据命令按钮状态及周期性命令数据传输状态，在nonperiodic定时器的中断程序中发送非周期性命令。 sub nonperiodic-command-click () command-pressed=true 命令按钮激活 end sub sub nonperiodic-timer () if during-periodic=true or command-pressed=falsethen exit subcommand-pressed=falsecall senddata (nonperiodic-command)mscomm1.rthreshold=r-nonperiodic-byte若周期性命令数据传输尚未结束或命令按钮处于激活状态，则退出发送非周期性命令程序。 命令按钮恢复为未激活状态发送非周期性命令 发送非周期性命令后，设置rthreshold属性，使主站接收所设定的字节数后引发oncomm事件 end sub 2.3 periodic定时器程序 在periodic定时器的中断程序中发送周期性命令： sub periodic-timer () if during- nonperiodic=true then exit subduring-periodic=truecall senddata (periodic-command)mscomm1.rthreshold=r-periodic-byte若非周期性命令数据传输尚未结束，则退出发送非周期性命令程序。 设置周期性命令数据传输状态为正在进行中发送周期性命令发送周期性命令后，主站接收r-remot-edata-byte个字节，可引发oncomm 事件 end sub 2.4 oncomm事件程序 根据rthreshold属性设置值，当接收缓存区内接收到相应字节的字符时，引发oncomm事件，在中断程序中接收数据。 sub mscomm1-oncomm () select case meventcase mscomm-ev-receive receivestring$=mscomm1.input select case mscomm1.rthreshold case r-periodic-bytecall disposedata(periodic-command)during periodic=falsecase r-nonperiodic-bytecall disposedata(nonperiodic-command)during-nonperiodic=falseend select end select 在此可插入处理各种不同错误或事件的代码周期性命令的应答数据 处理接收数据 设置周期性命令数据传输状态为结束非周期性命令的应答数据处理接收数据 设置非周期性命令数据传输状态为结束end sub 摘要：本文首先介绍串行通讯的基础知识，然后结合示例剖析在VB平台下的串口通讯的编程技巧。随着计算机系统的普及与外围设备技术的发展，计算机与外围设备之间的通讯就显得越来越重要了。由于串行通信是在一根传输线上一位一位的传送信息，所用的传输线少，并且可以借助现成的电话网进行信息传送，因此，特别适合于远距离传输。对于那些与计算机相距不远的人机交换设备和串行存储的外部设备如终端、打印机、逻辑分析仪、磁盘等，采用串行方式交换数据也很普遍。在实时控制和管理方面，采用多台微机处理机组成分级分布控制系统中，各CPU之间的通信一般都是串行方式。所以串行接口是微机应用系统常用的接口，而相应的应用程序也成为今年来研究的热点。本文旨在阐述一般的串口通讯的原理及其程序设计，希望借此能够抛砖引玉，为更深入的研究打下一定的基础。一、串行通讯的基本原理所谓串行通信是指外设和计算机间使用一根数据信号线,数据在一根数据信号线上按位进行传输，每一位数据都占据一个固定的时间长度。这种通信方式使用的数据线少，在远距离通信中可以节约通信成本，当然，其传输速度比并行传输慢。相比之下，由于高速率的要求，处于计算机内部的CPU与串口之间的通讯仍然采用并行的通讯方式，所以串行口的本质就是实现CPU与外围数据设备的数据格式转换（或者称为串并转换器），即当数据从外围设备输入计算机时，数据格式由位(bit)转化为字节数据；反之，当计算机发送下行数据到外围设备时，串口又将字节数据转化为位数据。二、串口通讯的程序设计原理前面介绍了串行通讯的基本原理，那么如何在程序设计中实现它呢？事实上，这个过程并不复杂，一般有两种实现途径：其一就是使用MSCOMM控件，此控件提供很多方便操作的属性和方法，利用它们可以很方便地实现你的目的；另外一种途径就是使用Windows API，微软为开发者提供了很多相关的串行操作的编程接口，使用这些接口，可以很完成更为强大的功能。限于篇幅以及本文的宗旨，这里着重介绍第一种方法，第二种方法实际思路与第一种方法一样，不同的是它利用API函数代替了控件。无论使用哪一种途径，其基本的操作步骤大致一样的：首先初始化串口，比如端口号，波特率等属性，然后打开端口，通过接受缓冲区读上行数据，通过发送缓冲区来写下行数据。最后通过事件驱动来反映数据的到达与发送过程，另外在通讯过程中的错误的产生也可以通过CommEvent属性来管理。三、VB平台下的实现使用MSCOMM控件主要是通过事件来处理串行口的交互，即当数据到达时，控件的OnComm的事件就会来捕获或处理这些通讯事件。而OnComm事件也可以用来捕获和处理通讯错误。在实际应用中，一个MSCOMM控件就对应一个串行口，所以如果要处理多个串行口的话，必须有相应数量的控件与之对应。下面介绍一下此控件的主要属性：CommPort设置或者返回串行端口号Settings用来设置和返回波特率，奇偶校验，数据位和结束位PortOpen设置或者返回通讯端口的状态，也可以打开和关闭一个端口Input从接受缓冲区里获取或删除数据Output给发送缓冲区里写数据另外对于OnComm事件来说，每当CommEvent的数值发生改变时就会产生这种事件，这就表明要么就是一个通讯事件的产生，要么是一个通讯错误产生。CommEvent属性里面包含了通讯事件或者产生的错误的编号。那么为了能够更加清楚的说明上述问题，下面给出一个例程，例程要实现的功能很简单，就是在一个过程里给一个特定的串行口发送数据，然后在另外一个过程里实时检测此串行口以便一旦此串行口的发送缓冲区有数据就显示消息，如果发送空数据就会显示无数据的字样。界面如下： 主要核心代码如下：Private Sub Command1_Click()If Text1.Text = ThenList1.AddItem 发送缓冲区无数据Exit SubEnd IfMSComm1.Output = Text1.TextEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub主要进行串口的初始化Private Sub Form_Load()MSComm1.CommPort = 1选择com1MSComm1.Settings = 9600,N,8,1设置波特率，无奇偶校验，8数据位，1结束位MSComm1.InputLen = 0读取全部的输入缓冲区MSComm1.PortOpen = True端口打开MSComm1.RThreshold = 10MSComm1.SThreshold = 10End Sub以下就可以进行数据的发送了Private Sub MSComm1_OnComm()所有的事件都可激发MSComm1的OnComm事件Select Case MSComm1.CommEventCase comEvReceive此处的代码可以处理当串口的接受缓冲区里有RThreshold个字符Case