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

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 ('Крок ланцюзі не удолетворять умові довговічності. Змініть міжосьова відстань. '); p> 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 (' При д...