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\TXT\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,'Довжина силової лінії в спинці ротора - мм');