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

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