前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >VB.NET CHART图表示例

VB.NET CHART图表示例

作者头像
一线编程
发布2019-07-22 14:47:41
4.4K0
发布2019-07-22 14:47:41
举报
文章被收录于专栏:办公魔盒

Imports System.Windows.Forms.DataVisualization.Charting

Imports System.Threading

Public Class Form1

Dim x(10) As String, y(10) As Double '示例中显示11条数据

Dim yy() As Double

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

'按钮单击事件模拟取数

yy = GetValue()

Dim i As Integer

For i = 0 To yy.Length - 1

y(i) = yy(i)

Next

Chart1.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Line

Chart1.Series(0).Points.DataBindXY(x, y)

Chart1.Series(0).IsValueShownAsLabel = True

Chart1.Series(0).LabelForeColor = Color.Red

Chart1.ChartAreas(0).AxisX.Minimum = 0

Chart1.ChartAreas(0).AxisX.Maximum = yy.Length

Chart1.ChartAreas(0).AxisX.Interval = 1

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

Timer1.Enabled = True

Timer1.Interval = 500

Chart1.Dock = DockStyle.Fill

'Button1.BringToFront()

Chart1.ChartAreas(0).AxisX.MajorGrid.Enabled = False

Chart1.ChartAreas(0).AxisY.MajorGrid.Enabled = False

End Sub

Function GetValue() As Array '这是一个模拟取数的函数

Dim a As Integer = 0

If yy Is Nothing Then

a = 0

Else

a = yy.Length

End If

If a = 11 Then

For i As Integer = 0 To 9

yy(i) = yy(i + 1)

x(i) = x(i + 1)

Next

yy(10) = Math.Round(a * Rnd(100) * 1.0264, 2)

x(10) = Format(Now, "hh:mm:ss")

Else

ReDim Preserve yy(a)

yy(a) = Math.Round(a * Rnd(100) * 1.0264, 2)

x(a) = Format(Now, "hh:mm:ss")

End If

Return yy

End Function

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

yy = GetValue()

Dim i As Integer

For i = 0 To yy.Length - 1

y(i) = yy(i)

Next

Chart1.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Line

Chart1.Series(0).Points.DataBindXY(x, y)

Chart1.Series(0).IsValueShownAsLabel = True

Chart1.Series(0).LabelForeColor = Color.Red

Chart1.ChartAreas(0).AxisX.Minimum = 0

Chart1.ChartAreas(0).AxisX.Maximum = yy.Length

Chart1.ChartAreas(0).AxisX.Interval = 1

End Sub

End Class

本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2018-12-24,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 办公魔盒 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档