Использование современного программного обеспечения для проектировании цепной передачи в металлорежущем станке 
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
Label55: TLabel;
Label56: TLabel;
Label57: TLabel;
Label58: TLabel;
Label59: TLabel;
Label60: TLabel;
Label61: TLabel;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
procedure Edit2Exit(Sender: TObject);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure ScrollBar1Change(Sender: TObject);
procedure ScrollBar2Change(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9']) then Key := #0;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9']) then Key := #0;
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9']) then Key := #0;
end;
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9','-']) then Key := #0;
end;
procedure TForm1.Edit2Exit(Sender: TObject);
var De:real;
begin
De:=StrToFloat(Edit2.text);
if De<68 then ShowMessage('Значение диаметра ведущей звездочки введено некорректно')
else
end;
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Label13.Caption:=IntToStr(ScrollBar1.Position);
end;
procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
Label17.Caption:=IntToStr(ScrollBar2.Position);
end;
procedure TForm1.Button1Click(Sender: TObject);
var A,s,Dmax,u,u1,De,n,h,V,P,Talpha,klambda,kt,T,kv,e,shag,B,Bkon,z,Lt,L,b2,c1,r1,tau,dd,Dt,R,K,fi,beta,gamma,bzuba,cL,h1,s1,ty,y:real;
begin
A:=StrToFloat(Edit1.text);
De:=StrToFloat(Edit2.text);
u:=StrToFloat(ComboBox1.text);
if ComboBox1.Text='1..4'
then Dmax:=(1.66*A)/(u+1)
else Dmax:=A/(u+1);
if Dmax<69 then ShowMessage('Значение максимального диаметра ведущей звездочки при данных параметрах слишком мало. Перезадайте межосевое расстояние или передаточное отношение')
else
if De>Dmax then ShowMessage('Значение диаметра ведущей звездочки превышает максимальный. Перезадайте межосевое расстояние,передаточное отношение или уточните диаметр ведущей зведочки')
else
label3.Caption:=formatfloat('#.##',De);
n:=StrToFloat(Edit3.text);
V:=(3.14*De*n)/60000;
label8.Caption:=formatfloat('###.##',V);
if (combobox2.ItemIndex=0) and (RadioButton1.Checked) then klambda:=1;
if (combobox2.ItemIndex=1) and (RadioButton1.Checked) then klambda:=1.25;
if (combobox2.ItemIndex=2) and (RadioButton1.Checked) then klambda:=1.4;
if (combobox2.ItemIndex=3) and (RadioButton1.Checked) then klambda:=1.6;
if (combobox2.ItemIndex=4) and (RadioButton1.Checked) then klambda:=1.8;
if (combobox2.ItemIndex=5) and (RadioButton1.Checked) then klambda:=1.9;
if (combobox2.ItemIndex=0) and (RadioButton2.Checked) then klambda:=1;
if (combobox2.ItemIndex=1) and (RadioButton2.Checked) then klambda:=1;
if (combobox2.ItemIndex=2) and (RadioButton2.Checked) then klambda:=1.1;
if (combobox2.ItemIndex=3) and (RadioButton2.Checked) then klambda:=1.25;
if (combobox2.ItemIndex=4) and (RadioButton2.Checked) then klambda:=1.45;
if (combobox2.ItemIndex=5) and (RadioButton2.Checked) then klambda:=1.5;
T:=StrToFloat(Label13.Caption);
if (T>-80) and (T<-25) then kt:=2.5;
if (T>-25) and (T<150) then kt:=1;
if (T>150) and (T<250) then kt:=1.25;
kv:=1-1.1*0.001*V*V;
if ComboBox3.Text='3300' then shag:= 12.7;
if ComboBox3.Text='2650' then shag:= 15.875;
if ComboBox3.Text='2200' then shag:= 19.05;
if ComboBox3.Text='1650' then shag:= 25.4;
if ComboBox3.Text='1350' then shag:= 31.75;
if shag>0.185*De then showmessage('Шаг цепи не удовлетворяет условию плавности.Измените частоту вращения или откорректируйте диаметр ведущей звездочки.');
if (shag<0.0125*A) or (shag>0.04*A) then showmessage('Шаг цепи не удолетворяет условию долговечности. Измените межосевое расстояние.');
N:=StrToFloat(Label17.Caption);
B:=(250*klambda*kt*N)/(kv*shag*exp(1.5*ln(V)));
label14.Caption:=formatfloat('###.##',B);
if (B>22.5) and (B<117) then
else showmessage('Полученная ширина цепи выходит за пределы стандартных значений, определить типоразмер цепи не представляется возможным. Пересмотрите введенные вами параметры');
if (ComboBox3.Text='3300') and (B>22.5) and (B<25.5) then Bkon:=22.5;
if (ComboBox3.Text='3300') and (B>25.5) and (B<28.5) then Bkon:=28.5;
if (ComboBox3.Text='3300') and (B>28.5) and (B<31.5) then Bkon:=28.5;
if (ComboBox3.Text='3300') and (B>31.5) and (B<34.5) then Bkon:=34.5;
if (ComboBox3.Text='3300') and (B>34.5) and (B<37.5) then Bkon:=34.5;
if (ComboBox3.Text='3300') and (B>37.5) and (B<40.5) then Bkon:=40.5;
if (ComboBox3.Text='3300') and (B>40.5) and (B<43.5) then Bkon:=40.5;
if (ComboBox3.Text='3300') and (B>43.5) and (B<46.5) then Bkon:=46.5;
if (ComboBox3.Text='3300') and (B>46.5) and (B<49.5) then Bkon:=46.5;
if (ComboBox3.Text='3300') and (B>49.5) and (B<52.5) then Bkon:=52.5;
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;
if (ComboBox3.Text='1650') and (B>105) then showmessage('При данной ширине цепи шаг слишком мал. Увеличте величину шага путем изменения допускаемой частоты вращения или уменьшите мощность');
if (ComboBox3.Text='1350') and (B>69) and (B<75) then Bkon:=69;
if (ComboBox3.Text='1350') and (B>75) and (B<81) then Bkon:=81;
if (ComboBox3.Text='1350') and (B>81) and (B<87) then Bkon:=81;
if (ComboBox3.Text='1350') and (B>87) and (B<93) then Bkon:=93;
if (ComboBox3.Text='1350') and (B>93) and (B<99) then Bkon:=93;
if (ComboBox3.Text='1350') and (B>99) and (B<105) then Bkon:=105;
if (ComboBox3.Text='1350') and (B>105) and (B<111) then Bkon:=105;
if (ComboBox3.Text='1350') and (B>111) and (B<117) then Bkon:=117;
if (ComboBox3.Text='1350') and (B>117)then showmessage('При данной ширине цепи шаг слишком мал. Увеличьте величину шага путем изменения допускаемой частоты вращения или уменьшите мощность');
label21.Caption:=formatfloat('##.##',Bkon);
z:=StrToFloat(ComboBox4.text);
Lt:=(2*(A/shag))+((z+u*z)/2)+((z*u-z)/3.14)*((z*u-z)/3.14)*(shag/A);
L:=Lt*shag;
label25.Caption:=formatfloat('##.##',L);
if (ComboBox3.Text='3300') and (Bkon=22.5) then
Panel1.Caption:='Типоразмер цепи - З-12-2,4';
if (ComboBox3.Text='3300') and (Bkon=28.5) then
Panel1.Caption:='Типоразмер цепи - З-12-2,9';
if (ComboBox3.Text='3300') and (Bkon=34.5) then
Panel1.Caption:='Типоразмер цепи - З-12-3,4';
if (ComboBox3.Text='3300') and (Bkon=40.5) then
Panel1.Caption:='Типоразмер цепи - З-12-4,0';
if (ComboBox3.Text='3300') and (Bkon=46.5) then
Panel1.Caption:='Типоразмер цепи - З-12-4,7';
if (ComboBox3.Text='3300') and (Bkon=52.5) then
Panel1.Caption:='Типоразмер цепи - З-12-5,3';
f (ComboBox3.Text='2650') and (Bkon=30) then
Panel1.Caption:='Типоразмер цепи - З-15-3,9';
if (ComboBox3.Text='2650') and (Bkon=38) then
Panel1.Caption:='Типоразмер цепи - З-15-4,8';
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
Panel1.Caption:='Типоразмер цепи - З-31-17,1';
if (ComboBox3.Text='1350') and (Bkon=81) then
Panel1.Caption:='Типоразмер цепи - З-31-20,2';
if (ComboBox3.Text='1350') and (Bkon=93) then
Panel1.Caption:='Типоразмер цепи - З-31-23,5';
if (ComboBox3.Text='1350') and (Bkon=105) then
Panel1.Caption:='Типоразмер цепи - З-31-26,8';
if (ComboBox3.Text='1350') and (Bkon=117) then
Panel1.Caption:='Типоразмер цепи - З-31-30,3';
if ComboBox3.Text='3300' then b2:=7.0;
if ComboBox3.Text='3300' then u1:=4.76;
if ComboBox3.Text='3300' then h:=8.3;
if ComboBox3.Text='3300' then e:=1.3;
if ComboBox3.Text='3300' then P:=1.270 ;
if ComboBox3.Text='3300' then Talpha:=14.11;
if ComboBox3.Text='3300' then c1:=20.52;
if ComboBox3.Text='3300' then r1:=1.5;
if ComboBox3.Text='3300' then s:=1.5;
if ComboBox3.Text='2650' then b2:=8.7;
if ComboBox3.Text='2650' then u1:=5.95;
if ComboBox3.Text='2650' then h:=10.3;
if ComboBox3.Text='2650' then e:=1.6;
if ComboBox3.Text='2650' then P:=1.587;
if ComboBox3.Text='2650' then Talpha:=17.73;
if ComboBox3.Text='2650' then c1:=23.92;
if ComboBox3.Text='2650' then r1:=2;
if ComboBox3.Text='2650' then s:=2;
if ComboBox3.Text='2200' then b2:=10.5;
if ComboBox3.Text='2200' then u1:=7.14;
if ComboBox3.Text='2200' then h:=12.4;
if ComboBox3.Text='2200' then e:=1.9;
if ComboBox3.Text='2200' then P:=1.905;
if ComboBox3.Text='2200' then Talpha:=21.22;
if ComboBox3.Text='2200' then c1:=30.76;
if ComboBox3.Text='2200' then r1:=2;
if ComboBox3.Text='2200' then s:=3;
if ComboBox3.Text='1650' then b2:=14;
if ComboBox3.Text='1650' then u1:=9.52;
if ComboBox3.Text='1650' then h:=16.5;
Страницы: 1, 2, 3
|
