Висновки

В цій курсовій роботі був вивчений процес створення програми «Енциклопедія персонального комп’ютера», від висунутих вимог до програми і до написання програмного коду, відладки та тестування програми.

В якості базової мови для проектування було обрано мову програмування Delphi, що дало змогу в короткий термін розробити повноцінну програму.

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

При створенні програми мною були закріплені теоретичні знання мови програмування Delphi, принципи об’єктно — орієнтованого програмування, головним чином, були вивчені усі аспекти проектування, створення і впровадження програм, що дає змогу працювати над серйозними проектами.

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

1. Delphi 7 / під заг. ред. А.Д. Хомоненко. - СПб.: БХВ-Петербург, 2007. - 1216 с.

2. Assembler. Підручник для вузів. 2-е изд. - СПб.: Питер, 2007. - 637с.

3. Архангельський А.Я. Прийоми програмування в Delphi на основі VCL. - М.: «Біном-Пресс», 2006 р. - 944 с.

4. Флен М.Є. Біблія Delphi. - СПб.: БХВ-Петербрг, 2004. - 880 с.

5. Стівенс Р. Delphi. Готові алгоритми / Рід Стівенс; Пер. з англ. Мерещука П.А. - 2-е изд., Стер. - М.: ДМК Пресс; СПб.: Питер, 2004. - 384 с.: Іл.

6. Гуржій А.М., Поворознюк Н.І., Самсонов В.В. Інформатика та інформаційні технології.. — Харків: ООО «Компанія СМІТ», 2003. — С. 352.

7. Інформатика. Комп’ютерна техніка. Комп’ютерні технології. — Київ: Каравела, 2011. — С. 592.

8. Клименко О.Ф., Головко Н.Р., Шарапов О.Д. Інформатика та комп’ютерна техніка. — Київ: КНЕУ, 2002. — С. 534.

Додаток A

Лістинг програми

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, jpeg, OleCtrls, SHDocVw, ComCtrls, ImgList, StdCtrls,

Buttons, ToolWin, XPMan;

type

TForm1 = class(TForm)

Image1: TImage;

Panel1: TPanel;

TreeView1: TTreeView;

Panel2: TPanel;

WebBrowser1: TWebBrowser;

ImageList1: TImageList;

pnl1: TPanel;

ToolBar1: TToolBar;

btn1: TBitBtn;

btn2: TBitBtn;

btn3: TToolButton;

btn4: TToolButton;

btn5: TBitBtn;

btn6: TToolButton;

btn7: TBitBtn;

ToolButton1: TToolButton;

btn8: TBitBtn;

ToolButton2: TToolButton;

XPManifest1: TXPManifest;

procedure TreeView1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure btn5Click(Sender: TObject);

procedure btn1Click(Sender: TObject);

procedure btn7Click(Sender: TObject);

procedure btn8Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.TreeView1Click(Sender: TObject);

begin

if (TreeView1.Selected.index = 0)then

begin

WebBrowser1.Navigate(GetCurrentDir+'/data/index.html');

end;

if (TreeView1.Selected.Text = '1 Дисплей')then

begin

WebBrowser1.Navigate(GetCurrentDir+'/data/1.mht');

end;

if (TreeView1.Selected.Text = '2 Системна плата')then

begin

WebBrowser1.Navigate(GetCurrentDir+'/data/2.mht');

end;

if (TreeView1.Selected.Text = '3 Центральний процесор (Мікропроцесор)')then

begin

WebBrowser1.Navigate(GetCurrentDir+'/data/3.mht');

end;

if (TreeView1.Selected.Text = '4 Оперативна память')then

begin

WebBrowser1.Navigate(GetCurrentDir+'/data/4.mht');

end;

if (TreeView1.Selected.Text = '5 Карти розширення')then

begin

WebBrowser1.Navigate(GetCurrentDir+'/data/5.mht');

end;

if (TreeView1.Selected.Text = '6 Блок живлення')then

begin

WebBrowser1.Navigate(GetCurrentDir+'/data/6.mht');

end;

if (TreeView1.Selected.Text = '7 Оптичний дисковод')then

begin

WebBrowser1.Navigate(GetCurrentDir+'/data/7.mht');

end;

if (TreeView1.Selected.Text = '8 Постійна память (Твердий диск)')then

begin

WebBrowser1.Navigate(GetCurrentDir+'/data/8.mht');

end;

if (TreeView1.Selected.Text = '9 Клавіатура')then

begin

WebBrowser1.Navigate(GetCurrentDir+'/data/9.mht');

end;

if (TreeView1.Selected.Text = '10 Миша компютерна')then

begin

WebBrowser1.Navigate(GetCurrentDir+'/data/10.mht');

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

WebBrowser1.Navigate(GetCurrentDir+'/data/index.html');

TreeView1.visible:=False;

pnl1.visible:=False;

end;

procedure TForm1.btn5Click(Sender: TObject);

begin

close

end;

procedure TForm1.btn1Click(Sender: TObject);

begin

WebBrowser1.Navigate(GetCurrentDir+'/data/index.html');

end;

procedure TForm1.btn7Click(Sender: TObject);

begin

TreeView1.visible:=False;

pnl1.visible:=False;

end;

procedure TForm1.btn8Click(Sender: TObject);

begin

TreeView1.visible:=True;

pnl1.visible:=True;

end;

procedure TForm1.btn2Click(Sender: TObject);

begin

aboutBox.ShowModal;

end;

end.

unit Unit2;

interface

uses

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

Dialogs, XPMan, Menus, StdCtrls, ComCtrls, ExtCtrls, jpeg;

type

TAboutBox = class(TForm)

Button1: TButton;

Button3: TButton;

lbl1: TLabel;

lbl2: TLabel;

lbl3: TLabel;

lbl4: TLabel;

bvl1: TBevel;

lbl5: TLabel;

Image1: TImage;

XPManifest1: TXPManifest;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.Button1Click(Sender: TObject);

begin

AboutBox.Close;

end;

end.

Додаток В

Додаток C

UML – діаграма

Додаток D