Использование современного программного обеспечения для проектировании цепной передачи в металлорежущем станке 
if ComboBox3.Text='1650' then e:=2.5;
if ComboBox3.Text='1650' then P:=2.54 ;
if ComboBox3.Text='1650' then Talpha:=28.33;
if ComboBox3.Text='1650' then c1:=41.03;
if ComboBox3.Text='1650' then r1:=2.5;
if ComboBox3.Text='1650' then s:=3;
if ComboBox3.Text='1350' then b2:=17.5;
if ComboBox3.Text='1350' then u1:=11.91;
if ComboBox3.Text='1350' then h:=20.7;
if ComboBox3.Text='1350' then e:=3.2;
if ComboBox3.Text='1350' then P:=3.175 ;
if ComboBox3.Text='1350' then Talpha:=35.35;
if ComboBox3.Text='1350' then c1:=51.34;
if ComboBox3.Text='1350' then r1:=3.5;
if ComboBox3.Text='1350' then s:=3;
tau:=3.14/z;
dd:=shag/sin(tau);
Dt:=dd-(2*h/cos(tau));
P:=0.1*shag;
R:=2.4*shag;
K:=0.04*shag;
fi:=6.28/z;
gamma:=0.52-fi;
bzuba:=B+2*s;
cL:=0.4*shag;
r:=shag;
h1:=0.75*shag;
s1:=2*s;
ty:=shag-2*(u1*cos(gamma)-P*sin(gamma));
label27.Caption:=formatfloat('0.##',tau);
label28.Caption:=formatfloat('#.##',dd);
label29.Caption:=formatfloat('#.##',e);
label30.Caption:=formatfloat('#.##',h);
label31.Caption:=formatfloat('#.##',Dt);
label32.Caption:=formatfloat('#.##',P);
label33.Caption:=formatfloat('#.##',R);
label34.Caption:=formatfloat('0.##',fi);
label35.Caption:=formatfloat('0.##',gamma);
label36.Caption:=formatfloat('#.##',bzuba);
label37.Caption:=formatfloat('#.##',cL);
label38.Caption:=formatfloat('#.##',r);
label39.Caption:=formatfloat('#.##',h1);
label40.Caption:=formatfloat('#.##',s1);
label41.Caption:=formatfloat('#.##',T);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if Panel1.Caption='' then showmessage ('Произведите расчет цепи.');
if Panel1.Caption='Типоразмер цепи - З-12-2,4' then
memo1.Lines.add('12.7; 22.5; 13.4; 7; 1.5; 4.76; 28.5; 30; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-12-2,9' then
memo1.Lines.add('12.7; 28.5; 13.4; 7; 1.5; 4.76; 34.5; 36; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-12-3,4' then
memo1.Lines.add('12.7; 34.5; 13.4; 7; 1.5; 4.76; 40.5; 42; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-12-4,0' then
memo1.Lines.add('12.7; 40.5; 13.4; 7; 1.5; 4.76; 46.5; 48; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-12-4,7' then
memo1.Lines.add('12.7; 46.5; 13.4; 7; 1.5; 4.76; 52.5; 54; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-12-5,3' then
memo1.Lines.add('12.7; 52.5; 13.4; 7; 1.5; 4.76; 58.5; 60; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-15-3,9' then
memo1.Lines.add('15.875; 30; 16.7; 8.7; 2.0; 5.95; 36.0; 39; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-15-4,8' then
memo1.Lines.add('15.875; 38; 16.7; 8.7; 2.0; 5.95; 44.0; 47; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-15-5,7' then
memo1.Lines.add('15.875; 46; 16.7; 8.7; 2.0; 5.95; 52.0; 55; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-15-6,7' then
memo1.Lines.add('15.875; 54; 16.7; 8.7; 2.0; 5.95; 60.0; 63; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-15-7,8' then
memo1.Lines.add('15.875; 62; 16.7; 8.7; 2.0; 5.95; 68.0; 71; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-15-8,9' then
memo1.Lines.add('15.875; 70; 16.7; 8.7; 2.0; 5.95; 76.0; 79; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-19-7,2' then
memo1.Lines.add('19.05; 45; 20.1; 10.5; 3.0; 7.14; 52.6; 56; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-19-8,7' then
memo1.Lines.add('19.05; 57; 20.1; 10.5; 3.0; 7.14; 64.5; 68; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-19-10,3' then
memo1.Lines.add('19.05; 69; 20.1; 10.5; 3.0; 7.14; 76.5; 80; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-19-12,2' then
memo1.Lines.add('19.05; 81; 20.1; 10.5; 3.0; 7.14; 88.5; 92; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-19-14,1' then
memo1.Lines.add('19.05; 93; 20.1; 10.5; 3.0; 7.14; 100.5; 104; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-25-11,6' then
memo1.Lines.add('25.40; 57; 26.7; 14.0; 3.0; 9.52; 65.0; 68; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-25-13,8' then
memo1.Lines.add('25.40; 69; 26.7; 14.0; 3.0; 9.52; 77.0; 80; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+';
'+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-25-16,3' then
memo1.Lines.add('25.40; 81; 26.7; 14.0; 3.0; 9.52; 89.0; 92; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-25-18,9' then
memo1.Lines.add('25.40; 93; 26.7; 14.0; 3.0; 9.52; 101; 104; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-25-21,6' then
memo1.Lines.add('25.40; 105; 26.7; 14.0; 3.0; 9.52; 113; 116; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-31-17,1' then
memo1.Lines.add('31.75; 69; 33.4; 17.5; 3.0; 11.9; 78.0; 82; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-31-20,1' then
memo1.Lines.add('31.75; 81; 33.4; 17.5; 3.0; 11.9; 90.0; 94; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-31-23,5' then
memo1.Lines.add('31.75; 93; 33.4; 17.5; 3.0; 11.9; 102; 106; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-31-26,8' then
memo1.Lines.add('31.75; 105; 33.4; 17.5; 3.0; 11.9; 114; 118; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
if Panel1.Caption='Типоразмер цепи - З-31-30,3' then
memo1.Lines.add('31.75; 117; 33.4; 17.5; 3.0; 11.9; 126; 130; '+Label27.Caption+'; '+Label28.Caption+'; '+Label29.Caption+'; '+Label30.Caption+'; '+Label31.Caption+'; '+Label32.Caption+'; '+Label33.Caption+'; '+Label34.Caption+'; '+Label35.Caption+'; '+Label36.Caption+'; '+Label37.Caption+'; '+Label38.Caption+'; '+Label39.Caption+'; '+Label40.Caption+'; '+Label41.Caption+'; '+Edit2.text+';');
end;
procedure TForm1.N3Click(Sender: TObject);
begin
memo1.Lines.SaveToFile('Цепь.txt');
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Showmessage ('Данная программа предназначена для выбора зубчатой приводной цепи определенного типоразмера, согласно данным введеным пользователем.');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
memo1.Clear;
memo1.Lines.Strings[0]:=' t; B; b1; b2; s; u; l; l1; tau; dd; e; h; Dt; P; R; fi; gamma; bzuba; cL; r; h1; s1; T; De; ';
end;
end.
7. Заключение
Надеюсь разработанная мною программа сможет выполнить свое служебное назначение когда-нибудь. Однако факт того, что человеку ни придется перебирать литературу чтобы рассчитать зубчатую передачу - на лицо.
А ответ на вопрос «Что лучше - цепная передача или ременная?» однозначно ответить мне не представляется возможным. Конечно, цепная передача имеет ряд преимуществ над ременной, например меньшие, чем у ременных передач, габариты или отсутствие проскальзывания и так далее, но они как и все механические передачи ни лишены своих недостатков, которые впоследствии могут повлиять на окончательный выбор инженера, проектирующего станок.
Страницы: 1, 2, 3
|
