Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые обзорные » Розробка системи автоматизованого проектування

Реферат Розробка системи автоматизованого проектування





>В 

Рис. 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


Назад | сторінка 3 з 6 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Розробка програми підтримки користувача СОЛО-35.02
  • Реферат на тему: Розробка алгоритму і програми розрахунку на ПЕОМ коефіцієнта готовності сис ...
  • Реферат на тему: Проектування і розробка програми для роботи з довідником фармацевта
  • Реферат на тему: Розробка програми для виконання обчислень над матрицями
  • Реферат на тему: Розробка програми для розрахунку фінансових показників, які у складанні біз ...