Электронный учебник по распределительной станции Festo - Дипломная работа

1.1.3 Требования к программе или программному продукту 1.1.5 Условия эксплуатации и требования к составу и параметрам технических средств 1.3 Выбор языка программирования 2.1.4 Программное обеспечение, рекомендуемое для функционирования программы 2.2.

Приложение

Введение

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

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

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 Структура программы

Рисунок 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. Yeiiiie?aneay ?anou

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*Ccp, где Ccp - средняя продолжительность рабочего дня, 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

Компьютер

Принтер

Мышь

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

Для расчета затрат на амортизацию оборудования используют формулу: Рам = (S*Цобі*ai*ni *t рабі)/ Ф.д.о., где Цобі - цена i-го вида оборудования;

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

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

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

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

Рам = руб.

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

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

Наименование оборудования Количество, шт. Время работы, час Стоимость, руб. Норма амортизационных отчислений, %. Затраты на амортизацию, руб.

1 2 3 4 5 6

Компьютер 1

Принтер 1

Мышь 1

Клавиатура 1

ИТОГО

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

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

Затраты на амортизацию используемого программного продукта рассчитываются по следующей формуле: S ((Кп.п-Кликв.)* 20%*ai*ni*t рабі)/Ф д. о.,

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

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

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

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

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

ПП= руб.

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

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

Наименование ПП Цена за ед. Количество шт. Время работы, час Кликв. На Затраты на амортизацию

1 2 3 4 5 6 7

Windows 7 Ultimate

Пакет Delphi & C Builder 2009 Professional

ИТОГО

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

Расчет затрат на электроэнергию осуществляется по формуле: Зэл.эн.= Цэн *SPI *n i *Tpi, где Pi -мощность i-го вида оборудования, КВТ;

Трі-время работы 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 Эксплуатация ЭВМ (ПК)

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

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

Caee??aiea

В рамках преддипломной практики было разработано приложение для просмотра текстовых страниц. В результате выполненной разработки можно сделать следующие выводы: 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; \