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

writeln(file2,tex22);

writeln(file2,' ');

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

writeln(file2,tex23);

writeln(file2,' ');

writeln(file2,'Магніто-рушійна сила на пару полюсів - А');

writeln(file2,tex24);

writeln(file2,' ');

writeln(file2,'Коефіцієнт магнітного накопичення ');

writeln(file2,tex25);

writeln(file2,' ');

writeln(file2,' Розрахунок закінчено');

closefile(file2);

end;

if checkbox2.Checked=true then

begin

try

Word := CreateOleObject('Word.Application');

except

ShowMessage('Cannot start Word !');

Exit;

end;

Word.Visible := True;

Word.Documents.Add;

if Word.ActiveWindow.View.SplitSpecial <> 0 then

Word.ActiveWindow.Panes[2].Close;

if (Word.ActiveWindow.ActivePane.View.type = 1) or

(Word.ActiveWindow.ActivePane.View.type = 2) or

(Word.ActiveWindow.ActivePane.View.type = 5) then

Word.ActiveWindow.ActivePane.View.type := 3;

Word.ActiveWindow.ActivePane.View.SeekView := 9;

Word.Selection.Font.Name := 'Palatino linotype';

Word.Selection.Font.Size := 14;

Word.Selection.Font.Bold := True;

Word.Selection.Font.color := 0111;

Word.Selection.ParagraphFormat.Alignment := 1;

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

if Word.Selection.HeaderFooter.IsHeader = True then

Word.ActiveWindow.ActivePane.View.SeekView := 10

else

Word.ActiveWindow.ActivePane.View.SeekView := 9;

Word.Selection.Font.Name := 'Palatino linotype';

Word.Selection.Font.Size := 10;

Word.Selection.Font.Bold := True;

Word.Selection.Font.color := 0111;

Word.Selection.TypeText('Звіт по розрахунках. ELEКTRA - Програма для розрахунку Двигунів та Генераторів');

Word.ActiveWindow.ActivePane.View.SeekView := 0;

Word.Selection.Font.Name := 'palatino linotype';

Word.Selection.Font.Size := 12;

Word.Selection.Font.Bold := false;

Word.Selection.TypeText('Коефіцієнт повітряного зазору');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex1);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex2);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex3);

Word.Selection.TypeParagraph;

if bzmax>1.8 then begin

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

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex4);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex5);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex6);

Word.Selection.TypeParagraph;

end else begin

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

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex6);

Word.Selection.TypeParagraph;

end;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex7);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex8);

Word.Selection.TypeParagraph;

if bzmax>1.8 then begin

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

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex9);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex10);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex11);

Word.Selection.TypeParagraph;

end else begin

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

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex12);

Word.Selection.TypeParagraph;

end;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex13);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex14);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex15);

Word.Selection.TypeParagraph;

if bc1<1.4 then begin

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex16);

Word.Selection.TypeParagraph;

end else begin

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex16);

Word.Selection.TypeParagraph;

end;

Word.Selection.TypeText('Довжина силової лінії в спинці статора - мм');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex17);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex18);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex19);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex20);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex21);

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Довжина силової лінії в спинці ротора - мм');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex22);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex23);

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Магніто-рушійна сила на пару полюсів - А');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex24);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(tex25);

form1.Visible:=true;

form9.Visible:=false;

end;

end;

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

writeln(file2,tex22);

writeln(file2,' ');

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

writeln(file2,tex23);

writeln(file2,' ');

writeln(file2,'Магніто-рушійна сила на пару полюсів - А');

writeln(file2,tex24);

writeln(file2,' ');

writeln(file2,'Коефіцієнт магнітного накопичення ');

writeln(file2,tex25);

writeln(file2,' ');

writeln(file2,' Розрахунок закінчено');

closefile(file2);

end;

if checkbox2.Checked=true then

begin

try

Word := CreateOleObject('Word.Application');

except ShowMessage('Cannot start Word !');

Exit;

end;

Word.Visible := True;

Word.Documents.Add;

if Word.ActiveWindow.View.SplitSpecial <> 0 then

Word.ActiveWindow.Panes[2].Close;

if (Word.ActiveWindow.ActivePane.View.type = 1) or

(Word.ActiveWindow.ActivePane.View.type = 2) or

(Word.ActiveWindow.ActivePane.View.type = 5) then

Word.ActiveWindow.ActivePane.View.type := 3;

Word.ActiveWindow.ActivePane.View.SeekView := 9;

Word.Selection.Font.Name := 'Palatino linotype';

Word.Selection.Font.Size := 14;

Word.Selection.Font.Bold := True;

Word.Selection.Font.color := 0111;

Word.Selection.ParagraphFormat.Alignment := 1;

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

if Word.Selection.HeaderFooter.IsHeader = True then

Word.ActiveWindow.ActivePane.View.SeekView := 10

else

Word.ActiveWindow.ActivePane.View.SeekView := 9;

Word.Selection.Font.Name := 'Palatino linotype';

Word.Selection.Font.Size := 10;

Word.Selection.Font.Bold := True;

Word.Selection.Font.color := 0111;

Word.Selection.TypeText('Звіт по розрахунках. ELEКTRA - Програма для розрахунку Двигунів та Генераторів');