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

form1.close;

end;

procedure TForm6.N2Click(Sender: TObject);

begin

form6.Visible:=false;

form5.visible:=true;

end;

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

form6.Visible:=false;

form5.Visible:=true;

end;

procedure TForm6.BitBtn3Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm6.BitBtn2Click(Sender: TObject);

var word:olevariant;

begin

if checkbox1.Checked=true then begin

assignfile(file1,'Import files\TXT\Generation.txt');

rewrite(file1);

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

writeln(file1,' ');

writeln(file1,'Полюсне ділення - мм');

writeln(file1,ed1);

writeln(file1,' ');

writeln(file1,'Довжина якоря без вентиляційних каналів - мм');

writeln(file1,ed2);

writeln(file1,' ');

writeln(file1,'Розрахункова довжина якоря - мм');

writeln(file1,ed3);

writeln(file1,' ');

writeln(file1,'Загальний магнітний потік - Вб');

writeln(file1,ed4);

writeln(file1,' ');

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

writeln(file1,ed5);

writeln(file1,' ');

writeln(file1,'Зубцеве ділення якоря - мм');

writeln(file1,ed6);

writeln(file1,' ');

writeln(file1,'Ширина коронки зуба - мм');

writeln(file1,ed7);

writeln(file1,' ');

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

writeln(file1,ed8);

writeln(file1,' ');

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

writeln(file1,ed9);

writeln(file1,' ');

writeln(file1,'Ширина зубця в його момінальному перерізі - мм');

writeln(file1,ed10);

writeln(file1,' ');

writeln(file1,'Індукція в найменшому перерізі зубця - Тл');

writeln(file1,ed11);

writeln(file1,' ');

if bzmax>1.8 then begin

writeln(file1,'Велечина Bz max > 1.8 Тл - Беруться дані з графіків та розраховуються додаткові параметри Генератора');

writeln(file1,' ');

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

writeln(file1,' ');

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

writeln(file1,ed12);

writeln(file1,' ');

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

writeln(file1,ed13);

writeln(file1,' ');

writeln(file1,' Зубцеві коефіцієнти');

writeln(file1,' ');

writeln(file1,'Для максимального перерізу зубця');

writeln(file1,ed14);

writeln(file1,' ');

writeln(file1,'Для мінімального перерізу зубця');

writeln(file1,ed15);

writeln(file1,' ');

writeln(file1,'Для середнього перерізу зубця');

writeln(file1,ed16);

writeln(file1,' ');

writeln(file1,' Дані введені з графіка');

writeln(file1,' ');

writeln(file1,'Напруженість поля в найменшому перерізі зубця');

writeln(file1,'Bz max = '+ed17+' Тл ');

writeln(file1,'kz min = '+ed18);

writeln(file1,'Hz max = '+ed19+' А/см');

writeln(file1,' ');

writeln(file1,'Напруженість поля в максимальному перерізі зубця');

writeln(file1,'Bz min = '+ed20+' Тл ');

writeln(file1,'kz max = '+ed21);

writeln(file1,'Hz min = '+ed22+' А/см');

writeln(file1,' ');

writeln(file1,'Напруженість поля в середньому перерізі зубця');

writeln(file1,'Bz ser = '+ed23+' Тл ');

writeln(file1,'kz ser = '+ed24);

writeln(file1,'Hz ser = '+ed25+' А/см');

writeln(file1,' ');

end

else

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

writeln(file1,' ');

writeln(file1,'Продовження розрахунку основних параметрів генератора постійного струму');

writeln(file1,' ');

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

writeln(file1,ed26);

writeln(file1,' ');

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

writeln(file1,ed27);

writeln(file1,' ');

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

writeln(file1,ed28);

writeln(file1,' ');

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

writeln(file1,ed29);

writeln(file1,' ');

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

writeln(file1,ed30);

writeln(file1,' ');

writeln(file1,'Напруженість поля в спинці якоря - А/см');

writeln(file1,ed31);

writeln(file1,' ');

writeln(file1,'Довжина середньої силової лінії в спинці якоря - мм');

writeln(file1,ed32);

writeln(file1,' ');

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

writeln(file1,ed33);

writeln(file1,' ');

writeln(file1,'Коефіцієнт розсіювання');

writeln(file1,ed34);

writeln(file1,' ');

writeln(file1,'Магнітний потік полюса - Вб');

writeln(file1,ed35);

writeln(file1,' ');

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

writeln(file1,ed36);

writeln(file1,' ');

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

writeln(file1,ed37);

writeln(file1,' ');

writeln(file1,'Висота сердечника полюса - мм');

writeln(file1,ed38);

writeln(file1,' ');

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

writeln(file1,ed39);

writeln(file1,' ');

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

writeln(file1,ed40);

writeln(file1,' ');

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

writeln(file1,ed41);

writeln(file1,' ');

writeln(file1,'Магнітна індукція станини - Тл');

writeln(file1,ed42);

writeln(file1,' ');

writeln(file1,'Магнітне напруження станини - мм');

writeln(file1,ed43);

writeln(file1,' ');

writeln(file1,'Магнітна індукція в станині - А');

writeln(file1,ed44);

writeln(file1,' ');

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

writeln(file1,ed45);

writeln(file1,' ');

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

writeln(file1,ed46);

writeln(file1,' ');

writeln(file1,' Розрахунки завершено успішно');

closefile(file1);

end;

if checkbox2.Checked=true then

begin

try

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

except

ShowMessage('Cannot start Word !');

Exit;

end;

// Show Word

Word.Visible := True;

// Add a new Document

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(ed1);

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Довжина якоря без вентиляційних каналів - мм');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed2);

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Розрахункова довжина якоря - мм');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed3);

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Загальний потік - Вб');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed4);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed5);

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Зубцеве ділення якоря - мм');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed6);

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Ширина коронки зуба - мм');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed7);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed8);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed9);

Word.Selection.TypeParagraph;

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

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed10);

Word.Selection.TypeParagraph;

Word.Selection.TypeText('Індукція в найменшому перерізі зубця - Тл');

Word.Selection.TypeParagraph;

Word.Selection.TypeText(ed11);

Word.Selection.TypeParagraph;

Word.Selection.TypeParagraph;

if bzmax>1.8 then begin

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(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);