Розробка проекту в середовищі Delphi для дослідження та розрахунку грошової оцінки землі (на прикладі ФГ "Годів+Р.Е" с. Нежухів, Стрийського району, Львівської області)

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Зміст

Вступ

1. Теоретична частина

1.1 Характеристика господарства

1.2 Постановка задачі та визначення складу вхідних та вихідних даних та способу їх організації

1.3 Вибір методів і програмних засобів

1.3.1 Середовище візуального програмування Delphi

1.3.2 Вікно форми

1.3.3 Підпрограми

1.3.4 Процедури

2. Практична частина

2.1 Алгоритм рішення задачі

2.2 Код програми

2.2.1 Текст коду допоміжного вікна проекту «Авторизація»

2.2.2 Текст коду програми титульної сторінки програми

2.2.3. Текст коду головного вікна проекту

2.2.4 Текст коду допоміжного вікна проекту «Про автора»

2.2.5 Текст коду допоміжного вікна проекту «Оцінювання»

2.2.6 Текст коду допоміжного вікна проекту «Характеристика господарства»

2.3 Реалізація функціональних вимог

2.4 Інструкція з експлуатації системи

Висновки

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

Вступ

Створення системи інформаційної підтримки аграрних підприємств на основі сучасних комп'ютерних технологій є найбільш перспективним завданням аграрного сектора економіки України. Основними етапами вирішення цієї проблеми є: комп'ютеризація фермерських господарств і підвищення кваліфікації фермерів, створення системної бази, а у перспективі - формування єдиного інформаційного простору агробізнесу. Інформаційна складова у процесах управління аграрними підприємствами і прийняття рішень ставатиме дедалі вагомішою, а вимоги до неї постійно зростатимуть.

Недостатнє інформаційне забезпечення стримує розвиток малого агробізнесу. Фермерський сектор характеризується недостатнім рівнем використання комп'ютерних технологій, відсутністю необхідних знань та інформаційної культури. Основним стримуючим фактором формування сучасних інформаційних систем є відсутність необхідної технічної бази в умовах дефіциту грошових коштів у багатьох фермерських господарствах.

Виконуючи цей курсовий проект я «внесу свою лепту» в майбутнє фермерського господарства України, яка допоможе швидко і якісно опрацювати інформацію для дослідження та розрахунку грошової оцінки землі. Це програмне забезпечення буде зрозумілим і всяко направляти користувача-новачка на правильний шлях для досягнення мети.

1. Теоретична частина

1.1 Характеристика господарства

Фермерське господарство «Годів+Р.Е.» розташоване в селі Нежухів Стрийського району Львівської області. Основним видом діяльності фермерського господарства є розведення великої рогатої худоби. Крім цього на зовнішньоекономічному ринку підприємство займається розведенням різних видів птиці.

Нежухів -- село в Стрийському районі Львовскої області України.

Населення по перепису 2001 року становило 2.275 осіб. Село займає площу 17,1 кмІ. Поштовий індекс -- 82431. Телефонний код -- 3245. Щільність населення (осіб/кв.км) - 129.630. В селі протікає річка Нежухівка.

Рис. 1.1 Фотографія із супутника села Нежухів

Сполучається село Нежухів з містом Стриєм - маршрутним таксі, автобусом.

В селі є сільська рада, також є початкова школа.

Органом управління Нежухова є сільська рада, підпорядкована СРРДА (сільська рада районної державної адміністрації) і СРР (стрийській районній раді).

Також на території села Нежухів знаходяться два магазини, які перебувають у приватній власності на викуплений земельних ділянках.

Рис 1.2 Фотографія села Нежухів

1.2 Постановка задачі, визначення складу вхідних та вихідних даних і способу їх організації

Розробка проекту в середовищі Delphi для дослідження та розрахунку грошової оцінки землі (на прикладі ФГ «Годів+Р.Е.» с. Нежухів, Стрийського району, Львівської області)

Обрахунки здійснюються за формулою:

Нормативна грошова оцінка земель населених пунктів:

(1.1)

де, Цн - нормативна грошова оцінка квадратного метра земельної ділянки:

В - витрати на освоєння та облаштування території в розрахунку на квадратний метр (у гривнях);

Hn - норма прибутку (6 %);

Нк - норма капіталізації(3 %);

Кф - коефіцієнт, який характеризує функціональне використання земельної ділянки (під житлову та громадську забудову, для промисловості, транспорту тощо);

Км - коефіцієнт, який характеризує місце розташування земельної ділянки.

Км = Км1 х Км2 х Км3(1.2)

де Км1 - коефіцієнт, який характеризує регіональні фактори місцеположення земельної ділянки, зокрема:

а) чисельність населення та адміністративний статус населеного пункту, його місце в системі населення;

б) розміщення в межах населених пунктів, розташування у приміських зонах великих міст;

в) розміщення в межах населених пунктів, що мають статус курортів.

Км2 - коефіцієнт, який характеризує загальні фактори місцезнаходження земельної ділянки в межах населених пунктів, зокрема:

а) відстань до загальноміського центру населеного пункту, концентрованих місць праці, масового відпочинку населення;

б) розташування в ядрі центру великих і найбільших міст та інші населених пунктів, що мають особливо важливе історичне значення в приморській смузі населених пунктів.

Км3 - коефіцієнт, який характеризує локальні фактори місцеположення земельної ділянки за територіально-планувальними, інженерно-технологічними, історико-культурними, природно-ландшафтними, санітарно-гігієнічними умовами та рівнем облаштування території.

Таблиця 1.1. Використання інформаційних технологій фермерами

1.3 Вибір методів і програмних засобів

1.3.1 Середовище візуального програмування Delphi

Delphi - є середовищем розробки програм, яке використовує багато передових ідей і концепцій, закладених в графічному інтерфейсі Windows. Як відомо, середовище розробки великою мірою визначає ефективність роботи програміста. У середовищі програмування Delphi є всі необхідні інструменти для того, щоб створювати повноцінні програми. Писати, компілювати і тестувати програму - все це можна робити, не виходячи з Delphi. Запустити середовище програмування Delphi можна, якщо двічи клацнути на ярлик для Delphi на робочому столі або за допомогою меню Пуск.

Інтегроване середовище Delphi складається з чотирьох основних елементів:

1. головне вікно;

2. вікно інспектора об'єктів;

3. вікно форми та вікно модуля;

4. вікно коду;

1.3.2 Вікно форми

Вікно, яке ми бачимо в центрі, називається формою. Під час розробки форма являє собою вікно програми. У цьому вікні проходить основна частина роботи по проектуванню програми. Деякі елементи у вікні форми (лінії сітки, невізуальні компоненти) не будуть видимими під час виконання програми. Але, оскільки Delphi - це середовище програмування типу WYSIWYG (What - You - See - Is - What - You - Get, що бачите, те й отримаєте), то більша частина того, що ми бачимо під час проектування є тим, що ми побачимо і під час виконання програми. Вікно форми не обов'язково повинно виглядати так, як на малюнку. Є можливість змінити різні його властивості, наприклад, прибрати кнопки максимізації та мінімізації вікна тощо.

1.3.3 Підпрограми

Підпрограми призначені для реалізації алгоритмів опрацювання окремих частин деякої складної задачі. Вони дають змогу реалізовувати концепцію структурного програмування, суть якого полягає в розкладанні складної задачі на послідовність простих підзадач і в складанні для алгоритмів розв'язування кожної підзадачі відповідних підпрограм. Розрізняють два види підпрограм:

1. підпрограми-процедури;

2. підпрограми-функції;

Підпрограми поділяються на:

1. стандартні;

2. підпрограми користувача;

Стандартні підпрограми створювати не потрібно вони містяться у стандартних модулях System, Crt, Dos, Graph тощо.

Підпрограма користувача - це пойменована група команд, яку створюють і описують в основній програмі в розділах procedure або function і до якої звертаються з будь-якого місця програми потрібну кількість разів.

1.3.4 Процедури

Процедури (procedure). Загальний опис процедури:

procedure <назва> (ссписок формальних параметрів>);

<розділи описів і оголошень процедури>;

begin

<розділ команд процедури>;

end;

У списку формальних параметрів перераховують змінні разом із зазначенням їхніх типів. Розрізняють параметри-аргументи (інший термін: параметри-значення) вхідні дані для процедури, і параметри-результати (інший термін: параметри-змінні), через які можна повертати результати роботи процедури в основну програму. Перед списками параметрів-результатів кожного типу записують слово var.

Зауважимо, що масиви фіксованих розмірів у списках формальних параметрів не можна описувати за допомогою слова array (див. зразки програм).

Розділи описів і оголошень у підпрограмах мають таку саму структуру як і в основній програмі.

До процедури звертаються з розділу команд основної програми або іншої підпрограми. Процедуру викликають за допомогою команди виклику:

<назва процедури> (<список фактичних параметрів>);

Параметри, які записують у команді виклику процедури, називаються фактичними. Фактичними параметрами-аргументами можуть бути сталі, змінні, вирази, а параметрами-результатами - лише змінні. Типи даних тут не зазначають.

Команда виклику функціонує так: значення фактичних параметрів присвоюються відповідним формальним параметрам процедури, виконується процедура, визначаються параметри-результати, значення яких надаються (повертаються) відповідним фактичним параметрам у команді виклику.

Змінні, описані в розділі описів основної програми, називаються глобальними. Вони діють у всіх підпрограмах, з яких складається програма. Змінні, описані в розділі описів конкретної процедури, називаються локальними. Вони діють тільки в межах даної процедури.

Процедури можуть отримувати і повертати значення не тільки через параметри-результати, але й через глобальні змінні. Тому списків параметрів у процедурі може і не бути.

код вікно програма авторизація

2. Практична частина

2.1 Алгоритм рішення задачі

Рис.2.1. Блок-схема

2.2 Код програми

2.2.1 Текст коду допоміжного вікна проекту «Авторизація»

unit Unit6;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.jpeg,

Vcl.ExtCtrls, Vcl.Imaging.pngimage;

type

TForm6 = class(Tform)

Label1: Tlabel;

Label2: Tlabel;

Edit1: Tedit;

Edit2: Tedit;

Button1: Tbutton;

Image1: Timage;

Image2: Timage;

procedure Button1Click(Sender: Tobject);

procedure Image2Click(Sender: Tobject);

procedure Button1KeyPress(Sender: Tobject; var Key: Char);

procedure Edit2KeyPress(Sender: Tobject; var Key: Char);

procedure Edit1KeyPress(Sender: Tobject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: Tform6;

implementation

{$R *.dfm}

uses Unit1;

procedure Tform6.Button1Click(Sender: Tobject);

var pass,login:string;

begin

pass:='***********';

login:='Student228';

if (edit1.Text=login) and (edit2.Text=pass) then begin

Form6.Hide;

Form1.Show;

end

else showmessage(`Ім*я користувача або пароль не правильний, попробуйте ще раз!');

end;

procedure Tform6.Button1KeyPress(Sender: Tobject; var Key: Char);

begin

if key=#13 then Button1.Click;

end;

procedure Tform6.Edit1KeyPress(Sender: Tobject; var Key: Char);

begin

if key=#13 then Button1.Click;

end;

procedure Tform6.Edit2KeyPress(Sender: Tobject; var Key: Char);

begin

if key=#13 then Button1.Click;

end;

procedure Tform6.Image2Click(Sender: Tobject);

begin

Form6.close;

end;

end.

2.2.2 Текст коду програми титульної сторінки програми

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs,gifimg, Vcl.Imaging.jpeg, Vcl.ExtCtrls,

Vcl.StdCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

Image2: TImage;

Label1: TLabel;

Label5: TLabel;

Timer5: TTimer;

Timer6: TTimer;

Label2: TLabel;

Timer1: TTimer;

procedure FormCreate(Sender: TObject);

procedure Timer5Timer(Sender: TObject);

procedure Timer6Timer(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure Label5Click(Sender: TObject);

procedure FormKeyPress(Sender: TObject; var Key: Char);

procedure Timer1Timer(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

GIF: TGifImage;

implementation

{$R *.dfm}

uses Unit3;

procedure TForm1.FormActivate(Sender: TObject);

begin

Timer1.Enabled:=True;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Gif:= TGifImage.Create;

Gif.LoadFromFile('loader.gif');

Gif.Animate:=True;

Image2.Picture.Assign(GIF);

end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);

begin

if (key = #13) or (key=#32) or (key=#16) or (key=#9) or (key=#17)or (key=#18) then

Form3.Show;

Form1.hide;

end;

procedure TForm1.Image1Click(Sender: TObject);

begin

Form3.Show;

Form1.hide;

end;

procedure TForm1.Label5Click(Sender: TObject);

begin

Form3.Show;

Form1.hide;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Form1.AlphaBlendValue:= Form1.AlphaBlendValue+5;

if Form1.AlphaBlendValue=255 then timer1.Destroy;

end;

procedure TForm1.Timer5Timer(Sender: TObject);

begin

Timer5.Enabled:=false;

label5.Visible:=false;

Timer6.Enabled:=True;

end;

procedure TForm1.Timer6Timer(Sender: TObject);

begin

if Timer5.Enabled=False then

begin

Timer6.Enabled:=False;

Label5.visible:=true;

Timer5.Enabled:=true;

end;

end;

end.

2.2.3 Текст коду головного вікна проекту

unit Unit3;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Imaging.jpeg,

Vcl.StdCtrls, Vcl.Imaging.pngimage,Themes, Vcl.ComCtrls,

Vcl.ImgList, Vcl.Menus, Vcl.Buttons;

type

TForm3 = class(TForm)

Image1: TImage;

Button1: TButton;

Panel1: TPanel;

Timer1: TTimer;

Image2: TImage;

Image3: TImage;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Panel2: TPanel;

Label6: TLabel;

Edit6: TEdit;

Label7: TLabel;

Edit7: TEdit;

Label8: TLabel;

Edit8: TEdit;

Timer2: TTimer;

Button2: TButton;

Button4: TButton;

Button5: TButton;

Image4: TImage;

Image5: TImage;

Memo1: TMemo;

Edit9: TEdit;

MainMenu1: TMainMenu;

SaveDialog1: TSaveDialog;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Label9: TLabel;

N5: TMenuItem;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Image3MouseLeave(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Timer2Timer(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Label4MouseEnter(Sender: TObject);

procedure Label5MouseEnter(Sender: TObject);

procedure Button4MouseEnter(Sender: TObject);

procedure Label1MouseEnter(Sender: TObject);

procedure Label8MouseEnter(Sender: TObject);

procedure Label7MouseEnter(Sender: TObject);

procedure Label6MouseEnter(Sender: TObject);

procedure Image3MouseEnter(Sender: TObject);

procedure Image2MouseLeave(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure HotKey1Change(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure Button2MouseEnter(Sender: TObject);

procedure Button1MouseEnter(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

b,a : boolean;

implementation

{$R *.dfm}

uses Unit1, Unit2, Unit4, Unit5;

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

Edit6.Clear;

Edit7.Clear;

Edit8.Clear;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

Memo1.Clear;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

b := not(b);

end;

procedure TForm3.Button1MouseEnter(Sender: TObject);

begin

Button1.Hint:=' нормативна грошова оцінка'+ #13#10+ 'квадратного метра земельної' + #13#10+ 'ділянки (у гривнях)';

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

a := not(a);

end;

procedure TForm3.Button2MouseEnter(Sender: TObject);

begin

Button2.Hint:= 'коефіцієнт, який характеризує' + #13#10+ 'місцерозташування земельної ділянки';

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

Memo1.Clear;

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

Edit9.Text:=FloatToStr(StrToInt(Edit1.Text)*StrToInt(Edit2.Text)/StrToInt(Edit3.Text)*StrToInt(Edit4.Text)*StrToInt(Edit5.Text));

Memo1.Lines.Add('В='+ Edit1.Text);

Memo1.Lines.Add('Hn=' +Edit2.Text);

Memo1.Lines.Add('Hk=' +Edit3.Text);

Memo1.Lines.Add('Kф=' +Edit4.Text);

Memo1.Lines.Add('Км=' +Edit5.Text);

Memo1.Lines.Add('Км1=' +Edit6.Text);

Memo1.Lines.Add('Км2=' +Edit7.Text);

Memo1.Lines.Add('Км3=' +Edit8.Text);

Memo1.Lines.Add('Цн=' +Edit9.Text);

end;

procedure TForm3.Button4MouseEnter(Sender: TObject);

begin

Button4.Hint:=' нормативна грошова оцінка'+ #13#10+ 'квадратного метра земельної' + #13#10+ 'ділянки (у гривнях)';

end;

procedure TForm3.Button5Click(Sender: TObject);

begin

Edit5.text:=IntToStr(StrToInt(Edit6.text)*StrToInt(Edit7.text)*StrToInt(Edit8.text));

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

b := false;

a := false;

end;

procedure TForm3.HotKey1Change(Sender: TObject);

begin

Button4.click;

end;

procedure TForm3.Image2Click(Sender: TObject);

begin

if MessageDlg('Вийти із програми?',

mtConfirmation, [mbYes, mbNo], 0) = mrYes

then

Application.Terminate;

end;

procedure TForm3.Image2MouseLeave(Sender: TObject);

begin

if True then Image3.BringToFront

end;

procedure TForm3.Image3MouseEnter(Sender: TObject);

begin

if True then Image2.BringToFront;

Image3.Hint:='Кнопка для закриття програми';

end;

procedure TForm3.Image3MouseLeave(Sender: TObject);

begin

if True then Image3.BringToFront;

end;

procedure TForm3.Label1MouseEnter(Sender: TObject);

begin

Label1.Hint:='витрати на освоєння та ' + #13#10+ 'облаштування території в' + #13#10+ ' розрахунку на квадратний' + #13#10+ ' метр(у гривнях)';

end;

procedure TForm3.Label4MouseEnter(Sender: TObject);

begin

Label4.Hint := ' коефіцієнт, який характеризує функціональне' + #13#10+' використання земельної ділянки (під житлову '+ #13#10+'так громадську забудову, для промисловості,'+ #13#10+'транспорту тощо)';

end;

procedure TForm3.Label5MouseEnter(Sender: TObject);

begin

Label5.Hint:= 'коефіцієнт, який характеризує' + #13#10+ 'місцерозташування земельної ділянки';

end;

procedure TForm3.Label6MouseEnter(Sender: TObject);

begin

Label6.Hint:=' коефіцієнт, який характеризує ' + #13#10+ 'регіональні фактори місцеположення' + #13#10+ ' земельної ділянки';

end;

procedure TForm3.Label7MouseEnter(Sender: TObject);

begin

Label7.Hint:='коефіцієнт, який характеризує' + #13#10+ ' загальні фактори місцезнаходження' + #13#10+ ' земельної ділянки в' + #13#10+ ' межах населених пунктів';

end;

procedure TForm3.Label8MouseEnter(Sender: TObject);

begin

Label8.Hint:='коефіцієнт, який характеризує' + #13#10+ ' локальні фактори місцеположення' + #13#10+ ' земельної ділянки за ' + #13#10+ 'територіально-планувальними, ' + #13#10+ 'інженерно-технологічними, ' + #13#10+ 'історико-культурними, ' + #13#10+ ' санітарно-гігієнічними умовами ' + #13#10+ 'та рівнем облаштування території.';

end;

procedure TForm3.N2Click(Sender: TObject);

begin

if Form3.SaveDialog1.Execute then

begin

Memo1.Lines.SaveToFile(SaveDialog1.FileName + '.txt');

end;

end;

procedure TForm3.N3Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm3.N4Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm3.N5Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm3.Timer1Timer(Sender: TObject);

begin

if (b)and(Panel1.Left<0) then

Panel1.Left:= Panel1.Left + 5;

if (not b)and(Panel1.Left>-225) then

Panel1.Left:=Panel1.Left - 5;

end;

procedure TForm3.Timer2Timer(Sender: TObject);

begin

if (a)and(Panel2.Left<0) then

Panel2.Left:= Panel2.Left + 5;

if (not a)and(Panel2.Left>-225) then

Panel2.Left:=Panel2.Left - 5;

end;

end.

2.2.4 Текст коду допоміжного вікна проекту «Про автора»

unit Unit2;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.jpeg, Vcl.ExtCtrls;

type

TForm2 = class(TForm)

Image1: TImage;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

end.

2.2.5 Текст коду допоміжного вікна проекту «Оцінювання»

unit Unit4;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.jpeg, Vcl.ExtCtrls,

Vcl.StdCtrls;

type

TForm4 = class(Tform)

Image1: Timage;

Panel1: Tpanel;

CheckBox1: TcheckBox;

CheckBox2: TcheckBox;

CheckBox3: TcheckBox;

Label1: Tlabel;

Timer1: Ttimer;

Button1: Tbutton;

Edit1: Tedit;

Label2: Tlabel;

procedure Timer1Timer(Sender: Tobject);

procedure Button1Click(Sender: Tobject);

procedure FormActivate(Sender: Tobject);

procedure Edit1Enter(Sender: Tobject);

procedure Edit1KeyPress(Sender: Tobject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: Tform4;

implementation

{$R *.dfm}

procedure Tform4.Button1Click(Sender: Tobject);

var a,b,c:integer;

begin

if CheckBox1.Checked=true then a:=1 else a:=0;

if CheckBox2.Checked=true then b:=1 else b:=0;

if CheckBox3.Checked=true then c:=1 else c:=0;

if a+b+c=3 then ShowMessage(`У тебе є талант до цієї діяльності!') else

if a+b+c=2 then ShowMessage(`Не ідеально, але курсову ти здав!') else

if a+b+c=1 then ShowMessage(`Ледащо, іди вчись!') else

if a+b+c=0 then ShowMessage(`Проголосуйте будь ласка.');

end;

procedure Tform4.Edit1Enter(Sender: Tobject);

begin

Label2.Visible:=False;

Edit1.Visible:=False;

CheckBox3.Visible:=True;

CheckBox3.Caption:=Edit1.Text;

end;

procedure Tform4.Edit1KeyPress(Sender: Tobject; var Key: Char);

begin

if key=#13 then

begin

Label2.Visible:=False;

Edit1.Visible:=False;

CheckBox3.Visible:=True;

CheckBox3.Caption:=Edit1.Text;

end;

end;

procedure Tform4.FormActivate(Sender: Tobject);

begin

Timer1.Enabled:=True;

end;

procedure Tform4.Timer1Timer(Sender: Tobject);

begin

Panel1.Visible:=True;

end;

end.

2.2.6 Текст коду допоміжного вікна проекту «Характеристика господарства»

unit Unit5;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,

Vcl.Imaging.jpeg;

type

TForm5 = class(TForm)

Image1: TImage;

Panel1: TPanel;

Label1: TLabel;

Image2: TImage;

procedure Image2Click(Sender: TObject);

procedure Image2DblClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Image2Click(Sender: TObject);

begin

Label1.Caption:='Натисніть два раз для зменшення маштабу';

Panel1.Height:=670;

Panel1.Width:=610;

Image2.Height:=657;

Image2.Width:=592;

end;

procedure TForm5.Image2DblClick(Sender: TObject);

begin

Label1.Caption:='Натисніть по карті для маштабування';

Panel1.Height:=273;

Panel1.Width:=225;

Image2.Height:=233;

Image2.Width:=201;

end;

end.

2.3 Реалізація функціональних вимог

Файлова структура проекту складається з 22 файлів, в яких знаходяться основні та допоміжні модулі. Форми містяться у файлах з назвами Unit 1 - Unit 4. Головним файлом є Нормативно грошова оцінка земель.exe.

Цей файл може завантажуватись без наявності на ПК середовища програмування Delphi, тобто безпосередньо під керівництвом операційної системи Windows. Його розмір 17 663 кілобайтів.

Рис. 2.1 - Файлова структура проекту

2.4 Інструкція з експлуатації системи

Для запуску програми слід натиснути на піктограмі Нормативна грошова оцінка земель.exe. Це файл розміром 3527851 байт. Він працює безпосередньо в ОС Windows.

Проект складається із кількох модулів що містять головну і допоміжні форми. Вікно на рисунку 2.2 являє собою титульну сторінку, яка інформує користувача про автора проекту.



Рис. 2.2 - Вигляд титульного вікна

Головне вікно програми призначене для розрахунку і виводу результату в текстове поле, яке знаходиться в центрі вікна. Також на цьому вікні знаходяться три кнопки які відповідають за різні дії. Для того щоб дізнатись, що ця кнопка виконує, вам знадобиться тільки навести курсором на потрібну вам кнопку і в цей же момент появиться підказка. Перша кнопка(1) відповідає за обчислення коефіцієнта Км, який характеризує місце розташування земельної ділянки. Друга кнопка(2) відповідає за обчислення нормативної грошової оцінки землі, а третя(3) за закриття програми.

У цьому вікні розташоване головне меню, яке має 4 пункти:

а) Файл-Зберегти як…(4)- використовується для зберігання результату в файл формату «.txt»;

б) Про автора(5) - коротка інформація про автора;

в) Оцінювання програми(6) - оцінка проекту комісією;

г) Характеристика ФГ(7) - короткий опис господарства, який збігається з темою курсової роботи.

Кнопка(8) під номером вісім - очищує поле з результатами.

Рис. 2.3 - Вигляд головного вікна «Обчислення нормативної оцінки землі»

Допоміжне вікно «Про автора» несе із собою контактну інформацію за якою можна звернутись до автора із питаннями по програмі.

У цьому вікні комісія може оцінити програму натиснувши на відповідні кнопки під своїми ініціалами. Програма обраховує суму голосів і видає різні текстові повідомлення згідно певної кількості голосів.

Рис. 2.4 - Вигляд допоміжного вікна проекту «Про автора»

Рис.2.5 - Вигляд допоміжного вікна проекту «Оцінювання»

П'яте допоміжне вікно містить короткий опис фермерського господарства, яке відповідає тем курсового проекту. На ньому ще є єдина кнопка, яка відповідає за масштабування карти селища. Роль кнопки бере на себе сама картинка, якщо ви один раз натиснете по ній, вона збільшиться, натиснете на масштабованій карті ще два рази , вона стане назад на своє міcце.



Рис. 2.6 - Вигляд допоміжного вікна проекту «Характеристика господарства »

Допоміжне вікно під номером шість перевіряє вас, чи маєте ви обліковий запис в цій програмі, а саме запитає у вас ім'я і ваш пароль. Якщо у вас немає цих даних, тоді програма вам не дає дозвіл до подальшого використання.

Рис. 2.7 - Вигляд допоміжного вікна проекту «Авторизація»

Висновок

Метою даного курсового проекту було створення програми розрахунку нормативної грошова оцінки земель. Створена програма надає швидкий, якісний і автоматизований метод обчислення. За допомогою програми можна швидко виконати необхідні розрахунки, а ергономічність та естетичність вигляду інтерфейсу не набридне користувачеві при наступних запусках програми. Під час виконання роботи я засвоїв основні елементи вікна та основні об'єкти Delphi, засвоїв навики програмування та навчився стилістично оформлювати проекти, вивчив основні властивості деяких об'єктів, зрозумів роль програмного забезпечення комп'ютера в розрахункових процесах.

За допомогою глобальної мережі - Інтернет, я удосконалював свої навички доповнюючи новими і новими методами цікавого оформлення і дизайну програми. Відеоуроки дали мені неоціненний досвід на наочних прикладах, які допомагали швидше засвоїти матеріал.

Програма не займає багато пам'яті комп'ютера і є достатньо швидкісною у роботі.

Обсяг роботи складає 38 сторінки. В роботі використано 14 джерел, показано 11 рисунків.

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

1. Ахо А., Хопкрофт Дж., Ульман Дж.. Структуры данных и алгоритмы. - М.-СПб.-К., 2000. - 384 c.

2. Бекнелл Дж. Фундаментальные алгоритмы и структуры данных в Delphi. - М.-СПб.-К.: Диасофт, 2003. - 560 с.

3. Глинський Я.М. Практикум з інформатики : Навчальний посібник: Самоучитель-10-те видання .-Львів: «СПД Глинський» ,2010 - 296 с..

4. Глушаков С. В. Delphi 2007 Москва: видавництво «Хранитель», 2008р. -635с.

5. Довгаль С.И., Литвинов Б.Ю., Сбитнев А.И. Персональные ЭВМ: ТурбоПаскаль V 6.0, Объектное программирование, Локальные сети. (учебное пособие) - Киев: «Информсистема сервис», 1993.- 440с. с ил.

6. Кандзюба С.П., Громов В.Н. Delphi 6. Базы данных и приложения: Лекции и упражнения. - К.: ДиаСофт, 2001. - 576 c.

7. Кнут Д.Э. Искусство программирования.В 3-х т. Т. 3. Сортировка и поиск: Учебное пособие: англ. - 2-е изд. - М.-СПб.-К.: Вильямс, 2000. - 832 c.

8. Редько М.М. Інформатика та комп'ютерна техніка. Навчально-методичний посібник. Вінниця : Нова книга, 2007.-568с.

9. Тарасюк Г.М. Планування комерційної діяльності : Навч.посіб.-К.:Керевила ,2005.-400с.

10. Ярмуш О.В.,Редько М.М. Інформатика і компютерна техніка: Навчальний посібник.-К.:Вища освіта ,2006-359с.

Размещено на Allbest.ru

...