Автоматизированное проектирование натяжных потолков

Разработка программы "CEILING", предоставляющей возможности по графическому проектированию натяжных потолков и расчёту их площади. Сокращение времени, которое необходимо для проектирования макета и расчёта стоимости установки натяжных потолков.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 20.07.2014
Размер файла 872,2 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

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

RectCalcLbl. Visible: = TRUE; //

end //

else //

begin //

RectALEdit. Enabled: = FALSE; //

RectAccImgB. Visible: = FALSE; //

RectCalcLbl. Visible: = FALSE; //

RectErrLbl. Caption: = ErrorString; //

RectErrLbl. Visible: = TRUE; //

end; //

end; //

//

procedure TCADForm. RectBLEditEnter (Sender: TObject); // отображение подсказки к RectBLEdit

begin //

RectBImg. Visible: = TRUE; //

RectImg. Visible: = FALSE; //

RectAImg. Visible: = FALSE; //

end; //

//

procedure TCADForm. RectCalcLblClick (Sender: TObject); //

begin //

if (RectAccImgA. Visible = TRUE) and (RectAccImgB. Visible = TRUE) then //

begin //

S: = a * b; //

RectAreaLEdit. Text: = FloatToStr (S); //

if S >= 50 then //

RectAreaErrLbl. Visible: = TRUE; //

end; //

RectAreaLEdit. Visible: = TRUE; //

SaveResults ('Потолок по шаблону ''прямоугольник''', a, b, 0, 0, 0, S); //

end; //

procedure TCADForm. ParallBtnClick (Sender: TObject); // обработка выбора параллелограмма

begin //

if SoundsEnabled = TRUE then //

PlaySound (PChar ('Sounds/OnSection. wav'), 0, SND_ASYNC); //

LocalGUI (11, FALSE); //

ParallGrBox. Visible: = TRUE; //

ParallImg. Visible: = TRUE; //

ParallBImg. Visible: = FALSE; //

ParallHImg. Visible: = FALSE; //

ParallCalcLbl. Visible: = FALSE; //

ParallAccImgB. Visible: = FALSE; //

ParallAccImgH. Visible: = FALSE; //

ParallAreaLEdit. Visible: = FALSE; //

if LogFileDisabled = FALSE then //

EventLog (' Выбран шаблон параллелограмма'); //

end; //

//

procedure TCADForm. ParallBLEditChange (Sender: TObject); // обработка ввода данных в ParallBLEdit

begin //

ParallAreaLEdit. Visible: = FALSE; //

ParallAreaErrLbl. Visible: = FALSE; //

ParallErrLbl. Top: = 300; //

InputCheck (ParallBLEdit. Text); //

if GenCheck = TRUE then //

begin //

ParallErrLbl. Visible: = FALSE; //

ParallHLEdit. Enabled: = TRUE; //

ParallAccImgB. Visible: = TRUE; //

b: = StrToFloat (ParallBLEdit. Text); //

if (ParallAccImgB. Visible = TRUE) and (ParallAccImgH. Visible = TRUE) then //

ParallCalcLbl. Visible: = TRUE; //

end //

else //

begin //

ParallHLEdit. Enabled: = FALSE; //

ParallAccImgB. Visible: = FALSE; //

ParallCalcLbl. Visible: = FALSE; //

ParallErrLbl. Caption: = ErrorString; //

ParallErrLbl. Visible: = TRUE; //

end; //

end; //

//

procedure TCADForm. ParallBLEditEnter (Sender: TObject); // отображение подсказки к ParallBLEdit

begin //

ParallBImg. Visible: = TRUE; //

ParallImg. Visible: = FALSE; //

ParallHImg. Visible: = FALSE; //

end; //

//

procedure TCADForm. ParallHLEditChange (Sender: TObject); // обработка ввода данных в ParallHLEdit

begin //

ParallAreaLEdit. Visible: = FALSE; //

ParallAreaErrLbl. Visible: = FALSE; //

ParallErrLbl. Top: = 330; //

InputCheck (ParallHLEdit. Text); //

if GenCheck = TRUE then //

begin //

ParallErrLbl. Visible: = FALSE; //

ParallBLEdit. Enabled: = TRUE; //

ParallAccImgH. Visible: = TRUE; //

h: = StrToFloat (ParallHLEdit. Text); //

if (ParallAccImgB. Visible = TRUE) and (ParallAccImgH. Visible = TRUE) then //

ParallCalcLbl. Visible: = TRUE; //

end //

else //

begin //

ParallBLEdit. Enabled: = FALSE; //

ParallAccImgH. Visible: = FALSE; //

ParallCalcLbl. Visible: = FALSE; //

ParallErrLbl. Caption: = ErrorString; //

ParallErrLbl. Visible: = TRUE; //

end; //

end; //

//

procedure TCADForm. ParallHLEditEnter (Sender: TObject); // отображение подсказки к ParallHLEdit

begin //

ParallHImg. Visible: = TRUE; //

ParallImg. Visible: = FALSE; //

ParallBImg. Visible: = FALSE; //

end; //

//

procedure TCADForm. ParallCalcLblClick (Sender: TObject); //

begin //

if (ParallAccImgB. Visible = TRUE) and (ParallAccImgH. Visible = TRUE) then //

begin //

S: = b * h; //

ParallAreaLEdit. Text: = FloatToStr (S); //

if S >= 50 then //

ParallAreaErrLbl. Visible: = TRUE; //

end; //

ParallAreaLEdit. Visible: = TRUE; //

SaveResults ('Потолок по шаблону ''параллелограмм''', 0, b, h, 0, 0, S); //

end; //

procedure TCADForm. TrapBtnClick (Sender: TObject); // обработка выбора трапеции

begin //

if SoundsEnabled = TRUE then //

PlaySound (PChar ('Sounds/OnSection. wav'), 0, SND_ASYNC); //

LocalGUI (11, FALSE); //

TrapGrBox. Visible: = TRUE; //

TrapImg. Visible: = TRUE; //

TrapHImg. Visible: = FALSE; //

TrapBImg. Visible: = FALSE; //

TrapAImg. Visible: = FALSE; //

TrapCalcLbl. Visible: = FALSE; //

TrapAccImgA. Visible: = FALSE; //

TrapAccImgB. Visible: = FALSE; //

TrapAccImgH. Visible: = FALSE; //

TrapAreaLEdit. Visible: = FALSE; //

if LogFileDisabled = FALSE then //

EventLog (' Выбран шаблон трапеции'); //

end; //

//

procedure TCADForm. TrapALEditChange (Sender: TObject); // обработка ввода данных в TrapALEdit

begin //

TrapAreaLEdit. Visible: = FALSE; //

TrapAreaErrLbl. Visible: = FALSE; //

TrapErrLbl. Top: = 300; //

InputCheck (TrapALEdit. Text); //

if GenCheck = TRUE then //

begin //

TrapErrLbl. Visible: = FALSE; //

TrapBLEdit. Enabled: = TRUE; //

TrapHLEdit. Enabled: = TRUE; //

TrapAccImgA. Visible: = TRUE; //

a: = StrToFloat (TrapALEdit. Text); //

if (TrapAccImgA. Visible = TRUE) and (TrapAccImgB. Visible = TRUE) and (TrapAccImgH. Visible = TRUE) then //

TrapCalcLbl. Visible: = TRUE; //

end //

else //

begin //

TrapBLEdit. Enabled: = FALSE; //

TrapHLEdit. Enabled: = FALSE; //

TrapAccImgA. Visible: = FALSE; //

TrapCalcLbl. Visible: = FALSE; //

TrapErrLbl. Caption: = ErrorString; //

TrapErrLbl. Visible: = TRUE; //

end; //

end; //

//

procedure TCADForm. TrapALEditEnter (Sender: TObject); // отображение подсказки к TrapALEdit

begin //

TrapAImg. Visible: = TRUE; //

TrapImg. Visible: = FALSE; //

TrapHImg. Visible: = FALSE; //

TrapBImg. Visible: = FALSE; //

end; //

//

procedure TCADForm. TrapBLEditChange (Sender: TObject); // обработка ввода данных в TrapBLEdit

begin //

TrapAreaLEdit. Visible: = FALSE; //

TrapAreaErrLbl. Visible: = FALSE; //

TrapErrLbl. Top: = 330; //

InputCheck (TrapBLEdit. Text); //

if GenCheck = TRUE then //

begin //

TrapErrLbl. Visible: = FALSE; //

TrapALEdit. Enabled: = TRUE; //

TrapHLEdit. Enabled: = TRUE; //

TrapAccImgB. Visible: = TRUE; //

b: = StrToFloat (TrapBLEdit. Text); //

if (TrapAccImgA. Visible = TRUE) and (TrapAccImgB. Visible = TRUE) and (TrapAccImgH. Visible = TRUE) then //

TrapCalcLbl. Visible: = TRUE; //

end //

else //

begin //

TrapALEdit. Enabled: = FALSE; //

TrapHLEdit. Enabled: = FALSE; //

TrapAccImgB. Visible: = FALSE; //

TrapCalcLbl. Visible: = FALSE; //

TrapErrLbl. Caption: = ErrorString; //

TrapErrLbl. Visible: = TRUE; //

end; //

end; //

//

procedure TCADForm. TrapBLEditEnter (Sender: TObject); // отображение подсказки к TrapBLEdit

begin //

TrapBImg. Visible: = TRUE; //

TrapAImg. Visible: = FALSE; //

TrapImg. Visible: = FALSE; //

TrapHImg. Visible: = FALSE; //

end; //

//

procedure TCADForm. TrapHLEditChange (Sender: TObject); // обработка ввода данных в TrapHLEdit

begin //

TrapAreaLEdit. Visible: = FALSE; //

TrapAreaErrLbl. Visible: = FALSE; //

TrapErrLbl. Top: = 360; //

InputCheck (TrapHLEdit. Text); //

if GenCheck = TRUE then //

begin //

TrapErrLbl. Visible: = FALSE; //

TrapALEdit. Enabled: = TRUE; //

TrapBLEdit. Enabled: = TRUE; //

TrapAccImgH. Visible: = TRUE; //

h: = StrToFloat (TrapHLEdit. Text); //

if (TrapAccImgA. Visible = TRUE) and (TrapAccImgB. Visible = TRUE) and (TrapAccImgH. Visible = TRUE) then //

TrapCalcLbl. Visible: = TRUE; //

end //

else //

begin //

TrapALEdit. Enabled: = FALSE; //

TrapBLEdit. Enabled: = FALSE; //

TrapAccImgH. Visible: = FALSE; //

TrapCalcLbl. Visible: = FALSE; //

TrapErrLbl. Caption: = ErrorString; //

TrapErrLbl. Visible: = TRUE; //

end; //

end; //

//

procedure TCADForm. TrapHLEditEnter (Sender: TObject); // отображение подсказки к TrapHLEdit

begin //

TrapHImg. Visible: = TRUE; //

TrapBImg. Visible: = FALSE; //

TrapAImg. Visible: = FALSE; //

TrapImg. Visible: = FALSE; //

end; //

//

procedure TCADForm. TrapCalcLblClick (Sender: TObject); // обработка нажатия кнопки "Рассчитать площадь"

begin //

if (TrapAccImgA. Visible = TRUE) and (TrapAccImgB. Visible = TRUE) and (TrapAccImgH. Visible = TRUE) then //

begin //

S: = (h / 2) * (a + b); //

TrapAreaLEdit. Text: = FloatToStr (S); //

if S >= 50 then //

TrapAreaErrLbl. Visible: = TRUE; //

end; //

TrapAreaLEdit. Visible: = TRUE; //

SaveResults ('Потолок по шаблону ''трапеция''', a, b, h, 0, 0, S); //

end; //

procedure TCADForm. TriangleBtnClick (Sender: TObject); // обработка выбора треугольника

begin //

if SoundsEnabled = TRUE then //

PlaySound (PChar ('Sounds/OnSection. wav'), 0, SND_ASYNC); //

LocalGUI (11, FALSE); //

TriangleGrBox. Visible: = TRUE; //

TriangleImg. Visible: = TRUE; //

TriangleBImg. Visible: = FALSE; //

TriangleHImg. Visible: = FALSE; //

TriangleCalcLbl. Visible: = FALSE; //

TriangleAccImgB. Visible: = FALSE; //

TriangleAccImgH. Visible: = FALSE; //

TriangleAreaLEdit. Visible: = FALSE; //

if LogFileDisabled = FALSE then //

EventLog (' Выбран шаблон треугольника'); //

end; //

//

procedure TCADForm. TriangleBLEditChange (Sender: TObject); // обработка ввода данных в TriangleBLEdit

begin //

TriangleAreaLEdit. Visible: = FALSE; //

TriangleAreaErrLbl. Visible: = FALSE; //

TriangleErrLbl. Top: = 300; //

InputCheck (TriangleBLEdit. Text); //

if GenCheck = TRUE then //

begin //

TriangleErrLbl. Visible: = FALSE; //

TriangleHLEdit. Enabled: = TRUE; //

TriangleAccImgB. Visible: = TRUE; //

b: = StrToFloat (TriangleBLEdit. Text); //

if (TriangleAccImgB. Visible = TRUE) and (TriangleAccImgH. Visible = TRUE) then //

TriangleCalcLbl. Visible: = TRUE; //

end //

else //

begin //

TriangleHLEdit. Enabled: = FALSE; //

TriangleAccImgB. Visible: = FALSE; //

TriangleCalcLbl. Visible: = FALSE; //

TriangleErrLbl. Caption: = ErrorString; //

TriangleErrLbl. Visible: = TRUE; //

end; //

end; //

//

procedure TCADForm. TriangleBLEditEnter (Sender: TObject); // отображение подсказки к TriangleBLEdit

begin //

TriangleBImg. Visible: = TRUE; //

TriangleImg. Visible: = FALSE; //

TriangleHImg. Visible: = FALSE; //

end; //

//

procedure TCADForm. TriangleHLEditChange (Sender: TObject); // обработка ввода данных в TriangleHLEdit

begin //

TriangleAreaLEdit. Visible: = FALSE; //

TriangleAreaErrLbl. Visible: = FALSE; //

TriangleErrLbl. Top: = 330; //

InputCheck (TriangleHLEdit. Text); //

if GenCheck = TRUE then //

begin //

TriangleErrLbl. Visible: = FALSE; //

TriangleBLEdit. Enabled: = TRUE; //

TriangleAccImgH. Visible: = TRUE; //

h: = StrToFloat (TriangleHLEdit. Text); //

if (TriangleAccImgB. Visible = TRUE) and (TriangleAccImgH. Visible = TRUE) then //

TriangleCalcLbl. Visible: = TRUE; //

end //

else //

begin //

TriangleAccImgB. Visible: = FALSE; //

TriangleCalcLbl. Visible: = FALSE; //

TriangleErrLbl. Caption: = ErrorString; //

TriangleErrLbl. Visible: = TRUE; //

end; //

end; //

//

procedure TCADForm. TriangleHLEditEnter (Sender: TObject); // отображение подсказки к TriangleHLEdit

begin //

TriangleHImg. Visible: = TRUE; //

TriangleBImg. Visible: = FALSE; //

TriangleImg. Visible: = FALSE; //

end; //

//

procedure TCADForm. TriangleCalcLblClick (Sender: TObject); // обработка нажатия кнопки "Рассчитать площадь"

begin //

if (TriangleAccImgB. Visible = TRUE) and (TriangleAccImgH. Visible = TRUE) then //

begin //

S: = (h / 2) * b; //

TriangleAreaLEdit. Text: = FloatToStr (S); //

if S >= 50 then //

TriangleAreaErrLbl. Visible: = TRUE; //

end; //

TriangleAreaLEdit. Visible: = TRUE; //

SaveResults ('Потолок по шаблону ''треугольник''', 0, b, h, 0, 0, S); //

end; //

procedure TCADForm. CircleBtnClick (Sender: TObject); // обработка выбора круга

begin //

if SoundsEnabled = TRUE then //

PlaySound (PChar ('Sounds/OnSection. wav'), 0, SND_ASYNC); //

LocalGUI (11, FALSE); //

CircleGrBox. Visible: = TRUE; //

CircleImg. Visible: = TRUE; //

CircleRImg. Visible: = FALSE; //

CircleCalcLbl. Visible: = FALSE; //

CircleAccImgR. Visible: = FALSE; //

CircleAreaLEdit. Visible: = FALSE; //

if LogFileDisabled = FALSE then //

EventLog (' Выбран шаблон круга'); //

end; //

//

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

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

Алгоритм работы программы можно представлен в виде диаграммы вариантов использования и диаграммы последовательности.

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

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

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

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

· 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.

Для корректной работы программы необходим следующий набор аппаратного и программного обеспечения:

процессор Intel Pentium IV 1.0 ГГц или выше;

монитор SVGA, поддерживающий разрешение не менее 1024х768;

объём оперативной памяти 256 Мб и более;

свободное место на жёстком диске 20 Мб и более;

манипулятор типа "мышь";

клавиатура;

операционная система версии Windows XP и выше.

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

· файл ActionLog. txt;

· файл CEILING. exe;

· файл Help. chm;

· файл Settings. ini;

· папку Sounds;

· файл Sounds/LogFileClear. wav;

· файл Sounds/MenuOpening. wav;

· файл Sounds/OnSection. wav;

· файл Sounds/ Window. wav.

Для запуска программы необходимо запустить файл CEILING. exe.

Входными данными являются:

· длины сторон (м.);

· длина высоты (м.);

· количество сторон;

· радиус (м.);

· координаты точек;

· Ф. И.О. заказчика;

· количество светильников;

· количество труб;

· стоимость светильника (долл.);

· стоимость трубы (долл.);

· стоимость квадратного метра (долл.).

Выходные данные:

· площадь потолка комнаты (м. кв.);

· площадь натяжного потолка (м. кв.);

· общая стоимость заказа (долл.);

· сумма задатка (долл.).

Автоматизированное проектирование натяжных потолков

Описание применения

Программа разработана для автоматизации проектирования натяжных потолков.

Программа предоставляет пользователю следующие возможности:

8 ввод данных;

9 хранение данных, необходимых для расчётов;

10 вычисление площадей потолков простой формы по шаблону;

11 графическое проектирование и вычисление площадей потолков сложной формы;

12 просмотр результатов;

13 расчёт стоимости установки потолка;

14 вывод отчётов с результатами вычислений в текстовые файлы *. txt и графические файлы *. bmp.

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

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

процессор Intel Pentium IV 1.0 ГГц или выше;

монитор SVGA, поддерживающий разрешение не менее 1024х768;

объём оперативной памяти 256 Мб и более;

свободное место на жёстком диске 20 Мб и более;

манипулятор типа "мышь";

клавиатура;

операционная система версии Windows XP и выше.

Эксплуатация программы предусматривает соблюдение правил техники безопасности и охраны труда при работе на ПЭВМ.

Общие требования техники безопасности:

- к работе на ПЭВМ допускаются лица, знакомые с их устройством и правилами эксплуатации;

- основной опасностью при работе является поражение электрическим током, которое может произойти при неисправности ПЭВМ или несоблюдении техники безопасности;

- особую осторожность следует соблюдать в обращении с монитором, предохранять его от ударов, царапин и других повреждений;

- продолжительность непрерывной работы не должна превышать 30 минут с 10-минутным перерывом. Общая продолжительность работы за компьютером не должна превышать в день 4 часа;

- запрещается:

§ включать ПЭВМ, корпуса блоков которых не закрыты крышками;

§ передвигать блоки, касаться разъемов розеток, касаться частями тела экрана или тыльной стороны машины;

§ работать на ПЭВМ мокрыми руками, в сырой одежде и обуви, класть на блоки ПЭВМ книги, тетради и другие предметы, а также опираться на них;

§ приступать к работе на ПЭВМ, имеющей какие-либо повреждения корпуса, нарушения изоляции проводов, а также нарушения целостности вилок, розеток;

§ оставлять без присмотра работающую ПЭВМ;

§ работать на ПЭВМ во время грозы;

§ принимать пищу на рабочем месте.

Требования безопасности перед началом работы:

- следует осмотреть и привести в порядок рабочее место;

- убрать с рабочего места все посторонние предметы, которые могут отвлекать внимание и затруднять работу;

- проверить правильность установки стола, стула, угол наклона экрана монитора, положение клавиатуры и, при необходимости, произвести их переустановку в целях исключения неудобных поз и длительных напряжений тела. Особо обратить внимание на то, что дисплей должен находиться на расстоянии не менее 50 см от глаз (оптимально 60 - 70 см), плоскость его экрана должна быть перпендикулярна направлению взгляда и центр экрана должен быть ниже уровня (или на уровне) глаз оператора (рис.1);

-

Рисунок 1 Правильное положение при работе за компьютером

- проверить правильность расположения оборудования:

§ кабели электропитания ПЭВМ и другого оборудования (включая переноски и удлинители) должны находиться с тыльной стороны рабочего места;

§ источник бесперебойного питания для исключения вредного влияния его повышенных магнитных полей должен быть максимально возможно удален от оператора;

- проверить надежность подключения к системному блоку разъемов периферийного оборудования;

- убедиться в отсутствии засветок, отражений и бликов на экране монитора;

- убедиться в отсутствии ярко освещенных предметов в поле зрения;

- убедиться в отсутствии пыли на экране монитора, при необходимости протереть их специальной салфеткой;

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

- убедиться в отсутствии дрожания и мерцания изображения на экране монитора;

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

Требования безопасности при выполнении работ:

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

- не закрывать вентиляционные отверстия ПЭВМ;

- при необходимости временного прекращения работы корректно закрыть все активные задачи;

- соблюдать правила эксплуатации оборудования;

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

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

Во время работы запрещается:

- прикасаться к задней панели системного блока при включенном питании;

- переключать разъемы интерфейсных кабелей периферийных устройств при включенном питании;

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

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

- производить отключение питания во время выполнения активной задачи;

- допускать попадание влаги на поверхности устройств;

- производить самостоятельно вскрытие и ремонт оборудования;

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

Требования безопасности в аварийных ситуациях:

- обо всех неисправностях в работе оборудования и аварийных ситуациях сообщать непосредственному руководителю;

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

- при поражении работника электрическим током принять меры по его освобождению от действия тока путем отключения электропитания и до прибытия врача оказать потерпевшему первую медицинскую помощь;

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

Требования безопасности по окончании работы:

- произвести закрытие всех выполняемых на ПЭВМ задач;

- отключить питание в последовательности, установленной инструкциями по эксплуатации на оборудование с учетом характера выполняемых работ;

- убрать со стола рабочие материалы и привести в порядок рабочее место.

Требования к микроклимату помещений при эксплуатации ПЭВМ и параметрам физических факторов:

- при выполнении основной работы на ПЭВМ (категория I) уровень шума не должен превышать 50 дБ;

- в помещениях, где работают инженерно-технические работники, осуществляющие лабораторный, аналитический или измерительный контроль (категория II), уровень шума не должен превышать 60 дБ;

- допустимые уровни напряженности электрического поля тока промышленной частоты 50 Гц, создаваемые монитором, клавиатурой, системным блоком, манипулятором типа "мышь", изделием в целом не должны превышать 15,0 кВ/м;

- интенсивность инфракрасного (ИК) и видимого излучения от экрана монитора не должна превышать 0,1 Вт/м2 в видимом (400 - 760 нм) диапазоне, 0,05 Вт/м2 в ближнем ИК диапазоне (760 - 1050 нм), 4 ВТ/м2 в дальнем (свыше 1050 нм) ИК диапазоне;

Требования к освещению помещений и рабочих мест с ПЭВМ:

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

- искусственное освещение в помещениях эксплуатации ПЭВМ должно осуществляться системой общего равномерного освещения;

- освещенность на поверхности стола в зоне размещения рабочего документа должна быть 300 - 500 лк. Местное освещение не должно создавать бликов на поверхности экрана и увеличивать освещенность экрана более 300 лк;

- в качестве источников света при искусственном освещении должны применяться преимущественно люминесцентные лампы. Допускается применение ламп накаливания в светильниках местного освещения;

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

Требования к размещению компьютерной техники на рабочем месте:

- каждое рабочее место должно быть автономным;

- размещать дисплей и системный блок ПЭВМ следует на максимально возможном расстоянии от пользователя.

Рисунок 4 Рекомендуемая компоновка рабочего места

Обозначения:

1 - рабочее место оператора;

2 - клавиатура;

3 - дисплей;

4 - системный блок ПЭВМ;

5 - принтер;

6 - розетки питания;

7 - сетевые кабели питания блоков ПЭВМ.

Требования к организации и оборудованию рабочих мест с ПЭВМ:

- рабочие места с ПЭВМ допускается располагать по периметру помещения или рядами;

- экран монитора должен находиться от глаз пользователя на оптимальном расстоянии 600 - 700 мм, но не ближе 500 мм с учетом размеров алфавитно-цифровых знаков и символов;

- высота рабочей поверхности стола для пользователей должна регулироваться в пределах 680 - 800 мм, при отсутствии такой возможности высота рабочей поверхности стола должна составлять 725 мм;

- конструкция рабочего стула (кресла) должна обеспечивать:

Требования к организации медицинского обслуживания пользователей ПЭВМ:

- профессиональные пользователи ПЭВМ должны проходить обязательные предварительные и периодические медицинские осмотры в порядке и сроки, установленные Постановлением Минздрава Республики Беларусь;

- к непосредственной работе на ПЭВМ допускаются лица, не имеющие медицинских противопоказаний.

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

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

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

Подобные технологии имеют положительные аспекты:

· за счет уменьшения потребления электричества увеличивается время автономной работы от батарей;

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

· за счет снижения требований к системе охлаждения снижается и общий вес компьютера;

· процессор с поддержкой технологии энергосбережения дешевле и производительнее, чем процессор с постоянно низким тепловыделением.

Чтобы работа была комфортной и безопасной необходимо позаботиться об аппаратном оборудовании компьютера. Как правило, наибольший вред здоровью пользователя компьютера наносят устройства ввода-вывода: монитор, клавиатура, мышь.

Большинство производителей используют промышленный стандарт VESA DPMS (Display Power Management Signaling). Он определяет нормированные методы поддержки мониторами трех энергосберегающих режимов:

­ Stand-by - экономит до 40% мощности и позволяет быстро восстановить работоспособность;

­ Suspend - отключает цепи накала трубки монитора и имеет большее время восстановления работоспособности;

­ Active-off - еще большее время восстановления работоспособности, но отключает все, кроме средств восстановления работоспособности и блока питания. В этом режиме мониторы обычно потребляют менее 5 Вт.

При выборе монитора используется ряд стандартов:

­ MPR 1990: 10 - монитор соответствует шведскому стандарту по излучениям, а также по переменным электрическому и магнитным полям;

­ MPR II - Стандарты и рекомендации по низкочастотным электромагнитным полям и электрическому потенциалу. Такой знак далеко не полностью отражает все условия стандарта MPR 1990: 10;

­ ISO 9241-3 - обозначает международный стандарт, который удовлетворяет эргономическим требованиям к дисплеям и стоит на страже вашего зрения;

­ TCO (расшифровываются как соответствие требованиям Шведского союза профессиональных служащих по визуальным эргономическим параметрам и переменным электрическим полям). В сравнении с MPRII в ТСО'92 (был разработан специально для мониторов и определяет величину максимально допустимых электромагнитных излучений при работе монитора, и функции энергосбережения) допустимые уровни электромагнитного излучения более жесткие, так как замер показателей производится не в 50 см от экрана, как в MPRII, а в 30. TCO 95 и TCO 99 представляют собой универсальные стандарты, регулирующие воздействие всех вредных факторов. В ТСО'95 и ТСО'99 представлены электромагнитные параметры, эргономические, энергосберегающие и экологические. Стандарт TCO'95 существует вместе с TCO'92 и не отменяет последний. TCO'99 предъявляет более жесткие требования, чем TCO'95 в области эргономики, энергия, излучений, экологии, пожарной, электрической безопасности;

­ EN 55022 Европейский стандарт по методам измерений и допустимым значениям излучений для изделий информационных технологий;

­ EN 50082-1 Европейский стандарт по электромагнитной совместимости;

­ EN 60950 Европейский стандарт по безопасности для изделий информационных технологий (электро - и пожаробезопасность), является частью TЪV/GS-рекомендации;

­ TЬV/GS Маркировка, подтверждающая прохождение испытаний по безопасности. Изделия с маркировкой GS соответствуют требованиям EN 60950, ZH1/618;

­ СЕ Европейская маркировка, которая определяет соответствие изделия требованиям стандартов EN 50081-1 (европейский стандарт по электромагнитной совместимости), EN 55022, EN 50082-1 и EN 60950.

В настоящее время большое распространение получили ЖК-мониторы, которые отличаются высоким качеством и не большой стоимостью.

ЖК-мониторы имеют ряд достоинств:

· ЖК мониторы более экономичные;

· у них нет электромагнитного излучения в сравнении c ЭЛТ-мониторами, и они практически безвредны для человека;

· они не мерцают, как ЭЛТ-мониторы;

· они легкие и не такие объемные;

· у них большая видимая область экрана.

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

Применение принтеров так же приводит к потреблению электроэнергии. Существует 2 вида принтеров: струйные и лазерные.

Современные струйные принтеры выводят текст и графические изображения высокого качества и стоят более чем вдвое дешевле лазерных. Кроме того, они компактнее, не так шумят и потребляют меньше электроэнергии, чем их лазерные собратья. Исследования International Data Corporation показывают, что это одна из причин, по которым объемы продаж струйных принтеров растут быстрее, чем печатающих устройств всех других типов.

Выпуск новой линии профессиональных ПК ESPRIMO 5925 EPA компанией Fujitsu Siemens Computers продолжает тенденцию в области создания энергоэкономичных ПК. Новые профессиональные ПК, которые поставляются в форм-факторе Microtower для ESPRIMO P5925 EPA и в форм-факторе Small Form Factor для ESPRIMO E5925 EPA, - это сочетание проверенной эргономичности и энергосберегающих функций, которыми отличаются все решения Fujitsu Siemens Computers, новейшего набора микросхем Intel и экономии электроэнергии до 80%. Благодаря этим технологиям данные компьютеры потребляют на 45% меньше электроэнергии по сравнению с аналогичными системами двухлетней давности.

Новые профессиональные ПК объединяют в себе экологичные материалы и технологии, технические инновации и максимальную производительность. Технология Intel Active Management 3.0 упрощает процесс централизованного управления устройствами даже в выключенном состоянии, что позволяет сократить общее энергопотребление. Кроме того, данные ПК работают необычайно тихо благодаря зарекомендовавшей себя системе охлаждения, используемой в корпусах ESPRIMO, спроектированных и разработанных Fujitsu Siemens Computers.

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

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

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

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

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

процессор Intel Pentium IV 1.0 ГГц или выше;

монитор SVGA, поддерживающий разрешение не менее 1024х768;

объём оперативной памяти 256 Мб и более;

свободное место на жёстком диске 20 Мб и более;

манипулятор типа "мышь";

клавиатура;

операционная система версии Windows XP и выше.

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


Подобные документы

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

    дипломная работа [1,5 M], добавлен 07.07.2015

  • Разработка проектных решений по созданию автоматического рабочего места менеджера сервисного центра для ООО "Пионер". Проектирование структуры базы данных. Логическая структура программы. Схема работы с программным продуктом, особенности его установки.

    дипломная работа [1,9 M], добавлен 11.02.2013

  • Создание программных комплексов для систем автоматизированного проектирования с системами объемного моделирования и экспресс-тестами. SolidWorks - мировой стандарт автоматизированного проектирования. Пользовательский интерфейс, визуализация модели.

    курсовая работа [3,2 M], добавлен 13.10.2012

  • Разработка программы тестирования для выявления акцентуаций типа человека в среде Delphi и Microsoft Access. Проектирование алгоритма реализации модели. Описание программы и модулей, руководство пользователя. Меры обеспечения информационной безопасности.

    дипломная работа [2,7 M], добавлен 15.06.2012

  • Создание программы в среде Delphi 7 для упрощения и автоматизации расчетов стоимости пластиковых оконных конструкций и дверей. Разработка программы с учётом расчёта стоимости заказываемых изделий, сохранением заказов в файлы, вывод отчетов на печать.

    курсовая работа [463,9 K], добавлен 29.05.2008

  • Проектирование установки, предназначенной для быстрого прототипирования (печати пластиковых моделей по готовой 3D-модели). Укрупнённая структурная схема системного проектирования. Разработка корпуса автоматизированной установки. Внешний вид контроллера.

    дипломная работа [3,2 M], добавлен 10.01.2015

  • Автоматизированное проектирование как основной способ повышения производительности труда инженерных работников. Моделирование систем с организацией списков, динамических процессов механических систем. Концептуальная модель автоматизированной системы.

    курсовая работа [77,6 K], добавлен 20.01.2010

  • Системные требования к 2-х и 3-х мерной системе автоматизированного проектирования и черчения компании Autodesk - AutoCAD. Выбор типа установки, основные элементы интерфейса программы ArchiCAD. Возможности и моделирование конструкций SCAD OFFICE.

    курсовая работа [4,9 M], добавлен 23.08.2016

  • Особенности моделирования логических элементов в системе автоматизированного проектирования OrCAD 10.3, анализ его функционирования и оценка погрешности. Моделирование элементов иерархического уровня в системе автоматизированного проектирования GL–CAD.

    лабораторная работа [1,8 M], добавлен 26.12.2009

  • Разработка программного обеспечения, которое позволит автоматизировать работу менеджера с клиентами и поставщиками. Определение требований, тестирование, описание программы. Руководство системного программиста. Создание СУБД в DELPHI для менеджера.

    дипломная работа [775,0 K], добавлен 16.06.2014

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.