Font.Color:=clBlack;

Pen.Color:=clBlack;

Pen.Width:=1;

Pen.Style:=psSolid;

Ellipse(ekrX(xA)-3,ekrY(yA)-3,ekrX(xA)+3,ekrY(yA)+3);

Ellipse(ekrX(xB)-3,ekrY(yB)-3,ekrX(xB)+3,ekrY(yB)+3);

Ellipse(ekrX(xC)-3,ekrY(yC)-3,ekrX(xC)+3,ekrY(yC)+3);

Ellipse(ekrX(xD)-3,ekrY(yD)-3,ekrX(xD)+3,ekrY(yD)+3);

end;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

v:=1;

xA:=StrToFloat(Edit1.Text);

yA:=StrToFloat(Edit2.Text);

xB:=StrToFloat(Edit3.Text);

yB:=StrToFloat(Edit4.Text);

xC:=StrToFloat(Edit5.Text);

yC:=StrToFloat(Edit6.Text);

xD:=StrToFloat(Edit7.Text);

yD:=StrToFloat(Edit8.Text);

c:=0;

repeat

begin

case c of

0:begin Xn:=xA;Yn:=yA;end;

1:begin Xn:=xB;Yn:=yB;end;

2:begin Xn:=xC;Yn:=yC;end;

3:begin Xn:=xD;Yn:=yD;end;

end;

c1:=0;

repeat

begin

case c1 of

0:begin Xn1:=xA;Yn1:=yA;end;

1:begin Xn1:=xB;Yn1:=yB;end;

2:begin Xn1:=xC;Yn1:=yC;end;

3:begin Xn1:=xD;Yn1:=yD;end;

end;

if c<>c1 then

begin

If Xn=Xn1 then

begin

if Yn=Yn1 then

begin

ShowMessage('Найдены были одинаковые координаты двух точек.'+#13+

'Пожалуйста откорректируйте введенные координаты.',);

c:=4;c1:=4;v:=0;

end;

end;

end;

end;

If (Xn<xmin) or (Xn>xmax) or (Yn<Ymin) or (Yn>Ymax) then

begin

c:=4;c1:=4;v:=0;

ShowMessage('Одна из введенных точек выходит'+#13+'за пределы координатной плоскости');

end;

c1:=c1+1;

until(c1>3);

end;

c:=c+1;

until(c>3);

paintbox1.Repaint;

end;

procedure TForm1.ColorBox1Change(Sender: TObject);

begin

Paintbox1.Repaint;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

Paintbox1.Repaint;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

v:=0;

label5.Caption:='';

Paintbox1.Repaint;

end;

procedure TForm1.ColorBox2Change(Sender: TObject);

begin

Paintbox1.Repaint;

end;

procedure TForm1.CheckBox2Click(Sender: TObject);

begin

Paintbox1.Repaint;

end;

procedure TForm1.CheckBox3Click(Sender: TObject);

begin

Paintbox1.Repaint;

end;

procedure TForm1.ColorBox3Change(Sender: TObject);

begin

Paintbox1.Repaint;

end;

procedure TForm1.ColorBox4Change(Sender: TObject);

begin

Paintbox1.Repaint;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

PaintBox1.Repaint;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form3.ShowModal;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form4.ShowModal;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form5.ShowModal;

end;

procedure TForm1.Bycnherwbz1Click(Sender: TObject);

begin

Form6.ShowModal;

end;

end.

Форма заставки:

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, OleCtnrs;

type

TForm2 = class(TForm)

Timer1: TTimer;

OleContainer1: TOleContainer;

procedure Activate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Activate(Sender: TObject);

begin

Timer1.Interval:=5000;

Timer1.Enabled:=True;

end;

procedure TForm2.Timer1Timer(Sender: TObject);

begin

Form1.Visible:=True;

vis:=1;

Form2.Close;

end;

end.

Форма «О программе»:

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, OleCtnrs;

type

TForm3 = class(TForm)

OleContainer1: TOleContainer;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

end.

Форма «Пример»:

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, OleCtnrs;

type

TForm4 = class(TForm)

OleContainer1: TOleContainer;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

end.

Форма «Аналитика»:

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, OleCtnrs;

type

TForm5 = class(TForm)

OleContainer1: TOleContainer;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

end.

Форма довідки:

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, OleCtnrs;

type

TForm6 = class(TForm)

OleContainer1: TOleContainer;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

{$R *.dfm}

end.

Код проекту:

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2},

Unit3 in 'Unit3.pas' {Form3},

Unit4 in 'Unit4.pas' {Form4},

Unit5 in 'Unit5.pas' {Form5},

Unit6 in 'Unit6.pas' {Form6};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TForm3, Form3);

Application.CreateForm(TForm4, Form4);

Application.CreateForm(TForm5, Form5);

Application.CreateForm(TForm6, Form6);

Application.Run;

end.

Рисунок 6 - Екранна заставка

Після завершення часу трансляції з'явиться головна форма (Рисунок 7).

Рисунок 7 - Головна форма додатку

Перш за все, слід ввести початкові дані, на підставі яких буде виконуватись обчислення. Вводяться вони у поля редагування поля «Начальные данные» (Рисунок 8).

Рисунок 8 - Панель "Начальне данные"

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

Після заповнення цих полів можна розпочати власне саму графічну побудову рішення. Здійснюється це за допомогою кнопки «Рисовать» у нижній правій області форми. Поруч знаходиться кнопка «Стереть», за допомогою якої виконується очистка форми, а трохи вище -- панель «Результат», в якій після натискання на кнопку «Рисовать» відображається результат обчислення (Рисунок 9).

Рисунок 9 - Панель "Результат"

Зверху форми знаходиться панель «Настройка» (Рисунок 10), компоненти якої здійснюють налаштування інтерфейсу. Панель містить:

– індикатори «Сетка», «Оси», «Оцифровка осей», що виконують регулювання відображення сітки, оцифровування осей та оцифровування осей відповідно (режим «відображати»/»не відображати»);

– чотири випадаючих списка для регулювання кольорів на формі («Цвет сетки», «Цвет осей», «Цвет оцифровки», «Цвет рисунка»);

– випадаючий список для регулювання товщини ліній («Толщина линий»).

Рисунок 10 - Панель «Настройки»

Підменю «Аналитическое» меню «Решение задач» познайомить користувача з аналітичними відомостями (Рисунок 12), а підменю «Пример» того ж меню надасть приклад математичного рішення (Рисунок 13).

Рисунок 11 - «Решение задач»

Рисунок 12 - Аналітичне рішення

Рисунок 13 - Приклад рішення

Меню «Инструкция» здійснює виклик довідки по користуванню додатком (Рисунок 14).

Рисунок 14 - Інструкція користувача

Відомості про автора можна побачити, натиснувши на меню «Об авторе» (Рисунок 15).

Рисунок 15 - Про автора

3.2 Тестування проекту для тих даних, що використовувалися в консольному режимі

Рисунок 16 - Приклад роботи програми

Таблица 1 - Файли проекту

Список використаних джерел

1. Інтернет-ресурс: http://expert.Delphi.int.ru/ (онлайн довідник по Delphi).

2. Інтернет-ресурс: http://www.delphiworld.narod.ru («Delphi World» -- статі про Delphi).

3. Інтернет-ресурс: http://ivt.kgpi.ru/.

4. Інтернет-ресурс: http://delhpi.mastak.ru.

5. Сухарёв М. В. Основы Delphi. Профессиональный подход -- СПб.: Наука и Техника, 2004. -- 600 с.: ил.

6. Коцюбинский А.О., Грошев С.В. Язык программирования Delphi 5 -- М.: «Издательство Триумф», 1999. -- 288 с.

7. Ильина Т.А. Программирование на Delphi 6 -- М.: Питер, 2000. -- 318 с.

8. Шапошников И. Delphi 5 -- М.: Санкт-Петербург, 2001. -- 203 с.

9. А.Я. Архангельский «Программирование в Delphi 6», Москва, ЗАО «Издательство БИНОМ», 2001 г., 1120 с.

Страницы: 1, 2, 3, 4