Краткие теоретические сведения

Краткие теоретические сведения

Построение графиков функций в среде Lazarus. Для построения графических изображений имеется свойство формы Canvas (канва, холст) и его подсвойство Pen (перо). Перо в свою очередь обдадает свойствами Color (цвет) и Width (толщина). Размеры формы определяются свойствами Height (высота) и Width (ширина). Для перемещения из текущего положения в точку (X,Y) служит метод MoveTo(X,Y), для рисования отрезков- LineTo(X,Y), для вывода текста на холст-, TextOut(X,Y,’текст’)

Алгоритм построения графика функции Y=Y(x), где x изменяется на отрезке [a,b] с шагом h

1. Расчет расположения графика на форме

- Отступы от краев формы по горизонтали Hor и вертикали Ver

- Определение положения начала координат X0=Hor; Y0=Form2.Height-Ver

- Вычисление масштабов Mx=Form2.width/Xmax; My=Form2.Height/Ymax 

2. Построение координатных осей

- Горизонтальная MoveTo(X0,Y0); LineTo(Form2.Width-Hor,Y0)

- Вертикальная MoveTo(X0,Y0); LineTo(X0,Ver)

3. Преобразование координат из «обычных» в «экранные» X1:=trunc(X*Mx)+X0; Y0:=trunc(Y*My)+Y0

4. Начальные установки X=a; цвет и толщина пера; помещение пера в начало координат

5. Цикл построения графика:

Пока не достигнут правый конец отрезка 

- Вычисление Y,

- Преобразование координат в «экранные»

- Построение отрезка из текущей точки в точку (X,Y)

- Увеличение x на шаг

Создание приложения с двумя формами. Вторую форму можно создать, например, выбрав в главном меню File, New, Form. Чтобы осуществить взаимодействие двух форм, необходимо включить модуль второй формы в предложение uses раздела реализации модуля первой формы и модуль первой формы в интерфейсный раздел второй формы:

Unit Unit1;

Interface

…

Var Form1:TForm1;

Implementation

// ссылка на модуль 2-ой формы

uses Unit2;

Unit Unit2;

Interface

// ссылка на модуль 1-ой формы

uses Unit1;

…

Var Form2:TForm2;

Implementation

При наступлении определенного события, например, щелчка на кнопке, вторая форма становится видимой и активной, а первая -скрытой:

 Procedure Form1Button1Click();

Begin

 Form2.Show;

Form1.Hide

End;

Возврат на первую форму происходит при щелчке на кнопке, расположенной на второй форме:

 

Procedure Form2Button1Click();

Begin

 Form1.Show;

Form2.Hide

End;