Рисование гистограммы в VB - VB

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

Считывает показания с трех датчиков из файла:
Private Sub Command1_Click()
Picture1.Cls
Picture2.Cls
Picture3.Cls
Picture4.Cls
Picture5.Cls
Picture6.Cls
file = Text1
Open file For Input As #1
For i = 1 To 30
For j = 1 To 3
Input #1, am(i, j)
Next
Next
Close #1
Нужно нарисовать гистограмму. 1 линия=1 датчик и т.д. в каждый момент времени. 30 минут. Движение вдоль оси y, я вроде как реализовал, а по x не движется.
For i = 1 To 30
For j = 1 To 3
ac(t, e) = am(i, j)
For t = 1 To 30
a = am(t, 1)
b = am(t, 2)
c = am(t, 3)
For p = 0 To 1000 Step 100
x_01 = p + 20
For d = 0 To 1000 Step 100
x_02 = d + 70
For h = 0 To 1000 Step 100
x_03 = p + 120
Picture1.DrawWidth = 5
Picture1.Line (x_01, 0)-(x_01, a + 100), RGB(30, 100, 200)
Picture1.Line (x_02, 0)-(x_02, b + 100), RGB(255, 0, 0)
Picture1.Line (x_03, 0)-(x_03, c + 100), RGB(0, 255, 0)
Next t
 
Next
Next

Код к задаче: «Рисование гистограммы в VB - VB»

textual
For i = 1 To 30
For j = 1 To 3
ac(t, e) = am(i, j)
For t = 1 To 30
a = am(t, 1)
b = am(t, 2)
c = am(t, 3)
For p = 0 To 1000 Step 100
x_01 = p + 20
x_02 = p + 70
x_03 = p + 120
Picture1.DrawWidth = 5
Picture1.Line (x_01, 0)-(x_01, a + 100), RGB(30, 100, 200)
Picture1.Line (x_02, 0)-(x_02, b + 100), RGB(255, 0, 0)
Picture1.Line (x_03, 0)-(x_03, c + 100), RGB(0, 255, 0)
Next t
 Next 
Next
Next

8   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ