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

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') and (Bkon=81) then

Panel1.Caption:='Типоразмерцепи - З-25-16,3';

if (ComboBox3.Text='1650') and (Bkon=93) then

Panel1.Caption:='Типоразмерцепи - З-25-18,9';

if (ComboBox3.Text='1650') and (Bkon=105) then

Panel1.Caption:='Типоразмерцепи - З-25-21,6';

if (ComboBox3.Text='1350') and (Bkon=69) then