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

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;