|
№ этапа
|
Название этапа
|
Сроки этапа
|
Чем заканчивается этап
|
|
1
|
Анализ предметной области. Разработка технического задания
на разработку модуля.
|
09.01.2012-19.02.2012
|
Предложения по работе системы. Техническое задание на
разработку модуля
|
|
2
|
Постановка задачи, разработка эскизного проекта рабочей
программы. Построение структурной, функциональной схем и алгоритма программы.
|
20.02.2012-31.03.2012
|
Эскизный проект рабочей программы. Структурная,
функциональная схема, алгоритм программы.
|
|
3
|
Разработка русскоязычного интерпретатора языка
программирования. Тестирование и отладка модуля.
|
01.04.2012-02.06.2012
|
Готовый программный модуль «Русскоязычный интерпретатор
языка программирования».
|
текстовый редактор интерфейс русскоязычный
Глава I. Постановка задачи
1.1 Анализ предметной области
Текстовые редакторы предназначены для обработки текстовой информации и
выполняют, в основном, следующие функции:
· запись текста в файл;
· вставка, удаление, замена символов, строк, фрагментов текста;
· оформление текста различными шрифтами;
· поиск и замена слов и выражений;
· печать текста.
Типовая структура интерфейса включает ряд элементов:
Строка меню содержит имена групп команд, объединенных по функциональному
признаку. Строка меню находится в верхней части экрана. Выбор режима из строки
меню открывает соответствующее подменю, а выбор определенной опции в нем
обеспечивает доступ к меню более низкого уровня. Такая система вложенных
(ниспадающих) меню составляет основу интерфейса текстового процессора. Команды
меню выбираются с помощью мыши, клавиш управления курсором или комбинаций
нажатия определенных клавиш ("горячих клавиш").
Рабочее поле - это пространство на экране дисплея для создания документа
и работы с ним. Максимальный размер рабочего поля определяется стандартными
параметрами монитора.
Линейка прокрутки служит для перемещения текста документа в рабочем поле
окна Линейка, обеспечивающая вертикальное перемещение текста, называется
вертикальной линейкой прокрутки, а горизонтальное перемещение - горизонтальной
линейкой прокрутки.
1.2 Цели разработки текстового редактора для русскоязычного
интерпретатора языка программирования
Главной целью создания текстового редактора для русскоязычного
интерпретатора языка программирования является создание, редактирование,
сохранение программ, написанных на языке программирования, основанном на
русском языке, а также экспорт программного кода в язык программирования
высокого уровня Pascal.
Входной информацией является текст программы, написанной на языке
программирования, основанном на русском языке. При этом присутствует
возможность создания пользовательских функций, в которых могут присутствовать
операторы управления течением программы - ветвления, циклы, а также операторы
вывода результата. Выходной информацией являются результаты выполнения
программы, сообщения об ошибках, а также сохранение файлов и возможный экспорт
в Pascal.
Программный продукт содержит интегрированную среду разработчика, которая
предоставляет широкие возможности по визуальному вводу, редактированию и
отладке программы, что в конечном итоге не только облегчает понимание
написанного, но и сильно облегчает процесс создания программ.
Благодаря внедрению данного программного продукта, могут быть успешно
решены следующие задачи:
Ø Быстрое и эффективное обучение основным методам написания
программ;
Ø Создание несложных программ в данной среде программирования;
Ø Просмотр результатов выполнения написанного кода программы;
Ø Экспортирование в язык программирования высокого уровня Pascal.
.3 Выбор модели разработки программного комплекса
Для разработки текстового редактора для русскоязычного интерпретатора
языка программирования целесообразно использовать спиральную модель разработки,
которая изображена на рисунке 1.1.
Использование спиральной модели позволяет осуществлять переход на
следующий этап выполнения проекта, не дожидаясь полного завершения текущего -
недоделанную работу можно будет выполнить на следующей итерации. Главная задача
каждой итерации - как можно быстрее создать работоспособный продукт, который
можно показать пользователям системы. Таким образом, существенно упрощается
процесс внесения уточнений и дополнений в проект.
Рис. 1.1. Спиральная модель жизненного цикла.
Спиральный подход позволяет сделать процесс разработки программного
обеспечения более гибким. Итерационная разработка существенно упрощает внесение
изменений в проект при изменении требований заказчика.
При использовании спиральной модели отдельные элементы информационной
системы интегрируются в единое целое постепенно. При итерационном подходе
интеграция производится фактически непрерывно. Поскольку интеграция начинается
с меньшего количества элементов, то возникает гораздо меньше проблем при ее проведении.
При данной модели разработки уменьшается уровень рисков. Данное
преимущество является следствием предыдущего, так как риски обнаруживаются
именно во время интеграции. Поэтому уровень рисков максимален в начале
разработки проекта. По мере продвижения разработки ожидаемый уровень рисков
снижается. При использовании спиральной модели снижение уровня рисков
происходит с наибольшей скоростью. Это связано с тем, что при итерационном
подходе интеграция выполняется уже на первой итерации, и на начальных итерациях
выявляются многие аспекты проекта, такие как пригодность используемых
инструментальных средств и программного обеспечения, квалификация разработчиков
и т.п.
Итерационная разработка обеспечивает большую гибкость в управлении
проектом, давая возможность внесения тактических изменений в разрабатываемое
изделие. Например, можно сократить сроки разработки за счет снижения
функциональности системы или использовать в качестве составных частей системы
продукцию сторонних фирм вместо собственных разработок. Это может быть
актуальным в условиях конкурентной борьбы, когда необходимо противостоять
продвижению изделия, предлагаемого конкурентами.
Итерационный подход упрощает повторное использование компонентов. Это
обусловлено тем, что гораздо проще выявить общие части проекта, когда они уже
частично разработаны, чем пытаться выделить их в самом начале проекта. Анализ
проекта после проведения нескольких начальных итераций позволяет выявить общие
многократно используемые компоненты, которые на последующих итерациях будут
совершенствоваться.
Спиральная модель позволяет получить более надежную и устойчивую систему.
Это связано с тем, что по мере развития системы ошибки и слабые места
обнаруживаются и исправляются на каждой итерации. Одновременно могут
корректироваться критические параметры эффективности.
Итерационный подход дает возможность совершенствовать процесс разработки
- анализ, проводимый в конце каждой итерации, позволяет проводить оценку того,
что должно быть изменено в организации разработки, и улучшить ее на следующей
итерации.
1.4 Обоснование выбранного языка и среды программирования
При выборе языка программирования и среды разработки во внимание было
принято несколько факторов:
техническое задание и выдвигаемые им требования для создания законченной программы;
эффективность и актуальность использования языка программирования и среды
разработки;
Для реализации алгоритма в качестве основного был выбран язык
программирования С++ - язык общего назначения, область приложений которого -
программирование любых достаточно сложных программ. Язык программирования
служит двум связанным между собой целям: он дает программисту аппарат для
задания действий, которые должны быть выполнены, и формирует концепции,
которыми пользуется программист, размышляя о том, что делать. Первой цели
идеально отвечает язык, который настолько "близок к машине", что
всеми основными машинными аспектами можно легко и просто оперировать достаточно
очевидным для программиста образом. С таким умыслом первоначально задумывался
C. Второй цели идеально отвечает язык, который настолько "близок к
решаемой задаче", чтобы концепции ее решения можно было выражать прямо и
коротко. С таким умыслом предварительно задумывались средства, добавленные к C
для создания С++.
С++ - это универсальный язык программирования, задуманный так, чтобы
сделать программирование более простым и приятным для серьезного программиста.
За исключением второстепенных деталей С++ является надмножеством языка
программирования C (его объектно-ориентированным расширением).
Основной целью разработчиков C было создание языка, который вместо
неудобного и лишенного наглядности ассемблера применялся бы в самых насущных
задачах системного программирования. К достоинствам языка С относятся
лаконичность записи алгоритмов, логическая стройность написанных на нем
программ, их переносимость между компьютерами с различной архитектурой и
различными операционными средами (чего не скажешь о программах на
машинно-зависимом языке ассемблера). Компиляторы языка разработаны практически
для всех существующих в настоящее время платформ. Как никакой другой язык
программирования, язык С «доверяет» программисту. Даже в таком существенном
вопросе, как преобразование типов данных, налагаются лишь незначительные
ограничения. Во многих случаях программы, написанные на этом языке
программирования, сравнимы по скорости с программами, написанными на языке
ассемблера, при этом они более наглядны и просты в сопровождении. Все это
делает его удобным и эффективным средством для решения разнообразных задач.
Помимо возможностей, которые дает C, С++ предоставляет гибкие и
эффективные средства определения новых типов. Используя определения новых
типов, точно отвечающих концепциям приложения, программист может разделять
разрабатываемую программу на легко поддающиеся контролю части. Такой метод
построения программ часто называют абстракцией данных. Информация о типах
содержится в некоторых объектах типов, определенных пользователем. Такие
объекты просты и надежны в использовании в тех ситуациях, когда их тип нельзя
установить на стадии компиляции. Программирование с применением таких объектов
часто называют объектно-ориентированным. При правильном использовании этот
метод дает более короткие, проще понимаемые и легче контролируемые программы.
Различие между C и С++ состоит в первую очередь в степени внимания,
уделяемого типам и структурам. C выразителен и снисходителен. С++ еще более
выразителен, но чтобы достичь этой выразительности, программист должен уделить
больше внимания типам объектов. Когда известны типы объектов, компилятор может
правильно обрабатывать выражения, тогда как в противном случае программисту
пришлось бы задавать действия с мучительными подробностями. Знание типов
объектов также позволяет компилятору обнаруживать ошибки, которые в противном
случае остались бы до тестирования. Немаловажно то, что использование системы
типов для того, чтобы получить проверку параметров функций, защитить данные от
случайного искажения, задать новые операции и т.д., само по себе не увеличивает
расходов по времени выполнения и памяти. Система типов особенно полезна в
нетривиальных задачах.
При выборе среды разработки во внимание было принято несколько факторов:
техническое задание и выдвигаемые им требования для создания законченной
программы;
эффективность использования языка программирования;
доступность необходимых библиотек, используемых в написании программы;
Исходя из этих факторов, наиболее подходящее средство разработки
различных приложений на языке программирования С++ в среде Windows является
Borland C++ Builder.
Программный продукт Borland C++ Builder - это средство быстрого создания
корпоративных программных продуктов, объединившее удобства визуальной среды
разработки, объектно-ориентированный подход, разнообразные возможности
повторного использования кода, открытую архитектуру и высокопроизводительный
компилятор языка С++, одного из самых распространенных языков программирования.
Отметим основные особенности Borland C++ Builder:
- удобная среда разработки;
- быстрота разработки приложений;
- высокая производительность разработанного приложения за счет
получения 32-разрядного исполняемого кода с помощью оптимизирующего
компилятора;
- невысокие требования разработанного приложения к ресурсам
компьютера;
- возможность полного доступа к функциям операционных систем
Windows;
- возможность модернизации среды разработки за счет встраивания
в нее новых компонентов, инструментов;
- возможность создавать и встраивать разнообразные отчеты.
1.5 Выводы
После проделанных действий анализа предметной области была сформулирована
основная цель разработки текстового редактора для русско-язычного
интерпретатора языка программирования.
Для разработки программного продукта была выбрана спиральная модель
разработки программного обеспечения. В качестве языка программирования для
программного продукта выбран язык С++. Разработку интерфейса было решено
выполнить в интегрированной среде разработки объектно-ориениррованного яка
программирования Borland C++ Builder 6.
Глава II. Аналитическая часть
2.1 Основные требования к программному продукту
В соответствии с анализом предметной области был определен список
основных требований к программе:
· ввод исходного текста программы на русскоязычном языке
программирования;
· операции открытия и сохранения файлов программы;
· операции редактирования текста;
· наличие возможностей среды программирования;
· выполнение программного кода с отображением результата
выполнения;
· экспортирование в язык программирования высокого уровня Pascal.
.2 Текстовые редакторы
Текстовый редактор - это программа для просмотра, создания и
редактирования (внесения изменений) электронных текстовых документов.
По мере своей эволюции текстовые редакторы прошли непростой путь
развития. В настоящее время существует множество текстовых редакторов, которые,
исходя из своих возможностей, предназначения, и ориентации на разные цели и
задачи, условно делятся на несколько типов (родов).
Самые простые из них (так называемые блокноты) позволяют создавать
текстовые файлы с простым форматированием (заметки, конспекты, рекламные листки
и т.п.). Отдельную ветку таких редакторов составляют так называемые редакторы
кода или HTML-редакторы, предназначенные, в первую очередь, для программистов
(разработчиков приложений) и веб-мастеров.
Более продвинутые текстовые процессоры (так называемые текстовые редакторы
2-го рода) позволяют внедрять в текст различные объекты (таблицы, графики,
изображения, формулы и т.д.) и имеют расширенные функции форматирования текста.
Такие редакторы позволяют создавать документы различной сложности, в том числе
и официальные. Данные редакторы являются самыми распространёнными и
востребованными в пользовательской среде (примером может служить Microsoft Word
и его аналоги).
Более мощные текстовые редакторы, служащие для компьютерной вёрстки и
графики, позволяющие создавать многостраничные журналы и каталоги, относятся к
издательским системам и, по понятным причинам, менее распространены среди
пользователей домашних ПК.
Кроме вышеперечисленных текстовых редакторов существуют программы,
предназначенные для создания и редактирования документов других типов и
форматов, например, редакторы электронных таблиц или редакторы PDF документов.
2.3 Аналоги текстовых редакторов с русскоязычным интерфейсом
Ниже приведен список аналогичных программ с кодом на русском языке.
) Глагол - язык программирования, родственный языкам Паскаль и Оберон.
Интерфейс выполнен в консольном виде, изображенном на рисуноке 2.1.
Рис. 2.1. Интерфейс программы Глагол
) Лого (англ. Logo) - язык программирования высокого уровня, разработанный
в 1967 году Сеймуром Папертом и Идит Харель в образовательных целях для
обучения детей дошкольного и младшего школьного возраста основным концепциям
программирования (рекурсии, расширяемости и пр.).
В языке Лого программа представляет собой список «слов».
Как правило, реализации Лого слабо ограничивают перечень допустимых в
слове символов, поэтому команды можно называть и по-русски. Более того, многие
русскоязычные реализации Лого имеют русскоязычные команды или встроенные
русскоязычные синонимы для всех встроенных команд.
Слова в списке разделяются пробелами. Слово может быть либо командой,
либо литералом одного из трёх видов - строковым, числовым или литералом списка.
Команда может возвращать значение, тогда она считается функцией. Литералы возвращают
своё значение непосредственно. Строковой литерал - оформляется как слово, перед
которым ставят двойную кавычку. Слова, состоящие из цифр, интерпретируются как
числовые литералы. Для формирования списка из слов в тексте программы их
окружают квадратными скобками.
Так же есть команды сохранения и получения значения по имени, но многие
реализации дополняют его понятием переменной - вводя компактный синтаксис
команды для получения значения переменной. Поэтому обычно для получения
значения переменной достаточно написать её имя, предварив его двоеточием.
Имеется специальный синтаксис для передачи в некоторые встроенные команды
заранее не фиксированного количества параметров. Для этого предлагается
заключать команду и все её параметры в круглые скобки, например: (СПИСОК :A :Б
:В :Г 1 2 3 4) Для пользовательских команд такой синтаксис не применим, потому
что не предусмотрено синтаксиса для описания обработки переданных таким образом
параметров.
Переданный на выполнение интерпретатору список команд выполняется по
очереди. Очередное слово интерпретируется как команда из текущего словаря
системы. Если она принимает параметры, то интерпретатор выполняет следующее
слово из списка, с целью получить значение для передачи его в качестве первого
параметра.
Если команда стоит на месте параметра, ожидается что эта команда вернёт
значение. А если возвращаемое очередной командой значение не предусмотрено
передавать другой команде, система сообщает об ошибке, если такой вызов
встретился в тексте программы, либо отображает значение, если вызов команды
произведён в интерактивном режиме.
Поддерживается использование привычной инфиксной формы выражений
математики и логики на привычных операторах, типа «(2 + 3) * 5» и «2 > 5».
Но в связи с тем, что по основным правилам языка сначала идёт команда, а потом
её параметры, для базовых арифметических и логических операций в некоторых
диалектах (LCSI ЛогоМиры и LogoWriter, например) также существуют команды, с
использованием которых выражения принимают вид «умножь сложи 2 3 5» и «больше?
2 5».
Есть команда для расширения словаря пользовательскими командами, она
принимает имя новой команды, список параметров и список команд.
Предусмотрены два основных механизма управления ходом выполнения
программы: оператор цикла с фиксированным числом повторений и рекурсия.
3) 1С:Предприятие 8.1. Версия для обучения
программированию.
Программный продукт "1С:Предприятие 8.1 Версия
для обучения программированию" предназначен для получения навыков
модификации существующих и создания новых прикладных решений в системе
"1С:Предприятие 8".
Версия для обучения программированию - доступное
решение для широкого круга пользователей, которые хотят познакомиться с
системой программ "1С:Предприятие 8" и научиться приемам
конфигурирования: созданию и изменению структуры метаданных, написанию
программных модулей, разработке диалогов и интерфейсов, администрированию
прикладных решений на платформе "1С:Предприятие 8".
Наряду с задачами изучения допускается применение
учебной версии платформы для модификации и разработки реальных прикладных
решений в пределах возможностей этой поставки. Форматы информационных баз
конфигураций учебной и коммерческой версии не отличаются, сложность
конфигураций в учебной версии не ограничена. Однако возможности отладки,
например, лимитированы ограничениями на объемы данных. Реальная эксплуатация
прикладных решений может осуществляться только на коммерческих версиях системы
"1С:Предприятие 8".
2.4 Выводы
В ходе рассмотрения данной главы были изучены методы поиска текста. Так
же были изучены аналоги программ с русскоязычным языком написания команд.
Программа "Глагол" отстает в "развитии" пользовательского
интерфейса. Программа "Лого" не достаточно функциональна, а программа
1С:Предприятие является платной.
Глава III. Проектно-конструкторская и технологическая части
3.1 Разработка алгоритмов функционала программы
Исходя из основных требований к программному продукту был разработан
функционал программы, описанный на рисунке 3.1.
Рис. 3.1. Функциональная схема текстового редактора
Функционал программы должен включать в себя:
) меню работы с файлом, подробная схема алгоритма работы которого
представлена на рисунке 3.2:
ü Новый - создание нового файла для ввода кода программы
ü Открыть - открытие ранее сохраненного файла
ü Сохранить - сохранение текущего файла
ü Сохранить как - сохранение файла под новым именем
ü Распечатать - вывод на печать содержимого поля текста
программы
ü Экспорт в Pascal
- создание файла *.pas на языке программирования
высокого уровня Pascal с
экспортируемым текстом для него
ü Закрыть - закрытие окна программы текстового редактора
) меню редактирования:
ü Отменить - отмена последних выполненных действий
ü Вернуть - возврат уже выполненных действий после отмены
ü Вырезать - вырезать выделенный текст в буфер обмена
ü Копировать - скопировать выделенный текст в буфер обмена
ü Вставить - вставить текст, находящийся в буфере обмена
ü Удалить - удалить выделенный текст
ü Выделить все - выделить весь текст на поле
) меню поиска:
ü Найти - открыть поиск для поиска текста
ü Найти и заменить - открыть поиск для поиска и замены текста
ü Искать дальше - искать дальше в документе строку из формы
поиска
) меню вид:
Показывать номера строк - показывать или не показывать поле слева с
нумерацией строк
Показывать окно ошибок - показывать или не показывать окно с ошибками в
выполнении исходного кода программы
) меню работы с интерпретатором Русич, подробная схема алгоритма работы
которого представлена на рисунке 3.3:
Проверить - проверка на наличие ошибок в исходном коде программы
Выполнить - выполнение команд исходного кода
Остановить - остановка выполнения команд исходного кода
Окно выполнения - показать окно выполнения команд исходного кода после
закрытия основного окна выполнения
) меню помощи:
Справка - справка по программе
Список команд - вывод всех команд, используемых в редакторе
О программе - вывод сообщения о данной программе
Рис.
3.2. Схема алгоритма работы с меню «Файл».
Рис.
3.3. Схема алгоритма работы с меню «РУСИЧ».
.2 Разработка интерфейса программы
Интерфейс разрабатывался в интегрированной среде разработки С++Builder 6. С помощью передовых инструментов
дизайна и макетирования создан удобный и простой в эксплуатации интерфейс с
непринужденным внешним видом и комфортным восприятием для пользователя.
Кроме того создана программа с обязательным выполнением следующих
пунктов:
1. Дружественный интерфейс;
2. Открытие, сохранение и печать кода программы;
. Выполнение программного кода с отображением результата
выполнения;
. Поиск и замена текста;
. Экспорт в файл языка программирования высокого уровня Pascal.
Цветовая схема не должна отвлекать пользователя от выполнения основной
его задачи - разработки и редактирования текста исходной программы. На рисунке
3.4 изображена главная экранная форма текстового редактора для русскоязычного
интерпретатора языка программирования.
Элементами пользовательского интерфейса главной экранной формы являются
главное меню, кнопки и основное поле для ввода текста исходной программы.
Рис. 3.4. Главная экранная форма текстового редактора для русско-язычного
интерпретатора языка программирования.
На рисунке 3.5 изображена главная экранная форма текстового редактора для
русскоязычного интерпретатора языка программирования после ввода текста
исходной программы.
Рис. 3.5. Экранная форма текстового редактора после ввода текста исходной
программы.
На рисунке 3.6 изображена экранная форма после подачи команды на
выполнение введенной программы.
Рис 3.6. Экранная форма выполнения введенной программы
.3 Выводы
В ходе проведения проектно-конструкторской работы был разработан
программный продукт текстового редактора для русскоязычного интерпретатора
языка программирования.
Проектирование программного продукта велось с учетом функциональных
требований, изложенных в техническом задании.
При разработке интерфейса предпочтение отдавалось простоте, удобству в
эксплуатации и комфортному восприятию пользователя.
Глава IV. Экспериментальная часть
4.1 Тестирование, как способ обеспечения качества
программного продукта
Качество программного продукта характеризуется набором свойств,
определяющих, насколько продукт “хорош” с точки зрения заинтересованных сторон,
таких как заказчик продукта, спонсор, конечный пользователь, разработчики и
тестировщики продукта, инженеры поддержки, сотрудники отделов маркетинга,
обучения и продаж. Постановка задачи обеспечения качества продукта выливается в
задачу определения заинтересованных лиц, их критериев качества и затем
нахождения оптимального решения, удовлетворяющего этим критериям. Тестирование
является одним из наиболее устоявшихся способов обеспечения качества разработки
программного обеспечения и входит в набор эффективных средств современной
системы обеспечения качества программного продукта.
С технической точки зрения тестирование заключается в выполнении
приложения на некотором множестве исходных данных и сверке получаемых
результатов с эталонными, с целью установить соответствие различных свойств и
характеристик приложения заказанным свойствам. Как одна из основных фаз
процесса разработки программного продукта (дизайн приложения - разработка кода
- тестирование), тестирование характеризуется достаточно большим вкладом в
суммарную трудоемкость разработки продукта.
Данная глава дипломного проекта посвящена решению задачи контроля
качества разработки программного обеспечения с позиций тестирования.
4.2 Критерии выбора тестов для программного продукта
При составлении тестов для программного продукта необходимо применять
критерии структурного тестирования.
Структурное тестирование использует стратегию тестирования в виде “белого
ящика”. Этот подход основан на анализе логики программы, что предполагает
знание исходного текста программы или спецификации программы в виде потокового
графа управления. Существо подхода - в проверке каждой команды, каждого пути,
каждой ветви алгоритма.
Структурная информация понятна и доступна разработчикам подсистем и
модулей приложения, поэтому данный класс критериев часто используется на этапах
модульного и интеграционного тестирования.
Условия критерия тестирования команд - набор тестов в совокупности должен
обеспечить прохождение каждой команды не менее одного раза. Это слабый
критерий, он, как правило, используется в больших программных системах, где
другие критерии применить невозможно.
Условие критерия тестирования ветвей - набор тестов в совокупности должен
обеспечить прохождение каждой ветви не менее одного раза. Это достаточно
сильный и при этом экономичный критерий, поскольку множество ветвей в
тестируемом приложении конечно не велико.
Условие критерия тестирования путей - набор тестов в совокупности должен
обеспечить прохождение каждого пути не менее 1 раз. Если программа содержит
цикл (в особенности с неявно заданным числом итераций), то число итераций
ограничивается константой.
4.3 Тестирование программного продукта
Тестируем программу по принципу белого ящика, методом покрытия условий.
Принцип его заключается в проверке каждого пути, каждой ветви алгоритма,
внешняя спецификация во внимание не принимается. В данном методе записывается
число тестов, достаточное для того, чтобы все возможные результаты каждого
условия в решении выполнялись, по крайней мере, один раз. Проверка заключается
в подстановке таких значений, чтобы последовательно получить все результаты
работы программы. В рассматриваемом примере должны быть покрыты тестами
следующие 4 пути, которые приведены на рисунке 4.1:
1) 2-4-6-8
2) 1-2-3-4-6-7-8
) 2-4-5
) 1-2-3-4-5
Рис. 4.1. Схема тестирования программного продукта
В таблицу 4.1 сведены результаты проведенных тестов.
Таблица 4.1
Результаты проведенных тестов
|
Тест
|
Путь
|
Ожидаемый результат
|
Фактический результат
|
Результат тестирования
|
|
Пользователь запускает программу
|
-
|
Выходит главное окно программы
|
Программа успешно запускается
|
+
|
|
Пользователь вводит текст исходной программы и запускает на
выполнение
|
2-4-6-8
|
Данные успешно принимаются, происходит выполнение
|
Данные приняты, выполнение программы
|
+
|
|
Пользователь вводит текст исходной программы и запускает на
выполнение
|
1-2-3-4-6-7-8
|
Данные успешно проверяются, происходит выполнение
|
Данные приняты, выполнение программы
|
+
|
|
Пользователь вводит текст исходной программы с ошибками и
запускает на выполнение
|
2-4-5
|
Данные успешно принимаются, выводятся ошибки
|
Данные приняты, выведены ошибки
|
+
|
|
Пользователь вводит текст исходной программы с ошибками и
запускает на выполнение
|
1-2-3-4-5
|
Данные успешно проверяются, выводятся ошибки
|
Данные приняты, выведены ошибки
|
+
|
Исходя из результатов проведенных тестов, можно заключить, что программа
корректно выполняет свои функциональные возможности и может быть введена в
эксплуатацию.
4.4 Руководство пользователя
.4.1 Введение
Функциональным назначением текстового редактора для русскоязычного
интерпретатора языка программирования является ввод пользователем текста
исходной программы на языке программирования, основанном на русском языке,
редактирование введенного текста, правка, поиск, сохранение и выполнение
введенной пользователем программы, а также экспорт исходного кода в файл языка
программирования высокого уровня Pascal.
.4.2 Назначение и условия применения
Программный продукт обеспечивает возможность выполнения перечисленных
ниже функций:
ввод исходного текста программы на разработанном языке программирования в
программу;
редактирование исходного текста программы на разработанном языке
программирования;
поиск и замена текста;
сохранение в файл и экспорт в Pascal;
выполнение программного кода с отображением результата выполнения.
Минимальные системные требования
процессор Pentium-4 с тактовой частотой, ГГц - 0,5, не менее;
оперативную память объемом, Гб - 0,128, не менее;
жесткий диск со свободным объемом, Мб - 200, не менее;
устройство ввода - клавиатура и мышь;
монитор с разрешением 1024 x 768 VGA, не менее;
операционная система Windows 2000, не менее.
.4.3 Руководство программиста
В состав дистрибутива русскоязычного интерпретатора языка
программирования входит:
Файл settings.ini который содержит в себе настройки программы
РУСИЧ-Редактор.exe.manifest - визуальные стили Windows XP.
Для работы с программным продуктом необходимо его установить в
соответствии с приведенными ниже рекомендациями:
необходимо выделить ПК;
запустить сам ПП РУСИЧ-Редактор.exe
Выберите файл setup.exe и два раза щелкните по нему, чтобы активизировать
процесс установки. Следуйте указаниям программы установки, чтобы успешно
завершить установку программы на ваш компьютер.
Если появился ярлычок на рабочем столе, значит, программа установлена
правильно и можно приступать к работе.
.4.4 Описание операций
Для запуска данного программного продукта необходимо дважды щелкнуть на
ярлыке «РУСИЧ-Редактор», помещенного на рабочий стол. После этого появляется
рабочее окно системы, изображенное на рисунке 4.2.
Рис. 4.2. Главное окно программы
Наиболее полные возможности управления предоставляет главное меню
программы РУСИЧ-Редактор. Оно расположено непосредственно над окном ввода
текста исходной программы. Меню предоставляет доступ к основным операциям и
параметрам пользовательского интерфейса программы. Ниже дан перечень пунктов
меню, доступных при работе с программой:
· Создать новый файл
· Открыть сохраненный файл
· Сохранить созданный файл
· Распечатать текст программы
· Экспортировать в Pascal
· Отменить изменения текста программы
· Вернуть изменения текста программы
· Вырезать фрагмент кода
· Скопировать фрагмент кода
· Вставить фрагмент кода
· Удалить фрагмент кода
· Выделить весь текст программы
· Найти и заменить в тексте программы
· Изменить вид
· Проверить текст введенной программы
· Выполнить текст введенной программы
· Остановить выполнение текста введенной программы
· Просмотреть результаты выполнения программы
· Изменить настройки программы
· Вызов справки по программному продукту
· Просмотр списка всех возможных команд
· Использование контекстного меню для поля вводе текста
Для создания новой программы можно нажать на кнопку «Создать новый файл»
или выбрать пункт меню «Создать» в меню «Файл» или нажать на клавиши Ctrl+N. В
результате появится пустое текстовое поле, в которое можно ввести исходный
текст программы.
Для открытия сохраненного файла программы можно нажать на кнопку «Открыть
файл» или выбрать пункт меню «Открыть» в меню «Файл» или нажать на клавиши
Ctrl+O. В результате появится окно диалога открытия файла, представленное на
рисунке 4.3.
Рис. 4.3. Окно диалога открытия файла
Для открытия сохраненного файла программы нужно найти и выбрать файл с
расширением .RUS, т.е. РУСИЧ-файл. После выбора файла можно нажать на кнопку
«Открыть» для открытия файла.
Контекстное меню для поля ввода текста программы представлено на рисунке
4.4.
Рис. 4.4. Контекстное меню
Для закрытия окна можно нажать на кнопку «Отмена» для закрытия окна
диалога открытия файла. Также закрыть диалог открытия файла можно нажатием на
крестик в правом верхнем углу.
Для сохранения набранного текста программы можно нажать на кнопку
«Сохранить файл» или выбрать пункт меню «Сохранить» в меню «Файл» или нажать на
клавиши Ctrl+S. В результате появится окно диалога сохранения файла,
представленное на рисунке 4.5.
Рис. 4.5. Окно диалога сохранения файла
Для сохранения введенного текста программы нужно найти и выбрать папку
для сохранения фала. После ввода в поле «Имя файла» названия файла можно нажать
на кнопку «Сохранить» для сохранения файла с расширением .RUS, т.е. РУСИЧ-файл.
Для закрытия окна можно нажать на кнопку «Отмена» для закрытия окна
диалога сохранения файла. Также закрыть диалог сохранения файла можно нажатием
на крестик в правом верхнем углу.
Для того чтобы распечатать исходный текст программы можно выбрать пункт
меню «Распечатать» в меню «Файл» или нажать на клавиши Ctrl+P. В результате
исходный текст программы будет отправлен на принтер, используемый по умолчанию.
Для того чтобы проверить исходный текст программы можно нажать на кнопку
«Проверить программу», а также выбрать пункт меню «Проверить» в меню «РУСИЧ»
или нажать на клавишу F6 . В результате будет проведен лексический и
синтаксический анализы исходного текста программы. Результаты проверки без
ошибок представлен на рисунке 4.6. Результаты проверки с ошибками представлен
на рисунке 4.7.
Для того, чтобы экспортировать русскоязычный исходный текст программы в
файл *.pas языка программирования высокого
уровня Pascal необходимо из пункта меню «Файл»
выбрать пункт «Экспорт в Pascal».
Рис. 4.6. Результаты проверки без ошибок
Рис. 4.7. Результаты проверки с ошибками
Для выполнения исходного текста программы можно нажать на кнопку
«Выполнить программу», а также выбрать пункт меню «Выполнить» в меню «РУСИЧ»
или нажать на клавишу F9. В результате будет проведен лексический и
синтаксический анализы исходного текста программы и если обнаружатся ошибки, будут
выведены результаты проверки с указанием ошибок. Результаты проверки с ошибками
представлены на рисунке 4.7.
Если в процессе проверки ошибки не обнаружены, откроется окно выполнения
исходного текста программы, представленное на рисунке 4.8.
Рис. 4.8. Окно выполнения исходного текста программы
Для остановки выполнения исходного текста программы можно нажать на
кнопку «Остановить программу», а также выбрать пункт меню «Остановить» в меню
«РУСИЧ» или нажать на клавишу F8. В результате выполнение исходного текста
программы будет прекращено. Окно выполнения исходного текста программы после
прекращения выполнения представлено на рисунке 4.9.
Рис. 4.9. Окно выполнения исходного текста программы после прекращения
выполнения
Возможности редактирования исходного текста программы:
Для отмены изменений исходного текста программы можно нажать на кнопку
«Отменить», а также выбрать пункт меню «Отменить» в меню «Редактирование» или
нажать на клавиши CTRL-Z. В результате изменения исходного текста программы
будет отменены.
Для того чтобы вернуть изменения исходного текста программы можно нажать
на кнопку «Вернуть», а также выбрать пункт меню «Вернуть» в меню
«Редактирование» или нажать на клавиши CTRL-Y. В результате изменения исходного
текста программы будет возвращены.
Для того чтобы вырезать фрагмент исходного текста программы можно нажать
на кнопку «Вырезать», а также выбрать пункт меню «Вырезать» в меню
«Редактирование» или нажать на клавиши CTRL-X. В результате фрагмент исходного
текста программы будет вырезан.
Для того чтобы скопировать фрагмент исходного текста программы можно
нажать на кнопку «Скопировать», а также выбрать пункт меню «Скопировать» в меню
«Редактирование» или нажать на клавиши CTRL-С. В результате фрагмент исходного
текста программы будет скопирован.
Для того чтобы вставить фрагмент исходного текста программы можно нажать
на кнопку «Вставить», а также выбрать пункт меню «Вставить» в меню
«Редактирование» или нажать на клавиши CTRL-V. В результате будет вставлен
фрагмент из буфера в исходный текст программы, начиная с положения курсора в
текстовом поле ввода.
Для того чтобы удалить фрагмент исходного текста программы можно нажать
на кнопку «Удалить», а также выбрать пункт меню «Удалить» в меню
«Редактирование». В результате фрагмент исходного текста программы будет
удален.
Для того чтобы выделить весь исходный текст программы можно выбрать пункт
меню «Выделить все» в меню «Редактирование» или нажать на клавиши CTRL-A. В
результате весь исходный текст программы будет выделен.
По умолчанию при открытии программного продукта показывается поле номера
строк. Для того чтобы убрать поле номера строк нужно поставить галочку в пункте
меню «Показывать номера строк» в меню «Вид». В результате будет убрано поле
номера строк.
Для изменения основных настроек программы можно выбрать пункт меню
«Основные настройки программы» в меню «Настройки» или нажать на клавишу F5. В
результате появится окно справки, показанное на рисунке 4.10.
Рис. 4.10. Окно «Основные настройки программы»
В этом окне можно просмотреть элементы языка программирования, а также
изменить атрибуты текста такие как полужирный, курсив, подчеркнутый. Также
можно изменить цвета заливки текста и заднего фона.
Выбор цветов заливки текста представлен на рисунке 4.11.
Рис. 4.11. Выбор цветов заливки текста
В текстовом поле можно просмотреть, как будет выглядеть при
редактировании введенная программа. В итоге редактирования настроек можно
нажать на кнопку «Сохранить» для сохранения настроек или на кнопку «Отмена» для
закрытия окна настроек программы. Также закрыть окно основных настроек
программы можно нажатием на крестик в правом верхнем углу.
Для ознакомления с возможностями программы можно нажать на кнопку «Вызов
справки по программному продукту» или выбрать пункт меню «Справка» в меню
«Помощь» или нажать на клавишу F1. В результате появится окно справки,
показанное на рисунке 4.12.
Рис. 4.12. Окно «Справка»
Для ознакомления с разработчиком программного продукта можно выбрать
пункт меню «О программе…» в меню «Помощь» или нажать на клавишу F2. В
результате появится окно «О программе», показанное на рисунке 4.13.
Рис. 4.13. Окно «О программе»
Для закрытия главного окна программы можно выбрать пункт меню «Закрыть
програму» в меню «Файл» или нажать на клавиши ALT-X. Также закрыть главное окно
программы можно нажатием на крестик в правом верхнем углу.
Для поиска текста в исходном коде введенной программы нужно выбрать пункт
меню «Найти» в меню «Поиск» или нажать на клавиши Ctrl-F.
Появится окно поиска, изображенное на рисунке 4.14.
Рис. 4.14. Окно поиска текста
Для выполнения поиска нужно ввести текст поиска в поле «Текст поиска» и
выбрать направление поиска. По умолчанию направление поиска установлено в
позицию «Вперед». Затем нажать кнопку «Найти». Если текст будет найден, тогда
он выделиться в текстовом поле и для продолжения поиска нужно будет нажать F3 или выбрать пункт «Искать дальше»
из меню «Найти». Как только поиск дойдет до конца текстового поля, то выйдет
сообщение о неудачном поиске, изображенном на рисунке 4.17.
Для поиска и замены текста в исходном коде введенной программы нужно
выбрать пункт меню «Найти и заменить» в меню «Поиск». Появится окно поиска и
замены текста, изображенное на рисунке 4.15.
Рис. 4.15. Окно поиска и замены текста
Для выполнения замены текста необходимо ввести в поле «Текст поиска»
текст, который требуется найти, и в поле «Текст для замены» ввести текст, на
который будет заменен текст поиска. Затем нужно выбрать направление поиска. По
умолчанию направление поиска установлено в позицию «Вперед». При нажатии на
кнопку «Заменить», если искомая строка встречается, то выйдет диалоговое окно
подтверждения замены текста, изображенное на рисунке 4.16, в котором при
нажатии на «Yes» изменяется первое найденное слово в
тексте, а затем ищется дальше и так до тех пор, пока не закончатся совпадения
текста. Если в этом окне нажать на «No», тогда выделенная строчка не заменить и поиск будет искать дальше до
конца текстового поля. Если нажать на кнопку «Cancel», то тогда замена будет полностью отменена. Если
нажать на «All», то все найденные слова будут
автоматически заменены.
Рис. 4.16. Подтверждение замены текста
Рис. 4.17. Текст не найден
4.4.5 Аварийные ситуации
При сбое в работе аппаратуры восстановление нормальной работы системы
должно производиться после:
перезагрузки операционной системы;
запуска исполняемого файла системы.
При ошибках в работе аппаратных средств (кроме носителей данных и
программ) восстановление функции системы возлагается на ОС.
При ошибках, связанных с программным обеспечением (ОС и драйверы
устройств), восстановление работоспособности возлагается на ОС.
При неверных действиях пользователей, неверных форматах или недопустимых
значениях входных данных, система выдает пользователю соответствующие
сообщения, после чего возвращается в рабочее состояние, предшествовавшее
неверной (недопустимой) команде или некорректному вводу данных.
4.5 Выводы
Результатом работы, отраженной в данной главе дипломного проекта, стала
оценка качества разработанного программного комплекса. В ней приведены планы и
результаты отладки программных компонент, тесты, эталонные результаты и
распределение исходных и результирующих данных.
Был разработан и оформлен в соответствии с требованиями ЕСПД документ
«Руководство пользователя».
Глава V. Расчет экономической эффективности
Технико-экономические расчеты позволяют выбрать наиболее оптимальный
вариант системы автоматического регулирования с целью нахождения экономической
эффективности от внедрения нового оборудования или программного комплекса.
Рассмотренный в дипломном проекте текстовый редактор для русско-язычного
интерпретатора языка программирования обладает характеристиками актуальными для
использования программного продукта в учреждениях начального и среднего
образования. Среда программирования на русском языке будет проста и понятна в
изучении и познании основ создания и написания программ. Такая понятная система
позволяет людям, не обученным написанию сложных программ, создать в данной
среде программирования на русском языке программу, предназначенную для
выполнения поставленных задач, практически без изучения команд программирования
и правил написания программ.
В данном разделе дипломной работы определяется расчет полной стоимости
спроектированного программного продукта и экономической эффективности от ее
внедрения.
При расчете стоимости разрабатываемой программы
необходимо учесть следующие факторы:
· полезный годовой фонд времени;
· годовые эксплуатационные затраты;
· среднегодовая заработная плата
разработчика;
Главным источником роста прибыли и рентабельности
является снижение себестоимости. Снижение себестоимости программного продукта
можно добиться несколькими путями:
изменение объема и структуры продукции;
повышение производительности труда;
использование ранее написанных модулей.
5.1 Расчет текущих затрат
Рассчитаем расчет текущих затрат в базовом варианте:
Эффективный фонд времени
Календарный фонд времени в 2012 году:
F’n = Fк-Fn= 366 дней= 117 дней
F’n = 366 - 117= 249 дней
Номинальный годовой фонд времени работы оборудования в часах при работе в
одну смену:
(5.1)
= 242
дней, количество полных рабочих дней;
= 8 ч -
продолжительность рабочей смены;
= 7 дней
- количество предпраздничных, сокращенных на один час дней;
= 7 ч -
продолжительность предпраздничной рабочей смены.
Подставив эти данные в формулу (5.1)
ч
Эксплуатационные расходы
Эксплуатационные расходы также являются неотъемлемой
частью затрат на разработку программы, и вычисляются по формуле:
Сэкс = ЗПср.год + Агод + Сэ, (5.2)
где: ЗПср.год - среднегодовая заработная плата разработчика, он же
занимается обслуживанием. Работу выполняет инженер-программист с заработной
платой в сумме 11000 рублей в месяц.
Агод - годовые амортизационные отчисления, руб.;
Сэ - стоимость потребляемой электроэнергии за год,
руб.
руб.,
(5.3)
где:
Ч - численность рабочих, 1 человек.
ЗПср.год
= 11000*1*12 = 132000 руб.
Агод.
= На% ∙ Скомп., (5.4)
где:
На - норма амортизации (10%), ускоренная амортизация (20%);
Скомп.
- стоимость компьютера (15000 тыс. руб.)
руб.
Накладные
расходы в условиях предприятия составляют 5% от заработной платы
техника-программиста. Сюда включаются затраты на содержание помещения,
оборудования, управленческие затраты.
, (5.5)
где
Ппр - накладные расходы в условиях предприятия
руб.
Стоимость
потребляемой электроэнергии рассчитывается по формуле (5.6)
Сэ
= Мп ∙ Fн. ∙ Цэ ∙ Кисп, (5.6)
где:
Мп- сумма потребляемой мощности, составляет 0.4кВт;н. - годовой фонд рабочего
времени в 2012 году, составляет 2015 часа
Цэ
- стоимость 1 кВт, составляет 1.9 руб.;
Кисп
- коэффициент использования мощности, принимается 0.9;
Сэ
= 0.4∙ 2015 ∙ 1.9 ∙ 0.9 =1378,26 руб.
Полученные
данные представим в виде таблицы 5.1.
Таблица
5.1
Эксплуатационные
расходы
|
Показатель
|
Расчетная формула
|
Значение
|
Удельный вес,%
|
|
Среднегодовая заработная плата разработчика, руб.
|
 13200093,71
|
|
|
|
Годовые амортизационные отчисления, руб.
|
Агод = На% ∙ Скомп
|
3000
|
1,12
|
|
Стоимость потребляемой электроэнергии за год, руб.
|
Сэ = Мп ∙ Fн ∙ Цэ ∙ Кисп
|
1378,26
|
0,96
|
|
Накладные расходы, руб.
|
66004,65
|
|
|
|
Итого:
|
Сэкс = ЗПср.год + Агод + Сн.р +Сэ
|
142978,26
|
100,0
|
Рис.
5.1. Удельный вес эксплуатационных расходов
Исходя
из этих данных получаем:
Сэкс
= 132000 + 3000 + 6600 + 1378,26 = 142978,26руб.
Рассчитаем расчет текущих затрат в проектируемом варианте:
Эффективный фонд времени
ч
Эксплуатационные расходы
Сэкс = ЗПср.год + Агод + Сн.р. + Сэ,
где: ЗПср.год - среднегодовая заработная плата разработчика, он же
занимается обслуживанием. Работу выполняет инженер-программист с заработной
платой в сумме 10000 рублей в месяц.
Агод - годовые амортизационные отчисления, руб.;
Снр - накладные расходы, руб.;
Сэ - стоимость потребляемой электроэнергии за год,
руб.
руб.,
где:
Ч - численность рабочих, 1 человек.
ЗПср.год
= 10000*1*12 = 120000 руб.
Агод.
= На% ∙ Скомп.,
где:
На - норма амортизации (10%), ускоренная амортизация (20%);
Скомп.
- стоимость компьютера (15000 тыс. руб.)
руб.
Накладные
расходы в условиях предприятия составляют 5% от заработной платы
техника-программиста. Сюда включаются затраты на содержание помещения,
оборудования, управленческие затраты.
,
где
Ппр- накладные расходы в условиях предприятия
руб.
Стоимость
потребляемой электроэнергии рассчитывается по формуле (5.6)
Сэ
= Мп ∙ Fн. ∙ Цэ ∙ Кисп
где:
Мп - сумма потребляемой мощности, составляет 0.4кВт;н. - годовой фонд рабочего
времени в 2011 году, составляет 1981 часа
Цэ
- стоимость 1 кВт, составляет 1.74 руб.;
Кисп
- коэффициент использования мощности, принимается 0.9;
Сэ
= 0.4∙ 1981 ∙ 1.74 ∙ 0.9 =1240,89 руб.
Полученные
данные представим в виде таблицы 5.2.
Таблица
5.2
Эксплуатационные
расходы
|
Показатель
|
Расчетная формула
|
Значение
|
Удельный вес,%
|
|
Среднегодовая заработная плата разработчика, руб.
|
 12000093,51
|
|
|
|
Годовые амортизационные отчисления, руб.
|
Агод = На% ∙ Скомп
|
3000
|
1,02
|
|
Стоимость потребляемой электроэнергии за год, руб.
|
Сэ = Мп ∙ Fн ∙ Цэ ∙ Кисп
|
1240,89
|
0,95
|
|
Накладные расходы, руб.
|
60004,62
|
|
|
|
Итого:
|
Сэкс = ЗПср.год + Агод + Сн.р +Сэ
|
130240,89
|
100
|
Рис. 5.2. Удельный вес эксплуатационных расходов
Исходя из этих данных получаем:
Сэкс = 120000 + 3000 + 6000 + 1240,89 = 130240,89руб.
5.2 Расчет себестоимости
Стоимость одного часа машинного времени вычисляем по
формуле:
, (5.7)
где:
Сэкс - годовые эксплуатационные расходы, руб.;н - эффективный годовой фонд
времени, час;
Кисп
- коэффициент использования машины и времени разработчика. Коэффициент
использования машины принимаем 0,9.
Время
разработки программы
Время разработки рассчитывается по следующим этапам, как показано в
таблице 5.3.
Таблица 5.3
Этапы разработки программы
|
№п/п
|
Этапы разработки
|
Время, час.
|
|
1
|
Постановка задачи
|
13
|
|
2
|
Выбор метода решения
|
8
|
|
3
|
Составление алгоритма
|
19
|
|
4
|
Выбор языка программирования
|
1
|
|
5
|
Составление программы
|
76
|
|
6
|
Отладка
|
23
|
|
ИТОГО
|
140
|
|
В том числе машинное время
|
99
|
Стоимость разработки программы
Стоимость разработки программы рассчитывается по
формуле:
Ср= ЗПр.руч ∙ n1 + См.час ∙ n1 (5.8)
где: n1 и n2 - соответственно количество чел. часов
разработки и машинных часов; = 41 час.; = 99 часов.
ЗП p.руч. - средняя часовая заработная плата
разработчика инженера
программиста с отчислениями на социальные нужды.
, (5.9)
ФЗПгод
= ЗПср.год.+ отчисл. (5.10)
Отчисления
на страховые взносы составляют 26% от фонда заработной платы, в том числе:
Федеральный
бюджет - 20%
Фонд
медицинского страхования - 2.8%
Фонд
социального страхования - 3.2%
ФЗПгод
= 120000 + 120000 ∙ 0.26 = 151200 руб.
Рассчитываем
среднечасовую заработную плату по формуле 5.9:
руб.
Вычисляем
стоимость разработки программы по формуле 5.10:
Ср
= 76,32 ∙ 41 + 73,05 ∙ 99 = 10361,07руб.
5.3 Расчет экономической эффективности от внедрения программы
Внедрение данной программы на производстве позволит
значительно сократить время переходного процесса, а значит добиться снижения
расхода энергии оборудования, выполняющего данную задачу.
Сумма приведенных затрат:
где
Ен - нормативный коэффициент сравнительной экономической эффективности
капитальных вложений (Ен = 0,15);
К
- капитальные вложения.
для
базового варианта
для
проектируемого варианта
Годовой
экономический эффект при равных объемах выпуска продукции определяется как
разность сумм приведенных затрат:
,
где
- суммы приведенных затрат, соответственно по базовому
и проектируемому вариантам.
Срок
окупаемости данной программы составит:
. (5.11)
года
То есть данный программный продукт окупится через 10 месяцев.
5.4 Выводы
Экономический эффект подсчитан на основе сравнения
выполнения работы при использовании оптимальных систем автоматического
управления и работы без использования компьютерных технологий. Положительное
значение разности приведенных затрат говорит об экономической целесообразности
внедрения данной системы. Экономия осуществляется в основном за счет сокращения
времени при создании программ в данном программном продукте.
Глава VI. Безопасность и экологичность проекта
Введение
Разрабатываемый в рамках данного дипломного проекта программный продукт
выполняется в соответствии с нормами по охране труда и экологии.
Охрана труда - это разработка, и использование мер, защищающих человека в
процессе труда, составляющих содержание человеческой деятельности. Она является
важнейшей составляющей безопасности жизнедеятельности человека.
Данный раздел дипломного проекта посвящен рассмотрению следующих
вопросов:
анализ опасных и вредных производственных факторов и факторов вредного
воздействия на окружающую среду;
расчет освещенности рабочего места и определение воздухообмена в
помещении;
- мероприятия, обеспечивающие безопасные условия эксплуатации модуля.
6.1 Анализ опасных и вредных производственных факторов и
факторов вредного воздействия на окружающую среду
Данный программный продукт используется в помещении, характеризующемся
наличием в нем большого количества вычислительной техники и сопутствующего
оборудования (принтеры, мониторы и т.д.). Поэтому опасные и вредные факторы,
воздействующие на человека при работе с программным продуктом, связаны с
использованием вычислительной техники.
К опасным факторам при работе с ЭВМ можно отнести различные экстремальные
ситуации, следствием которых является резкое ухудшение здоровья оператора.
Опасные факторы:
- нарушение изоляции токоведущих частей;
Среди вредных факторов можно выделить следующие:
- неблагоприятный микроклимат;
- повышенный уровень шума;
- недостаток освещенности;
- электромагнитное излучение.
Неправильная организация труда приводит к тому, что физически вредные
производственные факторы сильно действуют на психику человека, что выражается в
умственном перенапряжении, перенапряжении звуковых и зрительных анализаторов,
кроме того, у человека может наступить эмоциональная перегрузка.
6.1.1 Поражение электрическим током
Опасный фактор - нарушение изоляции токоведущих частей. Электрические
установки, к которым относится практически все оборудование ЭВМ, представляют
для человека большую потенциальную опасность, так как в процессе эксплуатации
человек может коснуться частей, находящихся под напряжением, которые не
защищены от проникновения, либо изоляция которых повреждена. Специфическая
опасность электроустановок: токоведущие проводники, корпуса стоек ЭВМ и прочего
оборудования, оказавшегося под напряжением в результате повреждения (пробоя)
изоляции, не подают каких-либо сигналов, которые предупреждают человека об
опасности. Реакция человека на электрический ток возникает лишь при протекании
его через тело.
6.1.2 Параметры микроклимата
Неблагоприятный микроклимат - вредный производственный фактор.
Метеоусловия производственной среды - это сочетание температуры, относительной
влажности, скорости движения и запыленности воздуха.
Длительное и системное воздействие на человека оптимальных
микроклиматических параметров обеспечивает сохранение нормального
функционального и теплового состояния организма, создает ощущение теплового
комфорта и является предпосылкой высокого уровня работоспособности. Если по
каким-то причинам создание оптимальных микроклиматических условий невозможно,
то можно устанавливать допустимые значения температуры - 22-25°С, относительной
влажности - 40-60% и скорости движения воздуха - не более 0,2 м/с.
Регулирование микроклимата в основном должно производиться с помощью
вентиляторов и кондиционеров. Кроме того, для того чтобы в помещениях был
нормальный микроклимат, рекомендуется проводить 2 раза в день влажную уборку.
Несоблюдение норм произведенного микроклимата, установленного ГОСТ
12.1.005-88, оказывает влияние на функциональную деятельность человека, его
самочувствие и здоровье.
6.1.3 Анализ уровня шума и вибрации
Шум на производстве создают различные механизмы и машины. Шум также может
возникать при работе электромагнитных устройств, при истечении воздуха и газов,
а также при движении воды и жидкости. Шум неблагоприятно воздействует на
человека, вызывая различные изменения в организме.
От постоянного воздействия шума может быть профессиональная болезнь -
тугоухость. Ухо человека воспринимает звуковые колебания с частотой от 16 до
20000 Гц. Звуки с частотой ниже 16 Гц называют инфразвуками, а выше 20000 Гц -
ультразвуками. Инфразвуки и ультразвуки также воздействуют на человека, хотя
человек и не способен их слышать. При выполнении работ с использованием ПЭВМ в
производственных помещениях уровень вибрации не должен превышать допустимых
значений вибрации для рабочих мест (категория 3, тип «в») в соответствии с
действующими санитарно-эпидемиологическими нормативами.
В соответствии с нормативными требованиями уровень шума на рабочих местах
во время работы не должен превышать 50 дБА.
6.1.4 Параметры освещения
Освещение на рабочем месте должно быть таким, чтобы рабочий мог без
напряжения зрения выполнять свою работу. Утомляемость органов зрения зависит от
ряда причин - недостаточность освещенности, чрезмерная освещенность,
неправильное направление света.
Недостаточность освещения приводит к напряжению зрения, ослабляет
внимание, наступает преждевременная усталость. Чрезмерно яркое освещение
вызывает ослепление, раздражение и резь в глазах. Неправильное направление
света на рабочее место может вызвать резкие тени, блики и дезориентировать
работающего. Все эти причины могут привести к несчастному случаю или
профзаболеваниям.
6.1.5 Электромагнитное излучение
При работе с компьютером основное влияние на здоровье программиста
оказывает все же электромагнитное излучение от видеотерминального устройства (и
в некоторых случаях от системного блока). Влияние прочих вышеуказанных факторов
составляет лишь небольшую часть от величины влияния электромагнитного
излучения.
В настоящее время установлено, что эксплуатация мониторов и
видеотерминальных устройств более сопряжена с воздействием вредных факторов,
нежели опасных. Поэтому специальность «Оператор ЭВМ» включена в перечень
профессий с неблагоприятными условиями труда и работникам производится доплата
для улучшения питания, что должно предотвратить профессиональные заболевания в
течение всего периода труда, т.е. до достижения пенсионного возраста.
Вредные факторы при эксплуатации мониторов и видеотерминальных устройств
подразделяются на две группы:
- эргономические: снижение контраста изображения в условиях внешней
засветки; зеркальные блики; мерцание изображения.
- излучение в направлении пользователя и окружающее пространство:
электростатическое, поле от заряда на экране монитора; электромагнитное
излучение монитора; ультрафиолетовое излучение; инфракрасное излучение; мягкое
рентгеновское излучение.
Следует отметить, что не только монитор, но и системный блок, и принтер -
генерируют электромагнитное излучение в очень широком диапазоне частот. Но
именно излучение монитора является более мощным. Главную опасность представляет
электромагнитное излучение монитора, статический электрический заряд на экране,
ультрафиолетовое и инфракрасное излучение. От переменных электрических полей
сложно защититься. Можно лишь ослабить их до уровня естественного фона, не
размещая компьютеры вблизи друг друга. Не рекомендуется долго сидеть сбоку или
сзади монитора, а также между компьютерами на небольшом расстоянии.
Факторов вредного воздействия на окружающую среду при внедрении и
эксплуатации данного программного модуля не существует.
И вся защита окружающей среды сводится к соблюдению следующих
элементарных правил:
поддержание в норме санитарно-гигиенического состояния рабочего места, т.
е. уборка мусора в специально отведенные для этого урны.
соблюдение чистоты и порядка в помещении.
6.2 Расчет освещенности рабочего места
При освещении помещений используют: естественное освещение, создаваемое
прямыми солнечными лучами и рассеянным светом небосвода, меняющиеся в
зависимости от географической широты, времени года и суток, степени облачности
и прозрачности атмосферы; искусственное освещение, создаваемое электрическими
источниками света, и совмещенное освещение, при котором недостаточное по нормам
естественное освещение дополняют искусственным.
Основной задачей производственного освещения является поддержание на
рабочем месте освещенности, соответствующей характеру зрительной работы. При
организации производственного освещения необходимо обеспечить равномерное
распределение яркости на рабочей поверхности и окружающих предметах, отсутствие
в поле зрения резких теней, прямой и отраженной блескости.
В соответствии с требованиями СанПиН 2.2.2/2.4.1340-03 все
производственные, складские, бытовые и административно-конторские помещения
должны иметь естественное освещение. Рабочие столы следует размещать таким
образом, чтобы видеодисплейные терминалы были ориентированы боковой стороной к
световым проемам, чтобы естественный свет падал преимущественно слева.
Освещенность на поверхности стола в зоне размещения рабочего документа
должна быть 300 - 500 лк. Освещение не должно создавать бликов на поверхности
экрана. Освещенность поверхности экрана не должна быть более 300 лк.
Рекомендуемые яркости в поле зрения оператора должны лежать в пределах
1:5-1:10.
Разрабатываемая программа будет установлена в помещении операторов.
Поэтому процесс работы эксперта может происходить в таких условиях, когда
естественное освещение недостаточно или отсутствует. Исходя из этого,
рассчитаем параметры искусственного освещения.
Расчетным уравнением «метода коэффициента использования светового потока
является:
где
Е - нормируемая минимальная освещенность; S - площадь
помещения; z - характеризует неравномерность освещения; N - число
светильников; η - коэффициент использования; к - коэффициент запаса.
По
формуле (6.1) рассчитывают световой поток лампы или лампы в светильнике,
необходимый для создания освещенности не ниже нормируемой.
Искусственное
освещение выполняется посредством электрических источников света двух видов:
ламп накаливания и люминесцентных ламп. Будем использовать люминесцентные
лампы, которые по сравнению с лампами накаливания имеют существенные
преимущества:
- по спектральному составу света они близки к дневному, естественному
освещению;
- обладают более высоким КПД (в 1.5-2 раза выше, чем КПД ламп накаливания);
- обладают повышенной светоотдачей (в 3-4 раза выше, чем у ламп
накаливания);
- более длительный срок службы.
Задача расчета общего равномерного освещения светильниками с
люминесцентными лампами сводится к определению требуемого числа светильников по
заранее известным типу и мощности светильников и реже при заданном числе
светильников - получаемой освещенности. Расчет числа светильников производится
по формуле:
, (6.2)
где n - число принятых рядов светильников.
Для вычисления числа светильников в ряду используется формула:
(6.3)
где
n - число, пропорциональное количеству рядов
светильников, определяемое из условия наилучшего соотношения. Для помещения
п-1,3 -1,4.
Выберем
источник света - светильники с люминесцентными лампами типа ЛБ 40-1: мощность
40 Вт, значение светового потока 2600 лм, длина колбы 1,2 м. Выберем размер
помещения на 2 рабочих места:
длина
А- 6 м, ширина В- 4 м, высота Н = 2,5 м.
Е
= 400 лк - минимальная нормируемая освещенность для помещения.
к-1,5
- коэффициент запаса.
z = 1,1 -
коэффициент неравномерности.
24 м2.
Ф
=2·2600= 5200 лм - световой поток спаренных люминесцентных ламп белого света ЛБ
40-1.
Для
нахождения коэффициента использования найдем индекс помещения:
(6.4)
где А и В - длина и ширина помещения, h - высота подвеса светильников над рабочей поверхностью.
h = H-hp,(6.5)
hp =0,8 м - уровень рабочей поверхности над полом.
= 1,7 м.
Коэффициент
использования светового потока для I = 1,4, коэффициентов отражения
потолка рп = 70% и стен рс = 50%, для светильников типа
ЛСП равен:
Расстояние
между светильниками равно:
Тогда
количество рядов:
Количество
светильников в ряду:
Берем
количество светильников в ряду Nр=3. Тогда расчетная величина
освещенности, по формуле
, (6.6)
примет значение
Расчетная величина превышает минимальную нормированную величину
освещенности на 2,5%.
Мощность осветительной установки:
В результате вычислений получаем следующее оптимальное расположение
искусственного освещения:
- Число рядов - 2;
- Число светильников в ряду - 3;
- Расстояние между рядами - 2,36 м.
6.3 Мероприятия по снижению воздействия опасных вредных
производственных факторов
Мероприятия по обеспечению безопасных условий эксплуатации программного
комплекса можно разделить на организационные и технические.
Организация работы и личная ответственность за состояние охраны труда,
соблюдение законов о труде, положений, правил и норм по этим вопросам возложены
непосредственно на руководителей министерств, управлений, предприятий,
организаций и т.д.
К организационным мероприятиям по обеспечению безопасности труда относят:
медосмотры;
инструктажи;
Профессиональные пользователи ПЭВМ должны проходить обязательные
предварительные (при поступлении на работу) и периодические медицинские осмотры
с целью выявления признаков профессиональных и прочих заболеваний, а также их
профилактики. Перечень вредных производственных факторов и работ, при
выполнении которых проводятся предварительные и периодические медицинские
осмотры, и порядок их проведения устанавливается Государственным комитетом
санитарно-эпидемиологического надзора Российской Федерации и Министерства
здравоохранения Российской Федерации. Работников, нуждающихся по состоянию
здоровья в предоставлении более легкой работы, администрация предприятия,
организации обязана перевести, с их согласия, на такую работу в соответствии с
медицинским заключением временно или без ограничения срока. В соответствии со
статьями 9 и 34 Закона РФ «О санитарно- эпидемиологическом благополучии
населения», в организациях должен осуществляться производственный контроль
соблюдения требований санитарных правил и проведением гигиенических и
лечебно-профилактических мероприятий, направленных на предупреждение
возникновения заболеваний работников. К непосредственной работе с ПЭВМ
допускаются лица, не имеющие медицинских противопоказаний.
Наиболее распространенной формой повышения знаний в вопросах охраны труда
является инструктаж.
Необходимо проводить не только организационные, но и технические
мероприятия.
Электрические установки, к которым относится все оборудование ЭВМ,
представляют для человека большую опасность. ВТ отличается большим
разнообразием используемых видов сетей, уровней их напряжения, родом тока. Так
основное питание ВТ осуществляется трехфазной сетью с частотой 50 Гц и
напряжением 380/220 В. Для питания отдельных устройств используются однофазные
сети как переменного, так и постоянного тока с напряжением от 5 до 380 В.
Электрооборудование ВТ в основном относится к установкам с напряжением до
1000 В, исключение составляют экраны пульта, дисплеи, электроннолучевые трубки,
которые имеют напряжение до нескольких кВ.
Окружающая среда помещения, в которой находится оборудование ВТ,
воздействует на электрическую изоляцию приборов, устройств, электрическое
сопротивление человека. Поэтому могут создаться условия для поражения
электрическим током обслуживающего персонала. В этом отношении различают производственные
помещения с повышенной опасностью, особо опасные и без повышенной опасности.
При проведении работ в электроустановках с целью предупреждения
электротравматизма очень важно строго выполнять и соблюдать соответствующие
техники безопасности.
Применение только одних организационных и технических мероприятий не
может в полной мере обеспечить необходимую электробезопасность. Это возможно,
если использовать механические средства защиты: электрическая изоляция
токоведущих частей, защитное заземление, зануление, выравнивание потенциалов,
защитное отключение, электрическое разделение сетей, малое напряжение, двойная
изоляция и т.д.
Имеющийся в настоящее время комплекс разработанных организационных
мероприятий и технических средств защиты показывает, что имеется возможность
добиться значительно больших успехов в деле устранения воздействия на
окружающую среду рабочего места программиста опасных и вредных производственных
факторов. Для снижения ущерба вреда здоровью, необходимо соблюдение
установленных гигиенических требований к режимам труда и организации рабочих
мест.
.3.1 Обеспечение электробезопасности
Исключительно важное значение для предотвращения электротравмотизма имеет
правильная организация обслуживания действующих электроустановок, проведения
ремонтных, монтажных и профилактических работ.
Во время работы оператору запрещается:
· касаться одновременно экрана монитора и клавиатуры;
прикасаться к задней панели системного блока при включенном питании;
· переключать разъемы интерфейсных кабелей периферийных
устройств при включенном питании;
· загромождать верхние панели устройств посторонними
предметами;
· производить отключение питания во время выполнения активной
задачи;
· производить частые переключения питания;
· допускать попадание влаги на поверхность системного блока,
монитора, рабочую поверхность клавиатуры, дисковода, принтера и других
устройств;
· производить самостоятельно вскрытие и ремонт оборудования.
Основные меры защиты работников от поражения электрическим током:
· изоляция токопроводящих частей и ее непрерывный контроль;
· установка оградительных устройств;
· предупредительная сигнализация и блокировки;
· использование знаков безопасности и предупреждающих плакатов;
· использование малых напряжений;
· электрическое разделение сетей;
· защитное заземление;
· защитное отключение;
· средства индивидуальной защиты.
6.3.2 Нормирование статического электричества
Для снижения возникновения разрядных токов статического электричества,
возникающее при прикосновении к любому из элементов ЭВМ, покрытие
технологических полов следует выполнять из однослойного поливинилхлоридного
антистатического линолеума. Другим методом защиты является нейтрализация заряда
статического электричества ионизированным газом. К общим мерам защиты от
статического электричества можно отнести общее и местное увлажнение воздуха.
К профилактическим мероприятиям по предупреждению негативного влияния
источников электромагнитных излучений относится прежде всего обеспечение
соответствия их технических характеристик нормативным требованиям и строгое
соблюдение правил эксплуатации.
6.3.3 Обеспечение оптимальных параметров воздуха рабочих зон
В санитарных нормах установлены величины параметров микроклимата,
создающие комфортные условия. Эти нормы устанавливаются в зависимости от времени
года, характера трудового процесса и производственного помещения (см. таблицу
6.1).
Таблица 6.1
Параметры для определения микроклимата
|
Период года
|
Параметр микроклимата
|
Величина
|
|
Холодный
|
Температура воздуха в помещении
|
22…24°С
|
|
Относительная влажность
|
40…60%
|
|
Скорость движения воздуха
|
до 0,1м/с
|
|
Теплый
|
Температура воздуха в помещении
|
23…25°С
|
|
Относительная влажность
|
40…60%
|
|
Скорость движения воздуха
|
0,1…0,2м/с
|
Для создания в рабочей зоне необходимых благоприятных условий воздушной
среды, удаление из рабочей зоны загрязненного или перегретого воздуха и подача
чистого воздуха используют вентиляцию. Естественная вентиляция имеет
недостаток, который заключается в том, что приточный воздух вводится в
помещение без предварительной очистки и подогрева, а удаляемый воздух не
очищается и загрязняет атмосферу. Искусственная вентиляция очищает от
загрязнений (пыли, вредных паров), воздух в зимнее время подогревается, а в
летнее - охлаждается. Для определения требуемого воздухообмена необходимо иметь
следующие исходные данные: количество вредных выделений (тепла, влаги, паров)
за 1 час, предельно допустимое количество (ПДК) вредных веществ в 1 м3 воздуха,
подаваемого в помещение.
Для повышения влажности воздуха в помещениях с ПЭВМ следует применять
увлажнители воздуха, заправляемые ежедневно дистиллированной или прокипяченной
питьевой водой.
6.3.4 Снижение уровня шума
При выполнении основных или вспомогательных работ с использованием ПЭВМ
уровни шума на рабочих местах не превышают предельно допустимых значений,
установленных для данных видов работ "Санитарными нормами допустимых
уровней шума на рабочих местах".
Источником шума являются механические устройства ПК. Человек, работая при
шуме, привыкает к нему, но продолжительное действие сильного шума вызывает общее
утомление, может привести к ухудшению слуха, а иногда и к глухоте, нарушается
процесс пищеварения, происходит изменение объема внутренних органов. Эти
вредные последствия шума тем больше, чем сильнее шум и продолжительнее его
действие. Таким образом, шум на рабочем месте при работе за ПК не превышает 50
дБА.
Шумящее оборудование (принтеры, серверы), уровни шума которых превышают
нормативные, размещают вне основного помещения.
Снизить уровень шума в помещениях с ПЭВМ можно использованием
звукопоглощающих материалов с максимальными коэффициентами звукопоглощения в
области частот 63 - 8000 Гц для отделки помещений (разрешенных органами и
учреждениями Госсанэпиднадзора России), подтвержденных специальными
акустическими расчетами.
6.4 Пожарная безопасность
Пожары - стихийное распространение горения, проявляющееся в уничтожающем
действии огня, вышедшего из-под контроля человека.
Пожары в помещениях, где расположены компьютеры, представляют особую
опасность, т.к. сопряжены с большими материальными потерями. Как известно,
пожар может возникнуть при взаимодействии горючих веществ, окислителя и
источника зажигания. В помещениях вычислительных центров присутствуют все три
фактора, необходимые для возникновения пожара.
Пожары представляют особую опасность, так как сопряжены с большими
материальными и людскими потерями. Как известно пожар может возникнуть при
взаимодействии горючих веществ, окисления и источников зажигания. В помещениях
с вычислительной техникой (ВТ) присутствуют все три основных фактора, необходимые
для возникновения пожара.
Горючими компонентами в помещении являются: строительные материалы для
акустической и эстетической отделки помещений, перегородки, двери, полы,
изоляция кабелей и вычислительная техника.
Возникновение пожара в помещении наиболее вероятно по причинам
неисправности электрооборудования, к которым относятся: искрение в местах
соединения электропроводки, короткие замыкания в цепи, перегрузки проводов и
обмоток трансформаторов, перегрев источников бесперебойного питания и другие
факторы. Поэтому подключение компьютеров к сети необходимо производить через
распределительные щиты, позволяющие производить автоматическое отключение
нагрузки при аварии.
Особенностью современных ЭВМ является очень высокая плотность
расположения элементов электронных схем, высокая рабочая температура процессора
и микросхем памяти. Следовательно, вентиляция и система охлаждения,
предусмотренные в системном блоке компьютера должны быть постоянно в исправном
состоянии, т.к. в противном случае возможен перегрев элементов, не исключающий
их воспламенение. Для отвода избыточной теплоты от ЭВМ служат системы
вентиляции и кондиционирования воздуха. При постоянном действии эти системы
представляют собой дополнительную пожарную опасность.
Надёжная работа отдельных элементов и электронных схем в целом
обеспечивается только в определённых интервалах температуры, влажности и при
заданных электрических параметрах. При отклонении реальных условий эксплуатации
от расчётных также могут возникнуть пожароопасные ситуации.
Поскольку в рассматриваемом случае при возгорании электроустройства могут
находиться под напряжением, то использовать воду и пену для тушения пожара
недопустимо, поскольку это может привести к электрическим травмам. Другой
причиной, по которой нежелательно использование воды, является то, что на
некоторые элементы ЭВМ недопустимо попадание влаги. Поэтому для тушения пожаров
в рассматриваемом помещении можно использовать либо порошковые составы, либо
установки углекислотного тушения. Но поскольку последние предназначены только
для тушения небольших очагов возгорания, то область их применения ограничена.
Поэтому для тушения пожаров в данном случае необходимо применять порошковые
составы, так как они обладают следующими свойствами: диэлектрики, практически
не токсичны, не оказывают коррозийного воздействия на металлы, не разрушают
диэлектрические лаки.
Под пожарной безопасностью понимается такое состояние объекта, при
котором с большой вероятностью предотвращается возможность возникновение
пожара, а в случае его возникновения обеспечивается эффективная защита людей от
опасных и вредных факторов пожара и спасение материальных ценностей. Пожарная
безопасность производственных объектов обеспечивается разработкой и
осуществлением систем предотвращение пожаров и систем пожарной защиты. Эта
задача решается как на стадии проектирования оборудования, так и в процессе его
эксплуатации.
Для профилактики пожарной безопасности необходимо организовать обучение
производственного персонала (обязательный инструктаж по правилам пожарной безопасности
не реже одного раза в год), издание необходимых инструкций с доведением их до
каждого работника учреждения, выпуск и вывеска плакатов с правилами пожарной
безопасности и правилами поведения при пожаре. Также необходимо наличие
плакатов, информирующих людей о расположении аварийных выходов из здания в
случае возникновения пожара, плана эвакуации людей в аварийных ситуациях.
План эвакуации людей в случае пожара должен быть составлен таким образом,
чтобы за кратчайшее время люди могли покинуть здание, не создавая пробки во
время движения. Путь от дверей каждого помещения до выхода из здания должен
быть по возможности минимальным. Для этого необходимо учесть расположение
комнат и всех выходов из здания, включая аварийные.
Аппараты пожаротушения подразделяют на стационарные установки и
огнетушители (ручные до 10 л и передвижные или стационарные объемом свыше 25
л). В качестве аппарата пожаротушения можно выбрать углекислотные ОУ-2
огнетушители, которые применяются для тушения пожаров электроустановок, находящихся
под напряжением.
Так же в целях пожарной безопасности в помещении необходимо установить
датчик системы охранно-пожарной сигнализации. Датчик системы охранно-пожарной
сигнализации предназначен для круглосуточного контроля охраняемого объекта, а в
частности для раннего оповещения владельца об обнаружения признаков пожара или
задымления.
6.5 Экологичность проекта
Экологическая политика - это определенная организацией
совокупность намерений и принципов относительно экологических показателей её деятельности,
которая создает основу для разработки конкретных целей и задач. Виды
экологической политики:
1. Глобальная - проведение международных,
политических и внешнеэкономических акций с расчетом экологических ограничений в
социально-экономическом развитии, запасов имеющихся в мире природных ресурсов и
их распределение между странами.
2. Государственная - социально-экономическая
политика, в том числе международная, построенная на понимании эффектов и
недостатков, связанных с экологическим состоянием территорий и акваторий.
. Региональная экополитика - политика
государства, относительно регионов, а также экополитика, осуществляемая самими
регионами.
. К местной экополитике относят проведение
локального и объективного мониторинга; осуществление государственного контроля
соблюдения природоохранных законодательств; организация разработки местных
экологических программ и проектов.
. Корпоративная экологическая политика. После
получения экологией доминирующего статуса в системе общественных ценностей
предприятие уже не может обойтись без отображения своей экополитики в
долгосрочных планах. Экополитику сельско-хозяйственного объекта необходимо
рассматривать как стратегический элемент долгосрочного планирования.
Экологическая политика согласно стандартам определяет цели и задачи
экологической деятельности, охват экологизацией организационных структур
менеджмента предприятия, обязательства предприятия по охране окружающей среды.
Стратегию развития экологической деятельности предприятия определяет его
экологическая политика, направленная на обеспечение устойчивого состояния
окружающей среды при осуществлении предприятием определенной хозяйственной
деятельности. Реализация экологической политики предприятия осуществляется с
помощью специальной организационной структуры управления экологической
деятельностью - экологического менеджмента предприятия. В дополнение к основным
видам экологической деятельности всех типов экосистем - природопользованию и
природоохранной деятельности на уровне предприятия. Российские документы по
национальной стандартизации (ГОСТ Р ИСО 14050-99) рекомендуют следующее
определение экологической политики - это заявление предприятия о своих
намерениях и принципах, связанных с общей эффективностью предприятия, которое
служит основанием для деятельности и установления целевых и плановых
экологических показателей.
В качестве модели системы управления охраной окружающей среды
рассматривают разомкнутый цикл мероприятий, последовательность выполнения
которых характеризует так называемый принцип непрерывного улучшения. Эту
последовательность представляют следующим образом: экологическая политика,
планирование, внедрение и функционирование, проведение проверок и
корректирующих действий, анализ со стороны руководства, постоянное улучшение.
Этот цикл конкретизирован рекомендациями стандартов серии ИСО 14000.
Российским предпринимателям известен данный принцип создания систем
управления качеством продукции на основе стандартов серии ИСО 9000. Специалисты
отмечают, что в области обеспечения конкурентоспособности и качества продукции
такие системы в условиях российской экономики неработоспособны по многим
причинам. Безусловно, опыт создания подобных систем, доказывающих эффективность
решения поставленных задач, следует использовать в российской практике
хозяйственной деятельности предприятий.
Центральным документом стандарта считается ISO 14001 - «Спецификации и руководство по использованию
систем экологического менеджмента», который устанавливает требования к системе
экологического менеджмента, которые позволяют любому предприятию сформулировать
экологическую политику и цели в соответствии с требованиями
природоохранительного законодательства своей страны.
Никаких вредных выбросов и загрязнения окружающей среды при разработке,
внедрении и эксплуатации программного продукта не образуется.
Поэтому защита окружающей среды сводится к соблюдению следующих
элементарных правил:
поддержание санитарно-гигиенического состояния рабочего места, т. е.
уборка мусора в специально отведенные для этого урны.
категорически запрещается утилизировать дистрибутивы с инсталляционным
пакетом ненадлежащими для данного действия методами;
необходимо соблюдать чистоту и порядок в помещении.
6.6 Расчет определения воздухообмена в помещении
Рассчитаем необходимый воздухообмен в помещении, где будет использоваться
модуль.
Все используемые мероприятия по оздоровлению воздушной среды можно
разделить на две группы: технические и санитарно-гигиенические.
Главное техническое средство оздоровления воздушной среды - вентиляция.
Вентиляцией называется комплекс взаимосвязанных устройств и процессов для
создания требуемого воздухообмена в производственных помещениях. Основное
назначение вентиляции - удаление из рабочей зоны загрязненного или перегретого
воздуха и подача чистого воздуха, в результате чего в рабочей зоне создаются
необходимые благоприятные условия воздушной среды. Одна из главных задач,
возникающая при устройстве вентиляции, - определение воздухообмена, т.е.
количество вентиляционного воздуха, необходимого для обеспечения оптимального
санитарно-гигиенического уровня воздушной среды помещений. В зависимости от
способа перемещения воздуха вентиляция делится на естественную и искусственную.
Применение вентиляции должно быть обосновано расчетами, при которых
учитываются температура, влажность воздуха, выделение вредных веществ,
избыточное тепловыделение. Если в помещении нет вредных выделений, то
вентиляция должна обеспечивать воздухообмен не менее 30 м/ч на каждого
работающего (для помещений с объемом до 20 м на одного работающего). При
выделении вредных веществ в воздух рабочей зоны необходимый воздухообмен
определяют, исходя из условий их разбавления до ПДК, а при наличии тепловых
избытков - из условий поддержания допустимой температуры в рабочей зоне.
Организованная естественная вентиляция, или аэрация, обеспечивает
воздухообмен в заранее рассчитанных объемах и регулируемой в соответствии с
метеорологическими условиями. Аэрация применяется для вентиляции
производственных помещений большого объема. Естественный воздухообмен
осуществляется через окна, световые фонари с использованием теплового и
ветрового напоров.
Количество приточного воздуха потребного для эффективной работы вытяжной
вентиляцией, при удалении избытков тепла, определяется по формуле:
(6.7)
где
Qusб -
избыточное количество теплоты, кДж/ч;
tуд - температура воздуха, удаляемого из помещения
принимается равной температуре воздуха в рабочей зоне, ºС;
tпр - температура приточного воздуха, ºС;
Св
- теплоемкость воздуха, кДж/(кг· ºС); Св=1 кДж/(кг· ºС);
ρв -
плотность воздуха поступающего в помещение, кг/м3.
Вычисляем
плотность воздуха кг/м3 поступающего в помещение:
(6.8)
tпр= 22,9 согласно СНиП 41-01-2003.
Температура
воздуха, удаляемого из помещения определяется по выражению:
(6.9)
где
tрз - температура воздуха в рабочей зоне; H - высота помещения, м;
α - градиент повышения температуры воздуха в помещении по высоте, α=0,5 ºС/м;
-
высота рабочей зоны, м.
Подставляя
данные в формулу (6.3) получим:
Избыточное
количество теплоты, подлежащее удалению из производственного помещения,
определяется по тепловому балансу.
(6.10)
где
∑Qпр -
теплота, поступающее в помещение от различных источников тепла, кДж/ч;
∑Qрасх - теплота, расходуемая стенами здания, а так же
уходящая через двери и окна, кДж/ч.
Поскольку
перепад температуры воздуха внутри и снаружи зданий в теплый период года
незначительный (3…5 ºС) то при расчете воздухообмена по избытку
тепловыделений потери теплоты через конструкции зданий можно не учитывать, то
есть 
В
остальных случаях тепловые потери можно определить используя формулу
(6.11)
где
K - коэффициент передачи (для кирпичной стены К=3,5 кДж/м3· ºС·ч);
F - площадь
поверхности ограждения, м2 ;вн - внутренняя температура
помещения, ºС;
tн - наружная температура воздуха, ºС.
Учитывая
все возможные источники тепловыделений можно записать (для летнего периода
года):
(6.12)
Qэд - теплота, выделяемая электродвигателями,
оборудованием, трансформаторами, кДж/ч;
Расчет
тепловыделений вычисляется по формуле:
(6.13)
где
3528 - тепловой эквивалент кДж/(кВт·ч);
Nуст - общая установочная мощность электрического
оборудования, кВт;
β = (0,25÷0,35) коэффициент тепловых потер.
Подставляя
данные получим:
Qосв - тепловыделения от источников искусственного
освещения, кДж/ч;
Исходная
формула расчета:
(6.14)
где
3528 - тепловой эквивалент кДж/(кВт·ч);
Nном - номинальная мощность осветительной установки, кВт;
φ - коэффициент тепловых потерь (для люминесцентных ламп φ=0,6).
Qс.рад - тепловыделения от солнечной радиации, кДж/ч;
Исходная
формула расчета:
(6.15)
где
F - площадь поверхности остекления, м2;
K - коэффициент,
зависящий от характеристики остекления, К=1,15
q = 400 кДж/(м2·ч).
раб - тепловыделения от людей, кДж/ч, рассчитывается по
формуле:
(6.16)
где
n - число работающих
qn -
удельная теплота, выделяемая одним человеком кДж/ч;
Подставив
полученные данные в формулу (6.6) получим:
Подставив
найденные значения в формулу (6.1 ), найдем необходимый воздухообмен
По
расчету воздухообмена получил что в летнее время года в помещении необходим
кондиционер.
6.7 Выводы
В данном разделе дипломного проекта рассмотрены вопросы по безопасности и
экологичности к рабочему месту оператора ЭВМ и схожим должностям. Был
произведен расчет освещенности рабочего места и выбор системы оптимального
освещения помещения, а также определен воздухообмен в помещении, который
показал, что он находится в допустимых пределах.
Данный проект абсолютно безопасен как для пользователей программного
модуля, так и для окружающей среды, если реализовывать необходимые мероприятия
и соблюдать вышеизложенные рекомендации.
Заключение
В результате дипломного проектирования был разработан программный продукт
текстовый редактор для русско-язычного интерпретатора языка программирования,
позволяющий работать с текстом и файлами, в редакторе, на языке
программирования, основанным на русском языке.
Данный программный продукт был создан в соответствии с требованиями
технического задания и на основании результатов тестирования полностью отвечает
стандартам качества. Стоимость разработки составила 10 361,07 руб., а срок окупаемости
примерно 10 месяцев.
Проведенные тесты показали работоспособность программного продукта и
возможность дальнейшего его использования в общеобразовательных учреждениях.
Проект абсолютно безопасен как для пользователей, так и для окружающей среды.
Список используемой литературы
1. ГОСТ 12.1.004-91 Система стандартов безопасности
труда. Пожарная безопасность. Общие требования.
. ГОСТ 12.1.005-88. ССБТ. Общие
санитарно-гигиенические требования к воздуху рабочей зоны.
. ГОСТ 23501-4-79. Системы автоматизированного
проектирования. Общие требования к программному обеспечению.
. ДБН В.2.5-28-2006. Естественное и искусственное
освещение.
. ЕСКД ГОСТ 2.105-95. Общие требования к текстовым
документам.
. ЕСКД ГОСТ 2.109-73. Правила выполнения чертежей
деталей, сборочных общих видов, габаритных и монтажных.
. ЕСКД ГОСТ 2.701-84. Схемы. Виды и типы, общие
требования к выполнению.
. ЕСПД ГОСТ 19.105-78. Общие требования к программным
документам.
. ЕСПД ГОСТ 19.404-79. Пояснительная записка.
Требования к содержанию и оформлению.
. СанПиН 2.2.2/2.4.1340-03. Гигиенические требования к
персональным электронно-вычислительным машинам и организации работы.
. СанПиН 2.2.4.548-96. Гигиена труда и микроклимата
помещений.
. Бруно Б. Просто и ясно о Borland C++: Пер. с англ. -
Москва: БИНОМ, 1994. 400 с.
. Гордеев А.В. Системное программное обеспечение /
Гордеев А.В., А.Ю. Молчанов. − СПб.: Питер, 2001 г. − 736 с.
. Дейтел Х. Как программировать на C++: Пер. с англ. -
Москва: ЗАО "Издательство БИНОМ", 1998 г. 1024 с.
. Занько Н.Г. Безопасность жизнедеятельности: Учебник
для вузов/ Занько Н.Г., Малаян К.Р., Русак О.Н.; Под ред. О.Н. Русака. - СПб.:
Лань, 2010 г.- 672 с.
. Кормен Т. Алгоритмы: построение и анализ. /
Лейзерсон Ч., Ривест Р. - М.:МЦНМО, 2000 г.
. Михайлов Л.А. Безопасность жизнедеятельности:
Учебник для вузов - СПб.: Питер. 2006г . - 302 с.
. Подбельский В.В. Язык C++: Учебное пособие. -
Москва: Финансы и статистика, 2005 г. 560 с.
. Ример М. И. Экономическая оценка инвестиций. - СПб.:
Питер, 2008 г. - 480 с.
. Серебряков В.А. Основы конструирования компиляторов
/ Серебряков В.А., М.П. Галочкин − М. : МГУ, 1999 г. − 191 с.
. Скляров В.А. Язык C++ и объектно-ориентированное
программирование: Справочное издание. - Минск: Высшая школа, 1997 г. 480 с.
. Староверова Г.С. Экономическая оценка инвестиций:
учебное пособие. - 2-е изд., стер. - М.: КНОРУС, 2008 г. - 312 с.
. Строуструп Б. Язык программирования C++. Пер. с
англ. - Москва: Бином, 2008 г. 1104 с.
. Сэвитч У. C++ в примерах: Пер. с англ. - Москва:
ЭКОМ, 1997 г. 736 с.
. Тамре Л. Введение в тестирование программного
обеспечения. - М.: Вильямс, 2003 г. - 368 с.
. Шилдт Г. Теория и практика С++. /Пер. с англ. -
СПб.: ВНV - Санкт-Петербург, 1996 г.
. Шилдт Г. Самоучитель C++. /Пер. с англ. - СПб.:
BHV-Санкт-Петербург, 1998 г. 620 с.
. Шумилин В. К. Безопасная работа на компьютере:
пособие по охране труда для работодателей и работников, занятых на рабочих
местах, оснащенных ПЭВМ и ВДТ. - М.: Изд-во Безопасность труда и жизни, 2005 г.
- 270 с.
. Фейсон Т. Объектно-ориентированное программирование
на Borland C++ 4.5: Пер. с англ. - Киев: Диалектика, 1996 г. 544 с.
30. Эллис
М. Справочное руководство по языку C++ с комментариями. / Эллис М., Строуструп
Б. - Москва: Мир, 1992 г. 445 с.
Приложение А
ЛИСТИНГ ТЕКСТОВОГО РЕДАКТОРА ДЛЯ РУССКО-ЯЗЫЧНОГО ИНТЕРПРЕТАТОРА ЯЗЫКА
ПРОГРАММИРОВАНИЯ
Unit1.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <inifiles.hpp>
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SynEdit"
#pragma link "SynEditHighlighter"
#pragma link "SynHighlighterPas"
#pragma link "SynEditPrint"
#pragma link "SynEditMiscClasses"
#pragma link "SynEditSearch"
#pragma resource "*.dfm"*Form1;TForm1::isIniFile()
{(FileExists(ExtractFileDir(Application->ExeName) +
"\\settings.ini"));
}
//---------------------------------------------------------------------------TForm1::createFile()
{>Lines->SaveToFile("settings.ini");
}TForm1::getColor(int nr)
{color;(nr)
{0 : return clNone;1 : return clBlack;2 : return clMaroon;3 :
return clGreen;4 : return clOlive;5 : return clNavy;6 : return clPurple;7 :
return clTeal;8 : return clGray;9 : return clSilver;10: return clRed;11: return
clLime;12: return clYellow;13: return clBlue;14: return clFuchsia;15: return
clAqua;16: return clWhite;17: return clMoneyGreen;18: return clSkyBlue;19:
return clCream;20: return clMedGray;: return clNone;
};
}
//---------------------------------------------------------------------------TForm1::getNumber(TColor
col)
{(col == clNone) return 0;(col == clBlack) return 1;(col ==
clMaroon) return 2;(col == clGreen) return 3;(col == clOlive) return 4;(col ==
clNavy) return 5;(col == clPurple) return 6;(col == clTeal) return 7;(col ==
clGray) return 8;(col == clSilver) return 9;(col == clRed) return 10;(col ==
clLime) return 11;(col == clYellow) return 12;(col == clBlue) return 13;(col ==
clFuchsia) return 14;(col == clAqua) return 15;(col == clWhite) return 16;(col
== clMoneyGreen) return 17;(col == clSkyBlue) return 18;(col == clCream) return
19;(col == clMedGray) return 20;0;
}
//---------------------------------------------------------------------------TForm1::readFile()
{vInt;vBool;vString;*ini = new
TIniFile(ExtractFileDir(Application->ExeName) +
"\\settings.ini");= ini->ReadString("Application",
"Title", "Текстовый редактор РУСИЧ-Редактор");= vString;=
ini->ReadString("Application", "Version", "версия 1.1");= title + " " +
vString;= ini->ReadBool("Display", "Errors",
false);>Visible = vBool;->Checked = vBool;=
ini->ReadBool("Display", "Number",
true);>Gutter->Visible = vBool;->Checked = vBool;= ini->ReadInteger("Display","CommBack",0);>CommentAttri->Background
= getColor(vInt);=
ini->ReadInteger("Display","CommFore",5);>CommentAttri->Foreground
= getColor(vInt);= ini->ReadBool("Display","CommBold",false);(vBool)
SynPasSyn->CommentAttri->Style << fsBold;SynPasSyn->CommentAttri->Style
>> fsBold;=
ini->ReadBool("Display","CommItal",true);(vBool)
SynPasSyn->CommentAttri->Style <<
fsItalic;SynPasSyn->CommentAttri->Style >> fsItalic;= ini->ReadBool("Display","CommUnder",false);(vBool)
SynPasSyn->CommentAttri->Style <<
fsUnderline;SynPasSyn->CommentAttri->Style >> fsUnderline;=
ini->ReadInteger("Display","FloatBack",0);>FloatAttri->Background
= getColor(vInt);= ini->ReadInteger("Display","FloatFore",3);>FloatAttri->Foreground
= getColor(vInt);= ini->ReadBool("Display","FloatBold",false);(vBool)
SynPasSyn->FloatAttri->Style <<
fsBold;SynPasSyn->FloatAttri->Style >> fsBold;=
ini->ReadBool("Display","FloatItal",false);(vBool)
SynPasSyn->FloatAttri->Style <<
fsItalic;SynPasSyn->FloatAttri->Style >> fsItalic;= ini->ReadBool("Display","FloatUnder",false);(vBool)
SynPasSyn->FloatAttri->Style <<
fsUnderline;SynPasSyn->FloatAttri->Style >> fsUnderline;=
ini->ReadInteger("Display","NumbBack",0);>NumberAttri->Background
= getColor(vInt);= ini->ReadInteger("Display","NumbFore",3);>NumberAttri->Foreground
= getColor(vInt);=
ini->ReadBool("Display","NumbBold",false);(vBool)
SynPasSyn->NumberAttri->Style <<
fsBold;SynPasSyn->NumberAttri->Style >> fsBold;= ini->ReadBool("Display","NumbItal",false);(vBool)
SynPasSyn->NumberAttri->Style <<
fsItalic;SynPasSyn->NumberAttri->Style >> fsItalic;=
ini->ReadBool("Display","NumbUnder",false);(vBool)
SynPasSyn->NumberAttri->Style <<
fsUnderline;SynPasSyn->NumberAttri->Style >> fsUnderline;=
ini->ReadInteger("Display","SpaceBack",0);>SpaceAttri->Background
= getColor(vInt);=
ini->ReadInteger("Display","SpaceFore",0);>SpaceAttri->Foreground
= getColor(vInt);=
ini->ReadBool("Display","SpaceBold",false);(vBool)
SynPasSyn->SpaceAttri->Style <<
fsBold;SynPasSyn->SpaceAttri->Style >> fsBold;= ini->ReadBool("Display","SpaceItal",false);(vBool)
SynPasSyn->SpaceAttri->Style <<
fsItalic;SynPasSyn->SpaceAttri->Style >> fsItalic;=
ini->ReadBool("Display","SpaceUnder",false);(vBool) SynPasSyn->SpaceAttri->Style
<< fsUnderline;SynPasSyn->SpaceAttri->Style >> fsUnderline;=
ini->ReadInteger("Display","StringBack",0);>StringAttri->Background
= getColor(vInt);=
ini->ReadInteger("Display","StringFore",10);>StringAttri->Foreground
= getColor(vInt);=
ini->ReadBool("Display","StringBold",false);(vBool)
SynPasSyn->StringAttri->Style <<
fsBold;SynPasSyn->StringAttri->Style >> fsBold;=
ini->ReadBool("Display","StringItal",false);(vBool)
SynPasSyn->StringAttri->Style <<
fsItalic;SynPasSyn->StringAttri->Style >> fsItalic;=
ini->ReadBool("Display","StringUnder",false);(vBool)
SynPasSyn->StringAttri->Style <<
fsUnderline;SynPasSyn->StringAttri->Style >> fsUnderline;=
ini->ReadInteger("Display","SymbolBack",0);>SymbolAttri->Background
= getColor(vInt);= ini->ReadInteger("Display","SymbolFore",0);>SymbolAttri->Foreground
= getColor(vInt);=
ini->ReadBool("Display","SymbolBold",false);(vBool)
SynPasSyn->SymbolAttri->Style <<
fsBold;SynPasSyn->SymbolAttri->Style >> fsBold;=
ini->ReadBool("Display","SymbolItal",false);(vBool)
SynPasSyn->SymbolAttri->Style << fsItalic;SynPasSyn->SymbolAttri->Style
>> fsItalic;=
ini->ReadBool("Display","SymbolUnder",false);(vBool)
SynPasSyn->SymbolAttri->Style <<
fsUnderline;SynPasSyn->SymbolAttri->Style >> fsUnderline;ini;
}
//---------------------------------------------------------------------------TForm1::writeFile()
{*ini = new TIniFile(ExtractFileDir(Application->ExeName)
+
"\\settings.ini");>WriteString("Application","Title","Текстовый редактор РУСИЧ-Редактор");>WriteString("Application","Version","версия
1.1");>WriteBool("Display","Errors",PanelBlad->Visible);>WriteBool("Display","Number",SE->Gutter->Visible);>WriteInteger("Display","CommBack",getNumber(SynPasSyn->CommentAttri->Background));>WriteInteger("Display","CommFore",getNumber(SynPasSyn->CommentAttri->Foreground));>WriteBool("Display","CommBold",SynPasSyn->CommentAttri->Style.Contains(fsBold));>WriteBool("Display","CommItal",SynPasSyn->CommentAttri->Style.Contains(fsItalic));>WriteBool("Display","CommUnder",SynPasSyn->CommentAttri->Style.Contains(fsUnderline));>WriteInteger("Display","FloatBack",getNumber(SynPasSyn->FloatAttri->Background));>WriteInteger("Display","FloatFore",getNumber(SynPasSyn->FloatAttri->Foreground));>WriteBool("Display","FloatBold",SynPasSyn->FloatAttri->Style.Contains(fsBold));>WriteBool("Display","FloatItal",SynPasSyn->FloatAttri->Style.Contains(fsItalic));>WriteBool("Display","FloatUnder",SynPasSyn->FloatAttri->Style.Contains(fsUnderline));>WriteInteger("Display","NumbBack",getNumber(SynPasSyn->NumberAttri->Background));>WriteInteger("Display","NumbFore",getNumber(SynPasSyn->NumberAttri->Foreground));>WriteBool("Display","NumbBold",SynPasSyn->NumberAttri->Style.Contains(fsBold));>WriteBool("Display","NumbItal",SynPasSyn->NumberAttri->Style.Contains(fsItalic));>WriteBool("Display","NumbUnder",SynPasSyn->NumberAttri->Style.Contains(fsUnderline));>WriteInteger("Display","SpaceBack",getNumber(SynPasSyn->SpaceAttri->Background));>WriteInteger("Display","SpaceFore",getNumber(SynPasSyn->SpaceAttri->Foreground));>WriteBool("Display","SpaceBold",SynPasSyn->SpaceAttri->Style.Contains(fsBold));>WriteBool("Display","SpaceItal",SynPasSyn->SpaceAttri->Style.Contains(fsItalic));>WriteBool("Display","SpaceUnder",SynPasSyn->SpaceAttri->Style.Contains(fsUnderline));>WriteInteger("Display","StringBack",getNumber(SynPasSyn->StringAttri->Background));>WriteInteger("Display","StringFore",getNumber(SynPasSyn->StringAttri->Foreground));>WriteBool("Display","StringBold",SynPasSyn->StringAttri->Style.Contains(fsBold));>WriteBool("Display","StringItal",SynPasSyn->StringAttri->Style.Contains(fsItalic));>WriteBool("Display","StringUnder",SynPasSyn->StringAttri->Style.Contains(fsUnderline));>WriteInteger("Display","SymbolBack",getNumber(SynPasSyn->SymbolAttri->Background));>WriteInteger("Display","SymbolFore",getNumber(SynPasSyn->SymbolAttri->Foreground));>WriteBool("Display","SymbolBold",SynPasSyn->SymbolAttri->Style.Contains(fsBold));>WriteBool("Display","SymbolItal",SynPasSyn->SymbolAttri->Style.Contains(fsItalic));>WriteBool("Display","SymbolUnder",SynPasSyn->SymbolAttri->Style.Contains(fsUnderline));ini;
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{->Left = (Screen->Width / 2) - (Form1->Width /
2);->Top = (Screen->Height / 2) - (Form1->Height / 2);
title = "Текстовый редактор РУСИЧ-Редактор версия 1.1";
if(isIniFile())();();= title;= NULL;= NULL;
}__fastcall TForm1::FormDestroy(TObject *Sender)
{tb;comp;
}__fastcall TForm1::FormResize(TObject *Sender)
{>Width = Width - 8;
}__fastcall TForm1::FormClose(TObject *Sender, TCloseAction
&Action)
{();
}__fastcall TForm1::SButtonBladClick(TObject *Sender)
{>Visible = false;->Checked=false;
}__fastcall TForm1::DisplayOptions1Click(TObject *Sender)
{->ShowModal();
}__fastcall TForm1::Close2Click(TObject *Sender)
{();
}__fastcall TForm1::ShowLineNumers1Click(TObject *Sender)
{>Gutter->Visible =
!SE->Gutter->Visible;->Checked = !ShowLineNumers1->Checked;
}__fastcall TForm1::ShowErrors1Click(TObject *Sender)
{(PanelBlad->Visible==true)
{->Checked=false;>Visible=false;
}
{->Checked=true;>Visible=true;
}
}__fastcall TForm1::TBOpenClick(TObject *Sender)
{(SE->Modified)
{wyn = Application -> MessageBox("Сохранить изменения?\n", "Есть несохраненные данные",MB_YESNOCANCEL|MB_ICONQUESTION);(wyn == 6)
{>Click();= "";
}if(wyn == 2);
// SE->Lines->Clear();(OD->Execute())
{=
OD->FileName;(FileExists(sciezka))>Lines->LoadFromFile(sciezka);
}
}
{(OD->Execute())
{=
OD->FileName;(FileExists(sciezka))>Lines->LoadFromFile(sciezka);
}
}
}__fastcall TForm1::TBSaveClick(TObject *Sender)
{(FileExists(sciezka))
{>Lines->SaveToFile(sciezka);("Файл
"+AnsiString("\"")+ExtractFileName(sciezka)+AnsiString("\"")+"
успешно сохранен!",mtInformation,TMsgDlgButtons()<<mbOK,0);
}->Click();
}__fastcall TForm1::SaveAs1Click(TObject *Sender)
{(SD->Execute())
{sciga = SD->FileName;=
sciga;>Lines->SaveToFile(sciga);("Файл
"+AnsiString("\"")+ExtractFileName(sciga)+AnsiString("\"")+"
успешно сохранен!",mtInformation,TMsgDlgButtons()<<mbOK,0);
}
}__fastcall TForm1::Close1Click(TObject *Sender)
{>SynEdit = SE;>Print();
}__fastcall TForm1::TBUndoClick(TObject *Sender)
{(SE->CanUndo)>Undo();
}__fastcall TForm1::TBRedoClick(TObject *Sender)
{(SE->CanRedo)>Redo();
}__fastcall TForm1::TBCutClick(TObject *Sender)
{>CutToClipboard();
}__fastcall TForm1::TBCopyClick(TObject *Sender)
{>CopyToClipboard();
}__fastcall TForm1::TBPasteClick(TObject *Sender)
{>PasteFromClipboard();
}__fastcall TForm1::TBDeleteClick(TObject *Sender)
{>ClearSelection();
}__fastcall TForm1::SelectAll1Click(TObject *Sender)
{>SelectAll();
}__fastcall TForm1::TBNewClick(TObject *Sender)
{(SE->Modified)
{wyn = Application -> MessageBox("Сохранить изменения?\n", "Есть несохраненные данные",MB_YESNOCANCEL|MB_ICONQUESTION);(wyn == 6)
{>Click();= "";
}if(wyn == 2);>Lines->Clear();
}
{= "";>Lines->Clear();
}
}__fastcall TForm1::TBCompileClick(TObject *Sender)
{>addLine(SE->Lines->Strings[i]);
}>Clear();comp;= new Compiler(tb->getLine(0), LBBlad);tt
= comp->check();(!tt)
{>Items->Add("Есть ошибки.");= false;
}
{>Items->Add("Нет ошибок.");= true;
}= GetTickCount();= (Stop - Start) / 1000;asTmp;// = "Время выполнения: ";= Start;= asTmp.SubString(0, 6);= "Время выполнения: " + asTmp;= asTmp + " с.";>Items->Add(asTmp);>Visible = true;
}__fastcall TForm1::TBRunClick(TObject *Sender)
{>Click();(!compile)
return;->Show();=false;->start();
}__fastcall TForm1::TBTerminateClick(TObject *Sender)
{=true;
}__fastcall TForm1::LBBladDblClick(TObject *Sender)
{as =
LBBlad->Items->Strings[0];ns(as);(ns.indexOf("[Строка: ") != -1)
{= ns.substring(ns.indexOf("[Строка: ") + 7,
ns.indexOf("]") - 1);linia = StrToInt(ns.toString());>CaretY =
linia;>SetFocus();
}
}__fastcall TForm1::About1Click(TObject *Sender)
{->ShowModal();
}__fastcall TForm1::Help2Click(TObject *Sender)
{>HelpJump("ID_MainMenu");
}
//---------------------------------------------------------------------------
__fastcall TForm1::Terminate1Click(TObject *Sender)
{=true;
}
//---------------------------------------------------------------------------__fastcall
TForm1::N13Click(TObject *Sender)
{->ShowModal();
}
//---------------------------------------------------------------------------__fastcall
TForm1::TBCommandClick(TObject *Sender)
{>HelpJump("ID_CommandList");
}* str_replace(char* source,char* from,char* to)
{size=strlen(source)+strlen(from)+strlen(to);* str=new
char[size];left[10000];right[10000];n=0;(str,0,size);(str=strstr(source+n,from))
{(left,source,str-source+1);(right,str+lstrlen(from));(source,left);(source,to);(source,right);=(DWORD)(str)-(DWORD)(source)+lstrlen(to);
}source;
}__fastcall TForm1::pascal1Click(TObject *Sender)
{>Clear();>Text=SE->Text;>Lines->Add("");>Text=AnsiLowerCase(PasExport->Text);>Text=str_replace(PasExport->Lines->GetText(),"программа",
"program");>Text=str_replace(PasExport->Lines->GetText(),"начало",
"begin");>Text=str_replace(PasExport->Lines->GetText(),"конец",
"end");>Text=str_replace(PasExport->Lines->GetText(),"переменные",
"var");>Text=str_replace(PasExport->Lines->GetText(),"константы",
"const");>Text=str_replace(PasExport->Lines->GetText(),"тип",
"type");>Text=str_replace(PasExport->Lines->GetText(),"целое",
"integer");>Text=str_replace(PasExport->Lines->GetText(),"дробное",
"real");>Text=str_replace(PasExport->Lines->GetText(),"булева",
"boolean");>Text=str_replace(PasExport->Lines->GetText(),"строка",
"string");>Text=str_replace(PasExport->Lines->GetText(),"символ",
"char");>Text=str_replace(PasExport->Lines->GetText(),"истина",
"true");>Text=str_replace(PasExport->Lines->GetText(),"ложь",
"false");>Text=str_replace(PasExport->Lines->GetText(),"если",
"if");>Text=str_replace(PasExport->Lines->GetText(),"тогда",
"then");>Text=str_replace(PasExport->Lines->GetText(),"иначе",
"else");>Text=str_replace(PasExport->Lines->GetText(),"цикл",
"for");>Text=str_replace(PasExport->Lines->GetText(),"до",
"to");>Text=str_replace(PasExport->Lines->GetText(),"делать",
"do");>Text=str_replace(PasExport->Lines->GetText(),"не",
"not");>Text=str_replace(PasExport->Lines->GetText(),"и",
"and");>Text=str_replace(PasExport->Lines->GetText(),"или",
"or");>Text=str_replace(PasExport->Lines->GetText(),"выводстр",
"writeln");>Text=str_replace(PasExport->Lines->GetText(),"вывод",
"write");>Text=str_replace(PasExport->Lines->GetText(),"вводстр",
"readln");>Text=str_replace(PasExport->Lines->GetText(),"ввод",
"read");>Text=str_replace(PasExport->Lines->GetText(),"а",
"a");>Text=str_replace(PasExport->Lines->GetText(),"б",
"b");>Text=str_replace(PasExport->Lines->GetText(),"в", "v");>Text=str_replace(PasExport->Lines->GetText(),"г",
"g");>Text=str_replace(PasExport->Lines->GetText(),"д",
"d");>Text=str_replace(PasExport->Lines->GetText(),"е",
"e");>Text=str_replace(PasExport->Lines->GetText(),"ж",
"zh");>Text=str_replace(PasExport->Lines->GetText(),"з",
"z");>Text=str_replace(PasExport->Lines->GetText(),"и",
"i");>Text=str_replace(PasExport->Lines->GetText(),"й",
"j");>Text=str_replace(PasExport->Lines->GetText(),"к",
"k");>Text=str_replace(PasExport->Lines->GetText(),"л",
"l");>Text=str_replace(PasExport->Lines->GetText(),"м",
"m");>Text=str_replace(PasExport->Lines->GetText(),"н",
"n");>Text=str_replace(PasExport->Lines->GetText(),"о",
"o");>Text=str_replace(PasExport->Lines->GetText(),"п",
"p");>Text=str_replace(PasExport->Lines->GetText(),"р",
"r");>Text=str_replace(PasExport->Lines->GetText(),"с",
"s");>Text=str_replace(PasExport->Lines->GetText(),"т",
"t");>Text=str_replace(PasExport->Lines->GetText(),"у",
"u");>Text=str_replace(PasExport->Lines->GetText(),"ф",
"f");>Text=str_replace(PasExport->Lines->GetText(),"х",
"h");>Text=str_replace(PasExport->Lines->GetText(),"ц",
"c");>Text=str_replace(PasExport->Lines->GetText(),"ч",
"ch");>Text=str_replace(PasExport->Lines->GetText(),"ш",
"sh");>Text=str_replace(PasExport->Lines->GetText(),"щ", "shh");>Text=str_replace(PasExport->Lines->GetText(),"ъ",
"tz");>Text=str_replace(PasExport->Lines->GetText(),"ы",
"bl");>Text=str_replace(PasExport->Lines->GetText(),"ь",
"mz");>Text=str_replace(PasExport->Lines->GetText(),"э",
"e");>Text=str_replace(PasExport->Lines->GetText(),"ю",
"yu");>Text=str_replace(PasExport->Lines->GetText(),"я",
"ya");(ExportDialog->Execute())
{expasname=ExportDialog->FileName;>Lines->SaveToFile(expasname);("Файл
"+AnsiString("\"")+ExtractFileName(expasname)+AnsiString("\"")+"
успешно сохранен!",mtInformation,TMsgDlgButtons()<<mbOK,0);
}
}__fastcall TForm1::N19Click(TObject *Sender)
{->Caption="Поиск";->Label2->Visible=false;->ComboBox2->Visible=false;->Button1->Caption="Найти";->ShowModal();
}
//---------------------------------------------------------------------------__fastcall
TForm1::N20Click(TObject *Sender)
{->Caption="Поиск и замена";
Form6->Label2->Visible=true;->ComboBox2->Visible=true;->Button1->Caption="Заменить";->ShowModal();
}
//---------------------------------------------------------------------------__fastcall
TForm1::SEReplaceText(TObject *Sender,AnsiString ASearch, const AnsiString
AReplace, int Line,Column, TSynReplaceAction &Action)
{(MessageDlg("Заменить текст '"+ASearch+"' текстом
'"+AReplace+"'?",mtInformation,TMsgDlgButtons() <<mbYes
<<mbNo <<mbAll <<mbCancel,0))
{mrYes: Action = raReplace;;mrNo: Action = raSkip;;mrAll:
Action = raReplaceAll;;mrCancel: Action = raCancel;
};
}
//---------------------------------------------------------------------------__fastcall
TForm1::N21Click(TObject *Sender)
{->Button1Click(Sender);
}
//---------------------------------------------------------------------------__fastcall
TForm1::FormCreate(TObject *Sender)
{>HelpFile = "Русич.hlp";
}
//---------------------------------------------------------------------------__fastcall
TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{(SE->Modified)
{wyn = Application -> MessageBox("Сохранить изменения?\n", "Есть несохраненные данные",MB_YESNOCANCEL|MB_ICONQUESTION);(wyn == 6)
{>Click();= "";
}if(wyn == 2)=false;
}=true;
}
//---------------------------------------------------------------------------
Unit3.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SynEdit"
#pragma link "SynEditHighlighter"
#pragma link "SynHighlighterPas"
#pragma resource "*.dfm"*Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{->Left = (Screen->Width / 2) - (Form3->Width /
2);->Top = (Screen->Height / 2) - (Form3->Height / 2);
}__fastcall TForm3::CBForeDrawItem(TWinControl *Control, int
Index,&Rect, TOwnerDrawState State)
{(Index)
{0 : CBFore->Canvas->Font->Color = clBlack; break;1
: CBFore->Canvas->Font->Color = clBlack; break;2 :
CBFore->Canvas->Font->Color = clMaroon; break;3 : CBFore->Canvas->Font->Color
= clGreen; break;4 : CBFore->Canvas->Font->Color = clOlive; break;5 :
CBFore->Canvas->Font->Color = clNavy; break;6 :
CBFore->Canvas->Font->Color = clPurple; break;7 :
CBFore->Canvas->Font->Color = clTeal; break;8 :
CBFore->Canvas->Font->Color = clGray; break;9 :
CBFore->Canvas->Font->Color = clSilver; break;10:
CBFore->Canvas->Font->Color = clRed; break;11:
CBFore->Canvas->Font->Color = clLime; break;12:
CBFore->Canvas->Font->Color = clYellow; break;13: CBFore->Canvas->Font->Color
= clBlue; break;14: CBFore->Canvas->Font->Color = clFuchsia; break;15:
CBFore->Canvas->Font->Color = clAqua; break;16:
CBFore->Canvas->Font->Color = clWhite; break;17:
CBFore->Canvas->Font->Color = clMoneyGreen; break;18: CBFore->Canvas->Font->Color
= clSkyBlue; break;19: CBFore->Canvas->Font->Color = clCream;
break;20: CBFore->Canvas->Font->Color = clMedGray; break;
}>Canvas->FillRect(Rect);>Canvas->TextOut(Rect.Left,
Rect.Top,>Items->Strings[Index]);
}__fastcall TForm3::CBBackDrawItem(TWinControl *Control, int
Index,&Rect, TOwnerDrawState State)
{(Index)
{0 : CBBack->Canvas->Font->Color = clBlack; break;1
: CBBack->Canvas->Font->Color = clBlack; break;2 :
CBBack->Canvas->Font->Color = clMaroon; break;3 :
CBBack->Canvas->Font->Color = clGreen; break;4 :
CBBack->Canvas->Font->Color = clOlive; break;5 :
CBBack->Canvas->Font->Color = clNavy; break;6 :
CBBack->Canvas->Font->Color = clPurple; break;7 :
CBBack->Canvas->Font->Color = clTeal; break;8 : CBBack->Canvas->Font->Color
= clGray; break;9 : CBBack->Canvas->Font->Color = clSilver; break;10:
CBBack->Canvas->Font->Color = clRed; break;11:
CBBack->Canvas->Font->Color = clLime; break;12:
CBBack->Canvas->Font->Color = clYellow; break;13:
CBBack->Canvas->Font->Color = clBlue; break;14:
CBBack->Canvas->Font->Color = clFuchsia; break;15:
CBBack->Canvas->Font->Color = clAqua; break;16:
CBBack->Canvas->Font->Color = clWhite; break;17:
CBBack->Canvas->Font->Color = clMoneyGreen; break;18:
CBBack->Canvas->Font->Color = clSkyBlue; break;19:
CBBack->Canvas->Font->Color = clCream; break;20:
CBBack->Canvas->Font->Color = clMedGray; break;
}>Canvas->FillRect(Rect);>Canvas->TextOut(Rect.Left,
Rect.Top,>Items->Strings[Index]);
}
//---------------------------------------------------------------------------__fastcall
TForm3::LBElemClick(TObject *Sender)
{(LBElem->ItemIndex)
{0 :>ItemIndex =
Form1->getNumber(SynPasSyn1->CommentAttri->Foreground);>ItemIndex =
Form1->getNumber(SynPasSyn1->CommentAttri->Background);>Checked =
SynPasSyn1->CommentAttri->Style.Contains(fsBold);>Checked =
SynPasSyn1->CommentAttri->Style.Contains(fsItalic);>Checked =
SynPasSyn1->CommentAttri->Style.Contains(fsUnderline);;1 : >ItemIndex
= Form1->getNumber(SynPasSyn1->FloatAttri->Foreground);>ItemIndex =
Form1->getNumber(SynPasSyn1->FloatAttri->Background);>Checked =
SynPasSyn1->FloatAttri->Style.Contains(fsBold);>Checked =
SynPasSyn1->FloatAttri->Style.Contains(fsItalic);>Checked =
SynPasSyn1->FloatAttri->Style.Contains(fsUnderline);;2 : >ItemIndex =
Form1->getNumber(SynPasSyn1->NumberAttri->Foreground);>ItemIndex =
Form1->getNumber(SynPasSyn1->NumberAttri->Background);>Checked =
SynPasSyn1->NumberAttri->Style.Contains(fsBold);>Checked =
SynPasSyn1->NumberAttri->Style.Contains(fsItalic);>Checked =
SynPasSyn1->NumberAttri->Style.Contains(fsUnderline);;3 : >ItemIndex =
Form1->getNumber(SynPasSyn1->SpaceAttri->Foreground);>ItemIndex =
Form1->getNumber(SynPasSyn1->SpaceAttri->Background);>Checked =
SynPasSyn1->SpaceAttri->Style.Contains(fsBold);>Checked =
SynPasSyn1->SpaceAttri->Style.Contains(fsItalic);>Checked =
SynPasSyn1->SpaceAttri->Style.Contains(fsUnderline);;4: >ItemIndex =
Form1->getNumber(SynPasSyn1->StringAttri->Foreground);>ItemIndex =
Form1->getNumber(SynPasSyn1->StringAttri->Background);>Checked =
SynPasSyn1->StringAttri->Style.Contains(fsBold);>Checked =
SynPasSyn1->StringAttri->Style.Contains(fsItalic);>Checked =
SynPasSyn1->StringAttri->Style.Contains(fsUnderline);;5: >ItemIndex =
Form1->getNumber(SynPasSyn1->SymbolAttri->Foreground);>ItemIndex =
Form1->getNumber(SynPasSyn1->SymbolAttri->Background);>Checked =
SynPasSyn1->SymbolAttri->Style.Contains(fsBold);>Checked =
SynPasSyn1->SymbolAttri->Style.Contains(fsItalic);>Checked =
SynPasSyn1->SymbolAttri->Style.Contains(fsUnderline);;
};
}__fastcall TForm3::FormShow(TObject *Sender)
{>ItemIndex = 0;>ItemIndex = 0;>ItemIndex =
-1;>Checked = false;>Checked = false;>Checked =
false;->AsmAttri->Foreground =
Form1->SynPasSyn->AsmAttri->Foreground;->AsmAttri->Background =
Form1->SynPasSyn->AsmAttri->Background;->CommentAttri->Foreground
= Form1->SynPasSyn->CommentAttri->Foreground;->CommentAttri->Background
=
Form1->SynPasSyn->CommentAttri->Background;(Form1->SynPasSyn->CommentAttri->Style.Contains(fsBold))->CommentAttri->Style
<< fsBold;->CommentAttri->Style >>
fsBold;(Form1->SynPasSyn->CommentAttri->Style.Contains(fsItalic))->CommentAttri->Style
<< fsItalic;->CommentAttri->Style >>
fsItalic;(Form1->SynPasSyn->CommentAttri->Style.Contains(fsUnderline))->CommentAttri->Style
<< fsUnderline;->CommentAttri->Style >>
fsUnderline;->FloatAttri->Foreground = Form1->SynPasSyn->FloatAttri->Foreground;->FloatAttri->Background
=
Form1->SynPasSyn->FloatAttri->Background;(Form1->SynPasSyn->FloatAttri->Style.Contains(fsBold))->FloatAttri->Style
<< fsBold;->FloatAttri->Style >>
fsBold;(Form1->SynPasSyn->FloatAttri->Style.Contains(fsItalic))->FloatAttri->Style
<< fsItalic;->FloatAttri->Style >>
fsItalic;(Form1->SynPasSyn->FloatAttri->Style.Contains(fsUnderline))->FloatAttri->Style
<< fsUnderline;->FloatAttri->Style >>
fsUnderline;->NumberAttri->Foreground = Form1->SynPasSyn->NumberAttri->Foreground;->NumberAttri->Background
=
Form1->SynPasSyn->NumberAttri->Background;(Form1->SynPasSyn->NumberAttri->Style.Contains(fsBold))->NumberAttri->Style
<< fsBold;->NumberAttri->Style >>
fsBold;(Form1->SynPasSyn->NumberAttri->Style.Contains(fsItalic))->NumberAttri->Style
<< fsItalic;->NumberAttri->Style >>
fsItalic;(Form1->SynPasSyn->NumberAttri->Style.Contains(fsUnderline))->NumberAttri->Style
<< fsUnderline;->NumberAttri->Style >>
fsUnderline;->SpaceAttri->Foreground = Form1->SynPasSyn->SpaceAttri->Foreground;->SpaceAttri->Background
=
Form1->SynPasSyn->SpaceAttri->Background;(Form1->SynPasSyn->SpaceAttri->Style.Contains(fsBold))->SpaceAttri->Style
<< fsBold;->SpaceAttri->Style >> fsBold;(Form1->SynPasSyn->SpaceAttri->Style.Contains(fsItalic))->SpaceAttri->Style
<< fsItalic;->SpaceAttri->Style >>
fsItalic;(Form1->SynPasSyn->SpaceAttri->Style.Contains(fsUnderline))->SpaceAttri->Style
<< fsUnderline;->SpaceAttri->Style >> fsUnderline;->StringAttri->Foreground
= Form1->SynPasSyn->StringAttri->Foreground;->StringAttri->Background
=
Form1->SynPasSyn->StringAttri->Background;(Form1->SynPasSyn->StringAttri->Style.Contains(fsBold))->StringAttri->Style
<< fsBold;->StringAttri->Style >> fsBold;(Form1->SynPasSyn->StringAttri->Style.Contains(fsItalic))->StringAttri->Style
<< fsItalic;->StringAttri->Style >>
fsItalic;(Form1->SynPasSyn->StringAttri->Style.Contains(fsUnderline))->StringAttri->Style
<< fsUnderline;->StringAttri->Style >> fsUnderline;->SymbolAttri->Foreground
= Form1->SynPasSyn->SymbolAttri->Foreground;->SymbolAttri->Background
=
Form1->SynPasSyn->SymbolAttri->Background;(Form1->SynPasSyn->SymbolAttri->Style.Contains(fsBold))->SymbolAttri->Style
<< fsBold;->SymbolAttri->Style >> fsBold;(Form1->SynPasSyn->SymbolAttri->Style.Contains(fsItalic))->SymbolAttri->Style
<< fsItalic;->SymbolAttri->Style >>
fsItalic;(Form1->SynPasSyn->SymbolAttri->Style.Contains(fsUnderline))->SymbolAttri->Style
<< fsUnderline;->SymbolAttri->Style >> fsUnderline;
}__fastcall TForm3::Button2Click(TObject *Sender)
{();
}__fastcall TForm3::Button1Click(TObject *Sender)
{->SynPasSyn->CommentAttri->Foreground =
SynPasSyn1->CommentAttri->Foreground;->SynPasSyn->CommentAttri->Background
=
SynPasSyn1->CommentAttri->Background;(SynPasSyn1->CommentAttri->Style.Contains(fsBold))->SynPasSyn->CommentAttri->Style
<< fsBold;->SynPasSyn->CommentAttri->Style >>
fsBold;(SynPasSyn1->CommentAttri->Style.Contains(fsItalic))->SynPasSyn->CommentAttri->Style
<< fsItalic;->SynPasSyn->CommentAttri->Style >>
fsItalic;(SynPasSyn1->CommentAttri->Style.Contains(fsUnderline))->SynPasSyn->CommentAttri->Style
<< fsUnderline;->SynPasSyn->CommentAttri->Style >>
fsUnderline;->SynPasSyn->FloatAttri->Foreground =
SynPasSyn1->FloatAttri->Foreground;->SynPasSyn->FloatAttri->Background
= SynPasSyn1->FloatAttri->Background;(SynPasSyn1->FloatAttri->Style.Contains(fsBold))->SynPasSyn->FloatAttri->Style
<< fsBold;->SynPasSyn->FloatAttri->Style >>
fsBold;(SynPasSyn1->FloatAttri->Style.Contains(fsItalic))->SynPasSyn->FloatAttri->Style
<< fsItalic;->SynPasSyn->FloatAttri->Style >>
fsItalic;(SynPasSyn1->FloatAttri->Style.Contains(fsUnderline))->SynPasSyn->FloatAttri->Style
<< fsUnderline;->SynPasSyn->FloatAttri->Style >>
fsUnderline;->SynPasSyn->NumberAttri->Foreground =
SynPasSyn1->NumberAttri->Foreground;->SynPasSyn->NumberAttri->Background
=
SynPasSyn1->NumberAttri->Background;(SynPasSyn1->NumberAttri->Style.Contains(fsBold))->SynPasSyn->NumberAttri->Style
<< fsBold;->SynPasSyn->NumberAttri->Style >>
fsBold;(SynPasSyn1->NumberAttri->Style.Contains(fsItalic))->SynPasSyn->NumberAttri->Style
<< fsItalic;->SynPasSyn->NumberAttri->Style >>
fsItalic;(SynPasSyn1->NumberAttri->Style.Contains(fsUnderline))->SynPasSyn->NumberAttri->Style
<< fsUnderline;->SynPasSyn->NumberAttri->Style >>
fsUnderline;->SynPasSyn->SpaceAttri->Foreground =
SynPasSyn1->SpaceAttri->Foreground;->SynPasSyn->SpaceAttri->Background
=
SynPasSyn1->SpaceAttri->Background;(SynPasSyn1->SpaceAttri->Style.Contains(fsBold))->SynPasSyn->SpaceAttri->Style
<< fsBold;->SynPasSyn->SpaceAttri->Style >>
fsBold;(SynPasSyn1->SpaceAttri->Style.Contains(fsItalic))->SynPasSyn->SpaceAttri->Style
<< fsItalic;->SynPasSyn->SpaceAttri->Style >>
fsItalic;(SynPasSyn1->SpaceAttri->Style.Contains(fsUnderline))->SynPasSyn->SpaceAttri->Style
<< fsUnderline;->SynPasSyn->SpaceAttri->Style >> fsUnderline;->SynPasSyn->StringAttri->Foreground
=
SynPasSyn1->StringAttri->Foreground;->SynPasSyn->StringAttri->Background
=
SynPasSyn1->StringAttri->Background;(SynPasSyn1->StringAttri->Style.Contains(fsBold))->SynPasSyn->StringAttri->Style
<< fsBold;->SynPasSyn->StringAttri->Style >>
fsBold;(SynPasSyn1->StringAttri->Style.Contains(fsItalic))->SynPasSyn->StringAttri->Style
<< fsItalic;->SynPasSyn->StringAttri->Style >>
fsItalic;(SynPasSyn1->StringAttri->Style.Contains(fsUnderline))->SynPasSyn->StringAttri->Style
<< fsUnderline;->SynPasSyn->StringAttri->Style >>
fsUnderline;->SynPasSyn->SymbolAttri->Foreground =
SynPasSyn1->SymbolAttri->Foreground;->SynPasSyn->SymbolAttri->Background
= SynPasSyn1->SymbolAttri->Background;(SynPasSyn1->SymbolAttri->Style.Contains(fsBold))->SynPasSyn->SymbolAttri->Style
<< fsBold;->SynPasSyn->SymbolAttri->Style >>
fsBold;(SynPasSyn1->SymbolAttri->Style.Contains(fsItalic))->SynPasSyn->SymbolAttri->Style
<< fsItalic;->SynPasSyn->SymbolAttri->Style >>
fsItalic;(SynPasSyn1->SymbolAttri->Style.Contains(fsUnderline))->SynPasSyn->SymbolAttri->Style
<< fsUnderline;->SynPasSyn->SymbolAttri->Style >>
fsUnderline;->SE->Refresh();();
}__fastcall TForm3::CBForeSelect(TObject *Sender)
{(CBFore->ItemIndex == -1) return;(LBElem->ItemIndex ==
-1) return;(LBElem->ItemIndex)
{0 : SynPasSyn1->CommentAttri->Foreground =
Form1->getColor(CBFore->ItemIndex); break;1 :
SynPasSyn1->FloatAttri->Foreground =
Form1->getColor(CBFore->ItemIndex); break;2 :
SynPasSyn1->NumberAttri->Foreground = Form1->getColor(CBFore->ItemIndex);
break;3 : SynPasSyn1->SpaceAttri->Foreground =
Form1->getColor(CBFore->ItemIndex); break;4:
SynPasSyn1->StringAttri->Foreground =
Form1->getColor(CBFore->ItemIndex); break;5:
SynPasSyn1->SymbolAttri->Foreground = Form1->getColor(CBFore->ItemIndex);
break;
}
}__fastcall TForm3::CBBackSelect(TObject *Sender)
{(CBBack->ItemIndex == -1) return;(LBElem->ItemIndex ==
-1) return;(LBElem->ItemIndex)
{0 : SynPasSyn1->CommentAttri->Background =
Form1->getColor(CBBack->ItemIndex); break;1 : SynPasSyn1->FloatAttri->Background
= Form1->getColor(CBBack->ItemIndex); break;2 :
SynPasSyn1->NumberAttri->Background =
Form1->getColor(CBBack->ItemIndex); break;3 :
SynPasSyn1->SpaceAttri->Background = Form1->getColor(CBBack->ItemIndex);
break;4: SynPasSyn1->StringAttri->Background =
Form1->getColor(CBBack->ItemIndex); break;5:
SynPasSyn1->SymbolAttri->Background =
Form1->getColor(CBBack->ItemIndex); break;
}
}__fastcall TForm3::ChBBoldClick(TObject *Sender)
{(LBElem->ItemIndex == -1) return;(LBElem->ItemIndex)
{0 : if(ChBBold->Checked)->CommentAttri->Style
<< fsBold;->CommentAttri->Style >> fsBold;;1 :
if(ChBBold->Checked)->FloatAttri->Style <<
fsBold;->FloatAttri->Style >> fsBold;;2 : if(ChBBold->Checked)->NumberAttri->Style
<< fsBold;->NumberAttri->Style >> fsBold;;3 :
if(ChBBold->Checked)->SpaceAttri->Style <<
fsBold;->SpaceAttri->Style >> fsBold;;4:
if(ChBBold->Checked)->StringAttri->Style <<
fsBold;->StringAttri->Style >> fsBold;;5: if(ChBBold->Checked)->SymbolAttri->Style
<< fsBold;->SymbolAttri->Style >> fsBold;;
}>Refresh();
}__fastcall TForm3::ChBItalClick(TObject *Sender)
{(LBElem->ItemIndex == -1) return;(LBElem->ItemIndex)
{0 : if(ChBItal->Checked)->CommentAttri->Style
<< fsItalic;->CommentAttri->Style >> fsItalic;;1 :
if(ChBItal->Checked)->FloatAttri->Style <<
fsItalic;->FloatAttri->Style >> fsItalic;;2 :
if(ChBItal->Checked)->NumberAttri->Style <<
fsItalic;->NumberAttri->Style >> fsItalic;;3 :
if(ChBItal->Checked)->SpaceAttri->Style << fsItalic;->SpaceAttri->Style
>> fsItalic;;4: if(ChBItal->Checked)->StringAttri->Style
<< fsItalic;->StringAttri->Style >> fsItalic;;5:
if(ChBItal->Checked)->SymbolAttri->Style <<
fsItalic;->SymbolAttri->Style >> fsItalic;;
}>Refresh();
}__fastcall TForm3::ChBUnderClick(TObject *Sender)
{(LBElem->ItemIndex == -1) return;(LBElem->ItemIndex)
{0 : if(ChBUnder->Checked)->CommentAttri->Style
<< fsUnderline;->CommentAttri->Style >> fsUnderline;;1 :
if(ChBUnder->Checked)->FloatAttri->Style <<
fsUnderline;->FloatAttri->Style >> fsUnderline;;2 :
if(ChBUnder->Checked)->NumberAttri->Style <<
fsUnderline;->NumberAttri->Style >> fsUnderline;;3 :
if(ChBUnder->Checked)->SpaceAttri->Style <<
fsUnderline;->SpaceAttri->Style >> fsUnderline;;4:
if(ChBUnder->Checked)->StringAttri->Style <<
fsUnderline;->StringAttri->Style >> fsUnderline;;5: if(ChBUnder->Checked)->SymbolAttri->Style
<< fsUnderline;->SymbolAttri->Style >> fsUnderline;;
}>Refresh();
}.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit6.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form6;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall
TForm6::Button2Click(TObject *Sender)
{->Close();
}
//---------------------------------------------------------------------------__fastcall
TForm6::Button1Click(TObject *Sender)
{->Close();OptionRep;(Form6->Caption=="Поиск")(RadioGroup1->ItemIndex==0)=
OptionRep;= OptionRep <<ssoBackwards;(RadioGroup1->ItemIndex==0)=
OptionRep <<ssoPrompt <<ssoReplace << ssoReplaceAll;=
OptionRep <<ssoBackwards <<ssoPrompt <<ssoReplace <<
ssoReplaceAll;(Form1->SE->SearchReplace(Form6->ComboBox1->Text,Form6->ComboBox2->Text,OptionRep)
== 0)(0,"Искомый текст не найден",0,MB_ICONINFORMATION);->Close();
}
//---------------------------------------------------------------------------