Реферат Використання сучасного програмного забезпечення для проектуванні ланцюгової передачі в металорізальному верстаті

on: = formatfloat ('#. # #', h1);

label40.Caption: = formatfloat ('#. # #', s1);

label41.Caption: = formatfloat ('#. # #', T);

end;

procedure TForm1.Button2Click (Sender: TObject);

begin

if Panel1.Caption ='' then showmessage ('Проведіть розрахунок ланцюга. ');

if Panel1.Caption = 'Типорозмір ланцюга - З-12-2, 4 ' then

memo1.Lines.add ('12 .7; 22.5; 13.4; 7; 1.5; 4.76; 28.5; 30; '+ 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 = 'Типорозмір ланцюга - З-12-2, 9 ' then

memo1.Lines.add ('12 .7; 28.5; 13.4; 7; 1.5; 4.76; 34.5; 36; '+ 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 = 'Типорозмір ланцюга - З-12-3, 4 ' then

memo1.Lines.add ('12 .7; 34.5; 13.4; 7; 1.5; 4.76; 40.5; 42; '+ 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 = 'Типорозмір ланцюга - З-12-4, 0 ' then

memo1.Lines.add ('12 .7; 40.5; 13.4; 7; 1.5; 4.76; 46.5; 48; '+ 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 = 'Типорозмір ланцюга - З-12-4, 7 ' then

memo1.Lines.add ('12 .7; 46.5; 13.4; 7; 1.5; 4.76; 52.5; 54; '+ 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 = 'Типорозмір ланцюга - З-12-5, 3 ' then

memo1.Lines.add ('12 .7; 52.5; 13.4; 7; 1.5; 4.76; 58.5; 60; '+ 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 = 'Типорозмір ланцюга - З-15-3, 9 ' then

memo1.Lines.add ('15 .875; 30; 16.7; 8.7; 2.0; 5.95; 36.0; 39; '+ 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 = 'Типорозмір ланцюга - З-15-4, 8 ' then

memo1.Lines.ad...