在VB下设计开发实时的数据采集曲线

前端之家收集整理的这篇文章主要介绍了在VB下设计开发实时的数据采集曲线前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

1. 引言

  在笔者参与过的开发的机组轴瓦控制系统中,要求能够实时采集轴瓦转动速度值V,并能根据实时采集到的数据绘制出V在10分钟内变化的短期趋势图和一日内变化的长期趋势图,以便观测轴瓦转动的趋势情况,查看控制效果。该系统在VB6.0环境下进行开发,开始时采用了VB包含的Activex控件技术绘制曲线,在效果不理想的情况下,笔者利用VB绘画函数,最终成功实现了实时数据采集曲线的绘制与显示。笔者将以轴瓦实时采集速度值V的短期趋势图为例,谈一下实时采集曲线的设计与实现过程。

2. 绘图控件的选择

  系统开发初期,采用VB内所含的Activex控件技术来解决实时采集曲线的绘制问题。VB控件中提供了外部Activex控件Mschart来给该应用程序添加图表功能,用它能创建包括条形、饼形、线形等不同类型的三维图表。利用该控件,可对表中的所有项目进行完全控制,例如标题、图表、脚注、轴、数据点系列等等,甚至还能旋转图表,为每一元素加上背景、设置光源,把它们放在想要的地方。

  本系统中需要实时测量轴瓦速度V的实际值,并根据实时更新的短期速度数据数组、长期速度数据数组分别绘制短期趋势曲线图与长期趋势曲线图,这两个趋势图均是速度值(Y轴)和时间(X轴)的关系曲线,并随着时间变动实时更新,以便观测。

  短期趋势图的绘制,由于测量10分钟内的数据,每一秒测量一次,因此每10分钟内都有600个数据,为绘制曲线,还要赋予一个初值,所以速度短期数据定义为长度为601的数组。将数据初始化后,利用Mschart控件得到如下图1所示的短期趋势模拟图。



图 1 短期趋势 模拟图

  该图的静态显示外观比较理想,但是每秒一次的数据更新使屏幕每秒钟都会引起由于重绘带来的闪烁,这大大降低了图形界面的可视性与美观性。由此可见,Mschart控件不太适用于绘制实时数据采集系统的相关曲线。为了解决这个难题,笔者尝试利用了VB提供的绘画函数等简单易用的多媒体实现技术,并取得了非常好的效果,以下是我们的实现步骤。
3. 绘图函数的使用

  在计算机应用中、图形程序设计通常是一种比较复杂的劳动,在以前的传统语言如C语言,绘制图形是一件非常麻烦的事,在真正开始绘图前需要做大量的工作。但是在VB6.0中,绘图却变得十分轻松,它的基本图形包括点、直线、矩形、圆和椭圆。使用绘图函数绘制的图形既可以将窗体作为容器,也可以将VB中的控件PictureBox作为容器。

  在实时采集数据曲线中只需用到直线的绘制方法,在VB中画直线是通过line函数来实现的,它的语法为:

object.Line[Step1](x1,y1)[ Step2](x2,y2),[color],[B],[F]

  其中,可选项Step1设置起点坐标相对于当前图形位置图标的偏移量;(x1,y1) 指定直线的起点坐标或矩形的左上角坐标;可选项Step2设置终点坐标相对于当前图形位置图标的偏移量;(x2,y2) 指定直线的终点坐标或矩形的右下角坐标;color是指绘画所用的RGB颜色,可以被忽略。在绘制直线时,line函数的B和F都不选。

4. 实时采集数据曲线的绘制

  绘制实时采集数据曲线是为了实时观测,以便掌握实时采集数据变动的趋势,使曲线显示效果最佳。绘制曲线前要将需要的绘图范围及坐标轴的尺寸刻度设定好,然后根据速度测量结果及采集时间绘制实时测量曲线。
4.1 坐标轴与网格设置

  新建Form,将属性name设为 frmchart,在窗体上添加控件PictureBox作为趋势图的显示容器,同时,为降低绘图复杂性,并能控制图片背景,我们添加了一个Shape控件并选取该控件的矩形作为绘图范围,以该矩形的下边线为横坐标,左边线为纵坐标。由于速度范围5mm/s,控制时间为10分钟,因此我们利用控件将左边线分为5格,每格代表速度最大测量范围的1/5,即1mm/s,将下边线分为10格,每格代表1分钟。

4.2 实时采集数据曲线绘制



图2 短期趋势示意图


  在做好上述步骤的基础上,笔者利用PictureBox的Line方法得到了如图2所示的较为理想的实时曲线绘制效果

4.3 程序实现代码

  绘制实时采集数据曲线的程序源代码如下:

Dim x0,y0,h,wDim I as integerx0 = Shape1.Lefty0 = Shape1.Top + Shape1.Heighth = Shape1.Height / 1w = Shape1.Width / 300Picture1.ForeColor = QBColor(1)Picture1.ClsY1 = Shape1.HeightFor I=0 to 600Picture1.Line (x0 + i * w,y0 - dqsj(i) * h)-(x0 + (i + 1) * w,y0 - dqsj(i + 1,Q) * h )Next //说明:其中,dqsj是记录10分钟内实时采集速度值的数组。

原文链接:https://www.f2er.com/vb/261797.html

猜你在找的VB相关文章