Створення програми розрахунку параметрів електричних машин за допомогою середовища Delphi (стр. 11 из 13)

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Магнітна індукція в максимальному перерізі зубця - Тл');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed12);

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Магнітна індукція в середньому перерізі зубця - Тл');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed13);

Word.Selection.TypeParagraph;

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Зубцеві коефіціенти');

Word.Selection.TypeParagraph;

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Для максимального перерізу зубця');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed14);

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Для мінімального перерізу зубця');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed15);

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Для середнього перерізу зубця');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed16);

Word.Selection.TypeParagraph;

Word.Selection.TypeParagraph;

Word.Selection.TypeParagraph;

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Дані введені з графіка');

Word.Selection.TypeParagraph;

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Напруженість поля в найменшому перерізі зубця');

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Bz max = '+ed17+' Тл ');

Word.Selection.TypeParagraph;

Word.Selection.TypeText('kz min = '+ed18);

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Hz max = '+ed19+' А/см');

Word.Selection.TypeParagraph;

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Напруженість поля в максимальному перерізі зубця');

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Bz min = '+ed20+' Тл ');

Word.Selection.TypeParagraph;

Word.Selection.TypeText('kz max = '+ed21);

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Hz min = '+ed22+' А/см');

Word.Selection.TypeParagraph;

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Напруженість поля в середньому перерізі зубця');

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Bz ser = '+ed23+' Тл ');

Word.Selection.TypeParagraph;

Word.Selection.TypeText('kz ser = '+ed24);

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Hz ser = '+ed25+' А/см');

Word.Selection.TypeParagraph;

Word.Selection.TypeParagraph;

end

else

Word.Selection.TypeText('Велечина Bz max < 1.8 Тл - Не розраховуються додаткові параметри Генератора');

Word.Selection.TypeParagraph;

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Продовження розрахунку основних параметрів генератора');

Word.Selection.TypeParagraph;

Word.Selection.TypeParagraph;

word.Selection.TypeText('Значення напруженості поля в зубці якоря - А/см');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed26);

Word.Selection.TypeParagraph;

word.Selection.TypeText('Магнітне напруження зубцевого шару якоря - А');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed27);

Word.Selection.TypeParagraph;

word.Selection.TypeText('Висота спинки якоря - мм');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed28);

Word.Selection.TypeParagraph;

word.Selection.TypeText('Площа перерізу спинки якоря - мм.квад');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed29);

Word.Selection.TypeParagraph;

word.Selection.TypeText('Магнітна індукція в спинці якоря - Тл');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed30);

Word.Selection.TypeParagraph;

word.Selection.TypeText('Напруженість поля в спинці якоря - А/см');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed31);

Word.Selection.TypeParagraph;

word.Selection.TypeText('Довжина середньої силової лінії в спинці якоря - мм');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed32);

Word.Selection.TypeParagraph;

word.Selection.TypeText('Магнітна напруженість в спинці якоря - А');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed33);

Word.Selection.TypeParagraph;

word.Selection.TypeText('Коефіцієнт розсіювання');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed34);

Word.Selection.TypeParagraph;

word.Selection.TypeText('Магнітний потік полюса - Вб');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed35);

Word.Selection.TypeParagraph;

word.Selection.TypeText('Поперечний переріз сердечника полюса - мм.квад');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed36);

Word.Selection.TypeParagraph;

Word.Selection.TypeParagraph;

word.Selection.TypeText('Магнітна індукція в сердечнику полюса - Тл');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed37);

Word.Selection.TypeParagraph;

word.Selection.TypeText('Висота сердечника полюса - мм');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed38);

Word.Selection.TypeParagraph;

word.Selection.TypeText('Магнітне напруження поля - А');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed39);

Word.Selection.TypeParagraph;

word.Selection.TypeText('Висота спинки станини - мм');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed40);

Word.Selection.TypeParagraph;

word.Selection.TypeText('Поперечний переріз спинки станини - мм.квад');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed41);

Word.Selection.TypeParagraph;

word.Selection.TypeText('Магнітна індукція станини - Тл');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed42);

Word.Selection.TypeParagraph;

word.Selection.TypeText('Магнітне напруження станини - мм');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed43);

Word.Selection.TypeParagraph;

word.Selection.TypeText('Магнітна індукція в станині - А');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed44);

Word.Selection.TypeParagraph;

word.Selection.TypeText('МРС обмотки якоря збудження на пару полюсів в режимі холостого ходу - А');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed45);

Word.Selection.TypeParagraph;

word.Selection.TypeText('Коефіцієнт магнітного накопичення');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed46);

Word.Selection.TypeParagraph;

Word.Selection.TypeParagraph;

word.Selection.TypeText('Розрахунок завершено успішно.');

form1.show;

form6.Close;

end

else

form1.show;

form6.Close;

end;

end.

Текст модуля Unit7.pas

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, Menus, Buttons;

type

TForm7 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

Label1: TLabel;

Timer1: TTimer;

Memo1: TMemo;

GroupBox1: TGroupBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

procedure Timer1Timer(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit2, Unit1, Unit9;

{$R *.dfm}

procedure TForm7.Timer1Timer(Sender: TObject);

begin

if label1.Visible=true then

label1.Visible:=false

else label1.Visible:=true;

end;

procedure TForm7.N2Click(Sender: TObject);

begin

form2.show;

form7.Visible:=false;

end;

procedure TForm7.N5Click(Sender: TObject);

begin

form1.close;

end;

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

form2.Show;

form7.Visible:=false;

end;

procedure TForm7.BitBtn3Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm7.BitBtn2Click(Sender: TObject);

begin

form9.Show;

form7.Visible:=false;

end;

procedure TForm7.N3Click(Sender: TObject);

begin

form9.Show;

form7.Visible:=false;

end;

end.

Текст модуля Unit9.pas

unit Unit9;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, StdCtrls, ExtCtrls,comobj, Buttons;

type

TForm9 = class(TForm)

Label1: TLabel;

Timer1: TTimer;

GroupBox1: TGroupBox;

Panel1: TPanel;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

procedure Timer1Timer(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit7, Unit1, Unit3, Unit2;

{$R *.dfm}

procedure TForm9.Timer1Timer(Sender: TObject);

begin

if label1.Visible=true then

label1.Visible:=false

else label1.Visible:=true;

end;

procedure TForm9.BitBtn1Click(Sender: TObject);

begin

form9.Visible:=false;

form7.Visible:=true;

end;

procedure TForm9.BitBtn3Click(Sender: TObject);

begin

form1.close;

end;

procedure TForm9.BitBtn2Click(Sender: TObject);

var word:olevariant;

begin

if checkbox1.Checked=true then begin

assignfile(file2,'Import files&bsol;TXT&bsol;Assinxron.txt');

rewrite(file2);

writeln(File2,'Результати розрахунків основних параметрів асинхронного двигуна');

writeln(file2,' ');

writeln(file2,'Коефіцієнт повітряного зазору');

writeln(file2,tex1);

writeln(file2,' ');

writeln(file2,'Магнітне напруження повітряного зазору - А');

writeln(file2,tex2);

writeln(file2,' ');

writeln(file2,'Максимальна магнітна індукція в зубці статора - Тл');

writeln(file2,tex3);

writeln(file2,' ');

if bzmax> 1.8 then begin

writeln(file2,'Велечина Bz1 >1.8 Тл - Ведемо розрахунки мінімального та середнього значення магнітної індукції в зубці статора');

writeln(file2,' ');

writeln(file2,'Мінімальна магнітна індукція в зубці статора - Тл');

writeln(file2,tex4);

writeln(file2,' ');

writeln(file2,'Середня магнітна індукція в зубці статора - Тл');

writeln(file2,tex5);

writeln(file2,' ');

writeln(file2,'Значення напруженості поля в зубці статора - А/см');

writeln(file2,tex6);

writeln(file2,' ');

end else begin

writeln(file2,'Велечина Bz1< 1.8 Тл - Напруженість поля в зубці статора Hz1 визначаємо по таблиці');

writeln(file2,' ');

writeln(file2,'Значення напруженості поля в зубці статора - А/см');

writeln(file2,tex6);

writeln(file2,' ');

end;

writeln(file2,'Магнітне напруження зубцевого шару статора - А ');

writeln(file2,tex7);

writeln(file2,' ');

writeln(file2,'Максимальна магнітна індукція в зубці ротора - Тл');

writeln(file2,tex8);

writeln(file2,' ');

if bzmax2>1.8 then begin

writeln(file2,'Велечина Bz2 >1.8 Тл - Ведемо розрахунки мінімального та середнього значення магнітної індукції в зубці ротора');

writeln(file2,' ');

writeln(file2,'Мінімальна магнітна індукція в зубці ротора - Тл');

writeln(file2,tex9);

writeln(file2,' ');

writeln(file2,'Середня магнітна індукців в зубці ротора - Тл');

writeln(file2,tex10);

writeln(file2,' ');

writeln(file2,'Значення напруженості поля в зубці ротора - А/см');

writeln(file2,tex11);

writeln(file2,' ');

end else begin

writeln(file2,'Велечина Bz2< 1.8 Тл - Напруженість поля в зубці ротора Hz2 визначаємо по таблиці');

writeln(file2,' ');

writeln(file2,'Значення напруженості поля в зубці ротора - А/см');

writeln(file2,tex12);

writeln(file2,' ');

end;

writeln(file2,'Магнітне напруження зубцевого шару ротора - А');

writeln(file2,tex13);

writeln(file2,' ');

writeln(file2,'Висота спинки статора - мм');

writeln(file2,tex14);

writeln(file2,' ');

writeln(file2,'Магнітна індукція в спинці статора - Тл');

writeln(file2,tex15);

writeln(file2,' ');

if bc1<1.4 then begin

writeln(file2,'Значення напруженості поля в зубці статора - А/см');

writeln(file2,tex16);

writeln(file2,' ');

end else begin

writeln(file2,'Значення напруженості поля в зубці статора - А/см');

writeln(file2,tex16);

writeln(file2,' ');

end;

writeln(file2,'Довжина силової лінії в спинці статора - мм');

writeln(file2,tex17);

writeln(file2,' ');

writeln(file2,'Магнітне напруження спинки статора - А');

writeln(file2,tex18);

writeln(file2,' ');

writeln(file2,'Висота спинки ротора - мм');

writeln(file2,tex19);

writeln(file2,' ');

writeln(file2,'Магнітна індукція в спинці ротора - Тл');

writeln(file2,tex20);

writeln(file2,' ');

writeln(file2,'Значення напруженості поля в спинці ротора - А/см');

writeln(file2,tex21);

writeln(file2,' ');

writeln(file2,'Довжина силової лінії в спинці ротора - мм');