Построение графика по массиву данных в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д