Реферат: Разработка программы- тренажера Управление электросетями
Рис. 6.5. Выведен в ремонт Т2 63 мВа
Режим №6. Выведен в ремонт Т3 100 мВа
Для перевода электроустановки в режим №6 и, обратно, в нормальный режим работы, пользователь должен выполнить операции, согласно последовательности, указанной в таблице 7.
Таблица 7
| № |
Порядок перехода с режима №1 на режим №6 |
Порядок перехода С режима №6 на режим №1 |
| 1 | Вывести АВР 1,2 | Отключить ВВ 220 кВ яч 12 РПП 2 |
| 2 | Включить СМВ1 яч. 9 | Включить ОД3 220 кВ |
| 3 | Отключить МВ ввода В1 яч. 5 | Включить ВВ 220 кВ яч 12 РПП 2 |
| 4 | Вывести АВР 3,4 | Включить ШР1 яч 5 |
| 5 | Включить СМВ2 яч. 20 | Включить ТР1 яч 5 |
| 6 | Отключить МВ ввода В3 яч. 25 | Включить МВ ввода В1 яч. 5 |
| 7 | Отключить. ВВ 220 кВ яч 12 РПП2 | Отключить СМВ1 яч. 9 |
| 8 | Отключить ОД3 220 Кв | Ввести АВР 1,2 |
| 9 | Отключить ТР1 яч 5 | Включить ШР3 яч 25 |
| 10 | Отключить ШР1 яч 5 | Включить ТР3 яч 2 |
| 11 | Отключить ТР3 яч 25 | Включить МВ ввода В3 яч. 25 |
| 12 | Отключить ШР3 яч 25 | Отключить СМВ2 яч. 20 |
| 13 | Включить ВВ-220 кВ яч. 12 РПП2 | Ввести АВР 3,4 |
 |
Состояние коммутационных аппаратов должно соответствовать схеме, приведенной на рис. 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
Brush.Color:=clWhite;
FloodFill(8,8,clBlack,fsSurface);
Pen.Width:=2;
Pen.Color:=clBlack;
MoveTo(1,15);
LineTo(8,1);
MoveTo(8,1);
Страницы: 1, 2, 3, 4, 5, 6, 7, 8
