Заключение
Практика по профилю специальности пройдена на предприятии «Нижнепавловская СОШ». Для успешного результата помогли знания, которые были получены за время обучения в колледже электроники и бизнеса ОГУ, именно благодаря этому не возникло никаких трудностей. Во время прохождения практики помог дружелюбный и отзывчивый персонал школы. Были выполнены ответственные задания, выданные директором школы, что помогло мне почувствовать себя в роли полноценного рабочего. В процессе создания электронной книги получил много новых знаний. Порадовало простота и многофункциональность Delphi, научился работать с компонентами: DBNavigator, WebBrowser, list box, Timer, ProgressBar.
Список используемых источников
1.Web ресурс www.wikipedia.ru;
2.Web ресурс www.delphisources.ru;
3.Web ресурс www.delphimaster.ru;
4. “Владимир Гофман, Анатолий Хомоненко. Delphi 6. Наиболее полное руководство”
5. “Delphi в задачах и примерах” Культин Н.С. 288 стр.;
6. “Delphi. Трюки и эффекты” А.H. Чиртик, В.Г. 400 стр.;
7. ”Delphi 7 на примерах” Гофман В.М. 304 стр.
Приложение а График прохождения практики по профилю специальности
1 неделя (15.01.11г. – 21.01.11г.)
1. Сбор материала для составления технического задания на программирование
1.1 Постановка задачи
1.2 Основные характеристики функциональных задач
цель и назначение задачи ее место, связь с другими задачами;
условия решения задачи с использование средств ВТ;
содержание функций обработки входной информации при решении задач
требования к периодичности решения задачи;
ограничения по срокам и точности выходной информации;
состав и форма представления выходной информации;
источники входной информации;
пользователи задачи (кто осуществляет ее решение и пользуется результатами решения);
разработка схемы взаимодействия входной и выходной информации
2. Разработка материала к выполнению технического проекта
2.1 Разработка обобщенного алгоритма решения задачи
2.2 Разработка интерфейса пользователя с помощью модуля Turbo Professional или Turbo Vision.
2 неделя (22.01.11г. – 28.01.11г.)
1. Проектирование и разработка интерфейса пользователя в среде Delphi
диалоговый режим;
графический интерфейс (эскиз, спецификация типовых объектов, управление графического интерфейса);
2. Сравнительный анализ разработанных интерфейсов и сред разработки
3 неделя (29.01.11г. – 4.02.11г.)
Оформления отчета по практике
Подготовка документов (отзыв с предприятия, ежедневные записи)
Защита практики
Приложение б Ежедневные записи студента о проделанной работе
Дата |
Описание выполненной работы |
Подпись |
15.01.11-5.02.11 |
Работа с электронной почты и сайтом школы. |
|
15.01.11-5.02.11 |
Работа с документацией. |
|
15.01.11-5.02.11 |
Следил за состоянием компьютерной техники. |
|
17.01.11 |
Сбор материала для составления технического задания на программирование. |
|
19.01.11 |
Участие в семинаре по информатизации |
|
21.01.11 |
Разработка материала к выполнению технического проекта. |
|
22.01.11 |
Разработка интерфейса пользователя с помощью модуля Turbo Professional или Turbo Vision. |
|
24.01.11-28.01.11 |
Проектирование и разработка интерфейса пользователя в среде Delphi. |
|
26.01.11 |
Проведение презентаций на компьютере . |
|
31.01.11 |
Оформления отчета по практике. |
|
1.02.11 |
Подготовка документов (отзыв с предприятия, ежедневные записи). |
|
|
|
|
|
|
|
|
|
|
Приложение В
Входные документы
Входные документы представлены в виде файлов с расширением (.mht).
Приложение Г
Текст программы, выполненной в Borland Pascal
Uses App,Drivers,Menus,Objects,Views,Crt;
Type
TMenu=object(TApplication)
Procedure DownLine;Virtual;
Procedure InitMenuBar;Virtual;
Procedure HandleEvent(Var Event:TEvent);Virtual;
Procedure WordExit;Virtual;
end;
Procedure TMenu.DownLine;
Var R:TRect;
Begin
GetExtent(R);
R.A.Y:=pred(R.B.Y);
StatusLine:=New(PStatusLine,Init(R,NewStatusDef(0,$FFFF,
NewStatusKey('~Alt+F4 ~Выход',kbAltX,cmQuit,Nil),Nil)))
End;
Procedure TMenu.InitMenuBar;
Var R:TRect;
Begin
GetExtent(R);
R.B.Y:=succ(R.A.Y);
MenuBar:=New(PMenuBar,Init(R,NewMenu(
NewSubMenu('Задание 1',hcnoContext,NewMenu(
NewItem('Мыслительные операции с образами','',0,cmOpen,hcnoContext,
NewItem('Основные мнемотехнические понятия','',0,cmOpen,hcnoContext,
NewItem('Четыре этапа запоминания','',0,cmOpen,hcnoContext,
NewItem('Приёсы, методы и техника запоминания','',0,cmOpen,hcnoContext,
NewItem('Правила образования ассоциаций','',0,cmOpen,hcnoContext,
NewItem('Приёмы образования ассоциативной связи','',0,cmOpen,hcnoContext,
NewItem('Приём "Цепочка"','',0,cmOpen,hcnoContext,
NewItem('Приём "Матрёшка"','',0,cmOpen,hcnoContext,
NewItem('Метод Цицерона','',0,cmOpen,hcnoContext,
NewItem('Метод свободных ассоциаций','',0,cmOpen,hcnoContext,
NewItem('Буквенно-цифровой код (БЦК)','',0,cmOpen,hcnoContext,
NewItem('- Упражнения','',0,cmOpen,hcnoContext,
NewItem('- Домашнее задание','',0,cmOpen,hcnoContext,Nil)))))))))))))),
NewSubMenu('Занятие 2',hcnoContext,NewMenu(
NewItem('Как регулировать процесс запоминания','',0,cmOpen,hcnoContext,
NewItem('Метод активного повторения','',0,cmOpen,hcnoContext,
NewItem('Приём символизации','',0,cmOpen,hcnoContext,
NewItem('Приём привязки к хорошо знакомой информации','',0,cmOpen,hcnoContext,
NewItem('Приём кодирования по звучанию','',0,cmOpen,hcnoContext,
NewItem('Приём образования слова по согласным буквам','',0,cmOpen,hcnoContext,
NewItem('Приём образования слова из слогов','',0,cmOpen,hcnoContext,
NewItem('Фиксированные образные коды двузначных чисел','',0,cmOpen,hcnoContext,
NewItem('- Упражнения','',0,cmOpen,hcnoContext,
NewItem('- Домашнее задание','',0,cmOpen,hcnoContext,Nil))))))))))),
NewSubMenu('Занятие 3',hcnoContext,NewMenu(
NewItem('Виды запоминаемой оиформации','',0,cmOpen,hcnoContext,
NewItem('Эффекты','',0,cmOpen,hcnoContext,
NewItem('Метод наводящих ассоциаций (МНА)','',0,cmOpen,hcnoContext,
NewItem('Техника запоминания географических названий','',0,cmOpen,hcnoContext,
NewItem('Техника запоминания исторических дат','',0,cmOpen,hcnoContext,
NewItem('- Упражнения','',0,cmOpen,hcnoContext,
NewItem('- Домашнее задание','',0,cmOpen,hcnoContext,Nil)))))))),
NewSubMenu('Задание 4',hcnoContext,NewMenu(
NewItem('Характеристики процесса запоминания','',0,cmOpen,hcnoContext,
NewItem('Образные коды','',0,cmOpen,hcnoContext,
NewItem('Образные коды названий месяцев','',0,cmOpen,hcnoContext,
NewItem('Техника запоминания точных дат','',0,cmOpen,hcnoContext,
NewItem('Образные коды дней недель','',0,cmOpen,hcnoContext,
NewItem('Запоминание расписаний уроков','',0,cmOpen,hcnoContext,
NewItem('- Упражнения','',0,cmOpen,hcnoContext,
NewItem('- Домашнее задание','',0,cmOpen,hcnoContext,Nil))))))))),
NewSubMenu('Задание 5',hcnoContext,NewMenu(
NewItem('Психотехнические упражнения','',0,cmOpen,hcnoContext,
NewItem('Запоминание на различные части образа','',0,cmOpen,hcnoContext,
NewItem('Приём возврата','',0,cmOpen,hcnoContext,
NewItem('Выделение невидимых частей образа','',0,cmOpen,hcnoContext,
NewItem('Техника запоминания формул','',0,cmOpen,hcnoContext,
NewItem('Метод сжатия информации','',0,cmOpen,hcnoContext,
NewItem('- Упражнения','',0,cmOpen,hcnoContext,
NewItem('- Домашнее задание','',0,cmOpen,hcnoContext,Nil))))))))),
NewSubMenu('Справка',hcnoContext,NewMenu(
NewItem('О программе','',0,cmOpen,hcnoContext,
NewItem('Разработчик','',0,cmOpen,hcnoContext,
NewItem('___________','',0,cmOpen,hcnoContext,
NewItem('Справка','',0,cmOpen,hcnoContext,
Nil))))),Nil)))))))));
end;
Procedure TMenu.HandleEvent(Var Event:TEvent);
Begin
Inherited HandleEvent(Event);
If Event.What=evCommand Then
Case Event.Command of
cmOpen:WordExit
Else
Exit
End;
ClearEvent(Event);
End;
Procedure TMenu.WordExit;
Var f:Text;
s:string;
Begin
end;
Var Menu:TMenu;
Begin
Menu.Init;
Menu.Run;
Menu.Done;
End.