Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые обзорные » Використання сучасного програмного забезпечення для проектуванні ланцюгової передачі в металорізальному верстаті

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





аної ширині ланцюга крок занадто малий. Збільшіть величину кроку шляхом зміни допустимої частоти обертання або зменшите потужність ');

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 * uz)/3.14) * ((z * uz)/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 ')...


Назад | сторінка 6 з 11 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Phonetic peculiarities of the popular science text
  • Реферат на тему: Ентропія полімерного ланцюга. Моделювання високомолекулярної речовини в мо ...
  • Реферат на тему: Grammar of the Text: its Basic Units and Main Features (based on the novel ...
  • Реферат на тему: Технології аналізу даних (Text Mining, Data Mining)
  • Реферат на тему: Прикладне додаток &Розробка проекту для створення нового класу Auto і елеме ...