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

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

Федеральное агентство по образованию И НАУКЕ

ФЕДЕРАЛЬНОЕ Государственное образовательное учреждение

среднего профессионального образования

красногорский ГОСУДАРСТВЕННЫЙ КОЛЛЕДЖ

ДИПЛОМНЫЙ ПРОЕКТ

по дисциплине

Программное обеспечение вычислительной техники и автоматизированных систем

НА ТЕМУ:

«Электронный учебник по распределительной станции Festo»

Дипломант Бортников В.П.

Руководитель Черноглазова Т.Н.

Красногорск 2011



Содержание

• Bведение
• 1. Постановка задачи
• 1.1 Техническое задание
• 1.1.1 Основания для разработки
• 1.1.2 Назначение разработки
• 1.1.3 Требования к программе или программному продукту
• 1.1.4 Требования к надежности
• 1.1.5 Условия эксплуатации и требования к составу и параметрам технических средств
• 1.1.6 Требования к информационной и программной совместимости
• 1.1.7 Требования к программной документации
• 1.1.8 Технико-экономические показатели
• 1.1.9 Стадии и этапы разработки
• 1.1.10 Порядок контроля и приемки
• 1.2 Обзор существующих решений
• 1.3 Выбор языка программирования
• 2. Основная часть
• 2.1 Описание программы
• 2.1.1 Общие сведения
• 2.1.2 Функциональное назначение
• 2.1.3 Описание логической структуры
• 2.1.4 Программное обеспечение, рекомендуемое для функционирования программы
• 2.2 Руководство системного программиста
• 2.2.1 Общие сведения о программе
• 2.2.2 Используемые программные средства
• 2.2.3 Используемые технические средства
• 2.2.4 Структура программы
• 2.2.5 Настройка программы
• 2.2.6 Проверка программы
• 2.3 Руководство оператора
• 2.3.1 Назначение программы
• 2.3.2 Условия выполнения программы
• 2.3.3 Выполнение программы
• 3. Экономическая часть
• 3.1 Организационно-экономическое обоснование дипломной работы
• 3.2 Обоснование косвенной экономической эффективности
• 3.3 Расчёт стоимости материалов
• 3.4 Расчёт заработной платы
• 3.5 Затраты на спецоборудование для разработки программного продукта
• 3.6 Расчёт затрат по социальным взносам

3.7 Расчет затрат на программное обеспечение

3.8 Расчет затрат на электроэнергию

3.9.Составление структуры затрат на программный продукт

• 4. Техника безопасности при работе по эксплуатации (ПК)
• 4.1 Общие положения
• 4.2 Эксплуатация ЭВМ (ПК)2
• Заключение
• Список литературы
• Приложение

Bведение

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

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

1. Постановка задачи

1.1 Техническое задание

1.1.1 Основания для разработки

Основанием для разработки программы является задание, выданное на дипломную практику руководителем практики от КГК.

Наименование работы «Электронный учебник для распределительной станции FESTO».

1.1.2 Назначение разработки

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

1.1.3 Требования к программе или программному продукту

Требования к функциональным характеристикам:

«Электронный учебник для распределительной станции FESTO» позволяет быстро ознакомиться с большим количеством информации данной тематики.

Основные функции программы:

1. Показ текста;

2. Показ изображений;

3. Тест;

1.1.4 Требования к надежности

Программа должна:

1. Работать с заданным алгоритмом функционирования;

2. Поддерживать диалоговый режим в рамках, предоставляемых пользователю возможностей;

3. Производить бесперебойную работу.

1.1.5 Условия эксплуатации и требования к составу и параметрам технических средств

Условия эксплуатации программы совпадают с условиями эксплуатации по ЭВМ IBM PC. Программа должна быть рассчитана на непрофессионального пользователя.

Минимальные требования к электронной вычислительной машине:

· Процессор: Intel Pentium III

· Частота: 900 MHz

· Оперативная Память: 128 Мб

· Клавиатура и мышь.

Рекомендуемые требования к Электронной вычислительной машине:

· Процессор: Intel Pentium IV

· Частота: 1200 MHz

· Оперативная Память: 256 Мб

· Клавиатура и мышь.

1.1.6 Требования к информационной и программной совместимости

· Операционная Система: Windows 95 или выше

· Язык программирования: Borland Delphi 7

Требования к транспортировке и хранению

Программа поставляется на лазерном носителе информации.

Программная документация поставляется в электронном и печатном виде.

Специальные требования

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

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

1.1.7 Требования к программной документации

Основными документами, регламентирующими разработку будущих программ, должны быть документы Единой Системы Программной Документации (ЕСПД): руководство системного программиста, руководство оператору, описание программы.

1.1.8 Технико-экономические показатели

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

1.1.9 Стадии и этапы разработки

Таблица 1. Стадии и этапы разработки

№ Этапа	Наименование работ	Чем заканчивается работа	Срок исполнения, начало окончание
1.	Анализ задания на технологической практике и подготовка раздела «Введение»	Написание раздела «Введение»	14.04.11 15.04.11
2.	Подготовка раздела «Техническое задание»	Написание раздела «Техническое задание»	15.04.11 18.04.11
3.	Подготовка раздела «Постановка задачи»	Написание раздела «Постановка задачи»	21.04.11 22.04.11
4.	Разработка функциональной схемы модуля	Наличие функциональной схемы модуля	22.04.11 24.04.11
5.	Разработка программы	Разработка программы	24.04.11 23.05.11
6.	Тестирование программы	Готовая рабочая программа	26.05.11 28.05.11
7.	Оформление контрольного примера	Наличие контрольного примера	28.05.11 30.05.11
8.	Подготовка разделов «Заключение» и «Список литературы»	Наличие готовых разделов	02.06.11 06.06.11
9.	Разработка презентационного материала	Презентационный материал, выполненный в виде слайдов	09.06.11 11.06.11

1.1.10 Порядок контроля и приемки

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

1.2 Обзор существующих решений

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

1.3 Выбор языка программирования

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

Visual Basic является продуктом многолетней эволюции языка Basic. В основном этот язык предназначен для создания программ, работающих в режиме диалога с пользователем, т.е. в визуальном режиме. По своей сложности и возможностям Visual Basic можно поставить на один ряд с Borland Delphi 7 или С ++.

Borland Delphi 7- универсальное средство разработки приложений под Windows. Всех достоинств Borland Delphi 7 не перечислить - это и быстрый компилятор, и удобная среда разработки, и богатые возможности для работы с базами данных, и большой набор компонентов, это конечно великолепная среда визуального программирования, понятная, простая для изучения и, зачастую, не требующая знаний профессионального разработчика.

Именно уникальность Borland Delphi 7 позволяет создавать серьезные полнофункциональные решения в сжатые сроки. Он, удобен по всем показателям как для новичков, так и для профессионалов. Новичкам он позволяет с небольшими затратами сил и времени создавать прикладные программы, которые внешне ничем неотличимы от программ, которые создали профессиональные специалисты. Для профессионалов Borland Delphi 7 предоставляет возможность создавать сложные приложения, работающие с любыми видами документов. В настоящее время Borland Delphi 7 является одним из наиболее популярных программных продуктов для создания информационных систем. На его основе создаются как небольшие программы, так и системы масштаба предприятия.

Интегрированная среда разработки Borland Delphi 7 была выбрана для написания программного обеспечения в связи с тем, что в данной работе была поставлена задача разработки модуля в рамках проекта, ориентированного на использование Borland Delphi 7.

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



2. Основная часть

2.1 Описание программы

2.1.1 Общие сведения

«Электронный учебник для распределительной станции FESTO»

предназначен для выборки информации студентами.

Программа реализована в среде программирования Borland Delphi 7.

2.1.2 Функциональное назначение

Данное программное обеспечение решает следующие задачи:

1. Просмотр информации по «мехатронике»;

2. Просмотр информации касаемой распределительной станции;

3. Выполнение теста ;

4. Просмотр дополнительной информации.

2.1.3 Описание логической структуры

В состав программы входят:

· Функция просмотра текстовых файлов;

· Функция просмотра изображений;

· Функция прохождения теста.

Программа написана на языке программирования Borland Delphi 7 с использованием компилятора Borland Delphi 7.

программирование электронный дорожный знак

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

· Windows 95 и выше;

· процессор: Pentium III;

· частота: 1200 MHz;

· оперативная Память: 256 Мб;

· видеокарта: 32 Мб;

· CD-ROM;

· клавиатура и мышь.

2.2 Руководство системного программиста

2.2.1 Общие сведения о программе

Разработанное программное обеспечение предназначено для теоретеческих и практических занятий студентов.

Данная программа была создана на языке программирования Borland Delphi 7 с использованием компилятора Borland Delphi 7.

2.2.2 Используемые программные средства

Запуск программы осуществляется на ОС Windows 95 и более поздних её версиях. Среда разработки - Borland Delphi 7.

2.2.3 Используемые технические средства

Минимальные аппаратные требование к электронной вычислительной машине:

· Процессор: Intel Pentium III

· Частота: 900 MHz

· Оперативная Память: 128 МБ

· Свободное место на жестком диске: 75 МБ

· Видеокарта: 32 Mb

Рекомендуемые аппаратные требования к электронной вычислительной машине сервера:

· Процессор: Intel Pentium IV

· Частота: 1200 MHz

· Оперативная Память: 256Mb

· Свободное место на жестком диске: 100 МБ

· Видеокарта: 64 Mb

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

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

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

Рисунок 1 - Логическая схема взаимодействия Unit'ов

Главная форма программы,изображенная на рисунке 2, осуществляет: создание, открытие, сохранение, редактирование звуковых файлов, а также скрытое от пользователя сохранение настроек, которое происходит во время работы с программой. Так же с главной формы осуществляется вызов формы «Справка».

Форма «Справка» - предназначена для вывода справки. Справка представлена в виде интерактивной, зависимо-изменяющейся формы т.е. при наведении курсора мыши на определенный объект главной формы на форме справка отображаются все возможности использования этого объекта.

Запуск среды программирования Borland Delphi 7 изображен на рисунке 2.



Рисунок 2 - Внешний вид главного окна программы.

Ниже описывается поэтапная разработка приложения, выполняющая функции работы со звуковыми файлами.

Шаг 1. Запустите среду разработки Borland Delphi 7.

Рисунок 3 - Запуск Borland Delhi7



Шаг 2. Создайте форму и разместите на ней следующие компоненты:

2.2.5 Настройка программы

Программа, рассчитана на непрофессионального пользователя, не требует никакой настройки.

Скопируйте папку в любую директорию, например на локальный диск C:\ (С:\Program Files\PDD) запустите файл “PDD.exe.”

2.2.6 Проверка программы

Объект испытаний

Объектом испытаний является «Сборник правил и тестов для подготовки к сдаче экзаменов по правилам дорожного движения».

Цель испытаний

Целью испытания является проверка надежности функционирования программы.

Требования к программе

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

Кроме того, программа должна иметь дружественный, интуитивно понятный интерфейс, сходный с общепринятым для стандартных Windows-приложений.

Требования к программной документации

Состав программной документации:

- описание программы;

- текст программы;

- руководство системного программиста;

- руководство оператора.



2.3 Руководство оператора

2.3.1 Назначение программы

Разработанное программное обеспечение предназначено для быстрой и удобной подготовки студентов по правилам дорожного движения.

2.3.2 Условия выполнения программы

Минимальные аппаратные требование к электронной вычислительной машине:

· Windows 95 и выше;

· процессор: Intel Pentium III;

· частота: 900 MHz;

· оперативная память: 128 Мб;

· видеокарта: 32 Мб;

· CD-ROM;

· мышь.

Рекомендуемые аппаратные требования к электронной вычислительной машине:

· Windows 95 и выше;

· процессор: Pentium IV;

· частота: 1200 MHz;

· оперативная память: 254 Мб;

· видеокарта: 64 Мб;

· CD-ROM;

2.3.3 Выполнение программы

Запустить программу “Электронный учебник.exe”. Перед вами появится главное окно, с которого начнётся работа c программой.



Рисунок 4 - Главная форма программы

Для открытия теоритической части нажмите на вкладку меню «Теория» (Рисунок 4).

Рисунок 5 - Общие разделы

Для открытия теоритической части нажмите на вкладку меню «Теория» (Рисунок 5).



Рисунок 6 - Выбор подпункта

После выберите нужный вам пунк из появившихся: «Правила дорожного движения», «Дорожные знаки», «Техника управления» (Рисунок 6).

Рисунок 7 - Выбор раздела

Далее следует выбрать нужный вам раздел (Рисунок 7). В появившемся окне вы увидите нужную вам информацию.



Рисунок 8 - Тестирование

Для того что бы проити тест по правила дорожного движения вы должны выбрать в меню вкладку «Тесирование» Далее выбираем «Тест».



3. Экономическая часть

3.1 Организационно-экономическое обоснование дипломной работы

При решении любой технической задачи необходимо техническое обоснование, включающее в себя экономический расчёт, который позволяет определить величину предполагаемых затрат необходимых для разработки программного продукта. Сметная калькуляция является основным документом дающим представление о стоимости затрат на программный продукт. Целью дипломного проекта является создание электронного учебника по распределительной станции Festo. Данный программный продукт предназначен для упрощения работы, экономии времени и оптимизации поиска и работы с нужной записью отдыхающего. Программа позволяет пользователю просматривать страницы учебника, пройти тест, подготовиться к теоретическим урокам. При анализе целесообразности данную разработку следует рассматривать как некоммерческий продукт в том смысле, что она не предназначена для широкого тиражирования и продажи с целью получения прибыли. Это упрощение сделано для того, чтобы показать прибыльность внедрения нашего программного продукта (ПП) на бюджетных предприятиях, где ценность системы определяется сэкономленными ею средствами. Экономическая целесообразность разработки такой продукции заключается в экономии трудозатрат по сравнению с ручной обработкой и получении более достоверной информации за более короткое время.

Наиболее важным моментом для разработчика, с экономической точки зрения, является процесс формирования затрат на разработку программы. Очевидно, что программные продукты представляют собой весьма специфический товар с множеством присущих им особенностей. Многие их особенности проявляются и в методах расчетов цены на них. На разработку программного продукта средней сложности обычно требуются весьма незначительные средства. Однако, при этом он может дать экономический эффект, значительно превышающий эффект от использования достаточно дорогостоящих систем. Цена на программные продукты устанавливается на единицу программной продукции с учетом комплектности её поставки. Её цена формируется на базе нормативной себестоимости производства и прибыли. Совокупность производственных затрат показывает, на какую сумму обходится предприятию изготовление продукции, то есть составляет производственную себестоимость. Себестоимость продукции - это стоимостная оценка используемых в процессе производства продукции, сырья, материалов, энергии, основных фондов, трудовых ресурсов, а так же других затрат на её производство и реализацию.

3.2 Обоснование косвенной экономической эффективности

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

3.3 Расчет стоимости материалов

В таблице.1 рассматриваются материалы, которые используются для разработки программного продукта.

Таблица .1 Расчет стоимости материалов

Наименование материала	Единица измерения	Кол-во	Цена с учетом транспортных расходов, руб.	Сумма, руб.
1	2	3	4	5
Бумага	Упаковка	3	100	300
Ручка	Шт.	10	10	100
Компакт диск	Шт.	2	15	30
Картридж	Шт.	2	1000	2000
Интернет	часы	30	35	1050
ИТОГО		3480

• 3.4 Расчёт заработной платы

Таблица 2. Расчет заработной платы

Этапы разработки программного продукта	Должность	Оклад	Кол-во, дней	Среднедневная заработная плата, руб.	Основная заработная плата руб.
Планирование (ТЗ)	Аналитик, руководитель проекта
Создание БД	Проектировщик
Программирование	Разработчик (кодер)
Тестирование	инженер-разработчик
Отладка	Разработчик (кодер)
Составление технической документации	Технический писатель
Обучение персонала заказчика работе с программным продуктом	Операторы, технический писатель
ИТОГО

Расчёт дополнительной заработной платы (ДопЗп).

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

ДопЗп = Зп *12%

ДопЗп = руб.



3.5 Затраты на спецоборудование для разработки программного продукта

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

а) Расчет стоимости используемого оборудования

Таблица .3

Расчет первоначальной стоимости спецоборудования

Вид спецоборудования	Единица измерения	Количество	Цена, руб.	Сумма, руб.
1	2	3	4	5
Компьютер	Шт.	1
Принтер	Шт.	1
Клавиатура	Шт.	1
Мышь	Шт.	1
ИТОГО

б) Расчет стоимости среднедневного расхода машинного времени

Доля стоимости среднедневного расхода машинного времени определяется по формуле:

d=(Ц*К_об+Ц)/T*C_cp,

где C_cp - средняя продолжительность рабочего дня,

d - доля среднедневного расхода машинного времени,

Ц - первоначальная цена спецоборудования, в рублях,

Т - время эксплуатации, дней

Коб - коэффициент, учитывающий стоимость обслуживания на протяжении эксплуатации (0,1);

Для подсчета стоимости одного часа работы используемого спецоборудования необходимо для начала рассчитать стоимость одного часа работы каждого оборудования:

Компьютер: d = руб./час;

Принтер: d = руб./час;

Клавиатура: d = руб./час;

Мышь: d = руб./час;

Все данные заносятся в таблицу

Таблица .4 Стоимость среднедневного расхода машинного времени

Наименование оборудования	Первоначальная цена, руб.	Время эксплуатации, часы	Стоимость часа работы оборудования, руб.
Компьютер
Принтер
Клавиатура
Мышь
ИТОГО

3.6 Расчет затрат по социальным взносам

Единый социальный взнос составляет 28% от основной и дополнительной заработной платы, в том числе отчисления в фонд социального страхования -2,4%, отчисления в пенсионный фонд - 21%, отчисления в фонд медицинского страхования - 3,6%.

О.с.в. =(3/П_осн+3/П_доп)*0.28,

где О.с.в. - отчисления на социальный взнос, руб.,

3/П_осн - основная заработная плата,

3/П_доп- дополнительная заработная плата.

О.с.в. = руб.

Расчет затрат на амортизацию оборудования

а) Расчет среднегодовой нормы амортизации. Норма амортизация определяется по следующей формуле

На = ((Сп + Скр + Смод - Сл)/Сп*Тн)*100

где На - среднегодовая норма амортизации,

Сп - первоначальная стоимость ОФ;

Скр - стоимость капитальных ремонтов за весь срок эксплуатации;

Смод - стоимость модернизации;

Сл - ликвидационная стоимость;

Тн - нормативный срок службы в годах;

Все данные заносятся в таблицу 5.

Таблица 5 Расчёт среднегодовой нормы амортизации

Наименование	Сп, руб.	Скр, руб.	Смод, руб.	Сл, руб	Тн, год	Норма амортизации, %
1	2	3	4	5	6	7
Компьютер
Принтер
Мышь
Клавиатура

б) Расчет затрат на амортизацию спецоборудования

Для расчета затрат на амортизацию оборудования используют формулу:

Рам = (*Цоб_i*a_i*n_i *t раб_i)/ Ф.д.о.,

где Цоб_i - цена i-го вида оборудования;

a _i- годовая норма амортизационных отчислений;

Ф.д.о. - действительный годовой фонд времени работы оборудования;

t раб_i - время работы i-го вида оборудования, час;

n_i - количество единиц i-го вида оборудования;

Рам = руб.

Все данные заносятся в таблицу 6.

Таблица 6 Расчёт затрат на амортизацию спецоборудования

Наименование оборудования	Количество, шт.	Время работы, час	Стоимость, руб.	Норма амортизационных отчислений, %.	Затраты на амортизацию, руб.
1	2	3	4	5	6
Компьютер	1
Принтер	1
Мышь	1
Клавиатура	1
ИТОГО

3.7 Расчет затрат на программное обеспечение

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

Затраты на амортизацию используемого программного продукта рассчитываются по следующей формуле:

((Кп.п-Кликв.)* 20%*a_i*n_i*t раб_i)/Ф д. о.,



где Кп.п - стоимость программного обеспечения;

Кликв. - ликвидационная стоимость программного обеспечения;

a_i - годовая норма амортизационных отчислений;

n_i - количество единиц i-го вида программного обеспечения;

t раб_i - время работы i-го вида программного обеспечения;

ПП= руб.

Все данные по этим затратам заносятся в таблицу 7.

Таблица 7 Затраты на программное обеспечение

Наименование ПП	Цена за ед.	Количество шт.	Время работы, час	Кликв.	На	Затраты на амортизацию
1	2	3	4	5	6	7
Windows 7 Ultimate
Пакет Delphi & C++ Builder 2009 Professional
ИТОГО

3.8 Расчет затрат на электроэнергию

Расчет затрат на электроэнергию осуществляется по формуле:

Зэл.эн.= Ц_эн *P_i *n _i *T_pi,

где P_i -мощность i-го вида оборудования, кВт;

Т_pi-время работы i-го вида оборудования, час;

n _i-количество единиц i-го вида оборудования;

Ц_эн- цена 1 кВт - час электроэнергии (3,25 руб./кВт).

Зэл.эн.= руб.



Таблица 8 Расчёт затрат на электроэнергию

Наименование	Кол. Ед., шт.	Мощность оборудования, (Вт)	Время работы оборудования, час	Затраты на электроэнергию, (руб.)
1	2	3	4	5
Принтер	1
Компьютер	1
ИТОГО

3.9.Составление структуры затрат на программный продукт

Таблица 9 Сметная калькуляция на программный продукт

Статьи затрат калькуляции	Сумма, руб.	Структура затрат, %
1	2	3
2.2.1 Стоимость материалов
2.2.2 Основная заработная плата
2.2.3 Дополнительная заработная плата
2.2.5 Единый социальный налог
2.2.6 Амортизационные отчисления
2.2.7 Затраты на программный продукт
2.2.8 Затраты на электроэнергию
Сумма

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

Наименование продукции/услуги:ПО АМР «Менеджер файлов»

Таблица 5

№№ п/п	Наименование статей калькуляции	Сумма (руб.)
I	II	III
I	ПРЯМЫЕ ЗАТРАТЫ на единицу выработки (всего), в том числе:	39131,172
I.I.	Основная заработная плата привлекаемых к исполнению работы штатных сотрудников	14000
I.2.	Дополнительная заработная штатных сотрудников (включая отпускные)	2100
I.3.	Начисления на заработную плату	4186
I.4.	Технические и материальные затраты (каталожные карточки, бумага, машинописное оформление и т.п.)	2 432
II	НАКЛАДНЫЕ И ПРОЧИЕ РАСХОДЫ (всего), в том числе:
2.1.	Хозяйственные затраты (производственные расходы на электроэнергию, топливо, транспорт, связь; канцелярские и др.)	240,122
III	АМОРТИЗАЦИОННЫЕ ОТЧИСЛЕНИЯ (за используемые основные производственные фонды - оборудование, помещение и пр.)	2374,63
	Итоговая себестоимость учетной выработки (вида работ)	32609,31
IV	ПЛАНОВЫЕ НАКОПЛЕНИЯ (для развития информационной базы табельной)	6 521,862
	39131,172	39131,172

В экономической части ДП произведен расчет себестоимости и цены программного продукта Электронный учебник по распределительной станции Festo .



4. Техника безопасности при работе по эксплуатации (ПК)

4.1 Общие положения

· В данной инструкции предусмотрены мероприятия по технике безопасности, которыми следует руководствоваться при работах по обслуживанию и эксплуатации ЭВМ (ПК).

· Инструкция является обязательной для лиц, проводящих какие-либо работы по эксплуатации и техническому обслуживанию ЭВМ (ПК), т.е. для инженеров, программистов, электронщиков.

· Запрещается эксплуатация ЭВМ (ПК) при выключенной системе вентиляции.

· Запрещается эксплуатация ЭВМ (ПК) при температуре более 35 град. С. и влажности более 90%.

· К работе по эксплуатации и обслуживанию ЭВМ (ПК) допускаются сотрудники, изучившие правила технической эксплуатации устройств, данную инструкцию, сдавшие экзамен по ПТБ и имеющие удостоверение на право эксплуатации электроустановок до 1000В.

4.2 Эксплуатация ЭВМ (ПК)

· Включение ЭВМ (ПК) производить согласно инструкции по включению и выключению на данную ЭВМ.

· Перед включением ЭВМ (ПК) необходимо ознакомиться с аппаратным журналом и убедиться, что все устройства ЭВМ были исправны при работе ранее.

Заключение

В рамках преддипломной практики было разработано приложение для просмотра текстовых страниц. В результате выполненной разработки можно сделать следующие выводы:

1. При разработке приложения был пройден полный цикл проектирования программы от постановки задачи заказчиком до сдачи готового приложения в эксплуатацию.

2. Разработанное приложение позволяет:

· Показ текста

· Показ изображений

· Тест

3. Целесообразность разработки обуславливается необходимостью ученикам и персоналу КГК в удобной, простой и доступной программе для практического и теоретического обучения, касаемого распределительной станции.

Дальнейшее развитие программы будет осуществляться за счёт её модернизации: написании новых, дополнительных модулей, по мере необходимости.

Разработанная программа может существенно упростить работу оператора, облегчить процедуру получения необходимой информации.

Список литературы

1. Архангельский А.Я. Программирование в Borland Delphi 7. - М.: ООО "Бином-Пресс", 2005. - 627 с.

2. Гофман В.Э./ Хомоненко А.Д. Delphi 6. - СПБ.: БХВ, 1996. - 543 с.

3. Возневич Э. «Освой самостоятельно Delphi: Полное руководство для самостоятельного обучения. /Под ред. В. Тимофеева. - М.: Бином, 1996. - 568 с.

4. Дарахвелидзе П.Г./Марков Е.П. Delphi средства визуального программирования. - СПБ.: BHV - С-Петербург, 1996. - 697 с.

Приложение

Код программы

program Project1;

{**********************************************************

Наименование: " Сборник правил и тестов для подготовки к сдаче экзаменов по правилам дорожного движения";

Операционная система: Windows 95 и выше;

Среда программирования: Borland Delphi 7;

Разработал: Михайлов Александ Борисович.

************************************************************}

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, XPMan, ComCtrls;

type

TForm1 = class(TForm)

Panel1: TPanel;

Image1: TImage;

GroupBox1: TGroupBox;

Image5: TImage;

Image6: TImage;

Image7: TImage;

Image8: TImage;

Image9: TImage;

Image10: TImage;

Image11: TImage;

Image12: TImage;

Image13: TImage;

Label1: TLabel;

Image14: TImage;

Panel2: TPanel;

Image15: TImage;

Image16: TImage;

Label2: TLabel;

Panel3: TPanel;

Label3: TLabel;

Image17: TImage;

XPManifest1: TXPManifest;

Image18: TImage;

Image19: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Label30: TLabel;

Image20: TImage;

Panel5: TPanel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

Label34: TLabel;

Label35: TLabel;

Label36: TLabel;

Label37: TLabel;

Label38: TLabel;

Label39: TLabel;

Label28: TLabel;

Image21: TImage;

Panel6: TPanel;

Label29: TLabel;

Label40: TLabel;

Label41: TLabel;

Label42: TLabel;

Label43: TLabel;

Label44: TLabel;

Label45: TLabel;

Label46: TLabel;

Label47: TLabel;

Label48: TLabel;

Label49: TLabel;

Label50: TLabel;

Label51: TLabel;

Label52: TLabel;

Label53: TLabel;

Label54: TLabel;

Label55: TLabel;

ScrollBar2: TScrollBar;

PanelPdd: TPanel;

Memo1: TMemo;

Panel4: TPanel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

Label25: TLabel;

Label26: TLabel;

Label27: TLabel;

ScrollBar1: TScrollBar;

Panel8: TPanel;

Ima3: TImage;

Ima2: TImage;

Ima4: TImage;

Ima5: TImage;

Ima1: TImage;

Ima6: TImage;

Ima7: TImage;

Ima8: TImage;

ScrollBar3: TScrollBar;

ScrollBar4: TScrollBar;

PanelTest: TPanel;

ImaTest: TImage;

LTest: TLabel;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

Button1: TButton;

ProgressBar1: TProgressBar;

Timer1: TTimer;

ListBox1: TListBox;

Image22: TImage;

Label57: TLabel;

Panel7: TPanel;

Label58: TLabel;

Label59: TLabel;

Label56: TLabel;

Image23: TImage;

Panel9: TPanel;

Label60: TLabel;

Label61: TLabel;

Label62: TLabel;

Label63: TLabel;

Image24: TImage;

Image25: TImage;

Image26: TImage;

procedure FormResize(Sender: TObject);

procedure FormCreate(Sender: TObject);

Procedure AllLabelBlack;

procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image4Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Label1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image11MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image12MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image13MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Label3Click(Sender: TObject);

procedure ScrollBar1Change(Sender: TObject);

procedure Label2Click(Sender: TObject);

procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Panel4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label30Click(Sender: TObject);

procedure ScrollBar2Change(Sender: TObject);

procedure Label28Click(Sender: TObject);

procedure Label4Click(Sender: TObject);

procedure Ima1Click(Sender: TObject);

procedure ScrollBar3Change(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure TestDesign;

procedure TestLoad;

procedure Label59Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Label31Click(Sender: TObject);

procedure Label57Click(Sender: TObject);

procedure Label29Click(Sender: TObject);

procedure Label56Click(Sender: TObject);

procedure Label61Click(Sender: TObject);

procedure Label60Click(Sender: TObject);

procedure Label62Click(Sender: TObject);

procedure Label63Click(Sender: TObject);

procedure Image24MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image24Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

//Pan3LabAllHeight

k:integer;

meg1,im:boolean;

OldSender:TObject;

VnV,Otv:byte;

FileDir,AppDir,DataDir:String;

NVopr,KPravOt,KLozhOt:byte;

implementation

uses Unit2, Unit3;

{$R *.dfm}

//--1-- НАЧАЛО

//ПРОЦЕДУРА ИЗМЕНЕНИЯ РАЗМЕРА ФОРМЫ

//ПОДСТРОЙКА ВСЕХ ЭЛЕМЕНТОВ ФОРМЫ ПОД РАЗМЕРЫ ФОРМЫ

procedure TForm1.FormResize(Sender: TObject);

begin

{УСЛОВИЕ РАЗВЕРНУТОЙ И НОРМАЛЬНОЙ ФОРМ}

if form1.WindowState=wsmaximized then

begin //УСТАНОВКА НЕСТАНДАРТНОЙ ФОРМЫ ОКНА * *

SetWindowRgn(form1.handle,CreateRoundRectRgn(0,0,form1.Width,form1.Height,0,0),true);

end else

begin //ПАРАМЕТР НЕСТД. ФОРМЫ * *

SetWindowRgn(form1.handle,CreateRoundRectRgn(0,0,form1.Width,form1.Height,12,12),true);

end; // * - ПАРАМЕТР ОКРЫГЛЕНИЯ УГОЛВ

//ПОДСТРОЙКА ИЗОБРАЖЕНИЙ

image4.Left:=form1.Width-image4.Width-8;

image3.Left:=image4.left-image3.Width-3;

image2.Left:=image3.left-image2.Width-3;

image24.Left:=image2.left-image24.Width-3;

// ПОДСТРОЙКА ЛЕЙБЛОВ

// Отступ слева для Label1= (Ширина формы Д.еленная Б.ез О.статка на 2) минус-

// - (Ширена Лейбла1 ДБО на 2) таким образом мы получаем что Лейбл отцентровывается

// по ширене... Ниже приведенные формулы расчитываются аналогичным образом...

label1.Left:=(form1.Width div 2)-(label1.Width div 2);

label4.left:=panel4.left-2;

label5.left:=panel4.left-2;

label5.Top:=label4.Top+label4.height+2;

label7.left:=panel4.left-2;

label7.Top:=label5.Top+label5.height+2;

label6.left:=panel4.left-2;

label6.Top:=label7.Top+label7.height+2;

label11.left:=panel4.left-2;

label11.Top:=label6.Top+label6.height+2;

label10.left:=panel4.left-2;

label10.Top:=label11.Top+label11.height+2;

label9.left:=panel4.left-2;

label9.Top:=label10.Top+label10.height+2;

label8.left:=panel4.left-2;

label8.Top:=label9.Top+label9.height+2;

label12.left:=panel4.left-2;

label12.Top:=label8.Top+label8.height+2;

label13.left:=panel4.left-2;

label13.Top:=label12.Top+label12.height+2;

label15.left:=panel4.left-2;

label15.Top:=label13.Top+label13.height+2;

label14.left:=panel4.left-2;

label14.Top:=label15.Top+label15.height+2;

label16.left:=panel4.left-2;

label16.Top:=label14.Top+label14.height+2;

label17.left:=panel4.left-2;

label17.Top:=label16.Top+label16.height+2;

label18.left:=panel4.left-2;

label18.Top:=label17.Top+label17.height+2;

label19.left:=panel4.left-2;

label19.Top:=label18.Top+label18.height+2;

label20.left:=panel4.left-2;

label20.Top:=label19.Top+label19.height+2;

label21.left:=panel4.left-2;

label21.Top:=label20.Top+label20.height+2;

label22.left:=panel4.left-2;

label22.Top:=label21.Top+label21.height+2;

label23.left:=panel4.left-2;

label23.Top:=label22.Top+label22.height+2;

label24.left:=panel4.left-2;

label24.Top:=label23.Top+label23.height+2;

label25.left:=panel4.left-2;

label25.Top:=label24.Top+label24.height+2;

label26.left:=panel4.left-2;

label26.Top:=label25.Top+label25.height+2;

label27.left:=panel4.left-2;

label27.Top:=label26.Top+label26.height+2;

label40.Top:=label29.Top+label29.height+2;

label41.Top:=label40.Top+label40.height+2;

label42.Top:=label41.Top+label41.height+2;

label43.Top:=label42.Top+label42.height+2;

label44.Top:=label43.Top+label43.height+2;

label45.Top:=label44.Top+label44.height+2;

label46.Top:=label45.Top+label45.height+2;

label47.Top:=label46.Top+label46.height+2;

label48.Top:=label47.Top+label47.height+2;

label49.Top:=label48.Top+label48.height+2;

label50.Top:=label49.Top+label49.height+2;

label51.Top:=label50.Top+label50.height+2;

label52.Top:=label51.Top+label51.height+2;

label53.Top:=label52.Top+label52.height+2;

label54.Top:=label53.Top+label53.height+2;

label55.Top:=label54.Top+label54.height+2;

Image20.Top:=Panel4.Top+panel4.Height+4;

Label30.Top:=Panel4.Top+panel4.Height+4;

Panel5.Top:=Label30.top+Label30.height;

Image21.Top:=Panel5.Top+panel5.Height+4;

Label28.Top:=Panel5.Top+panel5.Height+4;

Panel6.Top:=Label28.top+Label28.height;

Label57.Top:=Panel3.Top+Panel3.height+2;

Image22.Top:=Panel3.Top+Panel3.height+2;

Panel7.top:=Label57.top+Label57.height;

Label56.Top:=Panel7.Top+Panel7.height+2;

Image23.Top:=Panel7.Top+Panel7.height+2;

Panel9.top:=Label56.top+Label56.height;

// перерисовка сл. панелей

panel4.Repaint;

panel5.Repaint;

panel6.Repaint;

panel7.Repaint;

panel9.Repaint;

// растягиваем лейбл1 для более удобного использования его функции "Зажатой Кнопки мыши"

label1.Left:=0;

label1.Width:=form1.Width;

// Подстройка Панели отображения файлов по пдд...

// Отстраивается только при условии видимости этой панели

If PanelPdd.Visible=true then

begin

PanelPdd.Left:=(Panel2.Width+Panel2.Left)+6;

PanelPdd.Width:=(Image12.Left-PanelPdd.Left);

Panelpdd.Height:=(Image13.top-Panelpdd.top);

Panel8.Left:=(Panelpdd.Width div 2)-(Panel8.Width div 2);

Memo1.Height:=Panelpdd.Height-(Panel8.Height+Panel8.Top+4);

end;

// Подстройка Панели отображения файлов теста...

// Производится через дополнительную процедуру!

// Отстраивается только при условии видимости этой панели

if PanelTest.Visible=true then TestDesign;{Процедура настройки панели тест}

end;

//--2--

//ПРОЦЕДУРА СОЗДАНИЯ ФОРМЫ

procedure TForm1.FormCreate(Sender: TObject);

begin

//высота и ширена формы приблизителоно ровна (т.к. Round - это округление)

//(Высота(Ширена) Формы ДБО(div) на 4)умноженная на 3.5)

//Round-нужен для умножения на 3.5 т.к. пол пикселя быть не может...

//Px - это целое

Form1.Height:=Round((Screen.Height div 4)*3.5);

Form1.Width:=Round((Screen.Width div 4)*3.5);

//Путь к папке с приложением

AppDir:=ExtractFilePath(Application.ExeName);

AppDir:=AppDir+'\Data'; // -//- + папка дата

//Положение формы на экране = Центр

Form1.Position:=poScreenCenter;

//Присвоение Начальных параметров для объектов

image17.Picture:=image18.Picture;

image20.Picture:=image18.Picture;

image21.Picture:=image18.Picture;

panel4.Visible:=false;

panel4.Height:=2;

panel5.Visible:=false;

panel5.Height:=2;

panel6.Visible:=false;

panel6.Height:=2;

image16.Picture:=image18.Picture;

panel3.Visible:=false;

panel3.Height:=2;

panel7.Visible:=false;

panel7.Height:=2;

im:=true;

PanelPdd.Visible:=true;

form1.Resize;//выполнить код процедуры Изменения Размеров формы

PanelPdd.Visible:=false;

end;

//--3--

// Кнопки Закрыть,Свернуть, Максимизировать

//Изменение при наведении курсора

procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if meg1=true then// - збавляет от мерцания кнопок

begin

meg1:= false;

image4.Picture:=image9.Picture; // присвоение картинок из GroupBox1

image3.Picture:=image6.Picture;

image2.Picture:=image10.Picture;

image24.Picture:=image25.Picture;

end;

end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if meg1=false then

begin

meg1:= true;

image4.Picture:=image8.Picture;

image3.Picture:=image6.Picture;

image2.Picture:=image10.Picture;

end;

end;

procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if meg1=true then

begin

meg1:= false;

image4.Picture:=image8.Picture;

image3.Picture:=image7.Picture;

image2.Picture:=image10.Picture;

image24.Picture:=image25.Picture;

end;

end;

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if meg1=true then

begin

meg1:= false;

image4.Picture:=image8.Picture;

image3.Picture:=image6.Picture;

image2.Picture:=image5.Picture;

image24.Picture:=image25.Picture;

end;

end;

//Нажатие на кнопки --3--

procedure TForm1.Image4Click(Sender: TObject);

begin

close;// - закрыть приложение

end;

procedure TForm1.Image3Click(Sender: TObject);

begin // максимизировать - нормализовать

if form1.WindowState=wsnormal then

form1.WindowState:=wsmaximized else

form1.WindowState:=wsnormal;

end;

procedure TForm1.Image2Click(Sender: TObject);

begin

application.Minimize; //свернуть

end;

//--4--

//При зажатии кнопки мыши и передвижения курсора

//форма будет передвигаться вместе с ним

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if Form1.WindowState=wsnormal then // работает только при нормальном режиме окна

begin

ReleaseCapture(); // *

Perform(WM_SYSCOMMAND, $F012, 0); // * - передвижение по форме

end;

end;

//--5--

//При зажатии кнопки мыши и передвижения курсора

// форма будет менять размер

procedure TForm1.Image11MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if Form1.WindowState=wsnormal then

begin

ReleaseCapture();

Perform(WM_SYSCOMMAND, $F001, 0);

end;

end;

procedure TForm1.Image12MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if Form1.WindowState=wsnormal then

begin

ReleaseCapture();

Perform(WM_SYSCOMMAND, $F002, 0);

end;

end;

procedure TForm1.Image13MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if Form1.WindowState=wsnormal then

begin

ReleaseCapture();

Perform(WM_SYSCOMMAND, $F006, 0);

end;

end;

//--6--

//Вызов списка ПДД

procedure TForm1.Label3Click(Sender: TObject);

begin

If im=true then

begin //если открыть панель

image17.Picture:=image19.Picture;

panel4.Visible:=true;

panel4.Height:=401 div 3;

scrollbar1.Height:=panel4.Height;

//установка максимальной позиции сколбара1=Сумма Высота всех Лейблов на панели4

//плюс высота всех промежутков между лейблами (2*27) минус высота панели

ScrollBar1.Max:=((label4.Height+label5.Height+label6.Height+label7.Height+

label8.Height+label9.Height+label10.Height+label11.Height+

label12.Height+label13.Height+label14.Height+label15.Height+

label16.Height+label17.Height+label18.Height+label19.Height+

label20.Height+label21.Height+label22.Height+label23.Height+

label24.Height+label25.Height+label26.Height+label27.Height)+

(2*27))-panel4.Height;

im:=false;

end else begin //если закрыть панель

image17.Picture:=image18.Picture;

panel4.Visible:=false;

panel4.Height:=2;

scrollbar1.Height:=panel4.Height;

im:=true;

end;

AllLabelBlack; // - Процедура для определенных лейблов

panel3.Height:=Label3.Height+Panel4.height+Label30.Height

+Panel5.height+Label28.Height+Panel6.height+10;

form1.Resize;

end;

//--7--

//Прокрутка Скорла определяет позицыю лейблов на панели

procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

label4.Top:=-scrollbar1.Position;

form1.Resize;

end;

//--8--

//Отрытие подсписка теория

procedure TForm1.Label2Click(Sender: TObject);

begin

If im=true then

begin

image16.Picture:=image19.Picture;

panel3.Visible:=true;

panel3.Height:=Label3.Height+Panel4.height+Label30.Height

+Panel5.height+Label28.Height+Panel6.height+10;

im:=false;

end else begin

image16.Picture:=image18.Picture;

panel3.Visible:=false;

panel3.Height:=2;

im:=true;

end;

Image20.Top:=Panel4.Top+panel4.Height+4;

Label30.Top:=Panel4.Top+panel4.Height+4;

Panel5.Top:=Label30.top+Label30.height;

form1.Resize;

Panel3.Repaint;

end;

//--9--

//Делает Текст Лейблов Черным

Procedure TForm1.AllLabelBlack;

begin

label2.Font.Color:=clBlack;

label3.Font.Color:=clBlack;

label4.Font.Color:=clBlack;

label5.Font.Color:=clBlack;

label6.Font.Color:=clBlack;

label7.Font.Color:=clBlack;

label8.Font.Color:=clBlack;

label9.Font.Color:=clBlack;

label10.Font.Color:=clBlack;

label11.Font.Color:=clBlack;

label12.Font.Color:=clBlack;

label13.Font.Color:=clBlack;

label14.Font.Color:=clBlack;

label15.Font.Color:=clBlack;

label16.Font.Color:=clBlack;

label17.Font.Color:=clBlack;

label18.Font.Color:=clBlack;

label19.Font.Color:=clBlack;

label20.Font.Color:=clBlack;

label21.Font.Color:=clBlack;

label22.Font.Color:=clBlack;

label23.Font.Color:=clBlack;

label24.Font.Color:=clBlack;

label25.Font.Color:=clBlack;

label26.Font.Color:=clBlack;

label27.Font.Color:=clBlack;

label30.Font.Color:=clBlack;

label31.Font.Color:=clBlack;

label32.Font.Color:=clBlack;

label33.Font.Color:=clBlack;

label34.Font.Color:=clBlack;

label35.Font.Color:=clBlack;

label36.Font.Color:=clBlack;

label37.Font.Color:=clBlack;

label38.Font.Color:=clBlack;

label39.Font.Color:=clBlack;

label28.Font.Color:=clBlack;

label29.Font.Color:=clBlack;

label40.Font.Color:=clBlack;

label41.Font.Color:=clBlack;

label42.Font.Color:=clBlack;

label43.Font.Color:=clBlack;

label44.Font.Color:=clBlack;

label45.Font.Color:=clBlack;

label46.Font.Color:=clBlack;

label47.Font.Color:=clBlack;

label48.Font.Color:=clBlack;

label49.Font.Color:=clBlack;

label50.Font.Color:=clBlack;

label51.Font.Color:=clBlack;

label52.Font.Color:=clBlack;

label53.Font.Color:=clBlack;

label54.Font.Color:=clBlack;

label55.Font.Color:=clBlack;

label57.Font.Color:=clBlack;

label58.Font.Color:=clBlack;

label59.Font.Color:=clBlack;

label60.Font.Color:=clBlack;

label61.Font.Color:=clBlack;

label62.Font.Color:=clBlack;

label63.Font.Color:=clBlack;

label56.Font.Color:=clBlack;

end;

//--10--

//Изменяет цвет лейблов

procedure TForm1.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if TLabel(Sender).Font.Color <> clWhite then

begin

AllLabelBlack;

end;

TLabel(Sender).Font.Color := clWhite;

end;

procedure TForm1.Panel4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

AllLabelBlack;

end;

//Аналог --6-- Для дорожных знаков

procedure TForm1.Label30Click(Sender: TObject);

begin

If im=true then

begin

image20.Picture:=image19.Picture;

panel5.Visible:=true;

Panel5.Height:=401 div 3;

If panel5.Height<((label31.Height+label32.Height+label33.Height+

label34.Height+label35.Height+label36.Height+label37.Height+

label38.Height+label39.Height)+(2*9))-panel5.Height then

begin

scrollbar4.Visible:=true;

ScrollBar4.Max:=((label31.Height+label32.Height+label33.Height+

label34.Height+label35.Height+label36.Height+label37.Height+

label38.Height+label39.Height)+(2*9))-panel5.Height;

end else begin Panel5.Height:=149; scrollbar4.Visible:=false; end;

im:=false;

end else begin

image20.Picture:=image18.Picture;

panel5.Visible:=false;

panel5.Height:=2;

im:=true;

end;

panel3.Height:=Label3.Height+Panel4.height+Label30.Height

+Panel5.height+Label28.Height+Panel6.height+10;

scrollbar4.Height:=panel5.Height;

AllLabelBlack;

form1.Resize;

end;

procedure TForm1.ScrollBar2Change(Sender: TObject);

begin

label29.Top:=-scrollbar2.Position;

form1.Resize;

end;

//Аналог --6-- для Тех.Упр.

procedure TForm1.Label28Click(Sender: TObject);

begin

If im=true then

begin

image21.Picture:=image19.Picture;

panel6.Visible:=true;

panel6.Height:=401 div 3;

scrollbar2.Height:=panel6.Height;

ScrollBar2.Max:=((label29.Height+label40.Height+label41.Height+label42.Height+

label43.Height+label44.Height+label45.Height+label46.Height+

label47.Height+label48.Height+label49.Height+label50.Height+

label51.Height+label52.Height+label53.Height+label54.Height+

label55.Height)+(2*16))-panel6.Height;

im:=false;

end else begin

image21.Picture:=image18.Picture;

panel6.Visible:=false;

panel6.Height:=2;

im:=true;

end;

panel3.Height:=Label3.Height+Panel4.height+Label30.Height

+Panel5.height+Label28.Height+Panel6.height+10;

AllLabelBlack;

form1.Resize;

end;

//--11--

//Выбор одного пункта из спска ПДД

procedure TForm1.Label4Click(Sender: TObject);

begin

PanelPdd.Visible:=true;

PanelTest.Visible:=false;

ima1.Visible:=true;

ima2.Visible:=true;

ima3.Visible:=true;

ima4.Visible:=true;

ima5.Visible:=true;

ima6.Visible:=true;

ima7.Visible:=true;

ima8.Visible:=true;

if Sender=Label4 then begin //если курсор стоить на лейбле4

FileDir:=AppDir+'\PDD\001\001.txt';//путь к файлу

ima1.Picture.LoadFromFile(AppDir+'\PDD\001\001.bmp');//загрузка картинки