VB环境下设计开发实时数据采集曲线 点击:0 | 回复:5



如火

    
  • 精华:173帖
  • 求助:0帖
  • 帖子:817帖 | 5249回
  • 年度积分:0
  • 历史总积分:0
  • 注册:1900年1月01日
发表于:2005-10-27 13:32:00
楼主
1:绘图控件的选择 系统开发初期,采用VB内所含的Activex控件技术来解决实时采集曲线的绘制问题。VB控件中提供了外部Activex控件Mschart来给该应用程序添加图表功能,用它能创建包括条形、饼形、线形等不同类型的三维图表。利用该控件,可对表中的所有项目进行完全控制,例如标题、图表、脚注、轴、数据点系列等等,甚至还能旋转图表,为每一元素加上背景、设置光源,把它们放在想要的地方。 本系统中需要实时测量轴瓦速度V的实际值,并根据实时更新的短期速度数据数组、长期速度数据数组分别绘制短期趋势曲线图与长期趋势曲线图,这两个趋势图均是速度值(Y轴)和时间(X轴)的关系曲线,并随着时间变动实时更新,以便观测。 短期趋势图的绘制,由于测量10分钟内的数据,每一秒测量一次,因此每10分钟内都有600个数据,为绘制曲线,还要赋予一个初值,所以速度短期数据定义为长度为601的数组。将数据初始化后,利用Mschart控件得到如下图1所示的短期趋势模拟图。
该图的静态显示外观比较理想,但是每秒一次的数据更新使屏幕每秒钟都会引起由于重绘带来的闪烁,这大大降低了图形界面的可视性与美观性。由此可见,Mschart控件不太适用于绘制实时数据采集系统的相关曲线。为了解决这个难题,笔者尝试利用了VB提供的绘画函数等简单易用的多媒体实现技术,并取得了非常好的效果,以下是我们的实现步骤。 2:绘图函数的使用 在计算机应用中、图形程序设计通常是一种比较复杂的劳动,在以前的传统语言如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都不选。 3:实时采集数据曲线的绘制 绘制实时采集数据曲线是为了实时观测,以便掌握实时采集数据变动的趋势,使曲线显示效果最佳。绘制曲线前要将需要的绘图范围及坐标轴的尺寸刻度设定好,然后根据速度测量结果及采集时间绘制实时测量曲线。 4.1 坐标轴与网格设置 新建Form,将属性name设为 frmchart,在窗体上添加控件Picturebox作为趋势图的显示容器,同时,为降低绘图复杂性,并能控制图片背景,我们添加了一个Shape控件并选取该控件的矩形作为绘图范围,以该矩形的下边线为横坐标,左边线为纵坐标。由于速度范围5mm/s,控制时间为10分钟,因此我们利用控件将左边线分为5格,每格代表速度最大测量范围的1/5,即1mm/s,将下边线分为10格,每格代表1分钟。 4.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分钟内实时采集速度值的数组。 注:以上为转贴,经过编辑。



如火

  • 精华:173帖
  • 求助:0帖
  • 帖子:817帖 | 5249回
  • 年度积分:0
  • 历史总积分:0
  • 注册:1900年1月01日
发表于:2005-10-27 13:40:00
1楼
笔者曾经用chart开发曲线应用,效果还不错。
下面引用帮助中的例子,说明使用的方便性。


下面的示例显示一个具有 8 行 8 列数据的三维图表,并设置了图例的参数。

Private Sub Command1_Click()
   With MSChart1
      '显示一个具有 8 行 8 列数据的三维图表。
      .ChartType = VtChChartType3dBar
      .ColumnCount = 8
      .RowCount = 8
      For column = 1 To 8
         For row = 1 To 8
            .Column = column
            .Row = row
            .Data = row * 10
         Next row
      Next column
      '将图表作为图例的背景。
      .ShowLegend = True
      .SelectPart VtChPartTypePlot, index1, index2, _
      index3, index4
      .EditCopy
      .SelectPart VtChPartTypeLegend, index1, _
      index2, index3, index4
      .EditPaste
   End With
End Sub

autoyx.com

  • 精华:0帖
  • 求助:0帖
  • 帖子:34帖 | 619回
  • 年度积分:1
  • 历史总积分:879
  • 注册:2005年9月27日
发表于:2005-10-30 08:10:00
2楼
微软好想已放弃VB开发环境,  MS Studio.net 2003中已没有集成VB了

如火

  • 精华:173帖
  • 求助:0帖
  • 帖子:817帖 | 5249回
  • 年度积分:0
  • 历史总积分:0
  • 注册:1900年1月01日
发表于:2005-10-31 08:56:00
3楼
MS Studio.net 2003中还有vb.net呀,不过改动特别大,功能比以前增强了很多。,

deng_lp

  • 精华:5帖
  • 求助:0帖
  • 帖子:65帖 | 2669回
  • 年度积分:0
  • 历史总积分:2874
  • 注册:2001年6月19日
发表于:2005-10-31 09:27:00
4楼
vs.net 2003 可自动转换vb6的程序,只需要进行少量的修改
就能在.net 平台使用。

刺猬sonic

  • 精华:0帖
  • 求助:0帖
  • 帖子:0帖 | 20回
  • 年度积分:19
  • 历史总积分:51
  • 注册:2018年3月29日
发表于:2020-05-27 17:03:39
5楼

这个我倒是有一个例程。自己改一改就能用了。


相关主题

官方公众号

智造工程师