Построение графика по массиву данных в VB

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

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

Здравствуйте, а вы не подскажете, как мне построить график в VB, у меня есть двухмерный массив (2 столбца и 20 строк), данные одного столбца расположить по оси у, а другого по оси х, чтобы были оси, подписанные, и разметки на осях

Решение задачи: «Построение графика по массиву данных в VB»

textual
Листинг программы
Option Explicit
Dim i, w, h, j
Dim xn, yn, st
Dim a(2, 120), t
Private Sub Command1_Click()
 
 Picture1.PSet (a(1, 1), h - st - a(2, 1))
For i = 2 To 120
  Picture1.Line -(a(1, i), h - st - a(2, i))
Next i
 
End Sub
 
Private Sub Form_Load()
w = 340: h = 360: st = 20
Picture1.ScaleWidth = w
Picture1.ScaleHeight = h
 
For i = 1 To 2
For j = 1 To 120
a(i, j) = Int(Rnd * 210) + 110
Next j
Next i
 
For j = 1 To 119
For i = j To 120
If a(1, j) > a(1, i) Then
t = a(1, j): a(1, j) = a(1, i): a(1, i) = t
End If
If a(2, j) > a(2, i) Then
t = a(2, j): a(2, j) = a(2, i): a(2, i) = t
End If
Next i
Next j
 
Call ks
End Sub
Private Sub ks()
Picture1.Line (0, h - st)-(w, h - st)
Picture1.Line (0.1, 0)-(0.1, h)
 
For i = 0 To w Step st
Picture1.Line (i, h - st - 2)-(i, h - st + 2)
Picture1.Print i
Next i
 
For i = h To 0 Step -st
Picture1.Line (-0.1, i)-(2, i)
If i <> h - st Then Picture1.Print (h - i - st)
Next i
End Sub

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


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

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

14   голосов , оценка 3.643 из 5
Похожие ответы