Требование к лёгкости восприятия, то есть для пользователя данной программы должен быть понятен принцип её работы. Интерфейс должен быть удобным
Основные положения
Основные концепции реляционных баз данных
Компилятор языка Delphi
Требования к функциональным характеристикам
Вызов и загрузка программы
Навигация
Вызов и загрузка программы
Разработка лабораторного стенда для исследования фотоэффекта
83779
знаков
5
таблиц
3
изображения
3.2.3 Вызов и загрузка программы
Запуск программы осуществляется так же, как и запуск любой другой программы в среде Windows, то есть для ее запуска необходимо щелкнуть мышью по пиктограмме запускающего файла.
4. ЭКСПЛУАТАЦИОННАЯ ДОКУМЕНТАЦИЯ 4.1 Ведомость эксплуатационных документов
Эксплуатационный программный документ – это такой программный документ, который содержит сведения необходимые для обеспечения функционирования и эксплуатации программного изделия.
Ведомость эксплуатационных документов – включает перечень эксплуатационных документов на программу.
Таблица 4.1. Ведомость эксплуатационных документов
| А.В.00009-01_31_01-1 | Описание применения | 1 | Папка № 1 |
| А.В.00009-01_46_01-1 | Руководство по техническому обслуживанию | 1 | Папка № 1 |
Условия применения
Данный проект может работать на любом компьютере, где не установлен язык программирования Delphi 6. Погодные условия особого значения не играют, если компьютер установлен в закрытом помещении. Но так как она устанавливается с гибкого диска, то этот диск должен храниться в футляре при комнатной температуре в сухом месте.
Программа проста в обращении, с ней может работать не только специалисты в области программирования, а простые пользователи.
Описание задачи
Программа «Фотоэффект» должна: обеспечить пользователя информацией по данной теме, провести проверку знаний по изученной теме, предоставить стенд для проведения лабораторной работы при благополучном прохождении теста.
Входные и выходные данные
Входные данные программы – это база вопросов к тестирующей программе.
Выходные данные программы – это результат, получаемый при прохождении лабораторной работы.
Максимальный состав технических средств:
Ø Компьютер на базе процессора Pentium III 1400;
Ø Винчестер
Ø Цветной монитор
Ø Windows 98;
Ø Язык программирования Delphi 6;
Ø Дисковод 3,5” 1,44Мб;
Ø Клавиатура;
Ø Мышь.
Для программы должен иметься компьютер, работающий под управлением Windows 98, и установленным на нем языком программирования Microsoft Office 2000. Программа проста в обращении, отлажена и не должны возникать ошибки при правильной работе с ней. В большинстве случаев, для продолжения работы после отказа, вызванного некорректными действиями пользователя, нужно просто перезапустить программу.
4.3 Составные части программыС точки зрения пользователя-оператора (т.е. обучаемого) существует лишь запускаемая программа «Фотоэффект». Вся работа с информацие происходит в пределах запущенной программы.
Однако программа состоит из двух логически раздельных блоков - базы данных и программы - оболочки.
Базы данных хранят вопросы к тестирующей части программы. База данных абсолютно не имеет никакой привязки к оболочке, и к ее данным может обращатся какая-либо другая программа.
Программа жестко привязана к базе данных. Она выполняет две определенные функции. Во-первых она содержит вопросы к тесту, а во-вторых содержит информацию о тех, кто прошел тест.
Прежде чем начать строить приложение, надо иметь саму базу данных. Создание таблиц осуществляется при помощи программы Microsoft Access 2000. Работа в базе данных осуществляется на основе двух таблиц: Вопросы (приложение 1 рис. 1.1), Сведения (приложение 1 рис.1.2).
База данных в программе «Стенд по изучению фотоэффекта» имеет следующую структуру, которая представлена на рис. 16 :
|
|
|
Рис. 16. Структура базы данных
5. ЭКОНОМИЧЕСКОЕ ОБОСНОВАНИЕ РАЗРАБОТКИ 5.1 Технико-экономическое обоснование
Цель проекта - создание программы «Стенд для исследования фотоэффекта». Основная цель составления программного продукта заключается в том, чтобы упростить процесс изучения фотоэффекта, так как для проведения экспериментов требуется дорогостоящее оборудование. Данный программный продукт позволит наглядно изучить фотоэффект. Он поможет изучить теорию по данной теме, закрепить полученные знания и проверить на практике принцип работы фотоэффекта.
Для изучения принципа фотоэффекта требуется большое количество времени и средств. Многие учебные заведения не могут позволить себе провести наглядные эксперименты, поэтому выбор мной данной темы очень актуален. Для проведения экспериментов требуется дорогостоящее оборудование. Программа «Создание стенда по изучению фотоэффекта» позволяет экономить время и средства, так как для проведения эксперимента требуется только компьютер.
Мероприятия по составлению программного продукта «Стенд для исследования фотоэффекта» затрагивает функции преподавателей физики. Он упростит работу преподавателей по объяснению данной темы.
Для изучения темы необходим лишь компьютер, что заметно сокращает затраты на проведение наглядных опытов и делает процесс изучения более интересным.
Проект «Стенд для исследования фотоэффекта» предполагает некоторые затраты на выполнение работ по разработке программного продукта для ЭВМ, продвижения его на рынке. Планируя затраты на эти работы, я производил расчеты на получение некоторого положительного эффекта, который заключается в получении дополнительной прибыли.
Если общий результат оказывается положительным, то проект является полезным.
Для определения затрат, связанных с созданием программного продукта «Стенд для исследования фотоэффекта» необходимо определить по фактическим затратам значения:
1. Заработной платы программиста (часовая, дневная или месячная), руб.;
2. Доля накладных расходов на предприятии;
3. Время на составление программы (чел./час, чел./дней, чел./мес);
Для определения трудозатрат на составление программного продукта необходимо весь трудовой процесс расчленить на составные части и затем определить норму рабочего времени на продукт.
Основными методами изучения затрат рабочего времени являются: хронометраж и фотография рабочего времени. В современных условиях широко используется фотохронометраж.
Таблица 3 Фотохронометраж составления программы «Стенд по исследованию фотоэффекта»
| № п/п | Элементы затрат времени | Время текущее | Время на этап |
| 1 2 3 4 5 | 1-ый день Начало работы Подготовка рабочего места Составление алгоритма Составление программы Окончание работы | 9:00 9:10 9:30 10:00 14:00 | 10 мин 20 мин 30 мин 4 ч |
| 1 2 3 4 5 | 2-ой день Начало работы Подготовка рабочего места Составление алгоритма Составление программы Окончание работы | 9:00 9:10 9:30 10:00 14:00 | 10 мин 20 мин 30 мин 4 ч |
| 1 2 3 4 5 | 3, 4, 5 -ый день Начало работы Подготовка рабочего места Составление алгоритма Составление программы Окончание работы | 10:00 10:10 10:30 11:00 14:00 | 10 мин 20 мин 30 мин 3 ч |
| 1 2 3 4 5 | 6, 7, 8-ой день Начало работы Подготовка рабочего места Подбор информации Составление программы Завершение работы | 9:00 9:10 9:20 10:00 14:00 | 10 мин 10 мин 40 мин 4 ч |
| 9-ый день Начало работы Подготовка рабочего места Разработка теоретической части программы Завершение работы | 9:00 9:10 9:20 14:00 | 10 мин 10 мин 4 ч 40 мин | |
| 1 2 3 4 | 10-ый день Начало работы Подготовка рабочего места Разработка теоретической части программы Завершение работы | 9:00 9:10 9:20 14:00 | 10 мин 10 мин 4 ч 40 мин |
| 1 2 3 4 | 11-ый день Начало работы Подготовка рабочего места Разработка практической части программы Завершение работы | 9:00 9:10 9:20 14:00 | 10 мин 10 мин 4 ч 40 мин |
| 1 2 3 4 | 12-ый день Начало работы Подготовка рабочего места Составление теста программы Завершение работы | 9:00 9:10 9:20 14:00 | 10 мин 10 мин 4 ч 40 мин |
| 1 2 3 4 | 13, 14-ый день Начало работы Подготовка рабочего места Редактирование программы Завершение работы | 9:00 9:10 9:20 14:00 | 10 мин 10 мин 4 ч 40 мин |
| 1 2 3 4 | 15-ый день Начало работы Подготовка рабочего места Отладка и редактирование программы Завершение работы | 9:00 9:10 9:20 14:00 | 10 мин 10 мин 4 ч 40 мин |
| Итого | 72 ч | ||
На основании данных Таблицы 1 получаем Тн = 72 чел/час.
Текущие затраты на создание программного продукта могут быть определены следующим образом:
Ао = Тн *З/плср * (1 + КЕСН + Кнр) + Смч *Тмо (Ф2) ,
Ао = 72 * 14 * (1 + 0,356 + 0,2) + 2,59 * 5 = 1581,35 руб.
Рассчитаем текущие затраты с учетом НДС
Ао=1581,35*1,2=1897,62 руб.
Тн- время на составление программногопродукта (72 чел/час)
З/плср=Зпл /20/8, где
Зпл – заработная плата программиста (2240 руб.)
20 – число рабочих дней в месяце
8 – число рабочих часов в день
З/плср– средняя заработная плата программиста (часовая, дневная или месячная) (14 руб.)
КЕСН – коэффициент единого социального налога (0,356). Налоговый кодекс РФ ст. 24 гл. 149.
Кнр- Коэффициент накладных расходов, используемый на предприятии.
Смч– стоимость одного часа машинного времени (2,59 руб)
Тмо– затраты машинного времени на отладку программы (5 ч)
На полученную сумму начисляется НДС по ставке налога 20%.
Стоимость одного машинного часа рассчитывается по формуле
Смч = Сбал. +Сэл.эн. (Ф3),
Тсл * Др * Чд
Смч = 
+0,26=2,59 руб
где
Сбал. – балансовая стоимость персонального компьютера, руб(17600 руб);
Тсл – нормативный срок эксплуатации ПК (по паспортным данным)(5 лет)
Др – число рабочих дней в году (252 дня)
Чд- число часов работы ПК в день (6 ч)
Сэл.эн.- стоимость электроэнергии, которая рассчитывается по формуле:
Сэл.эн = Рэл * Цквт(Ф4),
Сэл.эн = 0,3 * 0,86 = 0,26 руб
где
Рэл - расход электроэнергии в час (по паспортным данным ПК), (0,3 квт)
Цквт – стоимость (цена) квт. часа электроэнергии (0,86 руб)
Эффект от внедрения в производство программного продукта при равных условиях производства будет определятся как разница затрат связанных с использованием заменяемой информационной технологии и новой.
Э=З1 – З2 (Ф5)
Э=1123,43-280,9=842,53 руб.
Где
З1 – элемент производственных затрат, связанных с использованием информационной технологии (или) традиционного способа решения задачи)
З2– элемент производственных затрат, связанных с использованием новой информационной технологией.
Затраты могут быть определены по формуле:
З=З/пл *Тр(1+КЕСН+КНР) (Ф6),
З1=18,05*4*10*(1+0,356+0,2)=1123,43 руб.
В данной формуле 4 – это количество часов, которые преподаватель тратил на объяснение темы. 10 – это количество групп или классов, которые обучаются данной теме в течении одного месяца.
З2=18,05*1*10*(1+0,356+0,2)=280,9 руб.
В данной формуле 1 – это количество часов, которые преподаватель тратит на объяснение темы, используя данный программный продукт. 10 – это количество групп или классов, которые обучаются данной теме в течении одного месяца.
Где
З/пл - средняя заработная плата работника (часовая, дневная, месячная), (18,05 руб.)
Тр – трудоемкость решения задачи из расчета за год в чел./час., чел./дн., чел./мес.(до внедрения 40 ч, после внедрения 10 ч)
Срок окупаемости программного продукта рассчитывается по формуле:
Ток=А/Э (Ф7),
Ток=1897,62 /842,53=2,25
Где
А- затраты, связанные с созданием программного продукта
(1897,62 руб.)
Э – эффект от использования программного продукта (842,53 руб.).
Для оценки эффективности проекта используются следующие показатели:
· Чистый доход (ЧД);
· Чистый дисконтированный доход (ЧДД);
· Индекс доходности (ИД);
· Внутренняя норма доходности (ВНД).
Чистый доход предприятия от реализации инвестиционного проекта представляет собой разницу между поступлениями (притоком средств) и выплатами (оттоком средств) предприятия в процессе реализации проекта применительно к каждому интервалу планирования.
Выплаты предприятия делятся на капитальные (единовременные) затраты и текущие затраты.
К капитальным затратам относятся расходы, которые направлены на создание производственных мощностей и разработку продукции.
Текущие затраты - это расходы на приобретение сырья, материалов комплектующих, оплату труда работников предприятия, другие виды затрат, относимые на себестоимость продукции. Текущие затраты осуществляются в течении всего срока жизни проекта.
Поступления – это результат деятельности предприятия в процессе осуществления проекта в виде выручки от реализации произведенной продукции.
Дисконтирование – это процесс нахождения величины денежной суммы на конкретный момент времени по ее известному или предполагаемому значению в будущем, исходя из заданной процентной ставки.
Норма дисконтирования (ставка дисконта) рассматривается в общем случае как норма прибыли на вложенный капитал, т.е. как процент прибыли, который инвестор или предприятие хочет получить в результате реализации проекта.
Для определения прибыльности проекта используется метод расчета дисконтированной (чистой) стоимости капитала (или дисконтированного дохода). Чистая дисконтированная прибыль – это доход, полученный от вложения капитала на разработку проекта. При расчете идет сравнение эффекта от использования созданного продукта с тем, какой доход можно получить от вложения тех же средств в банк.
При этом:
1. Заранее задается минимально допустимая ставка процента окупаемости (прибыльный процент – норма дисконта), при которой объект инвестирования считается прибыльным. Такой ставкой является ставка банковского процента. Она равна 15 % и условно считается неизменной для всего срока службы объекта инвестирования (Е =0,15)
2. Осуществляется дисконтирование (приведение к базисному моменту времени) на основе расчетной ставки процента с текущих поступлений, полученных после приобретения объекта инвестирования (иначе – дисконтированный эффект):
n
Э = å Э1___
t=1 (1 + Е)t
где n - срок службы объекта инвестирования (для программных продуктов обычно 3 года); t – номер шага расчета (=1,2,3), Э1 – текущие годовые поступления в году t т.е.
Э = Э1___ + Э1___ + Э1___
(1 + Е)1 (1 + Е)2 (1 + Е)3
Э = 842,53 + 842,53_ + 842,53_=1932,6
(1 + 0,15)1 (1 + 0,15)2 (1+ 0,15)3
Условно можно считать, что Э1, Э2, Э3 равны между собой (они рассчитываются по формуле Э= З1-З2 эти величины могут корректироваться с учетом инфляции.
3. Рассчитывается дисконтированная (чистая) стоимость расходов на приобретение (создание) объекта инвестирования из величины выручки от инвестиций:
К = Э-А0=1932,6-1897,62=34,98 руб.
4. Положительная величина дисконтированной стоимости капитала означает, что проект эффективен (при данной норме дисконта). Чем больше эта величина, тем эффективнее проект.
5. Отрицательная величина дисконтированной стоимости капитала означает убыточность инвестиций.
6. Полученный показатель также называется интегральным эффектом. Кроме того, можно определить индекс доходности как отношение суммы приведенных эффектов к сумме инвестиций:
ИД = Э =1,02
А0
ИД = 1932,6=1,02
1897,62
Если ИД > 1, то проект эффективен, в противном случае – неэффективен, так как ИД при создании программы больше 1, то проект является эффективным.
В связи с тем, что ИД при вычислении эффективности программного продукта составил 1,02, можно сделать вывод, что данный программный продукт является эффективным.
6. ОХРАНА ТРУДА И ТЕХНИКА БЕЗОПАСНОСТИ 6.1 Введение
Охрана труда – система законодательных актов, постановлений, организационных, санитарных и технических мер, обеспечивающих безопасные для здоровья условия труда на рабочем месте. Научно-технический прогресс внёс изменения в условия производственной деятельности работников умственного труда. Их труд стал более интенсивным, напряжённым, требующим затрат умственной, эмоциональной и физической энергии. Это имеет прямое отношение и к специалистам, связанным с проектированием, разработкой, эксплуатацией, сопровождением и модернизацией автоматизированных систем управления различного назначения.
На рабочем месте инженера-программиста должны быть созданы условия для высокопроизводительного труда. В настоящее время всё большее применение находят автоматизированные рабочие места, которые оснащаются персональными ЭВМ с графическими дисплеями, клавиатурами и принтерами.
В данном дипломном проекте разрабатываются программы, составляющие часть ПО регистрации и документирования данных. Оператор работающий с разработанной программой испытывает значительную нагрузку, как физическую (сидячее положение, нагрузка на глаза), так и умственную, что приводит к снижению его трудоспособности к концу рабочего дня.
На рабочем месте оператор подвергается воздействию следующих неблагоприятных факторов:
· недостаточное освещение;
· электромагнитное излучение;
· выделение избытков теплоты.
Поэтому необходимо разработать средства защиты от этих вредных факторов. К данным средствам защиты относятся: вентиляция, искусственное освещение, звукоизоляция. Существуют нормативы, определяющие комфортные условия и предельно допустимые нормы запылённости, температуры воздуха, шума, освещённости. В системе мер, обеспечивающих благоприятные условия труда, большое место отводится эстетическим факторам: оформление производственного интерьера, оборудования, применение функциональной музыки и др., которые оказывают определённое воздействие на организм человека. Важную роль играет окраска помещений, которая должна быть светлой.
Развитию утомляемости на производстве способствуют следующие факторы:
· неправильная эргономическая организация рабочего места, нерациональные зоны размещения оборудования по высоте от пола, по фронту от оси симметрии и т.д.;
· характер протекания труда. Трудовой процесс организован таким образом, что оператор вынужден с первых минут рабочего дня решать наиболее сложные и трудоёмкие задачи, в то время как в первые минуты работы функциональная подвижность нервных клеток мозга низка. Важное значение имеет чередование труда и отдыха, смена одних форм работы другими.
6.2 Освещение рабочего места оператораОдним из основных вопросов охраны труда является организация рационального освещения производственных помещений и рабочих мест.
Для освещения помещения, в котором работает оператор, используется смешанное освещение, т.е. сочетание естественного и искусственного освещения.
Естественное освещение – осуществляется через окна в наружных стенах здания.
Искусственное освещение – используется при недостаточном естественном освещении и осуществляется с помощью двух систем: общего и местного освещения. Общим называют освещение, светильники которого освещают всю площадь помещения. Местным называют освещение, предназначенное для определённого рабочего места.
Для помещения, где находится рабочее место оператора, используется система общего освещения.
7. ЭРГОНОМИКА 7.1 Введение
В современном мире технический прогресс приводит к существенному изменению условий, средств и характера трудовой деятельности. В производстве, на транспорте, в системах связи, строительстве и сельском хозяйстве все шире применяются автоматы и вычислительная техника, происходит автоматизация многих вычислительных процессов.
Благодаря техническому перевооружению производства существенно меняются функции и роль человека. Многие операции, которые раньше были его прерогативой, сейчас начинают выполнять машины, однако, каких бы успехов ни достигала техника, труд был и остается достоянием человека, а машины, как бы сложны они ни были, остаются лишь орудиями его труда. В связи с этим возникла новая дисциплина - эргономика, которая вобрала в себя методы целого ряда дисциплин – психологии и физиологии труда, производственной медицины, гигиены труда, научной организации труда, инженерной психологии и ряда других дисциплин.
Эргономика – это дисциплина, комплексно изучающая человека (группу людей) в конкретных условиях его (их) деятельности, связанной с использованием технических средств.
Во время работы часто возникают ситуации, в которых оператор ЭВМ должен за короткий срок принять правильное решение. Для успешного труда в таких условиях необходима рационально организованная окружающая среда, ограждающая работника от воздействия посторонних раздражителей, которыми могут быть мрачная окраска ЭВМ и помещения ВЦ, неудобное расположение сигнализации, клавиш управления и т.п. Поэтому всеми средствами нужно снижать утомление и напряжение оператора ЭВМ, создавая обстановку производственного комфорта.
Анализ перспектив развития технических средств показывает, что улучшение их эргономических характеристик составляет важный резерв повышения эффективности деятельности оператора. Целью эргономического анализа является не только повышение производительности труда человека и устранение его ошибок, но и сохранение при этом здоровья человека, развитие его личности. Необходим грамотный подход, прежде всего к рабочим местам, как к функционально и конструктивно законченным изделиям, а также к размещению и взаимному расположению отдельных технических средств в рабочей зоне, т.е. на столах операторов и вокруг них.
Рабочее место – это система функционально и пространственно организованных технических средств и предмета труда, обеспечивающая условия для успешного решения человеком-оператором поставленной перед ним задачи.
Принципы организации рабочего места зависят от характера решаемых задач, конкретного содержания деятельности человека и особенностей предметно-пространственного окружения и будут рассмотрены ниже.
7.2 Базовый подход к конструированию рабочего места оператораПри разработке перспективных рабочих мест широко используется базовый метод конструирования и его разновидности (функционально-модульный, функционально-узловой и функционально-блочный методы), основанные на принципах функциональной и размерной взаимозаменяемости, схемной и конструкторской унификации. Базовый метод имеет ряд важных преимуществ:
· позволяет упростить процесс конструирования;
· обеспечивает возможность непрерывного совершенствования аппаратуры без коренных изменений конструкции;
· сокращает объем конструкторской документации на этапе производства;
· позволяет улучшить эксплуатационные характеристики аппаратуры, ремонтопригодность, улучшить эргономические и технико-эстетические параметры изделий.
Функционально-модульный метод позволит полнее удовлетворить все более ужесточающиеся требования технической эстетики к композиционной целостности, рациональности формы и качеству производственного исполнения изделий. Реализация этих требований позволит устранить разнохарактерность изделий, визуально и конструктивно не стыкующихся друг с другом.
7.3 Понятие рабочего места и рабочей зоны оператора
Ориентация на конструирование рабочих мест из унифицированных модулей с использованием перспективных базовых конструкций на сегодня является основной тенденцией конструирования рабочих мест. Элементы рабочих мест, имеющие схожие характеристики формы и отделки, единые стыковочные размеры и детали крепления существенно облегчают формирование рабочих мест.
Если рабочее место оператора не представляет собой конструктивно законченного изделия, а состоит из набора отдельных технических средств, то говорят о рабочих зонах операторов. Для рабочих зон операторов характерна гибкость, перестраиваемость, наращивание функций технических средств при их эксплуатации.
7.4 Формирование типового состава рабочей зоныВ общем случае в типовой состав рабочей зоны включают:
· средства отображения информации индивидуального пользования (блоки отображения дисплеев, экраны персональных ЭВМ, и т.п.);
· средства управления и ввода информации (пульты дисплеев, клавиатура и устройства позиционирования курсора);
· устройства печати, документирования и хранения информации;
· вспомогательное оборудование (средства оргтехники, хранилища для носителей информации, устройства местного освещения и т.д.)
· стол и кресло оператора.
При эргономической оценке рабочего места оператора необходимо выбрать два-три эргономических принципа в качестве ведущих. Эргономическими принципами, которые необходимо учитывать при формировании рабочей зоны оператора, могут быть следующие:
· учет последовательности и частоты использования отдельных средств в течение рабочей смены;
· учет требований к скорости и точности приема информации оператором;
· учет особенностей конструктивного выполнения технических средств и аппаратуры.
7.5 Условия, которым должна удовлетворять рабочая зонаПространственные и размерные соотношения между элементами рабочего места должны быть достаточными для:
· размещения работающего человека с учетом его рабочих движений и перемещений согласно технологическому процессу;
· расположения средств управления в пределах максимальной и минимальной границ моторного пространства;
· оптимального обзора визуальной информации,
· смены рабочей позы и рабочего положения;
· свободного доступа к оборудованию при ремонте и наладке;
· рационального размещения основных и вспомогательных средств труда;
· ведения записей, работы с документами и приборами.
7.6 Основные эргономические требования, предъявляемые к клавиатуреПульт дисплея должен быть размещен на столе или подставке так, чтобы высота клавиатуры пульта по отношению к полу составляла 650-720 мм. При размещении пульта на стандартном столе высотой 750 мм необходимо использовать кресло с регулируемой высотой сиденья и подставку под ноги. Пульт рекомендуется размещать прямо перед оператором или левее, если предполагается работа оператора с документами и ведение записей.
Для оператора ввода данных документ (бланк) рекомендуется располагать на расстоянии 45-50 см от глаз оператора, преимущественно слева.
Клавиатуру, манипулятор “мышь” следует располагать в оптимальной зоне – части пространства рабочего места, ограниченного дугами, описываемыми предплечьями при движении в локтевых суставах с опорой в точке локтя и с относительно неподвижным плечом. Эта зона составляет не более 30 - 40 см от точки опоры локтя оператора.
ЗАКЛЮЧЕНИЕ
В процессе выполнения дипломного проекта мною был решен ряд теоретических и практических вопросов, связанных с выбором средств программной и аппаратной реализации поставленной задачи. Также были углублены знания относительно объектно-ориентированного языка программирования Borland Delphi v.6.0.
Прежде всего, разработана логическая структура программы. Для удобного использования программы был разработан удобный интерфейс. Задача, состоящая в том, чтобы облегчить труд преподавателей и ускорить процесс обучения был успешно достигнуто. Программа значительно упрощает процесс обучения и усвоения данной темы.
При использовании программы «Фотоэффект» достигается значительная экономия времени.
В экономической части описываются затраты, связанные с созданием программного продукта и составили Ао=1581,35 руб. Эффект от использования программы составил Э=842,53 руб. Срок окупаемости составил Ток=2,25 месяца.
В главе «Охрана труда» раскрыто понятие охраны труда, как системы законодательных актов, обеспечивающих безопасные для здоровья условия труда на рабочем месте. Описываются различные виды освещения, правила их размещения на рабочем месте оператора.
В главе «Эргономика» раскрыты понятия эргономики, как дисциплины по изучению человека в конкретных условиях его деятельности, связанной с использованием технических средств и рабочего места оператора.
Из вышесказанного можно сделать вывод, что программа может эффективно использоваться в различных учебных заведениях, с минимальными тратами времени и средств.
СПИСОК ЛИТЕРАТУРЫ
1. Глушаков С.В., Ломотько Д.В. Базы данных: Учебный курс/ Художественный оформитель А.С. Юхтман. – Харьков: Фолио; Ростов н/Д: Феникс; Киев:Абрис, 2005г.
2. Хомоненко А.Д., Цыганков В.М., Мальцев В.Г. Базы данных: Учебник для высших учебных заведений/ под ред. Проф. А.Д. Хомоненко. – СПб: КОРОНА принт, 2006г.
3. Базы данных: модели, разработка, реализация/ Г.С. Карпова. – СПб.: Питер, 2007г.
4. Могилёв А.В. и др. Информатика: Учебное пособие для студентов педагогических вузов/А.В. Могилёв, Н.И. Пак, Е.К. Хеннер; под ред. Е.К. Хеннера. – М.: Издательский центр «Академия», 2006г
5. Архангельский А.Я. Работа с локальными базами данных в Delphi 5 – М.: ЗАО «Издательство БИНОМ», 2005г.
6. Фаронов В.В. Delphi 4. Учебный курс. – М.: «Нолидж», 2007г.
7. Михаэль Эбнер Delphi 5. Руководство разработчика: Пер. с нем. – К.: Издательская группа BHV, 2006г.
8. Жуков А. Изучаем Delphi. – СПб.: Питер, 2000.
9. Культин Н.Б. Программирование на Object Pascal в Delphi 6. – СПб.: БХВ – Санкт-Петербург, 2005г.
10. Благодатских В.А. и др. Экономика, разработка и использование программного обеспечения ЭВМ. М.: Финансы и статистика, 2005г.
ПРИЛОЖЕНИЕ 1
ЛИСТИНГ ПРОГРАММЫ
Главная форма (1)
Закрытие формы
procedure TForm1.N6Click(Sender: TObject);
begin
If MessageDlg('Завершить работу ? ', mtinformation,
[mbYes, mbNo], 0) = mrYes Then close;
end;
Обращение к Web-странице
procedure TForm1.Button1Click(Sender: TObject);
begin
winexec('C:\Program Files\Internet Explorer\iexplore.exe C:\Мои документы\Диплом-Жгутов\теория\1.htm',SW_MAXIMIZE);
end;
Обращение к Web-странице
procedure TForm1.N2Click(Sender: TObject);
begin
winexec('C:\Program Files\Internet Explorer\iexplore.exe C:\Мои документы\Диплом-Жгутов\теория\1.htm',SW_MAXIMIZE);
end;
Открывает форму 4
procedure TForm1.Button2Click(Sender: TObject);
begin
Form4.Show;
Form1.Hide;
end;
Открывает форму 4
procedure TForm1.N3Click(Sender: TObject);
begin
Form4.Show;
Form1.Hide;
end;
Открывает форму 3
procedure TForm1.N8Click(Sender: TObject);
begin
Form3.Visible:=True;
Form1.Enabled:=false;
end;
Выводит сообщение о программе
procedure TForm1.N9Click(Sender: TObject);
begin
messagedlg ('Данный проект разработал студент 4-го курса, специальности 2203 "Программное обеспечение вычислительной техники и автоматизированных систем", Жгутов К.А.',mtInformation,[mbOk],0);
end;
Переходит на форму 8 и очищает на ней все данные
procedure TForm1.N4Click(Sender: TObject);
begin
form8.Show;
form1.Hide;
form4.Hide;
Form8.ScrollBar1.Enabled:=false;
Form8.Button2.Visible:=true;
Form8.Button3.Visible:=false;
Form8.Image1.Visible:=true;
Form8.Image2.Visible:=False;
Form8.Image3.Visible:=False;
Form8.Image4.Visible:=False;
Form8.Image7.Visible:=False;
Form8.Image8.Visible:=False;
Form8.Image9.Visible:=False;
Form8.ScrollBar1.Position:=0;
Form8.Gauge1.Progress:=100-Form8.ScrollBar1.Position;
Form8.Gauge2.Progress:=Form8.ScrollBar1.Position;
Form8.ScrollBar1.Enabled:=false;
Form8.radiobutton1.Checked:=false;
Form8.radiobutton2.Checked:=false;
Form8.radiobutton3.Checked:=false;
end;
Переходит на форму 8 и очищает на ней все данные
procedure TForm1.Button3Click(Sender: TObject);
begin
form8.Show;
form1.Hide;
form4.Hide;
Form8.ScrollBar1.Enabled:=false;
Form8.Button2.Visible:=true;
Form8.Button3.Visible:=false;
Form8.Image1.Visible:=true;
Form8.Image2.Visible:=False;
Form8.Image3.Visible:=False;
Form8.Image4.Visible:=False;
Form8.Image7.Visible:=False;
Form8.Image8.Visible:=False;
Form8.Image9.Visible:=False;
Form8.ScrollBar1.Position:=0;
Form8.Gauge1.Progress:=100-Form8.ScrollBar1.Position;
Form8.Gauge2.Progress:=Form8.ScrollBar1.Position;
Form8.ScrollBar1.Enabled:=false;
Form8.radiobutton1.Checked:=false;
Form8.radiobutton2.Checked:=false;
Form8.radiobutton3.Checked:=false;
end;
Переходит на форму 9
procedure TForm1.N10Click(Sender: TObject);
begin
Form9.Visible:=true;
Form1.Enabled:=false;
end;
Закрывает главную форму и выводит сообщение
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
If MessageDlg('Завершить работу ? ', mtinformation,
[mbYes, mbNo], 0) = mrYes
Then
begin
Action:=caFree;
end
else
Action:=caNone;
end;
Форма2
Процедура регистрации пользователей
procedure TForm2.Button1Click(Sender: TObject);
var i:integer;
begin
i:=0;
If ComboBox1.Text='' then
begin
messagedlg('Введите номер группы ',mtInformation,[mbOk],0);
i:=i+1;
end;
If Edit1.Text='' then
begin
messagedlg('Введите фамилию',mtInformation,[mbOk],0);
i:=i+1;
end;
If i=0 then
begin
Form4.show;
Form2.Close;
end;
end;
Форма 3
Переходит на форму 1
procedure TForm3.Button1Click(Sender: TObject);
begin
Form1.Enabled:=true;
close;
end;
Форма 4
Процедура для начала теста
procedure TForm4.Button1Click(Sender: TObject);
var i:integer;
begin
sum:=0;
proc:=0;
Button2.Enabled:=true;
Button1.Enabled:=false;
for i:=1 to 11 do
begin
Gauge1.Progress:=proc;
DBEdit1.Visible:=false;
DBEdit2.Visible:=false;
DBEdit3.Visible:=false;
DBEdit4.Visible:=false;
DBEdit5.Visible:=false;
Image1.Visible:=false;
Image2.Visible:=false;
Image3.Visible:=false;
Image4.Visible:=false;
Image5.Visible:=false;
Image6.Visible:=false;
Image7.Visible:=false;
Image8.Visible:=false;
Image9.Visible:=false;
Image10.Visible:=false;
Image11.Visible:=false;
radiobutton1.Visible:=true;
radiobutton2.Visible:=true;
radiobutton3.Visible:=true;
radiobutton4.Visible:=true;
AdoTable1.Prior;
end;
Form1.show;
Form4.Close;
end;
Тестирование
procedure TForm4.Button2Click(Sender: TObject);
begin
if (radiobutton1.Checked=false) and (radiobutton2.Checked=false) and (radiobutton3.Checked=false) and (radiobutton4.Checked=false)then
begin
messagedlg('Выберите вариант ответа!',mtInformation,[mbOk],0);
end else
begin
AdoTable1.Next;
if ADOTable1.FieldValues['Счетчик']=6 then
begin
Image1.Visible:=true;
Image2.Visible:=true;
Image3.Visible:=true;
DBEdit2.Visible:=false;
DBEdit3.Visible:=false;
DBEdit4.Visible:=false;
end;
if ADOTable1.FieldValues['Счетчик']=7 then
begin
Image4.Visible:=true;
Image5.Visible:=true;
Image6.Visible:=true;
Image7.Visible:=true;
Image1.Visible:=false;
Image2.Visible:=false;
Image3.Visible:=false;
DBEdit2.Visible:=false;
DBEdit3.Visible:=false;
DBEdit4.Visible:=false;
DBEdit5.Visible:=false;
end;
if ADOTable1.FieldValues['Счетчик']=11 then
begin
Image8.Visible:=true;
Image9.Visible:=true;
Image10.Visible:=true;
Image11.Visible:=true;
Image12.Visible:=false;
DBEdit2.Visible:=false;
DBEdit3.Visible:=false;
DBEdit4.Visible:=false;
DBEdit5.Visible:=false;
end;
if ADOTable1.FieldValues['Счетчик']=10 then
begin
Image12.Visible:=true;
end;
if (ADOTable1.FieldValues['Счетчик']<>6) and (ADOTable1.FieldValues['Счетчик']<>7) and (ADOTable1.FieldValues['Счетчик']<>10) and (ADOTable1.FieldValues['Счетчик']<>11) then
begin
DBEdit2.Visible:=true;
DBEdit3.Visible:=true;
DBEdit4.Visible:=true;
DBEdit5.Visible:=true;
Image1.Visible:=false;
Image2.Visible:=false;
Image3.Visible:=false;
Image4.Visible:=false;
Image5.Visible:=false;
Image6.Visible:=false;
Image7.Visible:=false;
Image8.Visible:=false;
Image9.Visible:=false;
Image10.Visible:=false;
Image11.Visible:=false;
Image12.Visible:=false;
end;
if radiobutton1.Checked=true then flag:='A';
if radiobutton2.Checked=true then flag:='B';
if radiobutton3.Checked=true then flag:='C';
if radiobutton4.Checked=true then flag:='D';
if flag=adotable1.FieldValues['Правильный_ответ'] then
begin
sum:=sum+1;
proc:=proc+9;
Gauge1.Progress:=proc;
end;
if ADOTable1.FieldValues['Счетчик']=12 then
begin
Gauge1.Progress:=proc+1;
DBEdit1.Visible:=false;
DBEdit2.Visible:=false;
DBEdit3.Visible:=false;
DBEdit4.Visible:=false;
DBEdit5.Visible:=false;
radiobutton1.Visible:=false;
radiobutton2.Visible:=false;
radiobutton3.Visible:=false;
radiobutton4.Visible:=false;
messagedlg('Тест пройден. Позовите преподавателя, чтобы показать результат.',mtInformation,[mbOk],0);
Button1.Enabled:=true;
N2.Enabled:=true;
N3.Enabled:=true;
Button2.Enabled:=false;
form5.adotable1.Insert;
form5.adotable1.fieldbyname ('Группа').AsString:=Form2.combobox1.Text;
form5.adotable1.fieldbyname ('Фамилия').AsString:=Form2.Edit1.Text;
form5.adotable1.fieldbyname ('Результат').AsString:=inttostr(proc+1);
form5.adotable1.post;
end;
if sum>=9 then
begin
Form1.Button3.Enabled:=true;
Form1.N4.Enabled:=true;
end
else
begin
Form1.Button3.Enabled:=false;
Form1.N4.Enabled:=false;
end;
RadioButton1.Checked:=false;
RadioButton2.Checked:=false;
RadioButton3.Checked:=false;
RadioButton4.Checked:=false;
end;
end;
Переходит на форму 2
procedure TForm4.N2Click(Sender: TObject);
var i:integer;
begin
Form2.Show;
form2.ComboBox1.Text:='';
form2.Edit1.Text:='';
sum:=0;
proc:=0;
Button2.Enabled:=true;
Button1.Enabled:=false;
for i:=1 to 11 do
begin
Gauge1.Progress:=proc;
DBEdit1.Visible:=true;
DBEdit2.Visible:=true;
DBEdit3.Visible:=true;
DBEdit4.Visible:=true;
DBEdit5.Visible:=true;
Image1.Visible:=false;
Image2.Visible:=false;
Image3.Visible:=false;
Image4.Visible:=false;
Image5.Visible:=false;
Image6.Visible:=false;
Image7.Visible:=false;
Image8.Visible:=false;
Image9.Visible:=false;
Image10.Visible:=false;
Image11.Visible:=false;
radiobutton1.Visible:=true;
radiobutton2.Visible:=true;
radiobutton3.Visible:=true;
radiobutton4.Visible:=true;
AdoTable1.Prior;
end;
N2.Enabled:=false;
N3.Enabled:=false;
Button2.Enabled:=true;
end;
procedure TForm4.N3Click(Sender: TObject);
begin
Form1.show;
Form4.Close;
end;
Очистка пароля
procedure TForm4.N5Click(Sender: TObject);
begin
PasswordDlg.Show;
PasswordDlg.Password.Text:='';
PasswordDlg.Label2.Caption:='';
Form4.Enabled:=false;
end;
Переходит на форму 7
procedure TForm4.N6Click(Sender: TObject);
begin
Form7.Show;
Form4.Enabled:=false;
end;
Форма 5
Переходит на форму 4
procedure TForm5.Button1Click(Sender: TObject);
begin
form4.Enabled:=true;
Form5.Close;
end;
Форма 6
Проверка пароля
procedure TPasswordDlg.OKBtnClick(Sender: TObject);
begin
If Password.Text='физика' then
begin
Form5.show;
PasswordDlg.Close;
end
else
Label2.Caption:='Неверный пароль';
Password.Text:='';
end;
Переходит на форму 4 и очищает пароль
procedure TPasswordDlg.CancelBtnClick(Sender: TObject);
begin
Form4.Enabled:=true;
Label2.Caption:='';
Password.Text:='';
close;
end;
Форма 7
Переходит на форму 4
procedure TForm7.Button1Click(Sender: TObject);
begin
form4.Enabled:=true;
close;
end;
Форма 8
Переходит на форму 1
procedure TForm8.Button1Click(Sender: TObject);
begin
form1.Show;
form8.Hide;
end;
Определение показателей вольтметра
procedure TForm8.ScrollBar1Change(Sender: TObject);
var i:integer;
f:real;
a:string;
begin
If RadioButton1.Checked=true then
begin
Gauge2.Progress:=ScrollBar1.Position;
Gauge1.Progress:=100-(ScrollBar1.Position*2);
f:=0;
for i:=0 to ScrollBar1.Position do
begin
f:=f+0.1;
a:=floattostr(f);
Label3.Caption:=a+' B';
if ScrollBar1.Position=0 then Label3.Caption:='0'+' B';
if ScrollBar1.Position<47 then Image7.Visible:=true;
if ScrollBar1.Position=50 then f:=4.9;
if ScrollBar1.Position<21 then Image7.Left:=350+ScrollBar1.Position*5;
if (ScrollBar1.Position>21) and (ScrollBar1.Position<41) then Image7.Left:=550-ScrollBar1.Position*5;
if ScrollBar1.Position>47 then Image7.Visible:=false;
end;
end;
If RadioButton2.Checked=true then
begin
Gauge2.Progress:=ScrollBar1.Position;
Gauge1.Progress:=100-(ScrollBar1.Position*2);
f:=0;
for i:=0 to ScrollBar1.Position do
begin
f:=f+0.1;
a:=floattostr(f);
Label3.Caption:=a+' B';
if ScrollBar1.Position=0 then Label3.Caption:='0'+' B';
if ScrollBar1.Position<36 then Image8.Visible:=true;
if ScrollBar1.Position=50 then f:=4.9;
if ScrollBar1.Position<12 then Image8.Left:=350+ScrollBar1.Position*9;
if (ScrollBar1.Position>12) and (ScrollBar1.Position<23) then Image8.Left:=550-ScrollBar1.Position*9;
if ScrollBar1.Position>35 then Image8.Visible:=false;
end;
end;
If RadioButton3.Checked=true then
begin
Gauge2.Progress:=ScrollBar1.Position;
Gauge1.Progress:=100-(ScrollBar1.Position*2);
f:=0;
for i:=0 to ScrollBar1.Position do
begin
f:=f+0.1;
a:=floattostr(f);
Label3.Caption:=a+' B';
if ScrollBar1.Position=0 then Label3.Caption:='0'+' B';
if ScrollBar1.Position<40 then Image9.Visible:=true;
if ScrollBar1.Position=50 then f:=4.9;
if ScrollBar1.Position<16 then Image9.Left:=360+ScrollBar1.Position*6;
if (ScrollBar1.Position>16) and (ScrollBar1.Position<35) then Image9.Left:=550-ScrollBar1.Position*6;
if ScrollBar1.Position>39 then Image9.Visible:=false;
end;
end;
end;
Обнуление результатов при выборе красного цвета
procedure TForm8.RadioButton1Click(Sender: TObject);
begin
If RadioButton1.Checked=true Then
begin
ScrollBar1.Position:=0;
Image2.Visible:=true;
Image7.Visible:=false;
Image1.Visible:=False;
Image3.Visible:=False;
Image4.Visible:=False;
Image8.Visible:=False;
Image9.Visible:=False;
ScrollBar1.Enabled:=false;
Button2.Visible:=true;
Button3.Visible:=false;
Gauge1.Progress:=100-ScrollBar1.Position;
Gauge2.Progress:=ScrollBar1.Position;
ScrollBar1.Enabled:=false;
end;
end;
Обнуление результатов при выборе синего цвета
procedure TForm8.RadioButton2Click(Sender: TObject);
begin
If RadioButton2.Checked=true Then
begin
ScrollBar1.Position:=0;
Image3.Visible:=true;
Image8.Visible:=false;
Image7.Visible:=False;
Image9.Visible:=False;
Image1.Visible:=False;
Image2.Visible:=False;
Image4.Visible:=False;
ScrollBar1.Enabled:=false;
Button2.Visible:=true;
Button3.Visible:=false;
Gauge1.Progress:=100-ScrollBar1.Position;
Gauge2.Progress:=ScrollBar1.Position;
ScrollBar1.Enabled:=false;
end;
end;
Обнуление результатов при выборе зеленого цвета
procedure TForm8.RadioButton3Click(Sender: TObject);
begin
If RadioButton3.Checked=true Then
begin
ScrollBar1.Position:=0;
Image4.Visible:=true;
Image9.Visible:=false;
Image8.Visible:=False;
Image7.Visible:=False;
Image1.Visible:=False;
Image2.Visible:=False;
Image3.Visible:=False;
ScrollBar1.Enabled:=false;
Button2.Visible:=true;
Button3.Visible:=false;
Gauge1.Progress:=100-ScrollBar1.Position;
Gauge2.Progress:=ScrollBar1.Position;
ScrollBar1.Enabled:=false;
end;
end;
Проверяет выбор цвета
procedure TForm8.Button2Click(Sender: TObject);
begin
if (radiobutton1.Checked=false) and (radiobutton2.Checked=false) and (radiobutton3.Checked=false)then
begin
messagedlg('Выберите цвет света!',mtInformation,[mbOk],0);
end else
begin
ScrollBar1.Enabled:=true;
Button3.Visible:=true;
Button2.Visible:=false;
If RadioButton1.Checked=true then Image7.Visible:=true;
If RadioButton2.Checked=true then Image8.Visible:=true;
If RadioButton3.Checked=true then Image9.Visible:=true;
end;
end;
Выключает цепь
procedure TForm8.Button3Click(Sender: TObject);
begin
ScrollBar1.Position:=0;
ScrollBar1.Enabled:=false;
Button2.Visible:=true;
Button3.Visible:=false;
Image7.Visible:=False;
Image8.Visible:=False;
Image9.Visible:=False;
Image1.Visible:=true;
Image2.Visible:=False;
Image3.Visible:=False;
Image4.Visible:=False;
ScrollBar1.Position:=0;
Gauge1.Progress:=100-ScrollBar1.Position;
Gauge2.Progress:=ScrollBar1.Position;
ScrollBar1.Enabled:=false;
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
radiobutton3.Checked:=false;
end;
Форма 9
Переходит на форму 1
procedure TForm9.Button1Click(Sender: TObject);
begin
form1.Enabled:=true;
close;
end;
Похожие работы
... повысить качества фундаментальной естественно-научной подготовки студентов в контексте информатизации и формирования мотивационного синдрома. Тема исследования «Теоретические основы фундаментальной естественно-научной подготовки студентов технического вуза в условиях использования информационных технологий» обусловлена актуальностью решения и педагогической значимостью этой проблемы. Объектом ...
... школы. Мебель кабинета физики. Особенности оснащения и оборудования кабинета физики сельской школы. Рабочее место ученика и учителя в кабинете физики сельской школы. Кабинет физики в условиях разноуровневого обучения. Системы освещения и затемнения кабинета. Экскурсия в кабинет физики городской школы. 4. Работа заведующего кабинетом физики (5ч.) Права и обязанности заведующего кабинетом физики. ...
0 комментариев