Label32.Caption +'; '+ Label33.Caption +'; '+ Label34.Caption +'; '+ Label35.Caption +'; '+ Label36.Caption +'; '+ Label37.Caption +'; '+ Label38.Caption +'; '+ Label39.Caption +'; '+ Label40.Caption +'; '+ Label41.Caption +'; '+ Edit2.text +'; ');
if Panel1.Caption = 'Типорозмір ланцюга - З-31-20, 1 ' then
memo1.Lines.add ('31 .75; 81; 33.4; 17.5; 3.0; 11.9; 90.0; 94; '+ Label27.Caption +'; '+ Label28.Caption +'; '+ Label29.Caption +'; '+ Label30.Caption +'; '+ Label31.Caption +'; '+ Label32.Caption +'; '+ Label33.Caption +'; '+ Label34.Caption +'; '+ Label35.Caption +'; '+ Label36.Caption +'; '+ Label37.Caption +'; '+ Label38.Caption +'; '+ Label39.Caption +'; '+ Label40.Caption +'; '+ Label41.Caption +'; '+ Edit2.text +'; ');
if Panel1.Caption = 'Типорозмір ланцюга - З-31-23, 5 ' then
memo1.Lines.add ('31 .75; 93; 33.4; 17.5; 3.0; 11.9; 102; 106; '+ Label27.Caption +'; '+ Label28.Caption +'; '+ Label29.Caption +'; '+ Label30.Caption +'; '+ Label31.Caption +'; '+ Label32.Caption +'; '+ Label33.Caption +'; '+ Label34.Caption +'; '+ Label35.Caption +'; '+ Label36.Caption +'; '+ Label37.Caption +'; '+ Label38.Caption +'; '+ Label39.Caption +'; '+ Label40.Caption +'; '+ Label41.Caption +'; '+ Edit2.text +'; ');
if Panel1.Caption = 'Типорозмір ланцюга - З-31-26, 8 ' then
memo1.Lines.add ('31 .75; 105; 33.4; 17.5; 3.0; 11.9; 114; 118; '+ Label27.Caption +'; '+ Label28.Caption +'; '+ Label29.Caption +'; '+ Label30.Caption +'; '+ Label31.Caption +'; '+ Label32.Caption +'; '+ Label33.Caption +'; '+ Label34.Caption +'; '+ Label35.Caption +'; '+ Label36.Caption +'; '+ Label37.Caption +'; '+ Label38.Caption +'; '+ Label39.Caption +'; '+ Label40.Caption +'; '+ Label41.Caption +'; '+ Edit2.text +'; ');
if Panel1.Caption = 'Типорозмір ланцюга - З-31-30, 3 ' then
memo1.Lines.add ('31 .75; 117; 33.4; 17.5; 3.0; 11.9; 126; 130; '+ Label27.Caption +'; '+ Label28.Caption +'; '+ Label29.Caption +'; '+ Label30.Caption +'; '+ Label31.Caption +'; '+ Label32.Caption +'; '+ Label33.Caption +'; '+ Label34.Caption +'; '+ Label35.Caption +'; '+ Label36.Caption +'; '+ Label37.Caption +'; '+ Label38.Caption +'; '+ Label39.Caption +'; '+ Label40.Caption +'; '+ Label41.Caption +'; '+ Edit2.text +'; ');
end;
procedure TForm1.N3Click (Sender: TObject);
begin
memo1.Lines.SaveToFile ('Цепь.txt');
end;
procedure TForm1.N4Click (Sender: TObject);
begin
Showmessage ('Дана програма призначена для вибору зубчастої приводний ланцюга певного типорозміру, згідно з даними введеним користувачем. ');
end;
procedure TForm1.Button3Click (Sender: TObject);
begin
memo1.Clear;
memo1.Lines.Strings [0]: = ' t; B; b1; b2; s; u; l; l1; tau; dd; e; h; Dt; P; R; fi; gamma; bzuba; cL; r; h1; s1; T; De; ';
end;
end.
7. Висновок
Сподіваюся розроблена мною програма зможе виконати своє службове призначення коли-небудь. Однак факт того, що людині ні доведеться перебирати літературу щоб розрахувати зубчасту передачу - на обличчя.
А відповідь на питання В«Що краще - ланцюгова передача або ремінна? В»однозначно відповісти мені не представляється можливим. Звичайно, ланцюгова передача має ряд переваг над пасової, наприклад менші, ніж у ремінних передач, габарити або відсутність прослизання і так далі, але вони як і всі механічні передачі ні позбавлені своїх недоліків, які згодом можуть вплинути на остаточний вибір інженера, проектує верстат.
