Вывод Графиков на Форму

Вот такое замудрённое задание

Создать меню пользователя для вывода графика и табулирования значений функции на экран и в текстовое окно. На форме разместить четыре текстовых поля со значениями TEXT2.TEXT -начала интервала Х1, TEXT3.TEXT - конца интервала Х2, TEXT4.TEXT -кроку DX. TEXT1.TEXT -для табулирования функции.
Заданную функцию (см. вложения) разместить в индивидуальной функции. Создать процедуру Sub DrawGraph()
В ней задать начальное и конечное значение аргумента функции Х1 и Х2 и шаг изменения аргумента DX. Найти максимальное и минимальное значение функции. Ymax и Ymin.
Задать область для вывода графику функции. Для этого задать координаты левого верхнего угла вывода функции, например L=10 (кордината Х левого нижнего угла);
B=Form1.ScaleHeight - 20(кордината У левого верхнего угла);
H = Form1.ScaleHeight - 40 (высота области вывода);
W= Form1.ScaleWidth - 20 (ширина области вывода).
найти маштаб выводу графику по осе Х и В (mx и my)
За исходную точку вывода графику взять точку (Х0, У0) с координатами
Х0=L У0=b - ABS(Round(y1*my))
Промальовку осей координат получить с помощью стандартной функции Line, которая имеет вид, :
Line (координата Х, координата В ) -( координата Х, координата У) -вісьУ
Line (координата Х, координата В ) -( координата Х, координата У) -вісь Х подписать минимальное и максимальное значение функции на форме с помощью таких операторов.
Form1.CurrentX=L+5
Form1.CurrentY=b - H
Print Format$(Y2",##0.000")
Form1.CurrentX=L+5
Form1.CurrentY=b - 12
Print Format$(Y1",##0.000")
В программу вставить обработку события Paint
Private Sub Form_Paint()
Call DrawGraph
End Sub и процедуру изменения размера окна программы
Private Sub Form_Resize()
Call DrawGraph
End Sub


спасибо всем заранее за участие

Изображения

 

0

Всё ж расписано подробно!
В чём вопрос?

0