用vb调试串口通讯.doc

用 VB 调试串口通讯 现有电子秤一台，使用串口与计算机进行通讯编写 VB 程序来访问串口，达到读取电子秤上显示的数据该电子秤为 BE01 型仪表，输出为 RS-232C 标准接口，波特率为 300-9600、偶校验、7 个数据位、2 个停止位所有字符均发送 11 位 ASCII 码，一个起始位在 VB 中与串口通讯需要引入控件 MSComm 串口通讯控件（在 Microsoft Comm Control 6.0 中） 具体程序如下：控件简称：MSCDim Out(12) As Byte 接收 var 中的值Dim var As Variant 接收 MSC.input 中的数值Dim nRece As Integer 计算 MSC.inputbuffer 的个数Dim i As Integer, j As Integer 随即变量，计算循环****************************************************************************Private Sub Form_Load()ClearTextWith MSC.CommPort = 1 设置 Com1 为通信端口.Settings = 9600,E,7,2 设置通信端口参数 9600 赫兹、偶校验、7 个数据位、1 个停止位.（这里需要进一步说明的是：.Setting=”BBBB,P,D,S”。

含义是：B：Baud Rate（波特率） ；P：Parity（奇偶） ；D：Data Bit；S：Stop Bit）.InBufferSize = 40 设置缓冲区接收数据为 40 字节.InputLen = 1 设置 Input 一次从接收缓冲读取字节数为 1.RThreshold = 1 设置接收一个字节就产生 OnComm 事件End WithEnd Sub****************************************************************************Private Sub ClearText()Text3.Text = Text2.Text = 5Text1.Text = End SubPrivate Sub Command1_Click()ClearTextnRece = 0 计数器清零With MSC.InputMode = comInputModeBinary 设置数据接收模式为二进制形式.InBufferCount = 0 清除接收缓冲区If Not .PortOpen Then.PortOpen = True 打开通信端口End IfEnd WithEnd SubPrivate Sub MSC_OnComm()DelayTime ‘用来延续时间ClearTextWith MSCSelect Case .CommEvent 判断通信事件Case comEvReceive: 收到 Rthreshold 个字节产生的接收事件SwichVar 1If Out(1) = 2 Then 判断是否为数据的开始标志.RThreshold = 0 关闭 OnComm 事件接收End IfDoDoEventsLoop Until .InBufferCount >= 3 循环等待接收缓冲区>=3 个字节nRece = nRece + 1For i = 2 To 12SwichVar iText1.Text = Text1.Text & Chr(Out(i))NextText1.Text = LTrim(Text1.Text)Text2.Text = Text2.Text & CStr(nRece).RThreshold = 1 打开 MSComm 事件接收Case Else.PortOpen = FalseEnd SelectEnd WithEnd Sub****************************************************************************Private Sub DelayTime()Dim bDT As BooleanDim sPrevious As Single, sLast As SinglebDT = TruesPrevious = Timer (Timer 可以计算从子夜到现在所经过的秒数，在 Microsoft Windows 中，Timer 函数可以返回一秒的小数部分)Do While bDTIf Timer - sPrevious >= 0.3 Then bDT = FalseLoopbDT = TrueEnd Sub（通信传输速率为 9600bps，则最快速度 1.04ms 发送一个字节，仪表每秒发送 50 帧数据，每帧数据有 4个字节，即每秒发送 200 个字节，平均 5.0ms 发送一个字节，连续读取串口数据时要在程序中添加循环等待程序）Private Sub SwichVar(ByVal nNum As Integer)DelayTimevar = Nullvar = MSC.InputOut(nNum) = var(0)End Sub（设置接收数据模式采用二进制形式，即 InputMode=comInputModeBinary，但用 Input 属性读取数据时，不能直接赋值给 Byte 类型变量，只能通过先赋值给一个 Variant 类型变量，返回一个二进制数据的数组，再转换保存到 Byte 类型数变量中。

）Private Sub Text1_Change()Text3.Text = CText(Text1.Text) - CText(Text2.Text)End Sub****************************************************************************Private Function CText(ByVal str As String) As CurrencyIf str 4 字节） ，这时完全可以实现实时监测或实时控制；如果微机在 20ms 内不能将数据计算处理完毕，接收缓冲区设置得又很大，在数据计算处理完毕前，接收缓冲区内就会保存有两帧以上数据，而且一次工作时间越长，缓冲区内滞留数据帧就越多，数据采集和数据处理之间产生逐渐增大的额外时间差，当接收缓冲区充满后，时间差不再增大，固定在某一值，部分数据因不能及时采集到接收缓冲区中，数据产生丢失现象，真实工作情况就会和微机处理结果产生较大的时间差，对实时监测和实时控制很不利，这种情况下接收缓冲区的大小就会影响实时监测效果，所以接收缓冲区设置不能过大，以保证数据处理的实时性。

）小结：本文所用的仪表为梅特勒公司出产的 BE01 型电子秤，其输出的每个编码均为标准的 ASCII 码其他的仪表存在发射的编码中含有 BCD 压缩码，而且分为高低位，需要接收后对其进行解码换算，之后还要将高位和低位数字进行相加，即可以将其 BCD 码换算成实数另还存在误差的可能：判断最大值，仪表在刚开始工作时有干扰，会传导一些乱码，位移传感器有参数偏差，最大值一般都略大于 50 毫米，所以取 51 为极限最大值，取－51 为极限最小值暂时先写这些，当然其他的情况可以依此类推！Visual Basic 串口通信程序设计 文章类别：VB 专区 发表日期：2005-08-21 1 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 个通信口） …… 3、 实例 本程序应用背景为 dcc95 型静电除尘器自动监控系统软件，解决 1 个 pc 工控机（主站）与 32 个单片机（子站）之间的通信问题。

主站与子站之间这总线式网络结构，采用 rs-485 通信标准，以问答方式进行数据通信由于 32 个子站与主站发送通信命令（下行命令） ，主站在接收子站发回的相应回答命令（上行命令）后继续发送下行命令的通信形式根据系统功能的要求，主站需发送 2 种类型的命令：（1）同期命令，它由定时器触发引起，每隔 ls 周期发送 1 次；（2）非周期性命令，它由操作者按动相应命令按钮引起，非周期性发送自动监控系统软件安装在主站上，而通信程序作为自动监控系统软件的一部分也安装在主站上 本文仅列出调试通信程序时进行试验用的基本演示程序清单试验时，用 1 台 pc 机作为主站，另一台 pc机模拟 32 个子站的工作，两台 pc 机之间采用 rs232c 串口通信往主站的通信演示程序窗体（form）中加入 1 个通信控件、2 个定时器控件和 1 个命令按钮控件，通信控件（mscomm1）用于访问串口，发送和接收数据；periodic 定时器控件（periodic）用于控制每秒由主站向各子站发送周期性命令；命令按钮控件(nonperiodic-command)与 nonperiodic 定时器控件（nonperiodic）用于发送非周期性命令。

数据传送采用事件驱动的通信方式，根据不同的发送命令设置 rtreshlod 属性，从而引起 oncomm 事件以接收数据 2.1 窗体各控件初始化程序 设置通信串口工作参数，设置 periodic 定时器的在断间隔为 ls, nonperiodic 定时器的中断间隔为 0.5s sub form-load () mport=2 '选用 com2 串行口 mscomm1.settings=“9600，n8，1“ '波特率 9600，无奇偶校验位，8 位数据位 1 位停止位 mscomm1.inputlen=0 'input 将读取接收缓冲区的全部内容 mscomm1.inbuffersize=1024 '设置接收缓冲区的字节长度 mscomm1.portopen=true '打开通信口 mscomm1.inbuffercount=0 '清除发送缓冲区数据 mscomm1.outbuffercount=0 '清除接收缓冲区数据 periodic.inteval=100 '设置 ls 定时间隔，使遥测命令每隔 ls 发送 1 次 。