Visible:=FALSE;//;//
//TCADForm. TrapHLEditChange (Sender: TObject);// Обробка введення даних в TrapHLEdit //. Visible:=FALSE;//. Visible:=FALSE;//. Top:=360;// (TrapHLEdit. Text);// GenCheck=TRUE then////. Visible:=FALSE;//. Enabled:=TRUE;//. Enabled:=TRUE;//. Visible:=TRUE;//:=StrToFloat (TrapHLEdit. Text);// (TrapAccImgA. Visible=TRUE) and (TrapAccImgB. Visible=TRUE) and (TrapAccImgH. Visible=TRUE) then //. Visible:=TRUE;////// //. Enabled:=FALSE;//. Enabled:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;//. Caption:=ErrorString;//. Visible:=TRUE;//;//;//
//TCADForm. TrapHLEditEnter (Sender: TObject);// Відображення підказки до TrapHLEdit //. Visible:=TRUE;//. Visible:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;//;//
//TCADForm. TrapCalcLblClick (Sender: TObject);// Обробка натискання кнопки Розрахувати площа //(TrapAccImgA. Visible=TRUE) and (TrapAccImgB. Visible=TRUE) and (TrapAccImgH. Visible=TRUE) then////:=(h/2) * (a + b);//. Text:=FloatToStr (S);// S gt;=50 then //. Visible:=TRUE;//;//. Visible:=TRUE;// ( Laquo; Стеля за шаблоном трапеція raquo ;, a, b, h, 0, 0, S);//;// TCADForm. TriangleBtnClick (Sender: TObject);// Обробка вибору трикутника//SoundsEnabled=TRUE then//(PChar ( Sounds/OnSection. Wav ), 0, SND_ASYNC);// (11, FALSE);//. Visible:=TRUE;//. Visible:=TRUE;//. Visible:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;// LogFileDisabled=FALSE then//
EventLog ( Обрано шаблон трикутника );//
end;//
//TCADForm. TriangleBLEditChange (Sender: TObject);// Обробка введення даних в TriangleBLEdit //. Visible:=FALSE;//. Visible:=FALSE;//. Top:=300;// (TriangleBLEdit. Text);// GenCheck=TRUE then////. Visible:=FALSE;//. Enabled:=TRUE;//. Visible:=TRUE;//:=StrToFloat (TriangleBLEdit. Text);// (TriangleAccImgB. Visible=TRUE) and (TriangleAccImgH. Visible=TRUE) then //. Visible:=TRUE;////// //. Enabled:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;//. Caption:=ErrorString;//. Visible:=TRUE;//;//;//
//TCADForm. TriangleBLEditEnter (Sender: TObject);// Відображення підказки до TriangleBLEdit //. Visible:=TRUE;//. Visible:=FALSE;//. Visible:=FALSE;//;//
//TCADForm. TriangleHLEditChange (Sender: TObject);// Обробка введення даних в TriangleHLEdit //. Visible:=FALSE;//. Visible:=FALSE;//. Top:=330;// (TriangleHLEdit. Text);// GenCheck=TRUE then////. Visible:=FALSE;//. Enabled:=TRUE;//. Visible:=TRUE;//:=StrToFloat (TriangleHLEdit. Text);// (TriangleAccImgB. Visible=TRUE) and (TriangleAccImgH. Visible=TRUE) then //. Visible:=TRUE;////// //. Visible:=FALSE;//. Visible:=FALSE;//. Caption:=ErrorString;//. Visible:=TRUE;//;//;//
//TCADForm. TriangleHLEditEnter (Sender: TObject);// Відображення підказки до TriangleHLEdit //. Visible:=TRUE;//. Visible:=FALSE;//. Visible:=FALSE;//;//
//TCADForm. TriangleCalcLblClick (Sender: TObject);// Обробка натискання кнопки Розрахувати площа //(TriangleAccImgB. Visible=TRUE) and (TriangleAccImgH. Visible=TRUE) then////:=(h/2) * b;//. Text:=FloatToStr (S);// S gt;=50 then //. Visible:=TRUE;//;//. Visible:=TRUE;// ( Laquo; Стеля за шаблоном трикутник raquo ;, 0, b, h, 0, 0, S);//;// TCADForm. CircleBtnClick (Sender: TObject);// Обробка вибору кола//SoundsEnabled=TRUE then//(PChar ( Sounds/OnSection. Wav ), 0, SND_ASYNC);// (11, FALSE);//. Visible:=TRUE;//. Visible:=TRUE;//. Visible:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;// LogFileDisabled=FALSE then//
EventLog ( Обрано шаблон кола );//
end;//
//
Опис програми
Програма автоматизованого проектування натяжних стель призначена для автоматизації дій, виконуваних фахівцями-проектувальниками. Для цього в програмі реалізовані наступні функції: введення даних, обчислення площ стель простої форми за шаблоном, графічне проектування та обчислення площ стель складної форми, перегляд результатів, розрахунок вартості установки стелі, висновок звітів з результатами обчислень в текстові файли *. txt і графічні файли *. bmp.
Алгоритм роботи програми можна представлений у вигляді діаграми варіантів використання і діаграми послідовності.
Для обчислень та інших дій, передбачених можливостями програми, потрібні наступні вхідні дані: довжини сторін, довжина висоти, кількість сторін, радіус, координати точок, Ф. І.О. замовника, кількість світильників, кількість труб, вартість світильника, вартість, вартість квадратного метра. На підставі вхідних даних проводиться розрахунок площі стелі кімнати, площі натяжної стелі, загальної ва...