Главная База знаний "Allbest" Программирование, компьютеры и кибернетика Створення програми розрахунку параметрів електричних машин за допомогою середовища Delphi

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

Розробка програми, яка розраховує параметри магнітних ланцюгів генератора постійного струму і асинхронного двигуна, з можливістю імпорту результатів розрахунків в документ Word, а також передбачена можливість збереження результатів в текстовому файлі.

Рубрика Программирование, компьютеры и кибернетика
Вид курсовая работа
Язык украинский
Дата добавления 17.04.2009
Размер файла 1,2 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Страница:

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;

procedure TForm6.N3Click(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);

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

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

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.N2Click(Sender: TObject);

begin

form9.Visible:=false;

form7.Visible:=true;

end;

procedure TForm9.N5Click(Sender: TObject);

begin

form1.close;

end;

end.

Страница:


Подобные документы

  • Розробка програми для побудови графіка функції

    Демонстрація базової функції та функції в загальному вигляді з можливістю зміни параметрів A, B, C, D. Збереження поточних параметрів у файлі з наступним завантаженням. Підписи шкали осей координат і точки центру осей координат; друк отриманого графіка.

    курсовая работа [549,8 K], добавлен 18.12.2013

  • Аналіз можливостей текстового редактора MS Word

    Основні можливості створення та редагування документів в текстовому редакторі Microsoft Word. Вставка спеціальних символів, табуляція, створення списків, колонок та буквиці за допомогою програми. Особливості та правила оформлення текстових документів.

    курсовая работа [795,8 K], добавлен 06.07.2011

  • Розробка ігрової програми "Морський бій"

    Поняття та класифікація комп’ютерних ігор. Відтворення гри "Морський бій" у вигляді комп’ютерної програми. Компоненти програмного середовища Delphi, що були використані під час її створення. Алгоритм реалізації ігрового процесу та скріншоти з програми.

    дипломная работа [418,2 K], добавлен 12.07.2013

  • Специфікація якості програми

    Елементарні властивості, які утворюють прийнятну для користувача якість ПЗ. Забезпечення стійкості програмних засобів за допомогою захисного програмування. Установка пакета Delphi. Розробка програми для автоматичного розрахунку значень складної функції.

    контрольная работа [32,8 K], добавлен 22.09.2009

  • Розробка ігрової програми "Багатостороння дуель"

    Розробка та схема алгоритму проектованої гри. Особливості мови програмування та середовища "Microsoft Visual Studio C++ 2008 Express Edition". Лістинг програми та загальний опис її роботи, аналіз отриманих результатів та оцінка практичної ефективності.

    курсовая работа [762,8 K], добавлен 03.05.2015

  • Проект в середовищі візуального програмування Visual Studio

    Розробка таблиці для збереження даних у текстовому файлі про фільми в середовищі програмування Visual Studio C++ та їх сортування за країною виробництва. Реалізація таблиці за допомогою компонента dataGridView. Опис і контрольний приклад роботи програми.

    курсовая работа [1,4 M], добавлен 02.11.2016

  • Розробка та реалізація компонентів системного програмного забезпечення

    Огляд існуючих методів розробки компіляторів, детальний опис мови. Характеристика та специфіка процесу розробки програми компілятора на рівні блок-схем і тексту програми. Подання тексту компілятора, а також результатів тестування розробленої програми.

    курсовая работа [510,2 K], добавлен 03.06.2011

  • Автоматизований аналіз злочинності

    Створення програми "Аналізатор злочинності в регіоні". Структура зберігаючих даних. Неформальна постановка задачі. Алгоритм основної програми. Введення і збереження інформації. Можливість перегляду всіх існуючих документів. Вихідний код програми.

    курсовая работа [19,4 K], добавлен 07.10.2010

  • Розробка навчальної програми "Електронний словник"

    Дослідження середовища візуального програмування Delphi. Вивчення процесу створення навчальної програми "Електронний словник". Опис графічного інтерфейсу. Характеристика структури та основних процедур даної програми. Аналіз роботи з програмним кодом.

    курсовая работа [831,2 K], добавлен 01.03.2014

  • Розробка програми керування пристроєм для читання/записування енергонезалежної пам’яті 24LC08В

    Принципи роботи команд мікросхеми 24LC08: читання, запису даних. Опис і блок-схеми програми і підпрограм, що обслуговує пристрій. Вибір середовища програмування і розробка програми, яка забезпечує можливість демонстрації команд. Проведення тестування.

    курсовая работа [114,2 K], добавлен 08.12.2011

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2023, ООО «Олбест» Все права защищены