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