Расчет башенного крана и механизма изменений вылета

6.ТЕКСТ ПРОГРАММЫ

unit Unit1;

interface

uses

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

StdCtrls, Menus, Grids;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Edit4: TEdit;

Label5: TLabel;

Edit5: TEdit;

Lab

el6: TLabel;

Edit6: TEdit;

Label7: TLabel;

Edit7: TEdit;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N81: TMenuItem;

N11: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

OpenDialog1: TOpenDialog;

StringGrid1: TStringGrid;

StringGrid2: TStringGrid;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Edit12: TEdit;

Edit13: TEdit;

Edit14: TEdit;

Label15: TLabel;

Edit15: TEdit;

Label16: TLabel;

Edit16: TEdit;

Label17: TLabel;

Edit17: TEdit;

procedure N11Click(Sender: TObject);

procedure N81Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Vsr,A,Lc,b,r,Nm,PV,Scp,S1,max,min:real;

Lmax,Lmin,d_l,Amax,Amin,da,Vpol,Np:real;

tip:array[1 5] of string;

PVT:array[1 5] of real;

dl,Sp:array[1 8] of real;

i:integer;

implementation

{$R *.DFM}

procedure TForm1.N11Click(Sender: TObject);

Var

F1:textfile;

fname:string;

begin

StringGrid1.Visible:=true;

StringGrid1.Cells[0,0]:='тип дв.';

StringGrid1.Cells[0,1]:='мощность';

fname:='';

if opendialog1.Execute then

begin

fname:=OpenDialog1.FileName;

AssignFile(f1,fname);

Reset(f1);

for i:=1 to 5 do

begin

readln(f1, tip[i]);

readln(f1, PVT[I]);

StringGrid1.Cells[i,0]:=tip[i];

StringGrid1.Cells[i,1]:=formatFloat('0.#',PVT[i]);

END;

closefile(f1);

end;

end;

procedure TForm1.N81Click(Sender: TObject);

Var

F1:textfile;

fname:string;

begin

StringGrid2.Visible:=true;

StringGrid2.Cells[0,0]:='длина';

StringGrid2.Cells[0,1]:='усилие';

fname:='';

if opendialog1.Execute then

begin

fname:=OpenDialog1.FileName;

AssignFile(f1,fname);

Reset(f1);

for i:=1 to 8 do

begin

readln(f1, dl[i]);

readln(f1, Sp[I]);

StringGrid2.Cells[i,0]:=formatFloat('0.#',dl[i]);

StringGrid2.Cells[i,1]:=formatFloat('0.#',Sp[i]);

END;

closefile(f1);

end;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Scp:=0;

for i:=1 to 8 do

begin

Scp:=Scp+(Sp[i]*Sp[i])*dl[i];

S1:=S1+dl[i];

end;

Scp:=SQRT(Scp/S1);

edit8.Text:=formatFloat('0.##',Scp);

max:=dl[1];

min:=dl[1];

FOR i:=1 to 8 do

begin

if dl[i]>max then

max:=dl[i];

if dl[i]<min then

min:=dl[i];

end;

edit9.Text:=formatFloat('0.##',max);

edit10.Text:=formatFloat('0.##',min);

d_l:=max-min;

edit11.Text:=formatFloat('0.##',d_l);

Amax:=A;

edit12.Text:=formatFloat('0.##',Amax);

Amin:=(cos(b*pi/180))*Lc+r;

edit13.Text:=formatFloat('0.##',Amin);

da:=Amax-Amin;

edit14.Text:=formatFloat('0.##',da);

Vpol:=Vsr/60*(d_l/da);

edit15.Text:=formatFloat('0.##',Vpol);

Np:=(Scp*1000*Vpol)/(102*Nm);

edit16.Text:=formatFloat('0.##',Np);

For i:=5 downto 1 do

if Np>PVT[i] then

begin

edit17.Text:=tip[i];

break;

end;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Vsr:=StrToFloat(Edit1.Text);

A:=StrToFloat(Edit2.Text);

Lc:=StrToFloat(Edit3.Text);

b:=StrToFloat(Edit4.Text);

r:=StrToFloat(Edit5.Text);

Nm:=StrToFloat(Edit6.Text);

PV:=StrToFloat(Edit7.Text);

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

Edit5.Text:='';

Edit6.Text:='';

Edit7.Text:='';

Edit8.Text:='';

Edit9.Text:='';

Edit10.Text:='';

Edit11.Text:='';

Edit12.Text:='';

Edit13.Text:='';

Edit14.Text:='';

Edit15.Text:='';

Edit16.Text:='';

edit17.Text:='';

For i:=0 to 5 do

Begin

StringGrid1.Cells[i,0]:='';

StringGrid1.Cells[i,1]:='';

end;

For i:=0 to 8 do

Begin

StringGrid2.Cells[i,0]:='';

StringGrid2.Cells[i,1]:='';

end;

StringGrid1.Visible:=false;

StringGrid2.Visible:=false;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

close;

end;

end.

7. ОПИСАНИЕ ПРОГРАММЫ

Программа состоит из 6 процедур.

procedure N11Click(Sender: TObject);

• видимость таблицы и её заполнение (приложение1).

• ввод исходных данных с формы.

procedure N81Click(Sender: TObject);

• видимость таблицы и её заполнение (приложение2).

• ввод исходных данных с формы.

procedure N4Click(Sender: TObject);

• расчёт технических характеристик мощности электродвигателя.

procedure N2Click(Sender: TObject);

• ввод данных с формы.

procedure N5Click(Sender: TObject);

• очистка данных.

procedure N6Click(Sender: TObject);

• выход из программы

8. ПРОГРАМНЫЙ ИНТЕРФЕЙС

Рисунок 4

Рисунок 5

Рисунок 6

Рисунок 7

Рисунок 8

9.ОПИСАНИЕ РАБОТЫ ПРОГРАММЫ

Программа предназначена для расчёта мощности двигателя и определения типа двигателя крана.

Для запуска программы заходим в папку, содержащую файлы Delphi. Находим файл с названием: RM.exe, Двойным нажатием вызываем программу и после чего её запускаем. Вводим данные с формы, открываем приложение8 и приложение1, после нажимаем кнопку Расчёт(получаем нужные результаты). Затем нажимаем кнопку Очистить(очищая данные с формы).Нажимаем кнопку Выход и выходим из программы.

ЗАКЛЮЧЕНИЕ

После выполнения данной курсовой работы и анализа полученных результатов можно сделать вывод, что результаты, полученные в программе, составленной на языке программирования Delphi 3 идентичны расчётам в табличном процессоре Microsoft Office Ехсе1.

Данная программа предназначена для выбора и расчета крюковой подвески мостового крана, а конкретней для расчета суммарного напряжения крюковой подвески.

Программа сделана при помощи приложений Borland Delphi 3. Все просчёты были продублированы на пакете Microsoft Ехсе1.

 Скачать реферат