>В
Рис. 6. Вікно програми після виконання розрахунку
Після запуску програми від користувача потрібно ввести в поле введення значення обсягу (за замовчуванням це значення дорівнює 1000), Потім натиснути кнопку Розрахунок. Після цього виводиться рішення задачі. Користувач може натиснути на доступні тепер кнопки Модель та Чертеж, щоб виконалися всі необхідні побудови. Компас3D запуститься автоматично (у разі його присутності на машині користувача). br/>
Результат роботи програми
В
Рис.7. Вікно програми з результатами розрахунку
В
Рис.8 Вікно В«Компас3DВ» з побудованим кресленням
В
Рис. 9 Вікно В«Компас3DВ» з побудованою збіркою
Список використаної літератури
1.Конспект лекцій з дисципліни В«Розробка САПРВ», проф., доц. Ямнікова О.А., 2010р.; p> 2.Методіческіе вказівки з виконання курсової роботи з курсу В«Розробка САПРВ», проф., доц. Ямнікова О.А., 2010 р.
Додаток 1
Код модуля Unit1.pasUnit1;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComObj, OleCtrls, ksTLB, ComCtrls, StdCtrls, KompasAPI, DB,, DBGrids, ADODB, ExtCtrls, Buttons, jpeg, XPMan , math;
= class (TForm): TButton;: TLabeledEdit;: TOpenDialog;: TMemo;: TButton;: TButton;: TOpenDialog; Button4Click (Sender: TObject); Button2Click (Sender: TObject); Button1Click ( Sender: TObject);
{Private declarations}
{Public declarations};: TForm1; D1: ksDocument2D;, v, h, s: real;
{$ R *. dfm}
calc;
(v> = 990) and (v <= 1010) then: = power ((v/pi), 1/3);: = 2 * v/r + pi * power (r , 2);: = v/(pi * r * r); form1.m do
lines.Add ('--- Результати обчислення ---');
lines.Add ('Заданий обсяг ємності:' + floattostr (v));
lines.Add ('Висота:' + floattostr (h));. Add ('Радіус обертання:' + floattostr (r));. Add ('Площа поверхні:' + floattostr (s ));;
end
else
MessageDlg ('Значення обсягу виходить за допустимі межі!', mtWarning, [mbOk], 0);
end; TForm1.Button4Click (Sender: TObject);: TStringList;: TPartVars;
full (ch: boolean): real; ch then result: = 0result: = 1;;
OD1.Execute then (OD1.FileName);: = TStringList.Create; (c);: = GetPartVars (c [1]);
('', 'h', h); ('', 'r', r);
: = GetPartVars (c [1]);
. Free;. Enabled: = true