Розробка проекту в середовищі Delphi для дослідження та розрахунку грошової оцінки землі (на прикладі ФГ "Годів+Р.Е" с. Нежухів, Стрийського району, Львівської області)
Визначення складу вхідних та вихідних даних і способу їх організації. Тексти кодів головного вікна проекту "Авторизація", допоміжних вікон "Про автора", "Оцінювання", "Характеристика господарства" і програми титульної сторінки. Файлова структура проекту.
Рубрика | Программирование, компьютеры и кибернетика |
Вид | курсовая работа |
Язык | украинский |
Дата добавления | 16.04.2018 |
Размер файла | 5,6 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на 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
...Подобные документы
Призначення гри в хрестики-нулики та програмне забезпечення, необхідне для її функціонування. Написання програми в середовищі Borland C++ Builder. Способи виклику програми. Характер вхідних та вихідних даних. Алгоритм та тестування роботи програми.
курсовая работа [321,6 K], добавлен 01.04.2016Побудова інформаційно-математичної моделі задачі. Визначення структури даних, розробка інтерфейсу. Складання коду програми за допомогою мови програмування Delphi 7.0. Реалізація проекту у візуальному середовищі. Інструкція з експлуатації програми.
курсовая работа [601,3 K], добавлен 03.09.2009Поняття життєвого циклу проекту. Ідентифікація. Виникнення ідеї проекту. Визначення цілей проекту. Відсів гірших варіантів і відбір ідей проекту. Попереднй аналіз здійснимості проекту. Відбір альтернативних варіантів проекту.
реферат [30,8 K], добавлен 18.04.2007Призначення інформаційної системи. Завдання предметної області. Характеристика документів предметної області. Опис і обґрунтування вибору методу організації вихідних даних. Коротка характеристика IBExpert. Програмна реалізація в середовищі Delphi.
дипломная работа [2,8 M], добавлен 25.03.2011Обстеження і аналіз фільмотеки. Постановка задачі. Розроблення проекту бази даних фільмотеки. Розробка концептуальної моделі, специфікації програмних модулів, алгоритмів і графічних інтерфейсів програми. Кодування і тестування.
курсовая работа [2,9 M], добавлен 12.07.2007Цілі і завдання розробки, її предмет і актуальність. Опис предметної області, цілі і завдання програми. Вибір методу рішення, опис процесу програмування і вибір інструментальних засобів для реалізації проекту, опис вхідних та вихідних даних, інтерфейсу.
курсовая работа [327,1 K], добавлен 01.09.2014Побудова інформаційно-математичної моделі задачі. Визначення структури даних. Розробка інтерфейсу програми з користувачем. Реалізація проекту у візуальному середовищі. Аналіз та тестування програми. Розгляд результатів та інструкція з експлуатації.
курсовая работа [4,2 M], добавлен 07.05.2009Побудова інформаційно-математичної моделі та алгоритм задачі. Визначення структури даних. Розробка інтерфейсу програми з користувачем. Складання коду програми. Реалізація проекту у візуальному середовищі. Тестування та інструкція з експлуатації програми.
курсовая работа [1,3 M], добавлен 14.04.2009Основні переваги програмування на мові Delphi. Використання стандартних операторів при створенні інтерфейсу користувача. Вибір складу технічних і програмних засобів, організація вхідних і вихідних даних. Розробка програми, блок-схеми та тексту програми.
реферат [316,1 K], добавлен 22.01.2013Порівняння технологій шифрування даних в середовищі Windows Server 2012. Розробка проекту локальної мережі підприємства "Надійний сейф": вибір технології, топології та мережної адресації. Шифрування даних засобами BitLocker. Розрахунок вартості проекту.
дипломная работа [4,6 M], добавлен 18.05.2015Розробка бази даних для обробки інформації про діяльність туристичного агентства. Визначення предметної області, вхідних та вихідних даних, їх організації. Генерація схеми бази даних. Реалізація функціональних вимог. Інструкція з експлуатації системи.
курсовая работа [5,3 M], добавлен 12.05.2015Створення проекту та розробка SCADA у Vijeo Citect. Використання хронологічного подієвого списку (CEL) для відображення журналу подій або щоденнику операцій. Визначення драйверу та опис конфігурації змінних для визначення внутрішніх змінних ZenOn.
курсовая работа [3,2 M], добавлен 19.08.2012База даних - фундаментальний компонент інформаційної системи. Визначення технічного завдання для проекту. Підготовка певної додаткової інформації. Розробка та супровід стандартів. Стандарти - основа для навчання персоналу та організації контролю якості.
презентация [535,8 K], добавлен 21.11.2013Розробка бази даних в середовищі Microsoft SQL Server 2008 для обліку послуг фітнес-клубу. Таблиці для баз даних, їх властивості. Аналіз сукупності вхідних і вихідних параметрів, опис інформаційної бази, розробка логічної і фізичної моделі даних в ІС.
курсовая работа [449,9 K], добавлен 09.05.2016Загальна характеристика методів проектування та документації додатків. Розробка інтерфейсу програми для медичного діагностичного центру. Вибір архітектури. Описання логічної структури програми. Розробка структури бази даних проекту, полів таблиць.
курсовая работа [2,0 M], добавлен 21.08.2015Теоретичні відомості про пакет ІЗВП Borland Delphi та СУБД MS Access, оцінка їх функціональних особливостей. Опис структури бази даних. Проектування інтерфейсу програми, опис її логічної структури та функцій. Контроль коректності вхідних, вихідних даних.
курсовая работа [4,5 M], добавлен 03.01.2014Розробка програми, яка б дозволяла протестувати знання з дисципліни "Програмування на мові С", виставити оцінку. Опис та обґрунтування методу організації вхідних та вихідних даних, вибору складу технічних та програмних засобів. Проведення лістингу.
курсовая работа [11,0 K], добавлен 08.08.2009Розробка SCADA/HMI – проекту для моніторингу і управління процесом випікання хлібу пшеничного І ґатунку. Опис змінних програмуємого логічного контролера (ПЛК) і технологічних параметрів у загальному вигляді. Основні (глобальні) настройки програми.
курсовая работа [4,1 M], добавлен 10.01.2015Головні принципи візуального програмування, опис компонентів Delphi, використаних при розробці проекту. Опис програми-додатку "Психологічний тест" та список дій користувача. Алгоритм роботи програми, її форма та ієрархія. Опис графічного інтерфейсу.
курсовая работа [1,2 M], добавлен 08.06.2010Розробка іспитового стенда для лабораторії, визначення тривалості робіт, ресурсів на її виконання. Характеристика параметрів моделі до оптимізації. Очікувана тривалість робіт за проектом. Причини та критерії оптимізації моделі. Розрахунок бюджету проекту.
контрольная работа [1,1 M], добавлен 09.11.2015