Банк Рефератов - Разработка программы- тренажера Управление электросетями

Рефераты. Разработка программы- тренажера Управление электросетями p> Нормальный режим.

Электроснабжение осуществляется от всех имеющихся источников электроэнергии и введенных в работу устройствах автоматического включения резерва (АВР).

Рис. 6.1. Нормальный режим работы электроустановки

Режим №2. Выведена в ремонт ВЛ 220 кВ «Агломерат 1»

Для перевода электроустановки в режим №2 и, обратно, в нормальный режим работы, пользователь должен выполнить операции согласно последовательности, указанной в таблице 3.

Состояние коммутационных аппаратов должно соответствовать схеме, приведенной на рис. 6.2.

Рис. 6.2. Выведена в ремонт ВЛ 220 кВ «Агломерат 1»

Режим №3. Выведена в ремонт ВЛ 220 кВ «Агломерат 2»

Для перевода электроустановки в режим №3 и, обратно, в нормальный режим работы, пользователь должен выполнить операции, согласно последовательности, указанной в таблице 4.

Состояние коммутационных аппаратов должно соответствовать схеме, приведенной на рис. 6.3.

Рис. 6.3. Выведена в ремонт ВЛ 220 кВ «Агломерат 2»

Режим №4. Выведен в ремонт Т1 63 мВа

Для перевода электроустановки в режим №4 и, обратно, в нормальный режим работы, пользователь должен выполнить операции, согласно последовательности, указанной в таблице 5.

Состояние коммутационных аппаратов должно соответствовать схеме, приведенной на рис. 6.4.

Рис. 6.4. Выведен в ремонт Т1 63 мВа

Режим №5. Выведен в ремонт Т2 63 мВа

Для перевода электроустановки в режим №5 и, обратно, в нормальный режим работы, пользователь должен выполнить операции, согласно последовательности, указанной в таблице 6.

Состояние коммутационных аппаратов должно соответствовать схеме, приведенной на рис. 6.5.

Рис. 6.5. Выведен в ремонт Т2 63 мВа

Режим №6. Выведен в ремонт Т3 100 мВа

Для перевода электроустановки в режим №6 и, обратно, в нормальный режим работы, пользователь должен выполнить операции, согласно последовательности, указанной в таблице 7.

Состояние коммутационных аппаратов должно соответствовать схеме, приведенной на рис. 6. 6.

Рис. 5.6. Выведен в ремонт Т3 100 мВа

Приложение Б. Листинг основного модуля программы

unit MainMenu;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Gauges, Menus, ComCtrls, User1, Report,
NewScen, ImgList,Report1;

type
TForm1 = class(TForm)

TaskList: TListBox;

RunBtn: TButton;

ExtBtn: TButton;

MainMenu1: TMainMenu;

Menu1: TMenuItem;

Menu4: TMenuItem;

Menu41: TMenuItem;

Menu5: TMenuItem;

Bevel1: TBevel;

StatusBar1: TStatusBar;

Image1: TImage;

ODT2: TImage;

ODT1: TImage;

BB50: TImage;

ODT3: TImage;

PBB2: TImage;

MBB2: TImage;

CMB1: TImage;

MBB1: TImage;

ABR1: TImage;

TRZ2: TImage;

TRZ1: TImage;

TRZ4: TImage;

TRZ3: TImage;

MBB4: TImage;

CMB2: TImage;

MBB3: TImage;

SRZ2: TImage;

SRZ9: TImage;

SR10: TImage;

SRZ1: TImage;

SRZ4: TImage;

SR37: TImage;

SR20: TImage;

SRZ3: TImage;

ABR2: TImage;

ResultBtn: TButton;

Label1: TLabel;

HelpBtn: TButton;

New: TMenuItem;

N2: TMenuItem;

Exit: TMenuItem;

Image2: TImage;

StaticText1: TStaticText;

Menu52: TMenuItem;

Label2: TLabel;

Menu2: TMenuItem;

Menu21: TMenuItem;

Menu22: TMenuItem; procedure ExtBtnClick(Sender: TObject); procedure TaskListMouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer); procedure FormActivate(Sender: TObject); procedure RunBtnClick(Sender: TObject); procedure Menu41Click(Sender: TObject); procedure MBB1Click(Sender: TObject); procedure MBB2Click(Sender: TObject); procedure MBB3Click(Sender: TObject); procedure MBB4Click(Sender: TObject); procedure CMB1Click(Sender: TObject); procedure CMB2Click(Sender: TObject); procedure BB50Click(Sender: TObject); procedure PBB2Click(Sender: TObject); procedure TRZ1Click(Sender: TObject); procedure TRZ2Click(Sender: TObject); procedure TRZ3Click(Sender: TObject); procedure TRZ4Click(Sender: TObject); procedure SRZ1Click(Sender: TObject); procedure SRZ2Click(Sender: TObject); procedure SRZ3Click(Sender: TObject); procedure SRZ4Click(Sender: TObject); procedure SRZ9Click(Sender: TObject); procedure SR10Click(Sender: TObject); procedure SR20Click(Sender: TObject); procedure SR37Click(Sender: TObject); procedure ODT1Click(Sender: TObject); procedure ODT2Click(Sender: TObject); procedure ODT3Click(Sender: TObject); procedure ABR1Click(Sender: TObject); procedure ABR2Click(Sender: TObject); procedure ResultBtnClick(Sender: TObject); procedure HelpBtnClick(Sender: TObject); procedure NewClick(Sender: TObject); procedure Menu52Click(Sender: TObject); procedure Menu21Click(Sender: TObject); procedure Menu22Click(Sender: TObject);

private
{ Private declarations } public

{ Public declarations }

end;

TStringList1 = class (TStringList);

TMyZap=class(TObject)

FNo:Integer;

FImage:ShortString;

FState:Integer;

FComment:ShortString; constructor
Create(No:Integer;Image:ShortString;State:Integer;Comment:ShortString); end;

var
Form1: TForm1;

TaskNumber:Integer;

WorkMode:Integer;

List1:TStringList1;

ActList:TList;

Prot:TStringList;

Zap:TMyZap;

Switch:TImage;

TaskName:string;

Error:integer;

Help:integer;

Count:Integer;

F: array [0..24] of boolean;

E: array [0..24] of boolean; implementation

uses Results;

{$R *.DFM}

constructor
TMyZap.Create(No:Integer;Image:ShortString;State:Integer;Comment:ShortString
); begin inherited Create;
FNo:=No;
FImage:=Image;
FState:=State;
FComment:=Comment; end;

procedure SWState(AOwner:TImage;i:integer); begin if F[i]=false then begin with AOwner.Canvas do begin

Pen.Color:=clWhite;

MoveTo(6,1);

LineTo(6,17);

Pen.Width:=2;

Pen.Color:=clBlack;

Rectangle(1,1,17,17);

MoveTo(6,17);

LineTo(15,1); end;

F[i]:=true; end else begin with AOwner.Canvas do begin

Pen.Color:=clWhite;

MoveTo(6,17);

LineTo(15,1);

Pen.Width:=2;

Pen.Color:=clBlack;

Rectangle(1,1,17,17);

MoveTo(6,1);

LineTo(6,17); end;

F[i]:=false; end; end;

procedure ABRState(AOwner:TImage;i:integer); begin if F[i]=False then begin with AOwner.Canvas do begin

Страницы: 1, 2, 3, 4, 5