用VB调试串口通讯.docx

用VB调试串口通讯.docx

《用VB调试串口通讯.docx》由会员分享，可在线阅读，更多相关《用VB调试串口通讯.docx（11页珍藏版）》请在冰点文库上搜索。

用VB调试串口通讯

用VB调试串口通讯 

 现有电子秤一台，使用串口与计算机进行通讯。

编写VB程序来访问串口，达到读取电子秤上显示的数据。

该电子秤为BE01型仪表，输出为RS-232C标准接口，波特率为300-9600、偶校验、7个数据位、2个停止位。

所有字符均发送11位ASCII码，一个起始位。

在VB中与串口通讯需要引入控件MSComm串口通讯控件（在Microsoft Comm Control 6.0中）。

具体程序如下：

控件简称：

MSC

Dim 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（）

    ClearText

    With 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 With

End Sub

****************************************************************************

Private Sub ClearText（）

    Text3.Text = 

    Text2.Text = 5

    Text1.Text = 

End Sub

Private Sub Command1_Click（）

    ClearText

    nRece = 0  计数器清零

    With MSC

        .InputMode = comInputModeBinary 设置数据接收模式为二进制形式

        .InBufferCount = 0  清除接收缓冲区

        If Not .PortOpen Then

            .PortOpen = True   打开通信端口

        End If

    End With

End Sub

Private Sub MSC_OnComm（）

    DelayTime   ‘用来延续时间

    ClearText

    With MSC

        Select Case .CommEvent  判断通信事件

            Case comEvReceive:

  收到Rthreshold个字节产生的接收事件

                SwichVar 1

                If Out

（1） = 2 Then  判断是否为数据的开始标志

                    .RThreshold = 0   关闭OnComm事件接收

                End If

                Do

                    DoEvents

                Loop Until .InBufferCount >= 3  循环等待接收缓冲区>=3个字节

                nRece = nRece + 1

                For i = 2 To 12

                    SwichVar i

                    Text1.Text = Text1.Text & Chr（Out（i））

                Next

                Text1.Text = LTrim（Text1.Text）

                Text2.Text = Text2.Text & CStr（nRece）

                .RThreshold = 1  打开MSComm事件接收

            Case Else

                .PortOpen = False

        End Select

    End With

End Sub

****************************************************************************

Private Sub DelayTime（）

    Dim bDT As Boolean

    Dim sPrevious As Single, sLast As Single

    bDT = True

    sPrevious = Timer  （Timer可以计算从子夜到现在所经过的秒数，在Microsoft Windows中，Timer函数可以返回一秒的小数部分）

    Do While bDT

        If Timer - sPrevious >= 0.3 Then bDT = False

    Loop

    bDT = True

End Sub

（通信传输速率为9600bps，则最快速度1.04ms发送一个字节，仪表每秒发送50帧数据，每帧数据有4个字节，即每秒发送200个字节，平均5.0ms 发送一个字节，连续读取串口数据时要在程序中添加循环等待程序）

Private Sub SwichVar（ByVal nNum As Integer）

    DelayTime

    var = Null

    var = MSC.Input

    Out（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 Currency

    If str <> Then

        CText = CCur（Val（str））

    Else

        CText = 0

    End If

End Function

（仪表每秒发送50帧数据，微机收到一帧完整数据至少需要20 ms时间，然后再进行数据处理。

如果微机在下一帧数据接收前即20ms内能将数据计算处理完毕，则接收缓冲区内只会保存有一帧数据，不会存有两帧以上数据，接收缓冲区的大小不会影响实时监测效果（接收缓冲区>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次 

nonperiodic.inteval=500 '设置0.5s定时间隔，查询命令按钮是否处于激活状态以确定是否发送周期性命令 

command-pressed=false '命令按钮为未激活状态 

during- periodic=false '周期性命令数据传输尚未开始 

during- nonperiodic=false '非周期性命令数据传输尚未开始 

end sub 

2.2 非周期性命令发送程序 

根据命令按钮状态及周期性命令数据传输状态，在nonperiodic定时器的中断程序中发送非周期性命令。

sub nonperiodic-command-click （） 

command-pressed=true '命令按钮激活 

end sub 

sub nonperiodic-timer （） 

if during- periodic=true or command-pressed=false 

then exit sub '若周期性命令数据传输尚未结束或命令按钮处于激活状态，则退出发送非周期性命令程序。

command-pressed=false '命令按钮恢复为未激活状态 

call 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 sub '若非周期性命令数据传输尚未结束，则退出发送非周期性命令程序。

during-periodic=true '设置周期性命令数据传输状态为正在进行中 

call 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 mevent '在此可插入处理各种不同错误或事件的代码 

case mscomm-ev-receive 

receivestring$=mscomm1.input 

select case mscomm1.rthreshold 

case r-periodic-byte '周期性命令的应答数据 

call disposedata（periodic-command） '处理接收数据 

during periodic=false '设置周期性命令数据传输状态为结束 

case r-nonperiodic-byte '非周期性命令的应答数据 

call disposedata（nonperiodic-command） '处理接收数据 

during-nonperiodic=false '设置非周期性命令数据传输状态为结束 

end select 

end select 

end sub 

随着vb版本的不断升级，vb将成为最快速、易用、强劲的应用开发工具，是企业级客户/服务器应用软件开发的首选工具之一。

s