2.2 Формы и основные модули текста программы в среде Delphi
При решении поставленной задачи будут использованы следующие объекты:
Рисунок 2.1 – объекты главной формы
- Button - командная кнопка;
- Image – компонента для вывода графической информации;
Рисунок 2.2 – объекты дополнительной формы
- Label - информационные метки;
Основная форма приложения имеет вид :
Рисунок 2.3 – вид основной формы программы
Дополнительная форма выглядит так:
Рисунок 2.4 – вид дополнительной формы программы
Основной модуль текста программы:
procedure gf;
const
iterations = 500000; //Кол-во итераций
var
t, x, y: real;
p:real; //Случайная величина
k:longint;
mid_x, mid_y, radius: integer;
begin
mid_x := form1.width div 2;
mid_y:=form1.height-200 ;//Масштабирование и координирование изображения
radius := trunc(0.1 * mid_y);
randomize;
x := 1.0;
y := 0.0;
for k := 1 to iterations do
begin
p := random;
t := x;
if p <= 0.85 then //Построение верхней части листа
begin
x:= 0.84 *x-0.045 *y;
y := 0.045 * t + 0.86 * y + 1.6;
end
else
if p <= 0.92 then //Построение левого листа
begin
x := 0.25 * x - 0.26 * y;
y := 0.23 * t + 0.25 * y + 1.6;
end
else
ifp<= 0.99then//Построение стебля
begin
x := -0.135 * x + 0.28 * y;
y := 0.26 * t + 0.245 * y + 0.44;
end
else
begin
x := 0.0;
y := 0.16 * y ;
end;
Form1.image1.Canvas.Pixels[mid_x+round(radius*x),mid_y-round(radius*y)+35]:=clGreen //Вывод изображения
end;
end;
2.3 Результаты тестирования программного продукта
Кратко о программе:
Код главной формы находится в Unit1.pas (Приложение А)
Кнопка «Очистить форму» становится доступной только после нажатия на кнопку «Изобразить фрактал».
Изображение фрактала «Лист папоротника» получается при нажатии кнопки «Изобразить фрактал». При этом данная кнопка становится не активной, т. к. в повторных итерациях нет необходимости. Кнопка «Очистить форму» становится доступной.
Канва компонента Image очищается нажатием на кнопку «Очистить форму».
При нажатии кнопки «Об авторе» главная форма становится невидимой, а дополнительная, содержащая информацию об создателе приложения появляется на экране.
Код второй формы находится в Unit2.pas (Приложение Б)
Кнопка «Вернуться назад» возвращает пользователя на исходную форму.
Закрыть приложение можно, нажав на кнопку «Закрыть», стандартно располагающуюся в верхнем правом углу программы.
Для открытия программы нужно запустить файл Project1.exe.
Программа выглядит так:
Рисунок 2.5 – визуальное представление программы
1.Для получения изображения листа папоротника нужно нажать кнопку «Изобразить фрактал».
Рисунок 2.6 –результат нажатия кнопки «Изобразить фрактал»
2.Программа предоставляет возможность очистки окна с изображением, что можно сделать, нажав на кнопку «Очистить форму».
Рисунок 2.7 – при очистке формы
3.Так же можно узнать информацию об авторе данного приложения, нажав на кнопку «Об авторе».
Рисунок 2.8 – информация о создателе приложения
4.При нажатии кнопки «Вернуться назад» пользователь переместится на главную форму.
Рисунок 2.9 – Вернуться назад
5.Закрытие программы осуществляется нажатием на кнопку «Закрыть», стандартно располагающуюся в верхнем правом углу программы.