Реферат Використання сучасного програмного забезпечення для проектуванні ланцюгової передачі в металорізальному верстаті

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 = '22 00 '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.Capti...