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

if (ComboBox3.Text='3300') and (B>52.5) then showmessage('Приданнойширинецепишагслишкоммал. Увеличьте величину шага путем изменения допускаемой частоты вращения или уменьшите мощность');

if (ComboBox3.Text='2650') and (B>30) and (B<34) then Bkon:=30;

if (ComboBox3.Text='2650') and (B>34) and (B<38) then Bkon:=38;

if (ComboBox3.Text='2650') and (B>38) and (B<42) then Bkon:=38;

if (ComboBox3.Text='2650') and (B>42) and (B<46) then Bkon:=46;

if (ComboBox3.Text='2650') and (B>46) and (B<50) then Bkon:=46;

if (ComboBox3.Text='2650') and (B>50) and (B<54) then Bkon:=54;

if (ComboBox3.Text='2650') and (B>54) and (B<58) then Bkon:=54;

if (ComboBox3.Text='2650') and (B>58) and (B<62) then Bkon:=62;

if (ComboBox3.Text='2650') and (B>62) and (B<66) then Bkon:=62;

if (ComboBox3.Text='2650') and (B>66) and (B<70) then Bkon:=70;

if (ComboBox3.Text='2650') and (B>70) then showmessage('Приданнойширинецепишагслишкоммал. Увеличте величину шага путем изменения допускаемой частоты вращения или уменьшите мощность');

if (ComboBox3.Text='2200') and (B>45) and (B<51) then Bkon:=45;

if (ComboBox3.Text='2200') and (B>51) and (B<57) then Bkon:=57;

if (ComboBox3.Text='2200') and (B>57) and (B<63) then Bkon:=57;

if (ComboBox3.Text='2200') and (B>63) and (B<69) then Bkon:=69;

if (ComboBox3.Text='2200') and (B>69) and (B<75) then Bkon:=69;

if (ComboBox3.Text='2200') and (B>75) and (B<81) then Bkon:=81;

if (ComboBox3.Text='2200') and (B>81) and (B<87) then Bkon:=81;

if (ComboBox3.Text='2200') and (B>87) and (B<93) then Bkon:=93;

if (ComboBox3.Text='2200') and (B>93)then showmessage('Приданнойширинецепишагслишкоммал. Увеличте величину шага путем изменения допускаемой частоты вращения или уменьшите мощность');

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;