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

: TScrollBar;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

ComboBox4: TComboBox;

Label25: TLabel;

Image1: TImage;

Panel1: TPanel;

Memo1: TMemo;

Button2: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

Button3: TButton;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

Label34: TLabel;

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

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)...