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

来源：PConline 作者：吴东生出处：巧巧读书 2007-09-28 进入讨论组

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, w

Dim I as integer

x0 = Shape1.Left

y0 = Shape1.Top + Shape1.Height

h = Shape1.Height / 1

w = Shape1.Width / 300

Picture1.ForeColor = QBColor(1)

Picture1.Cls

Y1 = Shape1.Height

For I=0 to 600

Picture1.Line (x0 + i * w, y0 - dqsj(i) * h)-(x0 + (i + 1) * w,y0 - dqsj(i + 1, Q) * h )

Next

//说明：其中，dqsj是记录10分钟内实时采集速度值的数组。
文章地址： http://www.qqread.com/vb/e020560010.html