Использование современного программного обеспечения для проектировании цепной передачи в металлорежущем станке

if ComboBox1.Text='1..4'

then Dmax:=(1.66*A)/(u+1)

else Dmax:=A/(u+1);

if Dmax<69 then ShowMessage('Значение максимального диаметра ведущей звездочки при данных параметрах слишком мало. Перезадайте межосевое расстояние или передаточное отношение')

else

if De>Dmax then ShowMessage('Значение диаметра ведущей звездочки превышает максимальный. Перезадайте межосевое расстояние,передаточное отношение или уточните диаметр ведущей зведочки')

else

label3.Caption:=formatfloat('#.##',De);

n:=StrToFloat(Edit3.text);

V:=(3.14*De*n)/60000;

label8.Caption:=formatfloat('###.##',V);

if (combobox2.ItemIndex=0) and (RadioButton1.Checked) then klambda:=1;

if (combobox2.ItemIndex=1) and (RadioButton1.Checked) then klambda:=1.25;

if (combobox2.ItemIndex=2) and (RadioButton1.Checked) then klambda:=1.4;

if (combobox2.ItemIndex=3) and (RadioButton1.Checked) then klambda:=1.6;

if (combobox2.ItemIndex=4) and (RadioButton1.Checked) then klambda:=1.8;

if (combobox2.ItemIndex=5) and (RadioButton1.Checked) then klambda:=1.9;

if (combobox2.ItemIndex=0) and (RadioButton2.Checked) then klambda:=1;

if (combobox2.ItemIndex=1) and (RadioButton2.Checked) then klambda:=1;

if (combobox2.ItemIndex=2) and (RadioButton2.Checked) then klambda:=1.1;

if (combobox2.ItemIndex=3) and (RadioButton2.Checked) then klambda:=1.25;

if (combobox2.ItemIndex=4) and (RadioButton2.Checked) then klambda:=1.45;

if (combobox2.ItemIndex=5) and (RadioButton2.Checked) then klambda:=1.5;

T:=StrToFloat(Label13.Caption);

if (T>-80) and (T<-25) then kt:=2.5;

if (T>-25) and (T<150) then kt:=1;

if (T>150) and (T<250) then kt:=1.25;

kv:=1-1.1*0.001*V*V;

if ComboBox3.Text='3300' then shag:= 12.7;

if ComboBox3.Text='2650' then shag:= 15.875;

if ComboBox3.Text='2200' then shag:= 19.05;

if ComboBox3.Text='1650' then shag:= 25.4;

if ComboBox3.Text='1350' then shag:= 31.75;

if shag>0.185*De then showmessage('Шаг цепи не удовлетворяет условию плавности.Измените частоту вращения или откорректируйте диаметр ведущей звездочки.');

if (shag<0.0125*A) or (shag>0.04*A) then showmessage('Шаг цепи не удолетворяет условию долговечности. Измените межосевое расстояние.');

N:=StrToFloat(Label17.Caption);

B:=(250*klambda*kt*N)/(kv*shag*exp(1.5*ln(V)));

label14.Caption:=formatfloat('###.##',B);

if (B>22.5) and (B<117) then

else showmessage('Полученная ширина цепи выходит за пределы стандартных значений, определить типоразмер цепи не представляется возможным. Пересмотрите введенные вами параметры');

if (ComboBox3.Text='3300') and (B>22.5) and (B<25.5) then Bkon:=22.5;

if (ComboBox3.Text='3300') and (B>25.5) and (B<28.5) then Bkon:=28.5;

if (ComboBox3.Text='3300') and (B>28.5) and (B<31.5) then Bkon:=28.5;

if (ComboBox3.Text='3300') and (B>31.5) and (B<34.5) then Bkon:=34.5;

if (ComboBox3.Text='3300') and (B>34.5) and (B<37.5) then Bkon:=34.5;

if (ComboBox3.Text='3300') and (B>37.5) and (B<40.5) then Bkon:=40.5;

if (ComboBox3.Text='3300') and (B>40.5) and (B<43.5) then Bkon:=40.5;

if (ComboBox3.Text='3300') and (B>43.5) and (B<46.5) then Bkon:=46.5;

if (ComboBox3.Text='3300') and (B>46.5) and (B<49.5) then Bkon:=46.5;

if (ComboBox3.Text='3300') and (B>49.5) and (B<52.5) then Bkon:=52.5;

if (ComboBox3.Text='3300') and (B>52.5) then showmessage('При данной ширине цепи шаг слишком мал. Увеличьте величину шага путем изменения допускаемой частоты вращения или уменьшите мощность');

if (ComboBox3.Text='2650') and (B>30) and (B<34) then Bkon:=30;

if (ComboBox3.Text='2650') and (B>34) and (B<38) then Bkon:=38;

if (ComboBox3.Text='2650') and (B>38) and (B<42) then Bkon:=38;

if (ComboBox3.Text='2650') and (B>42) and (B<46) then Bkon:=46;

if (ComboBox3.Text='2650') and (B>46) and (B<50) then Bkon:=46;

if (ComboBox3.Text='2650') and (B>50) and (B<54) then Bkon:=54;

if (ComboBox3.Text='2650') and (B>54) and (B<58) then Bkon:=54;

if (ComboBox3.Text='2650') and (B>58) and (B<62) then Bkon:=62;

if (ComboBox3.Text='2650') and (B>62) and (B<66) then Bkon:=62;

if (ComboBox3.Text='2650') and (B>66) and (B<70) then Bkon:=70;

if (ComboBox3.Text='2650') and (B>70) then showmessage('При данной ширине цепи шаг слишком мал. Увеличте величину шага путем изменения допускаемой частоты вращения или уменьшите мощность');

if (ComboBox3.Text='2200') and (B>45) and (B<51) then Bkon:=45;

if (ComboBox3.Text='2200') and (B>51) and (B<57) then Bkon:=57;

if (ComboBox3.Text='2200') and (B>57) and (B<63) then Bkon:=57;

if (ComboBox3.Text='2200') and (B>63) and (B<69) then Bkon:=69;

if (ComboBox3.Text='2200') and (B>69) and (B<75) then Bkon:=69;

if (ComboBox3.Text='2200') and (B>75) and (B<81) then Bkon:=81;

if (ComboBox3.Text='2200') and (B>81) and (B<87) then Bkon:=81;

if (ComboBox3.Text='2200') and (B>87) and (B<93) then Bkon:=93;

if (ComboBox3.Text='2200') and (B>93)then showmessage('При данной ширине цепи шаг слишком мал. Увеличте величину шага путем изменения допускаемой частоты вращения или уменьшите мощность');

if (ComboBox3.Text='1650') and (B>57) and (B<63) then Bkon:=57;

if (ComboBox3.Text='1650') and (B>63) and (B<69) then Bkon:=69;

if (ComboBox3.Text='1650') and (B>69) and (B<75) then Bkon:=69;

if (ComboBox3.Text='1650') and (B>75) and (B<81) then Bkon:=81;

if (ComboBox3.Text='1650') and (B>81) and (B<87) then Bkon:=81;

if (ComboBox3.Text='1650') and (B>87) and (B<93) then Bkon:=93;

if (ComboBox3.Text='1650') and (B>93) and (B<99) then Bkon:=93;

if (ComboBox3.Text='1650') and (B>99) and (B<105) then Bkon:=105;

if (ComboBox3.Text='1650') and (B>105) then showmessage('При данной ширине цепи шаг слишком мал. Увеличте величину шага путем изменения допускаемой частоты вращения или уменьшите мощность');

if (ComboBox3.Text='1350') and (B>69) and (B<75) then Bkon:=69;

if (ComboBox3.Text='1350') and (B>75) and (B<81) then Bkon:=81;

if (ComboBox3.Text='1350') and (B>81) and (B<87) then Bkon:=81;

if (ComboBox3.Text='1350') and (B>87) and (B<93) then Bkon:=93;

if (ComboBox3.Text='1350') and (B>93) and (B<99) then Bkon:=93;

if (ComboBox3.Text='1350') and (B>99) and (B<105) then Bkon:=105;

if (ComboBox3.Text='1350') and (B>105) and (B<111) then Bkon:=105;

if (ComboBox3.Text='1350') and (B>111) and (B<117) then Bkon:=117;

if (ComboBox3.Text='1350') and (B>117)then showmessage('При данной ширине цепи шаг слишком мал. Увеличьте величину шага путем изменения допускаемой частоты вращения или уменьшите мощность');

label21.Caption:=formatfloat('##.##',Bkon);

z:=StrToFloat(ComboBox4.text);

Lt:=(2*(A/shag))+((z+u*z)/2)+((z*u-z)/3.14)*((z*u-z)/3.14)*(shag/A);

L:=Lt*shag;

label25.Caption:=formatfloat('##.##',L);

if (ComboBox3.Text='3300') and (Bkon=22.5) then

Panel1.Caption:='Типоразмер цепи - З-12-2,4';

if (ComboBox3.Text='3300') and (Bkon=28.5) then

Panel1.Caption:='Типоразмер цепи - З-12-2,9';

if (ComboBox3.Text='3300') and (Bkon=34.5) then

Panel1.Caption:='Типоразмер цепи - З-12-3,4';

if (ComboBox3.Text='3300') and (Bkon=40.5) then

Panel1.Caption:='Типоразмер цепи - З-12-4,0';

if (ComboBox3.Text='3300') and (Bkon=46.5) then

Panel1.Caption:='Типоразмер цепи - З-12-4,7';

if (ComboBox3.Text='3300') and (Bkon=52.5) then

Panel1.Caption:='Типоразмер цепи - З-12-5,3';

f (ComboBox3.Text='2650') and (Bkon=30) then

Panel1.Caption:='Типоразмер цепи - З-15-3,9';

if (ComboBox3.Text='2650') and (Bkon=38) then

Panel1.Caption:='Типоразмер цепи - З-15-4,8';

if (ComboBox3.Text='2650') and (Bkon=46) then

Panel1.Caption:='Типоразмер цепи - З-15-5,7';

if (ComboBox3.Text='2650') and (Bkon=54) then

Panel1.Caption:='Типоразмер цепи - З-15-6,7';

if (ComboBox3.Text='2650') and (Bkon=62) then

Panel1.Caption:='Типоразмер цепи - З-15-7,8';

if (ComboBox3.Text='2650') and (Bkon=70) then

Panel1.Caption:='Типоразмер цепи - З-15-8,9';

if (ComboBox3.Text='2200') and (Bkon=45) then

Panel1.Caption:='Типоразмер цепи - З-19-7,2';

if (ComboBox3.Text='2200') and (Bkon=57) then

Panel1.Caption:='Типоразмер цепи - З-19-8,7';

if (ComboBox3.Text='2200') and (Bkon=69) then

Panel1.Caption:='Типоразмер цепи - З-19-10,3';

if (ComboBox3.Text='2200') and (Bkon=81) then

Panel1.Caption:='Типоразмер цепи - З-19-12,2';

if (ComboBox3.Text='2200') and (Bkon=93) then

Panel1.Caption:='Типоразмер цепи - З-19-14,1';

if (ComboBox3.Text='1650') and (Bkon=57) then

Panel1.Caption:='Типоразмер цепи - З-25-11,6';

if (ComboBox3.Text='1650') and (Bkon=69) then

Panel1.Caption:='Типоразмер цепи - З-25-13,8';

if (ComboBox3.Text='1650') and (Bkon=81) then

Panel1.Caption:='Типоразмер цепи - З-25-16,3';

if (ComboBox3.Text='1650') and (Bkon=93) then

Panel1.Caption:='Типоразмер цепи - З-25-18,9';

if (ComboBox3.Text='1650') and (Bkon=105) then

Panel1.Caption:='Типоразмер цепи - З-25-21,6';

if (ComboBox3.Text='1350') and (Bkon=69) then

Panel1.Caption:='Типоразмер цепи - З-31-17,1';

if (ComboBox3.Text='1350') and (Bkon=81) then

Panel1.Caption:='Типоразмер цепи - З-31-20,2';

if (ComboBox3.Text='1350') and (Bkon=93) then

Panel1.Caption:='Типоразмер цепи - З-31-23,5';

if (ComboBox3.Text='1350') and (Bkon=105) then

Panel1.Caption:='Типоразмер цепи - З-31-26,8';

if (ComboBox3.Text='1350') and (Bkon=117) then

Panel1.Caption:='Типоразмер цепи - З-31-30,3';

if ComboBox3.Text='3300' then b2:=7.0;

if ComboBox3.Text='3300' then u1:=4.76;

if ComboBox3.Text='3300' then h:=8.3;

if ComboBox3.Text='3300' then e:=1.3;

if ComboBox3.Text='3300' then P:=1.270 ;

if ComboBox3.Text='3300' then Talpha:=14.11;

if ComboBox3.Text='3300' then c1:=20.52;

if ComboBox3.Text='3300' then r1:=1.5;

if ComboBox3.Text='3300' then s:=1.5;

if ComboBox3.Text='2650' then b2:=8.7;

if ComboBox3.Text='2650' then u1:=5.95;

if ComboBox3.Text='2650' then h:=10.3;

if ComboBox3.Text='2650' then e:=1.6;

if ComboBox3.Text='2650' then P:=1.587;

if ComboBox3.Text='2650' then Talpha:=17.73;

if ComboBox3.Text='2650' then c1:=23.92;

if ComboBox3.Text='2650' then r1:=2;

if ComboBox3.Text='2650' then s:=2;

if ComboBox3.Text='2200' then b2:=10.5;

if ComboBox3.Text='2200' then u1:=7.14;

if ComboBox3.Text='2200' then h:=12.4;

if ComboBox3.Text='2200' then e:=1.9;

if ComboBox3.Text='2200' then P:=1.905;

if ComboBox3.Text='2200' then Talpha:=21.22;

if ComboBox3.Text='2200' then c1:=30.76;

if ComboBox3.Text='2200' then r1:=2;

if ComboBox3.Text='2200' then s:=3;

if ComboBox3.Text='1650' then b2:=14;

if ComboBox3.Text='1650' then u1:=9.52;

if ComboBox3.Text='1650' then h:=16.5;

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