3. Разработка программных модулей

3.1.Инструменты

Для инструментов графического редактора используется следующий код:

procedure TForm1.btn6Click(Sender: TObject);

begin

lbl1.Visible := true;

edt1.Visible := true;

ud1.Visible := true;

rb1.Visible := false;

rb2.Visible := false;

end;

procedure TForm1.btn8Click(Sender: TObject);

begin

lbl1.Visible := true;

edt1.Visible := true;

ud1.Visible := true;

rb1.Visible := true;

rb2.Visible := true;

end;

procedure TForm1.btn7Click(Sender: TObject);

begin

lbl1.Visible := true;

edt1.Visible := true;

ud1.Visible := true;

rb1.Visible := true;

rb2.Visible := true;

end;

procedure TForm1.btn4Click(Sender: TObject);

begin

lbl1.Visible := true;

edt1.Visible := true;

ud1.Visible := true;

rb1.Visible := false;

rb2.Visible := false;

end;

procedure TForm1.btn1Click(Sender: TObject);

begin

lbl1.Visible := true;

edt1.Visible := true;

ud1.Visible := true;

rb1.Visible := false;

rb2.Visible := false;

end;

procedure TForm1.btn3Click(Sender: TObject);

begin

lbl1.Visible := true;

edt1.Visible := true;

ud1.Visible := true;

rb1.Visible := false;

rb2.Visible := false;

end;

procedure TForm1.btn2Click(Sender: TObject);

begin

lbl1.Visible := true;

edt1.Visible := true;

ud1.Visible := true;

rb1.Visible := false;

rb2.Visible := false;

end;

3.2.Толщина линии

Для выбора толщины линии используется следующий код:

procedure TForm1.edt1Change(Sender: TObject);

begin

fat := strtoint(edt1.text);

if not btn5.Down then

img1.Canvas.Pen.Width := fat;

end;

3.3. Сохранение

Для сохранения программы используется следующий код:

procedure TForm1.N3Click(Sender: TObject);

var

bmp: TBitmap;

begin

if fopen then

begin

try

bmp := TBitmap.Create;

bmp.Assign(img1.Picture);

bmp.SaveTofile(ChangeFileExt(fname, '.bmp'));

finally

bmp.Free;

end;

end

else

begin

dlg1.Execute;

try

bmp := TBitmap.Create;

bmp.Assign(img1.Picture);

bmp.SaveTofile(ChangeFileExt(dlg1.FileName, '.bmp'));

finally

bmp.Free;

end;

fopen := true;

end;

fsave := true;

end;

4. Программа и методика испытаний

4.1. Этапы отладки

Отладка программы является достаточно сложным процессом обнаружения и исправления ошибок, которые обычно требует последовательного выполнения четырех этапов:

• выявление ошибки;

• локализация ошибки в тексте программы;

• установление причины ошибки;

• исправление ошибки.

В конкретных ситуациях перечисленные этапы могут пересекаться, некоторых из них может и не быть, однако в общем случае дело обстоит именно так.

4.2. Типы ошибок

Тестирование программы включает в себя проверку её работы в различных условиях с целью определить корректность её работы.

Так как разрабатываемый программный продукт предназначен главным образом для генерации фрактальных моделей, то особое внимание было уделено именно проверке прорисовки фракталов.

Найденные ошибки устранялись, и тестирование продолжалось до тех пор, пока работа приложения не была признана удовлетворительной.

Разработка любой программы предполагает наличие в исходном тексте ошибок и борьбу с ними. Все практически неисчислимое множество возможных ошибок обычно подразделяют на две группы:

• синтаксические ошибки;

• смысловые (логические) ошибки.

Синтаксические ошибки – это самые простые ошибки, которые легко устраняются уже на этапе компиляции. Причина их одна  неправильная запись служебных слов, операторов.

Смысловые (логические) ошибки – самые сложные и трудноуловимые. Они проявляются в том, что программа ведет себя не так, как предполагалось. Последствия смысловых ошибок могут быть самыми разными: неправильное содержимое окна, невыполнение или неверное выполнение команд пользователя, неправильное содержимое таблиц и многое другое. На борьбу со смысловыми ошибками уходит почти все время отладки.