Расчет диаметра поддерживающего катка, в зависимости от общего количества поддерживающих катков и базы трактора

1. Тракторы. Проектирование, конструирование и расчет / Под общ. ред. И.П. Ксеневича. - М.: Машиностроение, 1991. - 418 с.

2. Барский И.Б. Конструирование и расчет тракторов. Третье издание. - М.: Машиностроение, 1980. - 367 с.

3. Методическое пособие по выполнению курсовой работы по дисциплине «Информатика» для студентов специальностей «Тракторостроение», «Многоцелевые гусеничные и колесные машины», «Городской электрический транспорт». В.В. Равино, Ю.Е. Атаманов

ПРИЛОЖЕНИЕ

Текст программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls, Buttons, Menus, ExtCtrls ,ComObj, Math;

type

TForm1 = class(TForm)

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

LabeledEdit3: TLabeledEdit;

LabeledEdit4: TLabeledEdit;

LabeledEdit5: TLabeledEdit;

LabeledEdit6: TLabeledEdit;

LabeledEdit7: TLabeledEdit;

LabeledEdit8: TLabeledEdit;

LabeledEdit9: TLabeledEdit;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

PopupMenu1: TPopupMenu;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

StatusBar1: TStatusBar;

N14: TMenuItem;

LabeledEdit10: TLabeledEdit;

LabeledEdit11: TLabeledEdit;

Label3: TLabel;

Label1: TLabel;

PopupMenu2: TPopupMenu;

N13: TMenuItem;

N15: TMenuItem;

BitBtn5: TBitBtn;

procedure FormCreate(Sender: TObject);

procedure ShowHint(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

zMin,zMax,LMin,LMax,My,tg,qg,m,f:Real;

v,u:Integer;

Fr,Fw,FrPY:TextFile;

implementation

uses Unit2, Unit4;

{$R *.dfm}

Type massive1=array[1..100] of real;

Type massive2=array[1..100,1..100] of real;

procedure Diametr(zMin,zMax,LMin,LMax,My,tg,qg,m,f:real;v,u:integer;var Dp,DpZ,DpL:massive2;var DpVer,DpGor,zMass,LMass:massive1); external

'DLL\Traktor.dll';

procedure TForm1.FormCreate(Sender: TObject);

begin

BorderIcons:=BorderIcons-

[biSystemMenu];

DecimalSeparator:='.';

Application.OnHint:=ShowHint;

AssignFile(Fr, 'Данные.txt');

Reset(Fr);

ReadLn(Fr, zMin);

ReadLn(Fr, zMax);

ReadLn(Fr, v);

ReadLn(Fr, LMin);

ReadLn(Fr, LMax);

ReadLn(Fr, u);

ReadLn(Fr, My);

ReadLn(Fr, tg);

ReadLn(Fr, qg);

ReadLn(Fr, m);

ReadLn(Fr, f);

CloseFile(Fr);

Form1.LabeledEdit1.Text:=FloatToStr(zMin);

Form1.LabeledEdit2.Text:=FloatToStr(zMax);

Form1.LabeledEdit3.Text:=IntToStr(v);

Form1.LabeledEdit4.Text:=FloatToStr(LMin);

Form1.LabeledEdit5.Text:=FloatToStr(LMax);

Form1.LabeledEdit6.Text:=IntToStr(u);

Form1.LabeledEdit7.Text:=FloatToStr(My);

Form1.LabeledEdit8.Text:=FloatToStr(tg);

Form1.LabeledEdit9.Text:=FloatToStr(qg);

Form1.LabeledEdit10.Text:=FloatToStr(m);

Form1.LabeledEdit11.Text:=FloatToStr(f);

end;

procedure TForm1.ShowHint(Sender: TObject);

begin

Form1.StatusBar1.SimpleText:=Application.Hint;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

var Dp,DpZ,DpL:massive2;

DpVer,DpGor,zMass,LMass:massive1;

i,j:Integer;

begin

try

zMin:=StrToFloat(Form1.LabeledEdit1.Text);

except

on EConvertError Do

begin

MessageDlg('Неправильно введено начальное значение количества катков',

mtWarning,[mbOK],0);

Form1.LabeledEdit1.SetFocus;

Exit;

end;

end;

try

zMax:=StrToFloat(Form1.LabeledEdit2.Text);

except

on EConvertError Do

begin

MessageDlg('Неправильно введено конечное значение количества катков',

mtWarning,[mbOK],0);

Form1.LabeledEdit2.SetFocus;

Exit;

end;

end;

try

v:=StrToInt(Form1.LabeledEdit3.Text);

except

on EConvertError Do

begin

MessageDlg('Неправильно введено количество расчётных точек',

mtWarning,[mbOK],0);

Form1.LabeledEdit3.SetFocus;

Exit;

end;

end;

try

LMin:=StrToFloat(Form1.LabeledEdit4.Text);

except

on EConvertError Do

begin

MessageDlg('Неправильно введено начальное значение базы трактора',

mtWarning,[mbOK],0);

Form1.LabeledEdit4.SetFocus;

Exit;

end;

end;

try

LMax:=StrToFloat(Form1.LabeledEdit5.Text);

except

on EConvertError Do

begin

MessageDlg('Неправильно конечное конечное значение базы трактора',

mtWarning,[mbOK],0);

Form1.LabeledEdit5.SetFocus;

Exit;

end;

end;

try

u:=StrToInt(Form1.LabeledEdit6.Text);

except

on EConvertError Do

begin

MessageDlg('Неправильно введено количество расчётных точек',

mtWarning,[mbOK],0);

Form1.LabeledEdit6.SetFocus;

Exit;

end;

end;

try

My:=StrToFloat(Form1.LabeledEdit7.Text);

except

on EConvertError Do

begin

MessageDlg('Неправильно введено значение момента сопротивления',

mtWarning,[mbOK],0);

Form1.LabeledEdit7.SetFocus;

Exit;

end;

end;

try

tg:=StrToFloat(Form1.LabeledEdit8.Text);

except

on EConvertError Do

begin

MessageDlg('Неправильно введено значение шага гусеницы',

mtWarning,[mbOK],0);

Form1.LabeledEdit8.SetFocus;

Exit;

end;

end;

try

qg:=StrToFloat(Form1.LabeledEdit9.Text);

except

on EConvertError Do

begin

MessageDlg('Неправильно введено значение веса гусеницы',

mtWarning,[mbOK],0);

Form1.LabeledEdit9.SetFocus;

Exit;

end;

end;

try

m:=StrToFloat(Form1.LabeledEdit10.Text);

except

on EConvertError Do

begin

MessageDlg('Неправильно введено значение коэффициента трения',

mtWarning,[mbOK],0);

Form1.LabeledEdit10.SetFocus;

Exit;

end;

end;

try

f:=StrToFloat(Form1.LabeledEdit11.Text);

except

on EConvertError Do

begin

MessageDlg('Неправильно введено значение коэффициента сопротивления',

mtWarning,[mbOK],0);

Form1.LabeledEdit11.SetFocus;

Exit;

end;

end;

if (zMin<1) or (zMin>9) then

begin

MessageDlg('Неправильно введено начальное значение количества катков',

mtWarning,[mbOK],0);

Form1.LabeledEdit1.SetFocus;

Exit;

end;

if (zMax<2) or (zMax>10) then

begin

MessageDlg('Неправильно введено конечное значение количества катков',

mtWarning,[mbOK],0);

Form1.LabeledEdit2.SetFocus;

Exit;

end;

if (LMin<2) then

begin

MessageDlg('Неправильно введено начальное значение базы трактора',

mtWarning,[mbOK],0);

Form1.LabeledEdit4.SetFocus;

Exit;

end;

if (LMax<2.1) or (LMax>2.5) then

begin

MessageDlg('Неправильно конечное конечное значение базы трактора',

mtWarning,[mbOK],0);

Form1.LabeledEdit5.SetFocus;

Exit;

end;

if (My<1.5) or (My>5.5) then

begin

MessageDlg('Неправильно введено значение момента сопротивления',

mtWarning,[mbOK],0);

Form1.LabeledEdit7.SetFocus;

Exit;

end;

if (tg<0.124) or (tg>0.126) then

begin

MessageDlg('Неправильно введено значение шага гусеницы',

mtWarning,[mbOK],0);

Form1.LabeledEdit8.SetFocus;

Exit;

end;

if (qg<50) or (qg>800) then

begin

MessageDlg('Неправильно введено значение веса гусеницу',

mtWarning,[mbOK],0);

Form1.LabeledEdit9.SetFocus;

Exit;

end;

if (m<0.14) or (m>0.16) then

begin

MessageDlg('Неправильно введено значение коэффициента трения',

mtWarning,[mbOK],0);

Form1.LabeledEdit10.SetFocus;

Exit;

end;

if (f<0.01) or (f>0.03) then

begin

MessageDlg('Неправильно введено значение коэффициента сопротивления',

mtWarning,[mbOK],0);

Form1.LabeledEdit11.SetFocus;

Exit;

end;

if (v<1) or (v>1000000) then

begin

MessageDlg('количество расчётных точек',

mtWarning,[mbOK],0);

Form1.LabeledEdit3.SetFocus;

Exit;

end;

if (u<1) or (u>10000000) then

begin

MessageDlg('количество расчётных точек',

mtWarning,[mbOK],0);

Form1.LabeledEdit6.SetFocus;

Exit;

end;

if m=f then

begin

MessageDlg('Неправильно введены данные',mtWarning,[mbOK],0);

Form1.LabeledEdit10.SetFocus;

Form1.LabeledEdit11.SetFocus;

Exit;

end;

Diametr(zMin,zMax,LMin,LMax,My,tg,qg,m,f,v,u,Dp,DpZ,DpL,DpVer,DpGor,zMass,LMass);

Form2.StringGrid1.ColCount:=v+1;

Form2.StringGrid1.RowCount:=u+1;

for i:=1 to v do

begin

for j:=1 to u do

begin

Form2.StringGrid1.Cells[i,j]:=FloatToStrF(Dp[i,j],ffFixed,8,4);

Form2.StringGrid1.Cells[i,0]:=FloatToStrF(DpVer[i],ffFixed,3,2);

Form2.StringGrid1.Cells[0,j]:=FloatToStrF(DpGor[j],ffFixed,3,2)+' м';

end;

end;

Form2.ShowModal;

end;

procedure TForm1.N14Click(Sender: TObject);

begin

AssignFile(FrPY, 'По умолчанию.txt');

begin

Reset(FrPY);

ReadLn(FrPY,zMin);

ReadLn(FrPY,zMax);

ReadLn(FrPY,v);

ReadLn(FrPY,LMin);

ReadLn(FrPY,LMax);

ReadLn(FrPY,u);

ReadLn(FrPY,My);

ReadLn(FrPY,tg);

ReadLn(FrPY,qg);

ReadLn(FrPY,m);

ReadLn(FrPY,f);

CloseFile(FrPY);

Form1.LabeledEdit1.Text:=FloatToStr(zMin);

Form1.LabeledEdit2.Text:=FloatToStr(zMax);

Form1.LabeledEdit3.Text:=IntToStr(v);

Form1.LabeledEdit4.Text:=FloatToStr(LMin);

Form1.LabeledEdit5.Text:=FloatToStr(LMax);

Form1.LabeledEdit6.Text:=IntToStr(u);

Form1.LabeledEdit7.Text:=FloatToStr(My);

Form1.LabeledEdit8.Text:=FloatToStr(tg);

Form1.LabeledEdit9.Text:=FloatToStr(qg);

Form1.LabeledEdit10.Text:=FloatToStr(m);

Form1.LabeledEdit11.Text:=FloatToStr(f);

end;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

WinExec ('Calc\calc.exe', SW_RESTORE);

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form1.BitBtn2.Click;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Form1.BitBtn2.Click;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

try

zMin:=StrToFloat(Form1.LabeledEdit1.Text);

except

on EConvertError Do

begin

MessageDlg('Некорректно введены данные',

mtWarning,[mbOK],0);

Form1.LabeledEdit1.SetFocus;

Exit;

end;

end;

try

zMax:=StrToFloat(Form1.LabeledEdit2.Text);

except

on EConvertError Do

begin

MessageDlg('Некорректно введены данные',

mtWarning,[mbOK],0);

Form1.LabeledEdit2.SetFocus;

Exit;

end;

end;

try

v:=StrToInt(Form1.LabeledEdit3.Text);

except

on EConvertError Do

begin

MessageDlg('Некорректно введены данные',

mtWarning,[mbOK],0);

Form1.LabeledEdit3.SetFocus;

Exit;

end;

end;

try

LMin:=StrToFloat(Form1.LabeledEdit4.Text);

except

on EConvertError Do

begin

MessageDlg('Некорректно введены данные',

mtWarning,[mbOK],0);

Form1.LabeledEdit4.SetFocus;

Exit;

end;

end;

try

LMax:=StrToFloat(Form1.LabeledEdit5.Text);

except

on EConvertError Do

begin

MessageDlg('Некорректно введены данные',

mtWarning,[mbOK],0);

Form1.LabeledEdit5.SetFocus;

Exit;

end;

end;

try

u:=StrToInt(Form1.LabeledEdit6.Text);

except

on EConvertError Do

begin

MessageDlg('Некорректно введены данные',

mtWarning,[mbOK],0);

Form1.LabeledEdit6.SetFocus;

Exit;

end;

end;

try

My:=StrToFloat(Form1.LabeledEdit7.Text);

except

on EConvertError Do

begin

MessageDlg('Некорректно введены данные',

mtWarning,[mbOK],0);

Form1.LabeledEdit7.SetFocus;

Exit;

end;

end;

try

tg:=StrToFloat(Form1.LabeledEdit8.Text);

except

on EConvertError Do

begin

MessageDlg('Некорректно введены данные',

mtWarning,[mbOK],0);

Form1.LabeledEdit8.SetFocus;

Exit;

end;

end;

try

qg:=StrToFloat(Form1.LabeledEdit9.Text);

except

on EConvertError Do

begin

MessageDlg('Некорректно введены данные',

mtWarning,[mbOK],0);

Form1.LabeledEdit9.SetFocus;

Exit;

end;

end;

try

m:=StrToFloat(Form1.LabeledEdit9.Text);

except

on EConvertError Do

begin

MessageDlg('Некорректно введены данные',

mtWarning,[mbOK],0);

Form1.LabeledEdit9.SetFocus;

Exit;

end;

end;

try

f:=StrToFloat(Form1.LabeledEdit9.Text);

except

on EConvertError Do

begin

MessageDlg('Некорректно введены данные',

mtWarning,[mbOK],0);

Form1.LabeledEdit9.SetFocus;

Exit;

end;

end;

AssignFile(Fw, 'Данные.txt');

ReWrite(Fw);

WriteLn(Fw,StrToFloat(Form1.LabeledEdit1.Text));

WriteLn(Fw,StrToFloat(Form1.LabeledEdit2.Text));

WriteLn(Fw,StrToInt(Form1.LabeledEdit3.Text));

WriteLn(Fw,StrToFloat(Form1.LabeledEdit4.Text));

WriteLn(Fw,StrToFloat(Form1.LabeledEdit5.Text));

WriteLn(Fw,StrToInt(Form1.LabeledEdit6.Text));

WriteLn(Fw,StrToFloat(Form1.LabeledEdit7.Text));

WriteLn(Fw,StrToFloat(Form1.LabeledEdit8.Text));

WriteLn(Fw,StrToFloat(Form1.LabeledEdit9.Text));

WriteLn(Fw,StrToFloat(Form1.LabeledEdit10.Text));

WriteLn(Fw,StrToFloat(Form1.LabeledEdit11.Text));

CloseFile(Fw);

Close;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form1.BitBtn4.Click;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form1.BitBtn1.Click;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form1.BitBtn1.Click;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

Form1.N14.Click;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

Form1.BitBtn4.Click;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Form4.ShowModal;

end;

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

Form4.ShowModal;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

WinHelp(Handle,'Help.hlp',sw_restore,1);

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

WinHelp(Handle,'Help.hlp',sw_restore,2);

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, Grids ,ComObj, Menus, ComCtrls, Math;

type

TForm2 = class(TForm)

GroupBox1: TGroupBox;

StringGrid1: TStringGrid;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn6: TBitBtn;

SaveDialog1: TSaveDialog;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

N2: TMenuItem;

MSWord1: TMenuItem;

MSExcel1: TMenuItem;

N4: TMenuItem;

PrintDialog1: TPrintDialog;

Label1: TLabel;

SaveDialog2: TSaveDialog;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure MSWord1Click(Sender: TObject);

procedure MSExcel1Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

zMin,zMax,LMin,LMax,My,tg,qg,m,f:Real;

v,u:Integer;

Fr,Fw,FrPY:TextFile;

implementation

uses Unit1, Unit3;

{$R *.dfm}

Type massive1=array[1..100] of real;

Type massive2=array[1..100,1..100] of real;

procedure Diametr(zMin,zMax,LMin,LMax,My,tg,qg,m,f:real;v,u:integer;var Dp,DpZ,DpL:massive2;var DpVer,DpGor,zMass,LMass:massive1); external

'DLL\Traktor.dll';

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

Close;

end;

procedure TForm2.BitBtn4Click(Sender: TObject);

var i,j:integer;

Dp,DpZ,DpL:massive2;

DpVer,DpGor,LMass,zMass:massive1;

begin

zMin:=StrToFloat(Form1.LabeledEdit1.Text);

zMax:=StrToFloat(Form1.LabeledEdit2.Text);

v:=50;

LMin:=StrToFloat(Form1.LabeledEdit4.Text);

LMax:=StrToFloat(Form1.LabeledEdit5.Text);

u:=50;

My:=StrToFloat(Form1.LabeledEdit7.Text);

tg:=StrToFloat(Form1.LabeledEdit8.Text);

qg:=StrToFloat(Form1.LabeledEdit9.Text);

m:=StrToFloat(Form1.LabeledEdit10.Text);

f:=StrToFloat(Form1.LabeledEdit11.Text);

Diametr(zMin,zMax,LMin,LMax,My,tg,qg,m,f,v,u,Dp,DpZ,DpL,DpVer,DpGor,zMass,LMass);

for i:=1 to v do

begin

for j:=1 to u do

begin

Form3.Series7.AddXYZ(DpVer[i],Dp[i,j],DpGor[j]);

Form3.Series4.AddXY(DpVer[i],DpL[i,1]);

Form3.Series5.AddXY(DpVer[i],DpL[i,2]);

Form3.Series6.AddXY(DpVer[i],DpL[i,3]);

Form3.Series1.AddXY(DpGor[j],DpZ[1,j]);

Form3.Series2.AddXY(DpGor[j],DpZ[2,j]);

Form3.Series3.AddXY(DpGor[j],DpZ[3,j]);

end;

end;

Form3.Series1.Title:='Знач. кол-ва катков: '+FloatToStr(zMass[1]);

Form3.Series2.Title:='Знач. кол-ва катков: '+FloatToStr(zMass[2]);

Form3.Series3.Title:='Знач. кол-ва катков: '+FloatToStr(zMass[3]);

Form3.Series4.Title:='Знач. базы трактора: '+FloatToStr(LMass[1])+' м';

Form3.Series5.Title:='Знач. базы трактора: '+FloatToStr(LMass[2])+' м';

Form3.Series6.Title:='Знач. базы трактора: '+FloatToStr(LMass[3])+' м';

Form3.ShowModal;

end;

procedure TForm2.N1Click(Sender: TObject);

begin

Form2.BitBtn1.Click;

end;

procedure TForm2.N2Click(Sender: TObject);

begin

Form2.BitBtn4.Click;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

BorderIcons:=BorderIcons-

[biSystemMenu];

with StringGrid1 do

begin

Cells[0,0]:='L\z'

end;

end;

procedure TForm2.BitBtn2Click(Sender: TObject);

var WordApp,NewDoc,WordTable:OLEVariant;

iRows,iCols,iGridRows,jGridCols:integer;

begin

if Form2.SaveDialog1.Execute=false then exit;

try

WordApp:=CreateOleObject('Word.Application');

except

Exit

end;

NewDoc:=WordApp.Documents.Add;

iCols:=Stringgrid1.ColCount;

iRows:=Stringgrid1.RowCount;

WordTable:=NewDoc.Tables.Add(WordApp.Selection.Range,iRows,iCols);

WordTable.Range.Font.Size:=8;

for iGridRows:=1 to iRows do

for jGridCols:=1 to iCols do

WordTable.Cell(iGridRows,jGridCols).Range.Text:=Form2.Stringgrid1.Cells[jGridCols-1,iGridRows-1];

WordApp.ActiveDocument.SaveAs(Form2.SaveDialog1.FileName);

WordApp.Quit;

WordApp:=Unassigned;

NewDoc:=Unassigned;

WordTable:=Unassigned;

end;

procedure TForm2.BitBtn3Click(Sender: TObject);

var XLApp,sheet,colum:variant;

i,j:integer;

begin

if Form2.SaveDialog2.Execute=false then exit;

try

XLApp:=CreateOleObject('Excel.Application');

except

Exit

end;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Результат';

Colum:=XLApp.Workbooks[1].WorkSheets['Результат'].Columns;

v:=StrToInt(Form1.LabeledEdit3.Text);

u:=StrToInt(Form1.LabeledEdit6.Text);

for i:=1 to v+1 do

Colum:=XLApp.Workbooks[1].WorkSheets['Результат'].Rows;

Colum.columns[1].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.italic:=true;

Colum.Rows[2].Font.Bold:=true;

Sheet:=XLApp.Workbooks[1].WorkSheets['Результат'];

for i:=0 to v do

for j:=0 to u do

sheet.Cells[j+2,i+1]:=Form2.Stringgrid1.Cells[i,j];

sheet.Cells[1,2]:='Требуемый диаметр поддерживающего катка, м.';

XLApp.ActiveWorkbook.SaveAs(Form2.SaveDialog2.FileName);

XLApp.Quit;

end;

procedure TForm2.MSWord1Click(Sender: TObject);

begin

Form2.BitBtn2.Click;

end;

procedure TForm2.MSExcel1Click(Sender: TObject);

begin

Form2.BitBtn3.Click;

end;

procedure TForm2.BitBtn6Click(Sender: TObject);

begin

WinHelp(Handle,'Help.hlp',sw_restore,3);

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, TeeSurfa, TeEngine, Series, ExtCtrls,

TeeProcs, Chart, ComCtrls, Menus, ComObj, TeeTools, TeeComma;

type

TForm3 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

Chart3: TChart;

Series7: TSurfaceSeries;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

N2: TMenuItem;

Chart1: TChart;

Series1: TLineSeries;

Series2: TLineSeries;

Series3: TLineSeries;

Chart2: TChart;

Series4: TLineSeries;

Series5: TLineSeries;

Series6: TLineSeries;

ChartTool1: TRotateTool;

TeeCommander1: TTeeCommander;

TeeCommander2: TTeeCommander;

TeeCommander3: TTeeCommander;

procedure BitBtn1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Form3.Series1.Clear;

Form3.Series2.Clear;

Form3.Series3.Clear;

Form3.Series4.Clear;

Form3.Series5.Clear;

Form3.Series6.Clear;

Form3.Series7.Clear;

Close;

end;

procedure TForm3.N1Click(Sender: TObject);

begin

Form3.BitBtn1.Click;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

BorderIcons:=BorderIcons-

[biSystemMenu];

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

WinHelp(Handle,'Help.hlp',sw_restore,4);

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls, Math, Menus;

type

TForm4 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Image1: TImage;

Timer1: TTimer;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

N2: TMenuItem;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure ShowHint(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1;

Const

R1=40;

R2=30;

R3=6;

VD=150;

D=80;

R=140;

var a,XN,XN1,YN,YN1,f:variant;

Procedure Koleso;

begin

with Form4.Image1.Canvas do

Begin

ellipse(f-2*R1-R,VD,f-R,VD-2*R1);

ellipse(f+D-R,VD,2*R1+f+D-R,VD-2*R1);

ellipse(f+30-R,VD-2*R1+20,f+50-R,VD-2*R1);

rectangle(f-R1-R,VD+1,2*R1+f-R1+D-R,VD-1);

rectangle(f-R1-R,VD-2*R1,2*R1+f-R1+D-R,VD+2-2*R1);

end;

end;

Procedure clear;

begin

Form4.Image1.canvas.Rectangle(0,0,Form4.Image1.Width,Form4.Image1.Height);

end;

Procedure road;

Begin

with Form4.image1.Canvas do

Begin

pen.Width:=4;

moveto(0,VD+3);

lineto(Form4.Image1.Width,VD+3);

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:=Application.Hint;

end;

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

WinHelp(Handle,'Help.hlp',sw_restore,5);

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,My,tg,qg,m,f:real;v,u:integer;var Dp,DpZ,DpL:massive2;var DpVer,DpGor,zMass,LMass:massive1);

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))/(qg*L*(m-f));

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))/(qg*L*(m-f));

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))/(qg*L*(m-f));

L:=L+dL1;

end;

z:=z+dz;

end;

end;

exports Diametr;

{$R *.res}

begin

end.

Размещено на Allbest.ru