Расчет башенного крана и механизма изменений вылета (стр. 2 из 2)
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.
Данная курсовая работа выполнялась на основе знаний, полученных в ходе изучения курса "Введение в информатику" и других общеобразовательных дисциплин. Целью курсовой работы являлось закрепление теоретических знаний и практических навыков студентов по основам алгоритмизации, программированию, и отладке программ при решении инженерной задачи.
Содержанием курсовой работы является расчётная технологическая задача, одной из специальных дисциплин, читаемых студентам на старших курсах. Таким образом, в дальнейшем это позволит использовать знания, полученные при выполнении данной курсовой работы, в научно-исследовательской работе студентов, курсовом и дипломном проектировании.
СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ
1. Ф.К. Иванченко.2-е издание. Конструкция и расчёт подъёмно-транспортных машин. Киев, "Выща школа", 1988.
2. Методические указания и задания к курсовой работе по курсу "Введение в информатику для студентов специальности 07.09.0218 "Металлургическое оборудование"/ сост.:И.В. Дынник, О.Э.Толкачёв,-Донецк: ДонНТУ, 2007,-64с.
3. В.В.Фаронов Dе1рhi 3 Учебный курс., Нолидж, 1998, с.390
Приложения
Приложение 1
Технические данные крановых электродвигателей серии MTF с фазовым ротором 50 Гц, 220/380 и 500 В
| Тип двигателя | Мощность на валу, кВт при | Частота вращения, мин -1 | Максимальный момент, кгс·м | Маховый момент ротора, кгс·м 2 | Момент инерции ротора, кгс·м·с 2 | Вес электродвигателя, кгс | ||
| ПВ=15% | ПВ=25% | ПВ=40% | ||||||
| MTF 012-6 | 3,1 | 785 | ||||||
| 2,7 | 840 | 5,7 | 0,115 | 0,00293 | 58 | |||
| 2,2 | 890 | |||||||
| MTF 211-6 | 10,5 | 895 | ||||||
| 9 | 915 | 19,5 | 0,46 | 0,0117 | 120 | |||
| 7,5 | 930 | |||||||
| MTF 311-8 | 10,5 | 665 | ||||||
| 9 | 680 | 27 | 1,1 | 0,028 | 170 | |||
| 7,5 | 695 | |||||||
| MTF 411-6 | 30 | 945 | ||||||
| 27 | 955 | 65 | 2,0 | 0,0510 | 280 | |||
| 22 | 965 | |||||||
| MTF 412-6 | 40 | 960 | ||||||
| 36 | 965 | 95 | 2,7 | 0,0688 | 345 | |||
| 30 | 970 | |||||||
Величина усилий по длине стрелового полиспаста
| Δ l, м | 22,6 | 21,8 | 21,2 | 21,1 | 19,2 | 18,3 | 17,6 | 17,2 |
| S П | 48,6 | 44,8 | 41,6 | 38,5 | 35,4 | 31,5 | 28,2 | 25,4 |