Сonst CHANEL_GRAF = 4 'определяем количество каналов Сonst TYPE_GRAF = 3 ' 1=линейный, 2=залитый, 3=оба типа Сonst Buf_grl = 50 'определяем размер буфера
'------------------------------------------------ Подключаем библиотеку ------------------------------------------------- '---------------------------------------------------------------------------------------------------------------------------------- Сonst graf1 = 1 'для удобства определяем имя графа
MAX_VALUE ( graf1 ) = 50 'максимальное входное значение графа h_graf ( graf1 ) = 50 'высота графа px w_graf ( graf1 ) = 120 'ширина графа px ' point_graf_x ( graf1 ) = 20 'если тип графа линейный то указываем количество точек на граф
Call init_ploter ( graf1 ) 'инициализируем граф 1
Dim dates as byte 'данные
Do
dates = RND (MAX_VALUE ( graf1 ) ) ' в функции указываем: (имя , тип , данные , X позицию , Y позицию) Call write_point_ploter ( graf1 , 1 , dates , 10 , 70 ) 'выводим точку графа
| 
