Рисование гистограммы в VB
Формулировка задачи:
Считывает показания с трех датчиков из файла:
Нужно нарисовать гистограмму.
1 линия=1 датчик и т.д. в каждый момент времени.
30 минут.
Движение вдоль оси y, я вроде как реализовал, а по x не движется.
Решение задачи: «Рисование гистограммы в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д