Автор работы: Пользователь скрыл имя, 01 Декабря 2013 в 21:31, курсовая работа
Задача курсовой работы – создание законченного программного приложения прикладного технического характера, выполненного по индивидуальному заданию.
В данной работе необходимо рассчитать требуемый диаметр поддерживающего катка, в зависимости от общего количества поддерживающих катков и базы трактора. Катки являются элементом ходовой части трактора, которая должна обеспечивать поддержку верхней ветви гусеницы трактора. При этом поддерживающий каток должен иметь достаточные запас прочности, высокую износостойкость и долговечность и малую массу, быть простым и удобным в обслуживании.
ВВЕДЕНИЕ 5
1. МАТЕМАТИЧЕСКАЯ МОДЕЛЬ 6
2. АЛГОРИТМИЗАЦИЯ ВЫЧИСЛИТЕЛЬНЫХ ПРОЦЕССОВ 8
3. ТАБЛИЦА ИДЕНТИФИКАТОРОВ 11
4. РАЗРАБОТКА ИНТЕРФЕЙСА ПОЛЬЗОВАТЕЛЯ 13
5. СТРУКТУРА ПРОГРАММНОГО ПРИЛОЖЕНИЯ 16
5.1. Падающее и контекстное меню 16
5.2. Статусная строка 16
5.3. Обработка исключительных ситуаций 16
5.4. Построение графических зависимостей 17
5.5. Создание анимации 17
5.6. Вызов внешнего приложения 17
5.7. Динамически подключаемые библиотеки 18
6. РАЗРАБОТКА СПРАВОЧНОЙ СИСТЕМЫ 19
7. РАСЧЁТ КОНТРОЛЬНОГО ПРИМЕРА 21
ЗАКЛЮЧЕНИЕ 23
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ ИНФОРМАЦИИ...24
end;
Procedure road;
Begin
with Form4.image1.Canvas do
Begin
pen.Width:=4;
moveto(0,VD+3);
lineto(Form4.Image1.Width,VD+
pen.Width:=2;
end;
end;
{$R *.dfm}
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
Close;
end;
procedure TForm4.Timer1Timer(Sender: TObject);
begin
clear;
road;
Koleso;
XN:=R2*cos(f*Pi/180);
YN:=R2*sin(f*Pi/180);
YN1:=R3*sin(a*Pi/180);
XN1:=R3*cos(a*Pi/180);
a:=a+30;
f:=f+10;
if f=1200 then f:=0;
end;
procedure TForm4.FormCreate(Sender: TObject);
begin
Application.OnHint:=ShowHint;
f:=0;
end;
procedure TForm4.ShowHint(Sender: TObject);
begin
Form1.StatusBar1.SimpleText:=
end;
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
WinHelp(Handle,'Help.hlp',sw_
end;
procedure TForm4.N1Click(Sender: TObject);
begin
BitBtn1.Click;
end;
procedure TForm4.N2Click(Sender: TObject);
begin
BitBtn2.Click;
end;
end.
library Traktor; /DLL библиотека
uses
SysUtils,
Classes;
Type massive1=array[1..100] of real;
Type massive2=array[1..100,1..100] of real;
procedure Diametr(zMin,zMax,LMin,LMax,
var dz,dL,z,L,dz1,dL1:real;
i,j:integer;
begin
dz:=(zMax-zMin)/(v-1);
dL:=(LMax-LMin)/(u-1);
z:=zMin;
for i:=1 to v do
begin
DpVer[i]:=z;
L:=LMin;
for j:=1 to u do
begin
DpGor[j]:=L;
Dp[i,j]:=(2*My*tg*(2+0.5*z))/(
L:=L+dL;
end;
z:=z+dz;
end;
dz1:=(zMax-zMin)/2;
z:=zMin;
for i:=1 to 3 do
begin
L:=LMin;
for j:=1 to u do
begin
zMass[i]:=z;
DpZ[i,j]:=(2*My*tg*(2+0.5*z))/
L:=L+dL;
end;
z:=z+dz1;
end;
dL1:=(LMax-LMin)/2;
z:=zMin;
for i:=1 to v do
begin
L:=LMin;
for j:=1 to 3 do
begin
LMass[j]:=L;
DpL[i,j]:=(2*My*tg*(2+0.5*z))/
L:=L+dL1;
end;
z:=z+dz;
end;
end;
exports Diametr;
{$R *.res}
begin
end.