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

gamma:=0.52-fi;

bzuba:=B+2*s;

cL:=0.4*shag;

r:=shag;

h1:=0.75*shag;

s1:=2*s;

ty:=shag-2*(u1*cos(gamma)-P*sin(gamma));

label27.Caption:=formatfloat('0.##',tau);

label28.Caption:=formatfloat('#.##',dd);

label29.Caption:=formatfloat('#.##',e);

label30.Caption:=formatfloat('#.##',h);

label31.Caption:=formatfloat('#.##',Dt);

label32.Caption:=formatfloat('#.##',P);

label33.Caption:=formatfloat('#.##',R);

label34.Caption:=formatfloat('0.##',fi);

label35.Caption:=formatfloat('0.##',gamma);

label36.Caption:=formatfloat('#.##',bzuba);

label37.Caption:=formatfloat('#.##',cL);

label38.Caption:=formatfloat('#.##',r);

label39.Caption:=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