Разработка программного комплекса для расчёта напряжения и потерь мощности на тяговой подстанции постоянного тока

2. Кнопка “Сброс”-вызывает процедуру очистки окон ввода и вывода данных ;

3. Кнопка “Копировать в буфер” -помещает результаты расчета программы в “Буфер обмена” для дальнейшего использования их пользователем;

4. Кнопка “Вывод отчета” -создает документ Word и помещает результаты расчета программы;

5. Вкладка “Выход” в меню “файл”- выход из программного комплекса.

4.2 Текст программы (Исходный код)

Все пояснения к коду программы идут после знака” //”, поэтому излишние комментарии не требуются.

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, Mask, Spin, ComCtrls, Buttons, Menus,UnitParm,

DBCtrls,Word2000,OleServer, ComObj, jpeg;

type

TForm1 = class(TForm)

StaticText1: TStaticText;

ComboBoxEx1: TComboBoxEx;

ComboBoxEx2: TComboBoxEx;

StaticText2: TStaticText;

StaticText4: TStaticText;

ComboBoxEx4: TComboBoxEx;

StaticText5: TStaticText;

Edit1: TEdit;

StaticText6: TStaticText;

Edit2: TEdit;

Memo1: TMemo;

Calk: TButton;

Clear: TButton;

Button3: TButton;

Copy: TButton;

StaticText3: TStaticText;

Edit3: TEdit;

StaticText9: TStaticText;

Edit4: TEdit;

OpenIniFile: TOpenDialog;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

About1: TMenuItem;

Label1: TLabel;

N4: TMenuItem;

Image1: TImage;

Image2: TImage;

procedure CopyClick(Sender: TObject);

procedure ClearClick(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure CalkClick(Sender: TObject);

procedure Edit1Exit(Sender: TObject);

procedure Edit2Exit(Sender: TObject);

procedure Edit3Exit(Sender: TObject);

procedure Edit4Exit(Sender: TObject);

procedure ComboBoxEx1Select(Sender: TObject);

procedure ComboBoxEx2Select(Sender: TObject);

procedure ComboBoxEx4Select(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure About1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

IniParm : TIniParam ; // параметры настройки

function CoCon ( Value : string ; Ddef : double) : double ;

procedure ToControl;

procedure ToInif;

end;

var

Form1: TForm1;

PathAppl: string;

implementation

uses UnitAbout;

{$R *.dfm}

var

SComboBoxEx1: array[0..2] of integer = (16000, 25000, 40000) ;

SComboBoxEx2: array[0..2] of integer = (6000, 12500, 16000) ;

SComboBoxEx4: array[0..1] of integer = (4, 2) ;

sysDecimalSeparator : Char ; // сохранение системного параметра- разделитель

//дробной части

Sp, //мощьность понизиельного трансформатора

St, //мощьность тягового трансформатора

Q:integer; //схема выпрямления

Id, // выпрямленный ток

Skz, // мощьность кз

Un, // номинальное напряжение на шинах подстанции

U0, // напряжение ХХ

Ukz1, //напряжение короткого замыкания понизительного трансформатора

Ukz2, //напряжение короткого замыкания тягового трансформатора

Rv, // внутреннее сопротивление подстанции

Ush, // напряжение на шинах подстанции

I1,

Rtp,

Rtt,

P1:double;

IniFileName,

OpenIniFile: string;

function TForm1.CoCon ( Value : string ; Ddef : double ) : double ;

var Dat : double ;

begin

Result := Ddef ; // предварительно присвоим значение по умолчанию

Try

if Value = '' then Exit else // проверка - нет данных - выход

Result := StrToFloat(Value) ; // преобразование

Except

ShowMessage(Format('Ошибка ввода: %s ',[Value]));

end;

end;

procedure TForm1.ToControl;

begin

with IniParm.PwSt do begin

Edit1.Text:=FloatToStr(Id);

Edit2.Text:=FloatToStr(Skz);

Edit3.Text:=FloatToStr(Ukz1);

Edit4.Text:=FloatToStr(Ukz2);

end ;

end;

procedure TForm1.ToInif;

begin

with IniParm.PwSt do begin

Id:=StrToFloat(Edit1.Text);

Skz:=StrToFloat(Edit2.Text);

Ukz1:=StrToFloat(Edit3.Text);

Ukz2:=StrToFloat(Edit4.Text);

end ;

end;

procedure TForm1.ComboBoxEx1Select(Sender: TObject);

var Index : integer ;

begin

// - индекс в массиве

Index := ComboBoxEx1.ItemIndex ;

if Index >= 0 then Sp:= SComboBoxEx1[Index] ;

end;

procedure TForm1.ComboBoxEx2Select(Sender: TObject);

var Index : integer ;

begin

// - индекс в массиве

Index := ComboBoxEx2.ItemIndex ;

if Index >= 0 then St := SComboBoxEx2[Index] ;

end;

procedure TForm1.ComboBoxEx4Select(Sender: TObject);

var Index : integer ;

begin

// - индекс в массиве

Index := ComboBoxEx4.ItemIndex ;

if Index >= 0 then Q:= SComboBoxEx4[Index] ;

end;

procedure TForm1.Edit1Exit(Sender: TObject);

begin

// Ввод выпрямленного тока

Id:= CoCon(Edit1.text,0);

end;

procedure TForm1.Edit2Exit(Sender: TObject);

begin

// Ввод уст мощности 1 потр

Skz:= CoCon(Edit2.text,0);

end;

procedure TForm1.Edit3Exit(Sender: TObject);

begin

// Ввод выпрямленного тока

Ukz1:= CoCon(Edit3.text,0);

end;

procedure TForm1.Edit4Exit(Sender: TObject);

begin

Ukz2:= CoCon(Edit4.text,0);

end;

function Rashet ( aSp, aSt, aQ, aId, aSkz, aUkz1, aUkz2: double ;

var aU0, aRv, aUsh, aI1, aRtt, aRtp, aP1: double ) : boolean ;

begin

Rashet := true ;

Try

aU0:=3300/(1-0.5*( aUkz2/100+(aUkz1*aSt)/(100*aSp)+aSt/(aSkz*1000))); //напряжение ХХ

aRv:=(0.5*(aU0*aU0)*(aUkz1/100*aSp*+aUkz2/aSt+1/aSkz*1000))/1000000000; // внутренее сопротивление

aUsh:=aU0-aRv*aId; // напряжение на шинах подстанции

if aQ=4 then aI1:=(sqrt(2/3)* aId)/aQ else aI1:=aId/aQ*sqrt(6);

aRtt:=0.24*(aUkz2*aUkz2/aSt*aSt);

aRtp:=0.074*(aUkz1*aUkz1/aSp*aSp);

aP1:=aSp+aSt+((aI1*aI1)*(aRtt+aRtp));

Except

ShowMessage('Ошибка вычислений ');

Rashet := false ;

End ;

end ;

procedure TForm1.CalkClick(Sender: TObject);

begin

if Rashet (Sp, St, Q, Id, Skz, Ukz1, Ukz2, U0, Rv, Ush, I1, P1, Rtt, Rtp)

then // если нет ошибок

with Memo1.Lines do begin // то вывод в MemOut

Add('__________Задано_________') ; // Add - добавить строку

Add(' ');

Add(' Мощность понизительного тр-ра: '+FloatToStr(Sp)+' кВA') ;

Add(' Мощность тягового тр-ра: '+FloatToStr(St)+' кВА') ;

Add(' Выпрямленный ток: '+FloatToStr(Id)+' А') ;

Add(' Мощность кз: '+FloatToStr(Skz)+' МВАр' ) ;

Add(' ');

Add('__________Расчёт__________') ;

Add(' ');

Add(' Напряжение холостого хода: '+FloatToStr(U0)+' В') ;

Add(' Внутреннее сопротивление тяговой подстанции: '+FloatToStr(Rv)+' кОм') ;

Add(' Напряжение на шинах подстанции: '+FloatToStr(Ush)+' В') ;

Add(' Первичный ток обмотки: '+FloatToStr(I1)+' A') ;

Add(' Потери мощьности: '+FloatToStr(P1)+' кВт') ;

Add(' ');

Add(' ');

end;

end;

procedure TForm1.CopyClick(Sender: TObject);

begin

with Memo1 do begin

SelectAll; // Выделить всё

CopyToClipboard; // Копировать в буфер обмена

end;

end;

procedure TForm1.ClearClick(Sender: TObject);

begin

// очистим поле вывода и поля редакторов:

Memo1.Clear ;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

close

end;

procedure TForm1.About1Click(Sender: TObject);

begin

Form2.Show; // Show - показать форму

end;

procedure TForm1.N2Click(Sender: TObject);

var NewIniFile: string;

begin

PathAppl := ExtractFilePath(ParamStr(0)); // из строки параметра извлекаем

IniFileName := PathAppl+'tmp.ini';//полный путь к ини-файлу

if FileExists(IniFileName) then // файл существует?

IniParm := TIniParam.Create(IniFileName); //создаём объект и загружаем

if OpenIniFile.Execute then begin // если в диалоге был выбран файл

NewIniFile := OpenIniFile.FileName; // то берём его полный путь

if FileExists(NewIniFile) then begin // файл существует? тогда копируем

CopyFile(PChar(NewIniFile), PChar(IniFileName), false); // его в рабочий

if IniParm <> NIL then IniParm.Free; // удаляем прежний объект

IniParm := TIniParam.Create(IniFileName); // создаём объект и загружаем

ChDir(PathAppl);

end; end;

ToControl;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

ToInif;

IniParm.WriteIniData(IniFileName); // запись без контроля

end;

procedure TForm1.Button3Click(Sender: TObject);

const esrc= #10#13 ;

var fileName,fnProtocol: string;

Word:variant;

ix:integer;

begin

fileName:=ExtractFilePath(Application.ExeName)+ fnProtocol ;

Try

//Создаем объект интерфейса для доступа к серверу COM

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

Except

ShowMessage('ErrQuit') ;

End ;

Word.application.documents.add;

ix := 0 ;

With Memo1 do

while ix < Lines.Count do begin

Word.application.activedocument.Range.InsertAfter(Lines[ix]+esrc);

Inc(ix) ; end ;

Word.application.Visible:=true;

Try

Word.application.activedocument.SaveAs(fileName);

Except

ShowMessage('Файл отчёта не сохранен') ;

End ;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

sysDecimalSeparator:=DecimalSeparator;

DecimalSeparator:='.';

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

DecimalSeparator:=sysDecimalSeparator;

end;

end.

5. Пример расчета номинальной мощности трансформатора ЭВМ