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

VB.NET 实时曲线

拖一个PictureBox1控件 创建一个Paint事件。在事件中加入 Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint ' Create pens. Dim redPen As New Pen(Color.Red, 3) Dim greenPen As New Pen(Color.Green, 3) ' Create points that define curve. Dim point1 As New Point(50, 50) Dim point2 As New Point(100, 25) Dim point3 As New Point(200, 5) Dim point4 As New Point(250, 50) Dim point5 As New Point(300, 100) Dim point6 As New Point(350, 200) Dim point7 As New Point(250, 250) Dim curvePoints As Point() = {point1, point2, point3, point4, _ point5, point6, point7} ' Draw lines between original points to screen. e.Graphics.DrawLines(redPen, curvePoints) ' Draw curve to screen. e.Graphics.DrawCurve(greenPen, curvePoints) End Sub 得到数据后,改point的数据。然后PictureBox1.Refresh()就行了

创新互联是一家专业提供新郑企业网站建设,专注与成都网站制作、网站设计、H5响应式网站、小程序制作等业务。10年已为新郑众多企业、政府机构等服务。创新互联专业网站制作公司优惠进行中。

vb.net 绘制实时温度曲线

这个要用GDI+画。要看你.net版本。

以下是VS2005中的一段代码。

Me.PictureBox1.Height = 450

Me.PictureBox1.Width = 880

Dim gr As Graphics '定义画布

Dim bp As New Bitmap(880, 450) '定义位图,并进行赋值

Dim p As New Pen(Color.Black) '定义画笔

p.Width = 2 '宽度2

p.DashStyle = Drawing2D.DashStyle.Solid '样式直线

PictureBox1.Image = bp

gr = Graphics.FromImage(PictureBox1.Image)

gr.FillRectangle(Brushes.White, New Rectangle(0, 0, PictureBox1.Width, PictureBox1.Height))

gr.DrawLine(p, a, b, a, .Height - b) '绘制纵坐标

gr.DrawLine(p, a, .Height - b, .Width - a, .Height - b) '绘制横坐标

VB.NET怎么应用GDI画串口通讯数据的实时曲线

拖一个PictureBox1控件

创建一个Paint事件。在事件中加入

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint

' Create pens.

Dim redPen As New Pen(Color.Red, 3)

Dim greenPen As New Pen(Color.Green, 3)

' Create points that define curve.

Dim point1 As New Point(50, 50)

Dim point2 As New Point(100, 25)

Dim point3 As New Point(200, 5)

Dim point4 As New Point(250, 50)

Dim point5 As New Point(300, 100)

Dim point6 As New Point(350, 200)

Dim point7 As New Point(250, 250)

Dim curvePoints As Point() = {point1, point2, point3, point4, _

point5, point6, point7}

' Draw lines between original points to screen.

e.Graphics.DrawLines(redPen, curvePoints)

' Draw curve to screen.

e.Graphics.DrawCurve(greenPen, curvePoints)

End Sub

得到数据后,改point的数据。然后PictureBox1.Refresh()就行了

vb.net实现实时数据采集曲线,有什么方法,或是书籍呢?

简单说下思路吧,具体的代码可以查资料

首先要会画曲线图,有三种方法:

1、用mschar控件(vb6的);2、用水晶报表;3、用word图表

x轴为时间,y轴为数据

要实现实时数据刷新,只要用 定时器 定时刷新曲线图的数据就可以了(x、y的数据重写)


网页题目:vb.net画实时曲线的简单介绍
地址分享:http://bzwzjz.com/article/dojgsjd.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 成都网站制作 成都网站设计 成都网站建设 网站制作公司 成都营销网站建设 定制级高端网站建设 成都网站建设公司 成都网站建设 成都网站设计公司 高端网站设计 广安网站设计 成都网站设计制作公司 网站建设公司 移动手机网站制作 高端网站建设 营销网站建设 网站制作 达州网站设计 成都网站设计 成都网站设计 成都网站设计 定制网站设计