48738 (Расчет механизма подъема), страница 2

2016-07-30СтудИзба

Описание файла

Документ из архива "Расчет механизма подъема", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "48738"

Текст 2 страницы из документа "48738"

unit Unit1;

interface

uses

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

StdCtrls, Grids,math;

type

TForm1 = class(TForm)

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Label3: TLabel;

Edit2: TEdit;

Label4: TLabel;

Edit3: TEdit;

Label5: TLabel;

Edit4: TEdit;

Label6: TLabel;

Edit5: TEdit;

Label7: TLabel;

Edit6: TEdit;

Label8: TLabel;

Edit7: TEdit;

Label9: TLabel;

Edit8: TEdit;

Label10: TLabel;

Edit9: TEdit;

Label11: TLabel;

Label12: TLabel;

Edit10: TEdit;

Edit11: TEdit;

Label13: TLabel;

Edit12: TEdit;

Label14: TLabel;

Label15: TLabel;

Edit13: TEdit;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Edit14: TEdit;

Edit15: TEdit;

Edit16: TEdit;

Edit17: TEdit;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

Label25: TLabel;

Label26: TLabel;

Button4: TButton;

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Q,kpdb,nk,e,sp,dk,db,d,du:real;

nb:integer;

mdk:array[1..16]of real=(8.1,9.7,11.5,13.0,14.5,16.0,17.5,19.5,21.0,22.5,

24.0,25.5,27.5,29.0,32.0,35.5); //Приложение 4//

msp:array[1..16]of integer=(3430,4930,6750,8805,11100,13650,16550,19800,

23250,27000,31000,35300,39900,44750,54950,66600);Приложение 4

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

{===============Очистка окон вывода=====================}

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit8.Text:='';

Edit9.Text:='';

Edit10.Text:='';

Edit11.Text:='';

Edit12.Text:='';

Edit13.Text:='';

Edit14.Text:='';

Edit15.Text:='';

Edit16.Text:='';

Edit17.Text:='';

end;

{===============Расчет данных=====================}

procedure TForm1.Button1Click(Sender: TObject);

Var

kpdp,kpdn,smax1,smax2,kpdmin,nb,a,u,z:real;

j,mj:integer;db10,d10:real;

begin

q:=strtofloat(edit1.text);

kpdb:=strtofloat(edit2.text);

nb:=strtofloat(edit3.text);

a:=strtofloat(edit4.text);

u:=strtofloat(edit5.text);

nk:=strtofloat(edit6.text);

e:=strtofloat(edit7.text);

kpdp:=(1-power(kpdb,u))/((1-kpdb)*u);

kpdn:=(1-power(kpdb,u))*power(kpdb,nb)/((1-kpdb)*u);

If kpdp>=kpdn then kpdmin:=kpdn else kpdmin:=kpdp;

z:=u*a;

smax1:=q/(z*kpdmin);

smax2:=q/a*(1-kpdb)/(1-power(kpdb,u))/power(kpdb,nb);

//If smax1=smax2 then

sp:=smax1*nk;

//Выбор номера столбца из приложения 4//

For j:=1 to 16 do

If msp[j]>sp then

BEGIN

mj:=j;

break;

end;

dk:=mdk[mj];

db:=e*dk;

d:=(e-1)*dk;

db10:=(trunc(db/10)+1)*10;

d10:=(trunc(d/10)+1)*10;

du:=0.8*db10;

edit8.text:=FormatFloat('0.0#',kpdp);

edit9.text:=FormatFloat('0.0#',kpdn);

edit10.text:=FormatFloat('#0.000',smax1);

edit11.text:=FormatFloat('#0.000',smax2);

edit12.text:=FormatFloat('#0',z);

edit13.text:=FormatFloat('#0.000',sp);

edit14.text:=FormatFloat('#0.0',dk);

edit15.text:=FormatFloat('#0',db10);

edit16.text:=FormatFloat('#0.00',d);

edit17.text:=FormatFloat('#0.000',du);

end;

{===============Переход на приложение=====================}

procedure TForm1.Button4Click(Sender: TObject);

begin

form1.Hide;

form2.show;

end;

end.

unit Unit2;

interface

uses

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

Grids, StdCtrls;

type

TForm2 = class(TForm)

Button1: TButton;

Button2: TButton;

StringGrid1: TStringGrid;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);

begin

form2.Hide;

form1.show;

end;

procedure TForm2.FormCreate(Sender: TObject);

var i:integer;

begin

for i:=1 to 16 do

stringgrid1.Cells[i-1,0]:=formatfloat('#0.0',unit1.mdk[i]);

for i:=1 to 16 do

stringgrid1.Cells[i-1,1]:=formatfloat('#000',unit1.msp[i]);

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

close

end;

end.

7. Описание программы

Программа состоит из 4 процедур:

procedure Button1Click(Sender: TObject)– предназначена для выполнения вычислений.

procedure Button2Click(Sender: TObject)– предназначена для очистки окон вывода результатов расчетов.

procedure Button3Click(Sender: TObject)– предназначена для завершения работы приложения

procedure Button4Click содержит разделы констант, переменных и раздел операторов основной программы.

В разделе описания констант заданы значения постоянных параметров, приведенных в постановке задачи, а также табличные значения, приведенные в приложениях.

8. Программный интерфейс.

Рисунок 3.Форма для получения результатов в среде Delphi.

Рисунок 4.Форма с результатами расчетов в среде Delphi.

Рисунок 5 Форма для просмотра приложения

9. Описание работы программы

Программа предназначена для расчёта механизма подъема.

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

Заключение

10. Анализ результатов

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

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

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

A24=0.975 – в Delphi к.п.д. блока с учетом жесткости каната =0,98,

А25=0.647 – в Delphi к.п.д полиспаста (с неподвижного) =0,65,

A26=4 – в Delphi количество ветвей z=4,

A27=5797.461кгс – в Delphi Максимальное натяжение (набегающем) Smax1=5797.461кгс,

A28=5797,461кгс – в Delphi Максимальное натяжение (сбегающем) Smax2=5797.461кгс,

A29=31886.0336кгс – в Delphi Разрывное усилие Sp=31886,034кгс,

А30=637.5мм – в Delphi Диаметр блока(по центру) Dбл=640мм,

А32=612мм – в Delphi Диаметр блока (по дну канавки) D=612.00мм,

A33=620мм – в Delphi Диаметр уравнительного блока Dy=620мм.

Данная курсовая работа выполнялась на основе знаний, полученных в ходе изучения курса «Введение в информатику» и других общеобразовательных дисциплин. Целью курсовой работы являлось закрепление теоретических знаний и практических навыков студентов по основам алгоритмизации, программированию, и отладке программ при решении инженерной задачи.

Содержанием курсовой работы является расчётная технологическая задача, одной из специальных дисциплин, читаемых студентам на старших курсах. Таким образом, в дальнейшем это позволит использовать знания, полученные при выполнении данной курсовой работы, в научно-исследовательской работе студентов, курсовом и дипломном проектировании.

Список используемой литературы

1. Ф.К. Иванченко.2-е издание. Конструкция и расчёт подъёмно-транспортных машин. Киев, «Выща школа», 1988.

2. Методические указания и задания к курсовой работе по курсу «Введение в информатику для студентов специальности 07.09.0218 «Металлургическое оборудование»/ сост.:И.В. Дынник, О.Э.Толкачёв,-Донецк: ДонНТУ, 2007,-64с.

3. В.В. Фаронов Ве1рЫ 3 Учебный курс., Нолидж, 1998, с.390

Приложение

Параметры канатов стальных двойной свивки типа ЛК – 3 конструкции 6X25

Диаметр каната dK, мм

8,1

9,7

11,5

13,0

14,5

16,0

17,5

19,5

Разрывное усилие, кгс

3430

4930

6750

8805

11100

13650

16550

19800

Диаметр каната dK, мм

21,0

22,5

24,0

25,5

27,5

29,0

32,0

35,5

Разрывное усилие, кгс

23250

27000

31000

35300

39900

44750

54950

66600

Свежие статьи
Популярно сейчас
Зачем заказывать выполнение своего задания, если оно уже было выполнено много много раз? Его можно просто купить или даже скачать бесплатно на СтудИзбе. Найдите нужный учебный материал у нас!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4100
Авторов
на СтудИзбе
670
Средний доход
с одного платного файла
Обучение Подробнее