Заключение

За время прохождения практики были закреплены теоретические и практические знания о проектировании интерфейса пользователя с помощью модуля Turbo Vision и среды Delphi. Во время практики мною было создано две программы для предприятия. Постановка задачи и проектирование пользовательского интерфейса являются основной целью данной практики и составляют фундамент в разработке программ. По окончанию работы мною были окончательно усвоены навыки создания пользовательского интерфейса на языке программирования Delphi и модуле Vision.

Во время прохождения практики были выполнены все задания, данные предприятием.

Список использованных источников

1. Комягин В.Б. Современный самоучитель работы на компьютере. – М.: ТРИУМФ, 2003.

2. Гофман В.Э. Delphi: Руководство программиста /В.Э.Гофман –СПб.: БХВ-Петербург, 2005.-1152с.

3. Лекции по дисциплинам «Технология разработки программного продукта» и «Объектно-ориентированное программирование».

4. Макарова Н.В. Информатика. – М.: Финансы и статистика, 2003.

5. Хомоненко А., Гофман В., Мещеряков Е., Никифоров В.,Delphi 7 в подлиннике. – Санкт-Петербург: БХВ-Петербург, 2004.

Приложение а График прохождения практики

1 неделя (15.01.12г. – 21.01.12г.)

1) сбор материала для составления технического задания на программирование;

1.1 Постановка задачи;

1.2 Основные характеристики функциональных задач;

• цель и назначение задачи ее место, связь с другими задачами;

• условия решения задачи с использование средств ВТ;

• содержание функций обработки входной информации

• требования к периодичности решения задачи;

• ограничения по срокам и точности выходной информации;

• состав и форма представления выходной информации;

• источники входной информации;

• пользователи задачи

• схемы взаимодействия входной и выходной информации

2) разработка материала к выполнению технического проекта;

2.1 разработка обобщенного алгоритма решения задачи;

2.2 разработка интерфейса пользователя с помощью модуля Turbo Professional или Turbo Vision.

2 неделя (22.01.12г. – 28.01.12г.)

1) проектирование и разработка интерфейса пользователя в среде Delphi;

• диалоговый режим;

• графический интерфейс (эскиз, спецификация типовых объектов, управление графического интерфейса);

2) сравнительный анализ разработанных интерфейсов и сред разработки.

3 неделя (29.01.12г. – 4.02.12г.)

1) оформления отчета по практике;

2) подготовка документов (отзыв с предприятия, ежедневные записи);

3) защита практики.

Приложение б Ежедневные записи студента

Дата	Описание выполненной работы	Подпись
15.01.11	Получила задание на практику.
16.01.11	Получила задание на практику
17.01.11	Ознакомилась с рабочим местом. Разработала постановку задачи. Собрала материал для задания на программирование.
18.01.11	Описала основные характеристики функциональных задач.
19.01.11	Разработала материал для выполнения проекта.
20.01.11	Разработала алгоритм решения задачи.
21.01.11	Разработала интерфейс пользователя.
22.01.11 и 23.01.11	Разработала интерфейс пользователя.
24.01.11	Разработка интерфейса в Delphi
25.01.11	Разработка интерфейса в Delphi
26.01.11	Разработка интерфейса в Delphi
27.01.11	Разработка интерфейса в Delphi
28.01.11	Разработка интерфейса в Delphi
29.01.11 и 30.01.11	Разработка интерфейса в Delphi
31.01.11	Разработка интерфейса в Delphi
1.02.11	Создание отчета
2.02.11	Подготовка документов
3.02.11	Подготовка к защите практики
4.02.11	Защита практики

Приложение В

Входные документы

1. Информация о продукции;

2. Информация о компании.

Приложение Г

Текст программы, выполненной в Borland Pascal

{X+}

Uses objects,app, menus, drivers, Views, msgbox;

type

MyApp = object (TApplication)

procedure InitMenuBar;

virtual;

Procedure HandleEvent(var Event: TEvent);

Virtual;

end;

const

cm1 = 120;

cm2 = 130;

cm3 = 140;

cm4 = 150;

cm5 = 160;

cm6 = 170;

cm7 = 180;

cm8 = 190;

cm9 = 200;

cm10= 210;

cm11= 220;

cm12= 230;

Procedure MyApp.InitMenuBar;

var

R:Trect;

Begin

GetExtent (R);

R.B.Y := succ(R.A.Y);

MenuBar :=New (PmenuBar, Init(R,

NewMenu(NewSubMenu('EXIST',hcNoContext,

NewMenu(

NewItem('О нашей фирме','ALT+G',kbAltg,cm4,0,NIL)),

NewSubMenu('Продукция',hcNoContext,

NewMenu(

NewItem('Наша продукция','F5',kbF5,cm8,0,NIL)),

NewSubMenu('Оформление заказа',hcNoContext,

NewMenu(

NewItem('Информация о покупателе','F6',kbF6,cm9,0,

NewItem('Информация о товаре','F7',kbF7,cm10,0,NIL))),

NewSubMenu('справка',hcNoContext,

NewMenu(

NewItem('о разработчике','F1',kbF1,cm11,0,

NewItem('о программе','F2',kbF2,cm9,0,

NIL))),

NewSubMenu('Выход',hcNoContext,

NewMenu(

NewItem('выход','ESC',kbEsc,cmQuit,0,NIL)),NIL))))))));

end;

Procedure MyApp.HandleEvent;

const

Flag: Boolean = True;

cms = [cm1,cm2,cm3,cm4,cm5,cm6,cm7,cm8,cm9,cm10,cm11,cmQuit];

Begin

Inherited HandleEvent (Event);

case Event.Command of

cm1: MessageBox(#3'1', NIL,0);

cm2: MessageBox(#3'2', NIL,0);

cm3: MessageBox(#3'3', NIL,0);

cm4: MessageBox(#3'4', NIL,0);

cm5: MessageBox(#3'5', NIL,0);

cm6: MessageBox(#3'6', NIL,0);

cm7: MessageBox(#3'7', NIL,0);

cm8: MessageBox(#3'8', NIL,0);

cm9: MessageBox(#3'9', NIL,0);

cm10: MessageBox(#3'10', NIL,0);

cm11: MessageBox(#3'Программа для просмотра услуг и заказов.', NIL,0);

cm12:

Begin

MessageBox(#3'А.В.', NIL,0);

if Flag then

DisableCommands (cms)

else

EnableCommands (cms);

Flag := not Flag

end

end

end;

var

P: MyApp;

begin

p.init;

p.run;

p.done

end.