Приклад теми курсової роботи:
1. Розробити програму для автоматизованої побудови учбової деталі
Рис. Д.1.1. 3D-модель побудованої деталі (ізометрична проекція)
Рис. Д.1.2. Скріншот побудованої деталі (фронтальна проекція)
Лістинг Д.1.1
Вихідний код програми
uses uExportToAutoCAD, uTypes;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var a, b:nPoint;
begin
AutoCAD_SetView(vFront);
a.x:=0;
a.y:=0;
a.z:=0;
b.x:=0;
Продовження. Лістинг Д.1.1
b.y:=26;
b.z:=0;
ExportToAutoCAD_Line(a,b);
a.x:=0;
a.y:=26;
a.z:=0;
b.x:=15;
b.y:=26;
b.z:=0;
ExportToAutoCAD_Line(a,b);
a.x:=15;
a.y:=26;
a.z:=0;
b.x:=15;
b.y:=15;
b.z:=0;
ExportToAutoCAD_Line(a,b);
a.x:=35;
a.y:=15;
a.z:=0;
b.x:=35;
b.y:=0;
b.z:=0;
ExportToAutoCAD_Line(a,b);
a.x:=15;
a.y:=15;
a.z:=0;
b.x:=35;
b.y:=15;
b.z:=0;
ExportToAutoCAD_Line(a,b);
a.x:=35;
a.y:=0;
a.z:=0;
b.x:=0;
b.y:=0;
b.z:=0;
ExportToAutoCAD_Line(a,b);
AutoCAD_CenterObj();
AutoCAD_Region();
AutoCAD_ExtrudeObj(a,StrToFloat(Edit1.Text));
AutoCAD_SetView(vLeft);
a.x:=85;
a.y:=26;
a.z:=0;
b.x:=0;
b.y:=26;
b.z:=0;
ExportToAutoCAD_Line(a,b);
a.x:=0;
a.y:=26;
a.z:=0;
b.x:=0;
b.y:=86;
b.z:=0;
ExportToAutoCAD_Line(a,b);
a.x:=0;
a.y:=86;
a.z:=0;
Продовження. Лістинг Д.1.1
b.x:=45;
b.y:=86;
b.z:=0;
ExportToAutoCAD_Line(a,b);
a.x:=45;
a.y:=86;
a.z:=0;
b.x:=85;
b.y:=26;
b.z:=0;
ExportToAutoCAD_Line(a,b);
AutoCAD_CenterObj();
AutoCAD_Region();
AutoCAD_ExtrudeObj(a,StrToFloat(Edit2.Text));
AutoCAD_SetView(vLeft);
a.x:=65;
a.y:=56;
a.z:=StrToFloat(Edit2.Text);
b.x:=0;
b.y:=56;
b.z:=StrToFloat(Edit2.Text);
ExportToAutoCAD_Line(a,b);
a.x:=0;
a.y:=56;
a.z:=StrToFloat(Edit2.Text);
b.x:=0;
b.y:=86;
b.z:=StrToFloat(Edit2.Text);
ExportToAutoCAD_Line(a,b);
a.x:=0;
a.y:=86;
a.z:=StrToFloat(Edit2.Text);
b.x:=45;
b.y:=86;
b.z:=StrToFloat(Edit2.Text);
ExportToAutoCAD_Line(a,b);
a.x:=45;
a.y:=86;
a.z:=StrToFloat(Edit2.Text);
b.x:=65;
b.y:=56;
b.z:=StrToFloat(Edit2.Text);
ExportToAutoCAD_Line(a,b);
AutoCAD_CenterObj();
AutoCAD_Region();
AutoCAD_ExtrudeObj(a,StrToFloat(Edit3.Text));
end;
end.
Додаток 2.
Титульний лист і приклад технічного завдання мiністерство освіти і науки, молоді та спорту україни таврійський державний агротехнологічний університет
Факультет інженерії та комп’ютерних технологій
Кафедра прикладної геометрії та інформаційних технологій проектування
ім. В.М. Найдиша
Спеціальність: 7.05010102 Інформаційні технології проектування
КУРСОВА РОБОТА
з дисципліни:
«Основи проектної діяльності»
на тему:
Проект програмне забезпечення для автоматизації побудови учбової деталі № __
Пояснювальна записка
15 ПГД.198.000 000 ПЗ
Студент І.В.Василенко
Керівник Ю.О.Дмітрієв
Член комісії __________________________________________
Член комісії __________________________________________
Робота допущена до захисту
Завідувач кафедри ПГІТП
________________(д.т.н., професор Малкіна В.М.)
Мелітополь, 201_