Разработка электронного органайзера на Delphi

Содержание

Введение

ГЛАВА 1. Технология визуального программирования в среде Delphi

1.1 Обзор средств визуального программирования в среде Delphi

1.2 Анализ языковых средств Object Pascal

Вывод

ГЛАВА 2. Разработка электронного органайзера на Delphi

2.1 Определение архитектуры и функциональной характеристики электронного органайзера

Вывод

Заключение

Литература

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

На современном этапе развития компьютерных технологий невозможно представить какого-либо высококвалифицированного специалиста, не владеющего информационными технологиями. Поскольку деятельность любого субъекта в значительной степени зависит от степени владения информации, а также способности эффективно ее использовать. Для свободной ориентации в информационных потоках современный специалист любого профиля должен уметь получать, обрабатывать и использовать информацию, прежде всего, с помощью компьютеров, а также телекоммуникаций и других новейших средств связи, в том числе и уметь, обращаться с языками программирования.

Создание прикладных программ, или приложений, Delphi выполняется в интегрированной среде разработки IDE (Integrated Development Environment). IDE служит для организации взаимодействия с программистом и включает в себя ряд окон, содержащих различные управляющие элементы. С помощью средств интегрированной среды разработчик может удобно проектировать интерфейсную часть приложения, а также писать программный код и связывать его с управляющими элементами. При этом вся работа по созданию приложения, включая отладку, происходит в интегрированной среде разработки. Интегрированная среда разработки Delphi представляет собой многооконную систему. Вид интегрированной среды разработки (интерфейс) может различаться в зависимости от настроек.

После загрузки интерфейс Delphi выглядит, как показано на рис. 1.1, и первоначально включает пять окон:

Рис. 1.1. Вид интегрированной среды разработки

Рис. 1.2. Связь между файлами проекта

При запуске Delphi автоматически создается новый проект Projecti, имя которого отображается в заголовке главного окна Delphi. Этот проект имеет в своем составе одну форму Form1, название которой видно в окне Конструктора формы. Разработчик может изменить проект, предлагаемый по умолчанию, а также установить параметры среды, при которых после загрузки Delphi будет загружаться приложение, разработка которого выполнялась в последний раз.

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

Delphi относится к системам визуального программирования, которые называются также системами RAD (Rapid Application Development, быстрая разработка приложений). Разработка приложения в Delphi включает два взаимосвязанных этапа:

создание интерфейса приложения;

определение функциональности приложения.

Обозреватель проекта (Project Browser или Browser) отображает список модулей, классов, типов, свойств, методов, переменных, которые объявлены или использованы в проекте. Обозреватель проекта позволяет просматривать и перемещаться по иерархии классов, модулей и глобальным объектам приложения. Обозреватель проекта вызывается командой View | Browser (Просмотр | Обозреватель).

Хранилище объектов

Delphi позволяет многократно использовать одни и те же объекты в качестве шаблонов для дальнейшей разработки приложений. Для хранения таких объектов используется специальное Хранилище объектов (Repository).

Справочная система Delphi в свой состав включает: стандартную систему справки, справочную помощь через Internet и контекстно-зависимую справочную помощь.

Язык Object Pascal является языком профаммирования Delphi и представляет собой объектно-ориентированное расширение стандартного языка Pascal. Система Delphi обеспечивает возможность визуального профаммирования на нем с помощью библиотеки визуальных компонентов VCL.

Структура программы

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

Операторы разделяются точкой с запятой. Точка с запятой является разделителем операторов, и ее отсутствие между операторами является ошибкой. Наличие между операторами нескольких точек с запятой не является ошибкой, так как они обозначают пустые операторы. Отметим, что лишняя точка с запятой в разделе описаний и объявлений является синтаксической ошибкой. Точка с запятой может не ставиться после слова begin и перед словом end, так как они являются операторными скобками, а не операторами. В условных операторах и операторах выбора точка с запятой не ставится после слова then и перед словом else. Отметим, что в операторе цикла с параметром наличие точки с запятой сразу после слова do синтаксической ошибкой не является, но в этом случае тело цикла будет содержать только пустой оператор.

Особенности объектно-ориентированного программирования

Язык Object Pascal является объектно-ориентированным расширением языка Pascal и реализует концепцию объектно-ориентированного программирования. Это означает, что создаваемое приложение состоит из объектов, которые взаимодействуют между собой. Каждый объект имеет свои свойства, то есть характеристики (атрибуты) этого объекта, методы, определяющие поведение этого объекта, и события, на которые реагирует объект.

Классы и объекты

private

<Частные описания>;

protected

Защищенные описания>;

public

<Общедоступные описания>;

published

<Опубликованные описания>;

end;

private

FCode: integer;

FSign: char:

FNote: string;

end;

Здесь новый класс TNewCiass создается на основе базового класса Tobject и получает в дополнение три новых поля Fcode, FSign и FNote, имеющих, соответственно, целочисленный, символьный и строковый типы. Согласно принятому соглашению, имена полей должны начинаться с префикса f (от англ. Field -- поле).

При создании новых классов класс-потомок наследует все поля родителя, при этом удаление или переопределение этих полей невозможно.

Язык программирования Delphi (Object Pascal) обладает широкими возможностями. Среда программирования Delphi в настоящее время является одной из самых развитых систем визуального объектно-ориентированного программирования. Её возможности отвечают высоким требованиям и подходят для создания приложений любой сложности. Структурированность и простота Delphi делает его одним из совершенных языков программирования. На нем можно создать все, что делают на С++ избежав всех имеющихся в нем трудностей. Он позволяет с наименьшими усилиями создавать от простых приложений, работающих на одном компьютере до корпоративных приложений, использующие серверные базы данных расположенные на разных платформах. Интернет приложения, коммерческие игры и много других видов программ, возможно создать на Delphi. Даже неопытный программист сможет сделать приложение для Windows профессионального вида.

Image1

Label1

Label2

Label3

Label4

Label5

MainMenu1

Timer1

Органайзер:

unit Unit1;

interface

uses

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

Dialogs, DateUtils, ExtCtrls, StdCtrls, Buttons, Menus;

type

TForm1 = class(TForm)

Timer1: TTimer;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

x,y:word;

implementation

procedure TForm1.Button1Click(Sender: TObject);

var z: integer;

begin

case z of

mrOk: Form1.close;

mrCancel: exit;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label2.Caption:=TimeToStr(Time);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Label1.Caption:=DateToStr(Date);

Label3.Caption:=Variant(DayOfTheYear(Date));

begin

x:= DayOfWeek(Date);

Case x of

end;end;

begin

y:=MonthOfTheYear(Date);

Case y of

1: Image1.Picture.LoadFromFile('1.bmp');

2: Image1.Picture.LoadFromFile('2.bmp');

3: Image1.Picture.LoadFromFile('3.bmp');

4: Image1.Picture.LoadFromFile('4.bmp');

5: Image1.Picture.LoadFromFile('5.bmp');

6: Image1.Picture.LoadFromFile('6.bmp');

7: Image1.Picture.LoadFromFile('7.bmp');

8: Image1.Picture.LoadFromFile('8.bmp');

9: Image1.Picture.LoadFromFile('9.bmp');

10: Image1.Picture.LoadFromFile('10.bmp');

11: Image1.Picture.LoadFromFile('11.bmp');

12: Image1.Picture.LoadFromFile('12.bmp');

end;end;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Form6.Show;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

form4.Show;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

form6.Show;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

form2.Show;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

procedure TForm1.N9Click(Sender: TObject);

begin

form5.show;

end;

end.

interface

uses

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

Dialogs, ComCtrls, StdCtrls, Spin, Grids, Calendar, DateUtils, ExtCtrls;

type

TForm4 = class(TForm)

Calendar1: TCalendar;

SpinEdit1: TSpinEdit;

ComboBox1: TComboBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label1: TLabel;

Image1: TImage;

procedure FormCreate(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Calendar1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure SpinEdit1Change(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1;

procedure TForm4.FormCreate(Sender: TObject);

var I: Integer;

begin

Button1.Width := 25;

Button3.Width := 25;

Label1.Font.Style :=[fsBold];

// Задаем номер первого дня в неделе (1 = понедельник)

Calendar1.StartOfWeek := 1;

SpinEdit1.MinValue := 1;

SpinEdit1.MaxValue := 9999;

// Заполняем список названиями месяцев

for I := 1 to MonthsPerYear do

ComboBox1.Items.Add(LongMonthNames[i]);

Button2Click(Sender);

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

Calendar1.CalendarDate := Now;

end;

procedure TForm4.Calendar1Change(Sender: TObject);

var

Tmp : String;

begin

// Выводим во вспомагательную строку дату, выбранную в календаре

Tmp:=FormatDateTime ('d. mmmm yyyy', Calendar1.CalendarDate);

// Вспомогательную строку отображаем в надписи

Label1.Caption := 'Календарь: ' + Tmp;

// Прокручиваем список до выбраного месяца

// (месяцы в календаре нумеруются от 1, а элементы

// списка -- от 0, поэтому вычитаем 1)

ComboBox1.ItemIndex :=Calendar1.Month - 1;

// Прокручиваем поле со сткрелками до выбраного года

SpinEdit1.Value:= Calendar1.Year;

end;

procedure TForm4.SpinEdit1Change(Sender: TObject);

begin

end;

procedure TForm4.ComboBox1Change(Sender: TObject);

begin

// Прокручиваем календарь до месяца, выбраного в списке

Calendar1.Month := ComboBox1.ItemIndex + 1;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

Calendar1.PrevMonth;

end;

procedure TForm4.Button3Click(Sender: TObject);

begin

Calendar1.NextMonth;

end;

end.

interface

uses

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

Dialogs, Menus, StdCtrls, Printers;

type

TForm6 = class(TForm)

Memo1: TMemo;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

PrintDialog1: TPrintDialog;

FontDialog1: TFontDialog;

N3: TMenuItem;

N11: TMenuItem;

N14: TMenuItem;

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

procedure TForm6.N4Click(Sender: TObject);

var

f:textfile;

begin

assignfile(f,'C:\new.txt');

rewrite(f);

closefile(f);

end;

procedure TForm6.N5Click(Sender: TObject);

begin

if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

end;

procedure TForm6.N6Click(Sender: TObject);

begin

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

end;

procedure TForm6.N7Click(Sender: TObject);

begin

with printer do begin

begindoc;

canvas.Font:=memo1.Font;

canvas.TextOut(100,100,memo1.Text);

enddoc;

end;

end;

procedure TForm6.N8Click(Sender: TObject);

var z: integer;

begin

case z of

mrOk: Form6.close;

mrCancel: exit;

end;

end;

procedure TForm6.N9Click(Sender: TObject);

begin

FontDialog1.Execute;

Memo1.Font:=FontDialog1.Font;

end;

procedure TForm6.N10Click(Sender: TObject);

begin

memo1.Undo;

end;

procedure TForm6.N12Click(Sender: TObject);

begin

Memo1.SelectAll;

end;

procedure TForm6.N13Click(Sender: TObject);

begin

if N13.Checked=False

then begin

N13.Checked:=True;

Memo1.ScrollBars:=ssVertical;

end

else begin N13.Checked:=False;

procedure TForm6.N3Click(Sender: TObject);

begin

end;

end.

interface

uses

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

Dialogs, DateUtils, ExtCtrls, StdCtrls, Buttons, ComCtrls;

type

TForm2 = class(TForm)

Button1: TButton;

Image1: TImage;

Label1: TLabel;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

t:string;

implementation

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.Close;

t:=Edit1.Text;

do t:=t;

end;

end.

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm3 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button10: TButton;

Button11: TButton;

Button12: TButton;

Button13: TButton;

Button14: TButton;

Button15: TButton;

Button16: TButton;

Button17: TButton;

Button18: TButton;

Button19: TButton;

Button20: TButton;

Button21: TButton;

Button22: TButton;

Button23: TButton;

Button24: TButton;

Image1: TImage;

procedure Button11Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure Button16Click(Sender: TObject);

procedure Button17Click(Sender: TObject);

procedure Button18Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

procedure Button19Click(Sender: TObject);

procedure Button24Click(Sender: TObject);

procedure Button23Click(Sender: TObject);

procedure Button22Click(Sender: TObject);

procedure Button14Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button21Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button20Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

kod : char;

x, y, z : real;

k, y1:integer;

implementation

procedure TForm3.Button7Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'7'

end;

procedure TForm3.Button8Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'4'

end;

procedure TForm3.Button9Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'1'

end;

procedure TForm3.Button10Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'0'

end;

procedure TForm3.Button11Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'8'

end;

procedure TForm3.Button12Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'5'

end;

procedure TForm3.Button13Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'2'

end;

procedure TForm3.Button16Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'9'

end;

procedure TForm3.Button17Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'6'

end;

procedure TForm3.Button18Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'3'

end;

procedure TForm3.Button5Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+','

end;

procedure TForm3.Button15Click(Sender: TObject);

begin

edit1.Clear

end;

procedure TForm3.Button19Click(Sender: TObject);

begin

if edit1.Text<>'' then x:=strtofloat(edit1.text);

kod :='+';

edit1.Clear;

end;

procedure TForm3.Button24Click(Sender: TObject);

begin

if edit1.Text<>'' then x:=strtofloat(edit1.text);

kod := '-';

edit1.Clear;

end;

procedure TForm3.Button23Click(Sender: TObject);

begin

if edit1.Text<>'' then x:=strtofloat(edit1.text);

kod := '/';

edit1.Clear;

end;

procedure TForm3.Button22Click(Sender: TObject);

begin

if edit1.Text<>'' then x:=strtofloat(edit1.text);

kod := '*';

edit1.Clear;

end;

procedure TForm3.Button6Click(Sender: TObject);

begin

x:= strtofloat(edit1.text);

kod := '^';

end;

procedure TForm3.Button14Click(Sender: TObject);

begin

case kod of

'+': z:=x+y;

'-': z:=x-y;

'*': z:=x*y;

'/': z:=x/y;

'^': begin

y1:=strtoint(edit1.Text);

edit1.clear;

z:=1;

for k:=1 to y1 do

begin

z:=z*x

end; end;

end ;

procedure TForm3.Button21Click(Sender: TObject);

begin

x:=strtofloat( edit1.Text);

edit1.clear;

z:=sqrt(x);

edit1.Text:=floattostr(z);

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

x:=strtofloat(edit1.Text);

x:=(x*3.14)/180;

edit1.Clear;

z:=sin(x);

edit1.Text:=floattostr(z);

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

x:=strtofloat(edit1.Text);

x:=(x*3.14)/180;

edit1.Clear;

z:=cos(x)/sin(x);

edit1.Text:=floattostr(z);

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

x:=strtofloat(edit1.Text);

x:=(x*3.14)/180;

edit1.Clear;

z:=sin(x)/cos(x);

edit1.Text:=floattostr(z);

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

x:=strtofloat(edit1.Text);

x:=(x*3.14)/180;

edit1.Clear;

z:=cos(x);

edit1.Text:=floattostr(z);

end;

procedure TForm3.Button20Click(Sender: TObject);

var z: integer;

begin

case z of

mrOk: Form3.close;

mrCancel: exit;

end;

end;

end.

interface

uses

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

Dialogs, StdCtrls, Grids, jpeg, ExtCtrls;

type

TForm5 = class(TForm)

StringGrid1: TStringGrid;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

SaveDialog1: TSaveDialog;

Image1: TImage;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

n,m,k,k1:byte;

a:array[1..100,1..3] of string;

implementation

{$R *.dfm}

procedure TForm5.FormCreate(Sender: TObject);

var i,j:byte;

begin

StringGrid1.RowCount:=1;

StringGrid1.ColCount:=3;

begin a[1,1]:='ИМЯ';

a[1,2]:='ТЕЛЕФОН';

a[1,3]:='ПОЧТА';

for i:=1 to 3 do

for j:=1 to 3 do

StringGrid1.Cells[j-1,i-1]:=a[i,j];

end;

end;

procedure TForm5.Button1Click(Sender: TObject);

var i,n:integer;

begin

n:=StringGrid1.RowCount;

n:=n+1;

StringGrid1.RowCount:=n;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

form5.Close;

end;

procedure TForm5.Button4Click(Sender: TObject);

var List: TStringList;

i, j: Integer;

begin

List:=TStringList.Create;

with Sender do

for i:=0 to StringGrid1.RowCount-1 do

List.Add(StringGrid1.Cells[i, j]);

with SaveDialog1 do

if Execute then

List.SaveToFile(FileName+'.xls');

end;

procedure TForm5.Button3Click(Sender: TObject);

var i,j,y:byte; z:string;

begin

for j:=1 to StringGrid1.RowCount do

for i:=1 to StringGrid1.RowCount-2 do

z:= StringGrid1.Cells[y,i];

StringGrid1.Cells[y,i]:=StringGrid1.Cells[y,i+1];

end;

end;

end.

Тестирование программы

Органайзер:

Календарь

Блокнот

Будильник

Калькулятор

Адресная книга:

Согласно разработанному алгоритму была составлена и отлажена программа на алгоритмическом языке программирования Delphi (Object Pascal). Во время разработки программы проводилось ее тестирование.

Программа проста для понимания и управления пользователем с минимальным уровнем подготовки, занимает мало места на жестком диске, может работать на компьютере с минимальными требованиями. Удобный и понятный интерфейс позволяет пользоваться программой любому человеку, хотя бы отдаленно знакомому с компьютером. Работа с программой не требует специальных знаний в какой-либо области. Кроме того, программа не требует инсталляции.

В ходе выполнения курсовой работы была разработана программа «Электронный органайзер». Программа содержит в себе календарь, блокнот, будильник, калькулятор и адресную книгу. Она может бать использована в повседневной жизни.

Данный курсовой проект был выполнен в полном соответствии поставленному заданию и отлажен в среде DELPHI 7.0. Во время проектирования программы были выполнены все стандартные этапы разработки, такие как: постановка и описание задачи, выбор метода решения этой задачи, составление алгоритма программы, её написание и отладка, а также анализ полученных результатов. Согласно разработанному алгоритму была составлена и отлажена программа на алгоритмическом языке программирования Delphi (Object Pascal). Во время разработки программы проводилось ее тестирование.

В ходе выполнения курсового проекта мы убедились в широких возможностях языка программирования Delphi (Object Pascal), повысили уровень практических навыков программирования в интегрированной среде программирования Borland Delphi 7, получили навыки оформления программной документации.

Программа проста для понимания и управления пользователем с минимальным уровнем подготовки, занимает мало места на жестком диске, может работать на компьютере с минимальными требованиями. Удобный и понятный интерфейс позволяет пользоваться программой любому человеку, хотя бы отдаленно знакомому с компьютером. Работа с программой не требует специальных знаний в какой-либо области. Кроме того, программа не требует инсталляции.

Во время написания также были изучены теоретические основы программирования, правила написания и оформления программ.

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

В ходе выполнения курсовой работы была разработана программа «Электронный органайзер». Программа содержит в себе календарь, блокнот, будильник, калькулятор и адресную книгу. Она может бать использована в повседневной жизни.

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

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

Дэн Оузьер, Стив Гробман, Стив Батсон. Delphi 6. Освой самостоятельно: Пер. с англ. - М.: Восточная Книжная Компания, 1997 г. - 624 с.:ил.

Митчелл К. Керман. Программирование и отладка в Delphi. Учебный курс.: пер. с англ.-М: Издательский дом «Вильямс», 2002, 672 с.:ил.-Парал. Тит. англ.

Пол Киммел. Создание приложений в Delphi. : Пер. с англ. - М.: Издательский дом «Вильямс», 2003.-640с.:ил.-Парал. Тит. англ.

Сурков К., Сурков Д., Вальвачев А. Программирование в среде Delphi 2.0. - Мп.: ООО «Попурри», 1997. - 640 с.:ил.

Тодд Миллер, Дэвид Пауэл. Использование Delphi 6 / специальное издание.- М.-Киев, Диалектика, 1997

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