Разработка лабораторного стенда для исследования фотоэффекта
Основные положения подхода к проектированию систем сбора и накопления информации. Выбор модели базы данных. Назначение и проектирование программного продукта "Создание стенда для изучения фотоэффекта". Экономическое обоснование разработки, эргономика.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 10.11.2009 |
| Размер файла | 445,9 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
З/плср - средняя заработная плата программиста (часовая, дневная или месячная) (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 руб.).
Для оценки эффективности проекта используются следующие показатели:
· Чистый доход (ЧД);
· Чистый дисконтированный доход (ЧДД);
· Индекс доходности (ИД);
· Внутренняя норма доходности (ВНД).
Чистый доход предприятия от реализации инвестиционного проекта представляет собой разницу между поступлениями (притоком средств) и выплатами (оттоком средств) предприятия в процессе реализации проекта применительно к каждому интервалу планирования.
Выплаты предприятия делятся на капитальные (единовременные) затраты и текущие затраты.
К капитальным затратам относятся расходы, которые направлены на создание производственных мощностей и разработку продукции.
Текущие затраты - это расходы на приобретение сырья, материалов комплектующих, оплату труда работников предприятия, другие виды затрат, относимые на себестоимость продукции. Текущие затраты осуществляются в течении всего срока жизни проекта.
Поступления - это результат деятельности предприятия в процессе осуществления проекта в виде выручки от реализации произведенной продукции.
Дисконтирование - это процесс нахождения величины денежной суммы на конкретный момент времени по ее известному или предполагаемому значению в будущем, исходя из заданной процентной ставки.
Норма дисконтирования (ставка дисконта) рассматривается в общем случае как норма прибыли на вложенный капитал, т.е. как процент прибыли, который инвестор или предприятие хочет получить в результате реализации проекта.
Для определения прибыльности проекта используется метод расчета дисконтированной (чистой) стоимости капитала (или дисконтированного дохода). Чистая дисконтированная прибыль - это доход, полученный от вложения капитала на разработку проекта. При расчете идет сравнение эффекта от использования созданного продукта с тем, какой доход можно получить от вложения тех же средств в банк.
При этом:
Заранее задается минимально допустимая ставка процента окупаемости (прибыльный процент - норма дисконта), при которой объект инвестирования считается прибыльным. Такой ставкой является ставка банковского процента. Она равна 15 % и условно считается неизменной для всего срока службы объекта инвестирования (Е =0,15)
Осуществляется дисконтирование (приведение к базисному моменту времени) на основе расчетной ставки процента с текущих поступлений, полученных после приобретения объекта инвестирования (иначе - дисконтированный эффект):
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 эти величины могут корректироваться с учетом инфляции.
Рассчитывается дисконтированная (чистая) стоимость расходов на приобретение (создание) объекта инвестирования из величины выручки от инвестиций:
К = Э-А0=1932,6-1897,62=34,98 руб.
Положительная величина дисконтированной стоимости капитала означает, что проект эффективен (при данной норме дисконта). Чем больше эта величина, тем эффективнее проект.
Отрицательная величина дисконтированной стоимости капитала означает убыточность инвестиций.
Полученный показатель также называется интегральным эффектом. Кроме того, можно определить индекс доходности как отношение суммы приведенных эффектов к сумме инвестиций:
ИД = Э =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 месяца.
В главе «Охрана труда» раскрыто понятие охраны труда, как системы законодательных актов, обеспечивающих безопасные для здоровья условия труда на рабочем месте. Описываются различные виды освещения, правила их размещения на рабочем месте оператора.
В главе «Эргономика» раскрыты понятия эргономики, как дисциплины по изучению человека в конкретных условиях его деятельности, связанной с использованием технических средств и рабочего места оператора.
Из вышесказанного можно сделать вывод, что программа может эффективно использоваться в различных учебных заведениях, с минимальными тратами времени и средств.
СПИСОК ЛИТЕРАТУРЫ
Глушаков С.В., Ломотько Д.В. Базы данных: Учебный курс/ Художественный оформитель А.С. Юхтман. - Харьков: Фолио; Ростов н/Д: Феникс; Киев:Абрис, 2005г.
Хомоненко А.Д., Цыганков В.М., Мальцев В.Г. Базы данных: Учебник для высших учебных заведений/ под ред. Проф. А.Д. Хомоненко. - СПб: КОРОНА принт, 2006г.
Базы данных: модели, разработка, реализация/ Г.С. Карпова. - СПб.: Питер, 2007г.
Могилёв А.В. и др. Информатика: Учебное пособие для студентов педагогических вузов/А.В. Могилёв, Н.И. Пак, Е.К. Хеннер; под ред. Е.К. Хеннера. - М.: Издательский центр «Академия», 2006г
Архангельский А.Я. Работа с локальными базами данных в Delphi 5 - М.: ЗАО «Издательство БИНОМ», 2005г.
Фаронов В.В. Delphi 4. Учебный курс. - М.: «Нолидж», 2007г.
Михаэль Эбнер Delphi 5. Руководство разработчика: Пер. с нем. - К.: Издательская группа BHV, 2006г.
Жуков А. Изучаем Delphi. - СПб.: Питер, 2000.
Культин Н.Б. Программирование на Object Pascal в Delphi 6. - СПб.: БХВ - Санкт-Петербург, 2005г.
Благодатских В.А. и др. Экономика, разработка и использование программного обеспечения ЭВМ. М.: Финансы и статистика, 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;
Подобные документы
Основные концепции реляционных баз данных. Проектирование и требования к базам данных в среде Delphi, их виды. Объектная ориентация языка, формы, модули и метод разработки. Базовый подход к конструированию и условия рабочего места и зоны оператора.
дипломная работа [260,1 K], добавлен 12.06.2009Основные особенности функционирования программируемых логических контроллеров (ПЛК). Инструментальные средства построения методического процесса изучения ПЛК. Создание учебно-демонстрационного стенда на базе контроллеров Fatek и лабораторного практикума.
дипломная работа [4,0 M], добавлен 26.06.2012Создание действующей модели лабораторного комбинированного стенда с использованием интеллектуального реле "Zelio" и GSM модема. Описание основных блоков программы и коммуникационных возможностей. Разработка регламента технического обслуживания стенда.
дипломная работа [2,3 M], добавлен 07.09.2013Обоснование выбора программного обеспечения. Интерфейс Multisim, инструментальные вкладки (панели). Выбор компонентов из базы данных. Редактирование транзисторов, конденсаторов, индуктивности. Механизм симуляции схемы. Выбор цифрового преобразователя.
дипломная работа [3,5 M], добавлен 13.02.2016Аналитический обзор существующих параллельных интерфейсов. Разработка лабораторного стенда и алгоритмов подпрограмм обмена информацией. Создание программ драйвера ИРПР. Команды микропроцессора, алгоритмы подпрограмм инициализации, ввода и вывода символа.
курсовая работа [255,2 K], добавлен 10.07.2017Порядок проектирования и разработки базы данных и программного обеспечения. Информация о структуре базы данных, созданных таблицах, формах, отчетах, запросах, хранимой информации. Логическая и концептуальная модели данных; выбор программного обеспечения.
курсовая работа [906,6 K], добавлен 20.01.2010Разработка программного продукта для ведения статистики спортивного мероприятия с удобным интерфейсом для оператора. Выбор среды разработки, дополнительных библиотек. Создание базы данных, виды проектирования. Руководства для пользователя и программиста.
курсовая работа [6,5 M], добавлен 20.03.2012Обследование предметной области. Проектирование реляционной базы данных: описание входной и выходной информации, перечень сущностей и атрибутов, создание модели, выбор ключей. Разработка и обоснование представлений для отображения результатов выборки.
курсовая работа [539,0 K], добавлен 12.12.2011Технико-экономическое обоснование разработки информационной системы "План-меню". Выбор технических средств и стандартного программного обеспечения. Проектирование структуры базы данных. Разработка и структура пользовательского интерфейса и ER-модели.
курсовая работа [817,6 K], добавлен 07.05.2009Инструментальные средства разработки сайта. Таблицы базы данных, их описание. Общие принципы разработки программного продукта. Структура программного продукта клиента. Страница информации о пользователе и его заказов, информационная безопасность.
дипломная работа [3,5 M], добавлен 14.06.2012
