· файл ActionLog. txt;

· файл CEILING. exe;

· файл Help. chm;

· файл Settings. ini;

· папку Sounds;

· файл Sounds/LogFileClear. wav;

· файл Sounds/MenuOpening. wav;

· файл Sounds/OnSection. wav;

· файл Sounds/ Window. wav.

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

В программе используются следующие глобальные переменные:

· GenCheck - переменная, использующаяся при проверке корректности ввода;

· SRoom - переменная, хранящая площадь потолка комнаты;

· SCeil - переменная, хранящая площадь натяжного потолка;

· Date - переменная, получающая текущую дату для сохранения в лог-файл;

· Time - переменная, получающая текущее время для сохранения в лог-файл;

· ErrorString - переменная, хранящая строку с сообщением об ошибке;

· Check - переменная, использующаяся при проверке корректности ввода;

· IsInt - переменная, сообщающая процедуре проверки корректности ввода о том, что проверяемое значение должно быть целым числом;

· IsCoordinate - переменная, сообщающая процедуре проверки корректности ввода о том, что проверяемое значение является координатой;

· IsX - переменная, сообщающая процедуре проверки корректности ввода о том, что проверяемое значение является координатой X;

· IsY - переменная, сообщающая процедуре проверки корректности ввода о том, что проверяемое значение является координатой Y;

· IsWord - переменная, сообщающая процедуре проверки корректности ввода о том, что проверяемое значение является словом;

· Parameter - переменная, передающая на форму с диалогом закрытия программы информацию о том, откуда она была вызвана;

· INI - ini-файл программы, в который сохраняются её настройки;

· LogFile - текстовый файл, в который сохраняются все действия пользователя;

· LogFileDisabled - переменная, сигнализирующая о том, что ведение лог-файла включено/отключено;

· LogFileSize - переменная, получающая размер лог-файла;

· SoundsEnabled - переменная, сигнализирующая о том, что звуковое сопровождение включено/отключено;

· CalcMenuOpened - переменная, сигнализирующая о том, что открыто меню расчётов.

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

Процедуры, описанные в модуле MainUnit:

· procedure FormAppear - процедура анимации появления форм на экране;

· procedure FormDisappear - процедура анимации закрытия или скрытия форм с экрана;

· procedure EnableFog - процедура включения "тумана" на неактивных формах;

· procedure DisableFog - процедура отключения "тумана";

· procedure EventLog (Event: String) - процедура добавления данных в лог-файл;

· procedure GUIHide - процедура скрытия определённых элементов интерфейса формы MainForm;

· procedure CalcMenuClose - процедура закрытия меню расчётов

· procedure TMainForm. FormCreate (Sender: TObject) - процедура обработки события создания формы MainForm;

· procedure TMainForm. MinBtnClick (Sender: TObject) - процедура обработки нажатия кнопки "Свернуть" на форме MainForm;

· procedure TMainForm. CloseBtnClick (Sender: TObject) - процедура обработки нажатия кнопки "Закрыть" на форме MainForm;

· procedure TMainForm. MainBtnClick (Sender: TObject) - процедура обработки нажатия кнопки "Главная";

· procedure TMainForm. CalcBtnClick (Sender: TObject) - процедура обработки нажатия кнопки "Расчёт";

· procedure TMainForm. CalcAreaBtnClick (Sender: TObject) - процедура обработки нажатия кнопки "Вычисление площади" в меню "Расчёт";

· procedure TMainForm. CalcPriceBtnClick (Sender: TObject) - процедура обработки нажатия кнопки "Вычисление стоимости" в меню "Расчёт";

· procedure TMainForm. CalcContBtnClick (Sender: TObject) - процедура обработки нажатия кнопки "Составление договора" в меню "Расчёт";

· procedure TMainForm. OptBtnClick (Sender: TObject) - процедура обработки нажатия кнопки "Настройки";

· procedure TMainForm. LogFileChBoxClick (Sender: TObject) - процедура обработки события включения/выключения ведения лог-файла в меню "Настройки";

· procedure TMainForm. ClearLogLblClick (Sender: TObject) - процедура обработки нажатия кнопки "Очистить лог-файл" в меню "Настройки";

· procedure TMainForm. SoundsChBoxClick (Sender: TObject) - процедура обработкисобытия включения/выключения звукового сопровождения в меню "Настройки";

· procedure TMainForm. OptSaveBtnClick (Sender: TObject) - процедура обработки нажатия кнопки "Сохранить настройки" в меню "Настройки";

· procedure TMainForm. HelpBtnClick (Sender: TObject) - процедура обработки нажатия кнопки "Справка";

· procedure TMainForm. AboutBtnClick (Sender: TObject) - процедура обработки нажатия кнопки "О программе";

· procedure TMainForm. FormClose (Sender: TObject; var Action: TCloseAction) - процедура обработки события закрытия главной формы.

Процедуры, описанные в модуле CADUnit:

· procedure SaveResults (Shape: String; a: Real; b: Real; h: Real; r: Real; n: Byte; S: Real) - процедура сохранения результатов расчётов по шаблону;

· procedure InputCheck (CheckString: String) - процедура, проверяющая корректность вводимых данных;

· procedure LocalGUI (Parameter: Byte; Show: Boolean) - процедура, отвечающая за отображение и скрытие элементов интерфейса;

· procedure TCADForm. FormActivate (Sender: TObject) - процедура, обрабатывающая событие активации формы CADForm;

· procedure TCADForm. BackBtnClick (Sender: TObject) - процедура обработки нажатия кнопки "Назад" на форме CADForm;

· procedure TCADForm. CADMinBtnClick (Sender: TObject) - процедура обработки нажатия кнопки "Свернуть" на форме CADForm;

· procedure TCADForm. CADCloseBtnClick (Sender: TObject) - процедура обработки нажатия кнопки "Закрыть" на форме CADForm;

· procedure TCADForm. FormClose (Sender: TObject; var Action: TCloseAction) - процедура обработки события закрытия формы CADForm;

· procedure TCADForm. TempBtnClick (Sender: TObject) - процедура обработки нажатия кнопки "Выбрать шаблон потолка из стандартных форм";

· procedure TCADForm. TempBtnMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура, отображающая подсказку к кнопке "Выбрать шаблон потолка из стандартных форм";

· procedure TCADForm. TempBtnMouseLeave (Sender: TObject) - процедура, скрывающая подсказку к кнопке "Выбрать шаблон потолка из стандартных форм";

· procedure TCADForm. CADBtnClick (Sender: TObject) - процедура обработки нажатия кнопки "Спроектировать потолок вручную";

· procedure TCADForm. CADBtnMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура, отображающая подсказку к кнопке "Спроектировать потолок вручную";

· procedure TCADForm. CADBtnMouseLeave (Sender: TObject) - процедура, скрывающая подсказку к кнопке "Спроектировать потолок вручную";

· procedure TCADForm. RectBtnClick (Sender: TObject) - процедура, обрабатывающая выбор шаблона в форме прямоугольника;

· procedure TCADForm. RectALEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле RectALEdit;

· procedure TCADForm. RectALEditEnter (Sender: TObject) - процедура, отображающая подсказку к данным, вводимым в поле RectALEdit;

· procedure TCADForm. RectBLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле RectBLEdit;

· procedure TCADForm. RectBLEditEnter (Sender: TObject) - процедура, отображающая подсказку к данным, вводимым в поле RectBLEdit;

· procedure TCADForm. RectCalcLblClick (Sender: TObject) - процедура, обрабатывающая нажатие кнопки "Рассчитать" с шаблоном прямоугольника;

· procedure TCADForm. ParallBtnClick (Sender: TObject) - процедура, обрабатывающая выбор шаблона в форме параллелограмма;

· procedure TCADForm. ParallBLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле ParallBLEdit;

· procedure TCADForm. ParallBLEditEnter (Sender: TObject) - процедура, отображающая подсказку к данным, вводимым в поле ParallBLEdit;

· procedure TCADForm. ParallHLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле ParallHLEdit;

· procedure TCADForm. ParallHLEditEnter (Sender: TObject) - процедура, отображающая подсказку к данным, вводимым в поле ParallHLEdit;

· procedure TCADForm. ParallCalcLblClick (Sender: TObject) - процедура, обрабатывающая нажатие кнопки "Рассчитать" с шаблоном параллелограмма;

· procedure TCADForm. TrapBtnClick (Sender: TObject) - процедура, обрабатывающая выбор шаблона в форме трапеции;

· procedure TCADForm. TrapALEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле TrapALEdit;

· procedure TCADForm. TrapALEditEnter (Sender: TObject) - процедура, отображающая подсказку к данным, вводимым в поле ParallHLEdit;

· procedure TCADForm. TrapBLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле TrapBLEdit;

· procedure TCADForm. TrapBLEditEnter (Sender: TObject) - процедура, отображающая подсказку к данным, вводимым в поле TrapBLEdit;

· procedure TCADForm. TrapHLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле TrapHLEdit;

· procedure TCADForm. TrapHLEditEnter (Sender: TObject) - процедура, отображающая подсказку к данным, вводимым в поле TrapHLEdit;

· procedure TCADForm. TrapCalcLblClick (Sender: TObject) - процедура, обрабатывающая нажатие кнопки "Рассчитать" с шаблоном трапеции;

· procedure TCADForm. TriangleBtnClick (Sender: TObject) - процедура, обрабатывающая выбор шаблона в форме треугольника;

· procedure TCADForm. TriangleBLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле TriangleBLEdit;

· procedure TCADForm. TriangleBLEditEnter (Sender: TObject) - процедура, отображающая подсказку к данным, вводимым в поле TriangleBLEdit;

· procedure TCADForm. TriangleHLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле TriangleHLEdit;

· procedure TCADForm. TriangleHLEditEnter (Sender: TObject) - процедура, отображающая подсказку к данным, вводимым в поле TriangleHLEdit;

· procedure TCADForm. TriangleCalcLblClick (Sender: TObject) - процедура, обрабатывающая нажатие кнопки "Рассчитать" с шаблоном треугольника;

· procedure TCADForm. CircleBtnClick (Sender: TObject) - процедура, обрабатывающая выбор шаблона в форме круга;

· procedure TCADForm. CircleRLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле CircleRLEdit;

· procedure TCADForm. CircleRLEditEnter (Sender: TObject) - процедура, отображающая подсказку к данным, вводимым в поле CircleRLEdit;

· procedure TCADForm. CircleCalcLblClick (Sender: TObject) - процедура, обрабатывающая нажатие кнопки "Рассчитать" с шаблоном круга;

· procedure TCADForm. EllipseBtnClick (Sender: TObject) - процедура, обрабатывающая выбор шаблона в форме эллипса;

· procedure TCADForm. EllipseALEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле EllipseALEdit;

· procedure TCADForm. EllipseALEditEnter (Sender: TObject) - процедура, отображающая подсказку к данным, вводимым в поле EllipseALEdit;

· procedure TCADForm. EllipseBLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле EllipseBLEdit;

· procedure TCADForm. EllipseBLEditEnter (Sender: TObject) - процедура, отображающая подсказку к данным, вводимым в поле EllipseBLEdit

· procedure TCADForm. EllipseCalcLblClick (Sender: TObject) - процедура, обрабатывающая нажатие кнопки "Рассчитать" с шаблоном эллипса;

· procedure TCADForm. PolyBtnClick (Sender: TObject) - процедура, обрабатывающая выбор шаблона в форме правильного многоугольника;

· procedure TCADForm. PolyALEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле PolyALEdit;

· procedure TCADForm. PolyALEditEnter (Sender: TObject) - процедура, отображающая подсказку к данным, вводимым в поле PolyALEdit;

· procedure TCADForm. PolyNLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле PolyNLEdit;

· procedure TCADForm. PolyNLEditEnter (Sender: TObject) - процедура, отображающая подсказку к данным, вводимым в поле PolyNLEdit;

· procedure TCADForm. PolyCalcLblClick (Sender: TObject) - процедура, обрабатывающая нажатие кнопки "Рассчитать" с шаблоном правильного многоугольника;

· procedure TCADForm. CustomerLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле CustomerLEdit;

· procedure TCADForm. SRoomLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле SRoomLEdit;

· procedure TCADForm. LampLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле LampLEdit;

· procedure TCADForm. PipeLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле PipeLEdit;

· procedure TCADForm. SquareLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле SquareLEdit;

· procedure TCADForm. PriceCalcLblClick (Sender: TObject) - процедура, обрабатывающая нажатие кнопки "Рассчитать стоимость";

· procedure TCADForm. LampPriceLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле LampPriceLEdit;

· procedure TCADForm. PipePriceLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле PipePriceLEdit;

Процедуры, описанные в модуле CADUnitWTools:

· procedure TCADFormWTools. FormCreate (Sender: TObject) - процедура обработки события создания формы CADFormWTools;

· procedure TCADFormWTools. FormMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) - процедура обработки нажатия левой или правой кнопкой мыши над рабочей областью формы CADFormWTools;

· procedure TCADFormWTools. FormPaint (Sender: TObject) - процедура перерисовки формы CADFormWTools;

· procedure TCADFormWTools. FormMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура обработки движения мыши над рабочей областью формы CADFormWTools;

· procedure TCADFormWTools. BGImgTopMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура скрытия координат указателя мыши при наведении на BGImgTop;

· procedure TCADFormWTools. BGImgLeftMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура скрытия координат указателя мыши при наведении на BGImgLeft;

· procedure TCADFormWTools. BGImgRightMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура скрытия координат указателя мыши при наведении на BGImgRight;

· procedure TCADFormWTools. BGImgBottomMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура скрытия координат указателя мыши при наведении на BGImgBottom;

· procedure TCADFormWTools. ScaleTopMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура скрытия координат указателя мыши при наведении на ScaleTop;

· procedure TCADFormWTools. ScaleLeftMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура скрытия координат указателя мыши при наведении на ScaleLeft;

· procedure TCADFormWTools. ScaleRightMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура скрытия координат указателя мыши при наведении на ScaleRight;

· procedure TCADFormWTools. ScaleBottomMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура скрытия координат указателя мыши при наведении на ScaleBottom;

· procedure TCADFormWTools. CoordXLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле CoordXLEdit;

· procedure TCADFormWTools. CoordYLEditChange (Sender: TObject) - процедура, обрабатывающая ввод данных в поле CoordYLEdit;

· procedure TCADFormWTools. CoordXLEditEnter (Sender: TObject) - процедура передачи в процедуру InputCheck информации о том, что вводимое в поле CoordXLEdit значение следует проверить на корректность;

· procedure TCADFormWTools. CoordYLEditEnter (Sender: TObject) - процедура передачи в процедуру InputCheck информации о том, что вводимое в поле CoordYLEdit значение следует проверить на корректность;

· procedure TCADFormWTools. PointAddLblClick (Sender: TObject) - процедура, обрабатывающая нажатие кнопки "Добавить точку";

· procedure TCADFormWTools. NewBtnClick (Sender: TObject) - процедура, обрабатывающая нажатие кнопки "Создать новый чертёж";

· procedure TCADFormWTools. CalcBtnClick (Sender: TObject) - процедура, обрабатывающая нажатие кнопки "Рассчитать площадь";

· procedure TCADFormWTools. SaveBtnClick (Sender: TObject) - процедура, обрабатывающая нажатие кнопки "Сохранить проект в. bmp-файл";

· procedure TCADFormWTools. OKBtnClick (Sender: TObject) - процедура, обрабатывающая нажатие кнопки "ОК";

· procedure TCADFormWTools. BackBtnClick (Sender: TObject) - процедура, обрабатывающая нажатие кнопки "Назад";

· procedure TCADFormWTools. CADMinBtnClick (Sender: TObject) - процедура, обрабатывающая нажатие кнопки "Свернуть";

· procedure TCADFormWTools. CADCloseBtnClick (Sender: TObject) - процедура, обрабатывающая нажатие кнопки "Закрыть".

Процедуры, описанные в модуле ClosingUnit:

· procedure TClosingForm. FormActivate (Sender: TObject) - процедура, обрабатывающая событие активации формы ClosingForm;

· procedure TClosingForm. YesBtnClick (Sender: TObject) - процедура, обрабатывающая нажатие кнопки "Да";

· procedure TClosingForm. NoBtnClick (Sender: TObject) - процедура, обрабатывающая нажатие кнопки "Нет";

· procedure TClosingForm. FormClose (Sender: TObject; var Action: TCloseAction) - процедура, обрабатывающая событие закрытия формы ClosingForm.

Программа состоит из следующих форм:

· MainForm - главная форма, содержащая элементы меню и настройки программы;

· CADForm - форма расчётов, содержащая расчёт стоимости установки потолка и расчёт площадей по шаблону;

· CADFormWTools - форма графического проектирования;

· ClosingForm - форма-диалог закрытия программы;

· FogForm - форма-"туман";

· BigFogForm - форма-"туман".

Вспомогательные модули BigFogUnit. pas, CADUnit. pas, CADUnitWTools. pas, ClosingUnit. pas, FogUnit. pas подключаются к основному MainUnit. pas независимо друг от друга и состоят из простых компонентов: TImage, TLabel, TGroupBox, TLabeledEdit, TPaintBox.

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

Чтобы начать расчёты, необходимо нажать кнопку меню "Расчёт" и выбрать один из режимов работы - расчёт площадей либо расчёт стоимости монтажа потолка.

При вводе некорректных данных пользователь будет извещён об этом соответствующим подробным сообщением и не сможет продолжать расчёты до тех пор, пока не введёт корректные данные.

При отсутствии необходимых для работы файлов ActionLog. txt и Settings. ini программа автоматически создаст их с начальными параметрами. В случае отсутствия файла ActionLog. txt предыдущих логи действий пользователя будут потеряны. В случае отсутствия файла Settings. ini пользовательские настройки будут сброшены на начальные. При этом выполнение программы не будет нарушено ошибками. В случае отсутствия файлов звукового сопровождения в папке Sounds программа заменит их стандартным звуком операционной системы Windows, не завершая своего выполнения.

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

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

Заключение

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

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

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

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

Приложения

Приложение А

ДИАГРАММА ВАРИАНТОВ ИСПОЛЬЗОВАНИЯ

Приложение Б

ДИАГРАММА ПОСЛЕДОВАТЕЛЬНОСТИ

Размещено на Allbest.ru