docx

VB中实时曲线的绘制.docx

  • 1星
  • 日期: 2016-03-28
  • 大小: 13.74KB
  • 所需积分:2分
  • 下载次数:2
  • favicon收藏
  • rep举报
  • 分享
  • free评论
标签: VB

VB

利用VB作实时的曲线

文档内容节选

VB中实时曲线的绘制 在工控制软件中,实时曲线的绘制用途非常的广泛,它可以很直观的显示出监控数据的变化值和变化趋势在VB中实现曲线的绘制有很多种方法,本文介绍一种非常简单的方法来实现实时曲线的绘制 在VB中实现实时曲线的绘制,要利用VB的PictureBox图像控件,和画线函数linex1y1x2y2PictureBox控件,可以作为一个容器,在它的里面可以包含很多的对象也可以执行很多VB的内部函数 要实现实时曲线的绘制,肯定要有外部实时数据的输入,这里假设是有一个数据从计算机的串口输入 定义该数据变量为DataFromCom实时曲线反映的就是该数据 打开VB60中文版,新建一个项目和窗体,修改窗体的属性,将Heigh修改为:8000,Width修改为在窗体中放如一个PictureBox控件然后重新定义PictureBox控件的一些基本属性,在VB中选中PictureBox控件,直接在它的属性框中,修改一些属性参数名称改为Pic AutoRedraw改为:TrueBackColor改为:H00004000墨绿色背景颜色Heigh改为:5000Width改为:8000如图1所示: 然后......

VB中实时曲线的绘制 在工控制软件中,实时曲线的绘制用途非常的广泛,它可以很直观的显示出监控数据的变化值和变化趋势。在VB中实现曲线的绘制有很多种方法,本文介绍一种非常简单的方法来实现实时曲线的绘制。 在VB中实现实时曲线的绘制,要利用VB的PictureBox(图像)控件,和画线函数line(x1,y1)-(x2,y2)。PictureBox控件,可以作为一个“容器”,在它的里面可以包含很多的对象。也可以执行很多VB的内部函数。 要实现实时曲线的绘制,肯定要有外部实时数据的输入,这里假设是有一个数据从计算机的串口输入 定义该数据变量为DataFromCom。实时曲线反映的就是该数据。 打开VB6.0中文版,新建一个项目和窗体,修改窗体的属性,将“Heigh”修改为:8000,“Width”修改为在窗体中放如一个PictureBox控件。然后重新定义PictureBox控件的一些基本属性,在VB中选中PictureBox控件,直接在它的属性框中,修改一些属性参数。“名称”改为Pic。 “AutoRedraw”改为:True。“BackColor”改为:&H00004000&(墨绿色背景颜色)。”Heigh”改为:5000。“Width”改为:8000。如图1所示: 然后要重新定义PictureBox控件的坐标系。图像框的默认坐标系,是从左上角开始的,不符合我们的画线要求。修改坐标系的目的是让曲线从图像框的左边正中间,开始画线。修改图像框的坐标系,这里定义一个过程PicScale(),代码如下: Private Sub PicScale(picX As PictureBox) picX.Scale (0, PicX.ScaleHeight)-(picX.ScaleWidth, -PicX.ScaleHeight) End Sub 一般的实时曲线显示的时候在屏幕的正中间有一条基准线,这里也要画出这条基准线,用一个过程PicMidleLine()来实现,代码如下: Private Sub PicMidleLine( picX As PictureBox) picX.Line (0, 0)-(picX.ScaleWidth, 0), vbGreen '画出中线 End Sub 要画一条实时曲线,坐标轴的设定很重要,在这里把X轴设定为时间轴,Y轴设定为数据轴。对应X轴我们定义一个时间变量TimeCount,TimeCount会随着时间逐渐递增,每次递增,对应着一个从串口读过来的数据DataFromCom,这样图像框中的(x,y)坐标点实际上就对应着(TimeCount,DataFromCom)如果只是当TimeCount发生变化时就在图像框上画一个点,就只需调用VB中的画像素的函数point(x,y),这里x,y为所画的点的坐标。单这样画出来的是一个个不连续的点。我们想要的是实时的连续的曲线,所以要调用VB中的画线的函数line(x1,y1)-(x2,y2),这里(x1,y1)(x2,y2)为所要画的线的起点和终点的坐标。只要把上次串口读过来的数据(这里把它定义为变量DataFromComLast)和现在串口读过来的数据(DataFromCom)和TimeCount相对应,调用line(x1,y1)-(x2,y2)函数就可以在图像框中画出实时的曲线了。把它写成一个过程如下面的代码: Private Sub DrawRealLine(picX As PictureBox, TimeCountX As Integer, DataFromComX As Integer, DataFromComLastX As Integer) If TimeCountX - 1 > 0 Then picX.Line (TimeCountX - 1, DataFromComLastX)-(TimeCountX, DataFromComX), vbWhite End If End Sub 有了三个过程就可以在图像框中画出一条实时的曲线了。 DrawRealLine()过程中的picX.Line (TimeCountX - 1, DataFromComLastX)-(TimeCountX, DataFromComX), vbWhite所画线的起始点和结束点都是以像素为单位的,这样以来如果不改变的话,画出来的线将是一个屏幕上像素相连的很密的曲线,通过调整line(x1,y1)-(x2,y2) 中的x的值,就可以画出分布密度不一样的曲线,这里为了在屏幕上能够看到不是很密的曲线我们把x乘以一个系数10,修改为: picX.Line ((TimeCountX - 1) * 10, DataFromComLastX)-(TimeCountX * 10, DataFromComX), vbWhite 这比较容易在屏幕上看到稀疏的曲线。 由于是仅仅讲解如何画出实时的曲线,读者的计算机上未必有和串口相连的设备,这里用一个定时器控件来模拟从串口读过来的数据。在窗体上放入一个Timer控件,修改Timer控件的属性为:“Enable”该为True,“Interval”改为300。双击Timer控件在它的过程中,添加代码后如下: Private Sub Timer1_Timer() DataFromComLast = DataFromCom Randomize DataFromCom = 3000 * Rnd TimeCount = TimeCount + 1 DrawRealLine Pic, TimeCount, DataFromCom, DataFromComLast End Sub 这样在运行后就可以看到我们想要的实时曲线了,如下图: 图 2 下面是完整的代码: Option Explicit Dim DataFromCom As Integer '从串口读过来的实时值 Dim DataFromComLast As Integer '上次的串口值 Dim TimeCount As Integer Private Sub Form_Load() PicScale Pic '调整图像框的坐标系 PicMidleLine Pic '在图像框中画一条中线 End Sub Private Sub PicScale(picX As PictureBox) '调整图像框的坐标系 picX.Scale (0, picX.ScaleHeight)-(picX.ScaleWidth, -picX.ScaleHeight) End Sub Private Sub PicMidleLine(picX As PictureBox) '在图像框中画一条中线 picX.Line (0, 0)-(picX.ScaleWidth, 0), vbGreen '画出中线 End Sub Private Sub DrawRealLine(picX As PictureBox, TimeCountX As Integer, DataFromComX As Integer, DataFromComLastX As Integer) If TimeCountX - 1 > 0 Then picX.Line ((TimeCountX - 1) * 10, DataFromComLastX)-(TimeCountX * 10, DataFromComX), vbWhite End If End Sub Private Sub Timer1_Timer() DataFromComLast = DataFromCom Randomize DataFromCom = 3000 * Rnd TimeCount = TimeCount + 1 DrawRealLine Pic, TimeCount, DataFromCom, DataFromComLast '画出实时的曲线 End Sub
更多简介内容

推荐帖子

评论

登录/注册

意见反馈

求资源

回顶部

datasheet推荐 换一换

About Us 关于我们 客户服务 联系方式 器件索引 网站地图 最新更新 手机版 版权声明

北京市海淀区知春路23号集成电路设计园量子银座1305 电话:(010)82350740 邮编:100191

电子工程世界版权所有 京ICP证060456号 京ICP备10001474号-1 电信业务审批[2006]字第258号函 京公网安备 11010802033920号 Copyright © 2005-2021 EEWORLD.com.cn, Inc. All rights reserved
$(function(){ var appid = $(".select li a").data("channel"); $(".select li a").click(function(){ var appid = $(this).data("channel"); $('.select dt').html($(this).html()); $('#channel').val(appid); }) })