VB.NET使用CHART控件做实时曲线.pdfVIP

VB.NET使⽤CHA RT控件做实时曲线 使⽤CHART 控件做实时曲线 编程，因⼀⼯程需要将现场数据采集过 ，并以实时曲线的⽅式，显⽰出 ，顾写了个例⼦程序，供⼤家参考，不对的地⽅请⼤家指正，谢 谢 ！ 废话不多说，下⾯是整个代码，希望能够帮到⼤家。 Imports System.Windows.Forms.DataVisuali ation.Charting Public Class Form1 //定义曲线1X轴变量为时间 Private X1(19) As String //定义曲线1Y轴变量为瞬时流量 Private Y1(19) As Double //定义曲线2X轴变量为时间 Private X2(19) As String //定义曲线2Y轴变量为瞬时流量 Private Y2(19) As Double //定义画图区域变量 Private fluxArea As ChartArea //定义Serial对象 Private fluxLine1 As Series Private fluxLine2 As Series //定义Legends对象 Private fluxLegend As Legend Private Sub InitChartSet() //初始化Chart对象设置 //设置控件背景⾊ Chart 1.BackColor = Color.Black //定义标题对象变量 Dim ChartTitle As New Title //设置Title信息 With ChartTitle .Text = ⽪带秤流量实时曲线 .Text = ⽪带秤流量实时曲线 .ForeColor = Color.Yellow .Font = New System.Drawing.Font(微软雅⿊, 16.0 !, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) End With //清除所有标题对象 Chart 1.Titles.Clear() Chart 1.Titles.Add(ChartTitle) //清空画图区域 Chart 1.ChartAreas.Clear() //创建chartarea对象实例 fluxArea = New ChartArea(fluxArea) //将定义的画图区域添加到chart Chart 1.ChartAreas.Add(fluxArea) //设置显⽰区域 With fluxArea //设置背景颜⾊为⿊⾊ .BackColor = Color.Black //设置X轴最⼩值 .AxisX.Minimum = 1 //设置X轴最⼤值 .AxisX.Maximum = 20 //设置X轴 .AxisX.Interval = 1 //设置X轴标题 .AxisX.Title = 时间 //设置X轴标题字体 .AxisX.TitleFont = New System.Drawing.Font(微软雅⿊, 9.75 !, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byt e))