Изобразить динамичный график - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Всем привет, как с помощью ZedGraph или что то другого сделать живой график. К примеру есть некий баланс, он меняется каждую секунду, как это отобразить на графике.

Решение задачи: «Изобразить динамичный график»

textual
Листинг программы
Public Class Form1
    Dim dx As Integer
    Dim old, cur As Integer
    Dim rnd As Random
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        dx = 5
        old = PictureBox1.Height / 2
        Dim bmp As New Bitmap(PictureBox1.Width, PictureBox1.Height)
        PictureBox1.Image = bmp
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        rnd = New Random
        Timer1.Start()
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Dim bmp As New Bitmap(PictureBox1.Width, PictureBox1.Height)
        Dim gr As Graphics = Graphics.FromImage(bmp)
        gr.DrawImage(PictureBox1.Image, -dx, 0)
        cur = rnd.Next(1, PictureBox1.Height - 1) 'моделирование данных
        gr.DrawLine(Pens.Red, PictureBox1.Width - 1 - dx, old, PictureBox1.Width - 1, cur)
        old = cur
        PictureBox1.Image = bmp
    End Sub
End Class

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4 из 5