锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net实时曲线图的简单介绍

IT技术像框

vb.net中怎样曲线图，棒图，和饼图vb2010以后的版本就自带Chart控件了 ， 比如
Chart1.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Pie '饼图
vb.net连续绘制曲线图不消失您好vb.net实时曲线图，您是想问vb.net连续绘制曲线图不消失怎么办vb.net实时曲线图？b.net连续绘制曲线图不消失vb.net实时曲线图的解决办法如下vb.net实时曲线图：
1、首先必须创建bitmap,关联到picturebox1.image上 。
2、再在picturebox1.image上创建Graphics,再进行作图 。即可显示线图 。
vb.net实现实时数据采集曲线，有什么方法，或是书籍呢？简单说下思路吧 ， 具体的代码可以查资料
首先要会画曲线图，有三种方法：
1、用mschar控件（vb6的）；2、用水晶报表；3、用word图表
x轴为时间，y轴为数据
要实现实时数据刷新，只要用 定时器 定时刷新曲线图的数据就可以了（x、y的数据重写）
vb中如何画曲线图？我先给你写一段如果不明白加我QQ:905906
在工控制软件中 ， 实时曲线的绘制用途非常的广泛，它可以很直观的显示出监控数据的变化值和变化趋势 。在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 - 10 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 = TimeCount1
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 - 10 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 = TimeCount1
DrawRealLine Pic, TimeCount, DataFromCom, DataFromComLast '画出实时的曲线
End Sub
vb.net绘制曲线图【vb.net实时曲线图的简单介绍】 。net其实还是很好绘制图形的
你可以看下 Graphics类
Dim d As New Bitmap(Me.Width, Me.Height)‘一个图片吧
Dim g As Graphics = Graphics.FromImage(d)’绘制准备在这个图片是进行
然后就是你绘制的东西了
线 就是g.DrawLine()
圆 弧度就用g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)
复杂的就是g.DrawBezier()
等如果你用的是 VS的编译上面都有详细的参数说明
Dim d As New Bitmap(Me.Width, Me.Height)
Dim g As Graphics = Graphics.FromImage(d)
g.DrawArc(Pens.Black, New Rectangle(0, 0, 200, 200), 0, 360)
g.DrawLine(Pens.Red, New Point(0, 0), New Point(200, 200))
g.DrawLines(Pens.Green, New Point() {New Point(0, 0), New Point(50, 40), New Point(50, 80), New Point(90, 70), New Point(100, 400)})
g.DrawBezier(Pens.Yellow, New Point(0, 100), New Point(0, 0), New Point(200, 0）， New Point(200, 200))
g.Dispose()
Me.BackgroundImage = d
关于vb.net实时曲线图和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：阿里服务器平台，阿里服务器在哪个湖

    下一篇：虚拟机的描述怎么设置不了，虚拟机无法设置