В соответствии с требованиями, приведенными в [10], эвакуационные пути должны обеспечивать эвакуацию всех людей, находящихся в помещениях зданий и сооружений, в течение необходимого времени эвакуации. Согласно [9] необходимое время эвакуации людей из помещений производственных зданий, относящихся по взрыво- и пожаробезопасности к категории В, составляет 1,25 мин. Предложенное для рассмотрения здание поста ЭЦ в соответствии с рисунком 4.1 имеет три этажа. Так как часть дверей по одну сторону коридора открываются в сторону эвакуационного пути, то в соответствии с [10] ширина эвакуационного пути принята равной ширине коридора, уменьшенной на половину дверного полотна, т.е.

 (4.1)

где _ЭП - ширина эвакуационного пути;

_К = 1,5 м - ширина коридора;

_П = 0,8 м - ширина дверного полотна.

Таким образом,

Дальнейший расчет произведен, исходя из методики, изложенной в [9]. Наиболее удаленная от выхода из здания точка в соответствии с рисунком 4.1 находится в помещении лаборатории ДИСК расположенном на втором этаже здания. До выхода из помещения электромеханикам необходимо преодолеть расстояние от своих рабочих мест, т.е. начальный участок пути. Плотность потока людей на начальном участке пути определится из формулы

(4.2)

где D₀₁ - плотность потока;

N₀₁ = 2 чел. - число людей на данном участке;

l₀₁ = 9 м - длина начального участка пути;

₀₁ = 3 м - ширина начального участка пути;

f = 0,125 м² - средняя площадь горизонтальной проекции

взрослого человека в зимней одежде.

Следовательно

Данный участок горизонтальный, т.е. скорость и интенсивность движения по начальному участку пути согласно [10] будут равны V₀₁ = 100 м/мин и q₀₁ = =1,0м/мин. В итоге время движения потока людей по начальному участку пути составит

Размещено на http://www.allbest.ru/

125

Рисунок 4.1 - План эвакуации при пожаре. Пост ЭЦ: а) 1 этаж; б) 2 этаж.

Аналогичным методом будет определено время движения по начальному участку пути в каждом помещении второго этажа здания, учитывая, что все люди находятся на своих рабочих местах.

Помещение станционного оборудования ДИСК: N₀₂ = 1 чел.; l₀₂ = 4 м;

₀₂ = 2 м. Отсюда

Помещение электромеханика связи: N₀₃ = 2 чел.; l₀₃ = 4 м; ₀₃ = 2,3м.

Таким образом,

Помещение КИП: N₀₄ = 2 чел.; l₀₄ = 6 м; ₀₄ = 2,7 м.

В этом случае

Помещение электромеханика КИП: N₀₅ = 1 чел.; l₀₅ = 4 м; ₀₅ = 2 м.

Весь путь эвакуации людей разбит на 8 участков. Из них первый, второй, шестой, седьмой,- участки горизонтального пути; третий, пятый, восьмой- участки пути в дверном проеме; и, наконец, четвертый - участок пути по лестнице, ведущей вниз. Кроме того, в ходе расчета учтено время движения по лестничным площадкам этажей здания.

Первый участок представляет собой путь от помещения лаборатории ДИСК до слияния с потоком из помещения электромехаников ДИСК. Интенсивность движения на этом участке согласно [10] определится из формулы

(4.3)

где _i, _i-1 - ширина рассматриваемого i и предшествующего ему i-1 участка пути, м;

q_i, q_i-1 - значения интенсивности движения потока людей по рассматриваемому i и предшествующему i-1 участкам пути, м/мин.

Таким образом,

При данном значении интенсивности V₁₃ = 100 м/мин.

Максимальное значение интенсивности движения q_max для горизонтальных участков пути составляет 16,5 м/мин. Так как q₁₃ < q_max , то время движения по первому участку составит

При слиянии в начале участка i двух и более потоков людей интенсивность движения определяется по формуле

 (4.4)

где q_i-1 - интенсивность движения потоков людей, сливающихся

в начале участка i, м/мин;

_i-1 - ширина участков пути до слияния, м;

_i - ширина рассматриваемого i участка пути, м.

Таким образом, при слиянии потоков из помещения лаборатории и помещения электромеханика интенсивность движения будет равна

Второй участок начинается с точки слияния потоков людей из помещений лаборатории и электромехаников в соответствии с рисунком 4.1 и заканчивается у выхода на лестницу. Длина этого участка составляет 8,5 м. Интенсивность движения в этой точке рассчитана по формуле (4.4)

Отсюда

Интенсивность движения образовавшегося потока людей в количестве шести человек в дверном проеме при выходе на лестничную площадку рассчитана по формуле (4.3)

А в начале третьего участка пути, т.е. при выходе непосредственно на лестницу, ширина которой составляет _Л = 1,3 м, интенсивность движения будет равна

Длина четвертого участка пути составляет три лестничных марша (до первого этажа) с учетом двух лестничных площадок (l_ЛП = 2,6 м) и равна ₅ = 20 м. При данной интенсивности скорость движения по лестнице вниз согласно [10] будет составлять V₅ = 97 м/мин. Следовательно, время движения по четвертому участку

Учитывая практическую однотипность планировки этажей, а также то, что второй этаж по количеству людей (6 человек) не значительно превосходит первый (7 человек), при дальнейших расчетах приняты следующие значения интенсивности движения, которые были рассчитаны для второго этажа:

а) интенсивность движения потока людей с первого этажа при выходе на лестничную площадку первого этажа q_2Н = q₅ = 7,6 м/мин;

б) интенсивность движения потока людей с первого этажа в точке слияния с основным потоком людей с верхнего этажа q_1Н = q₄ = 9,0 м/мин.

Таким образом, при слиянии основного потока людей с потоком людей, движущихся со второго этажа, интенсивность движения определится из выражения

где _ЛП = 1,5 м - ширина лестничной площадки.

Отсюда

Рассчитанное значение не превышает q_max = 16,5 м/мин.

Пятый участок представляет собой дверной проем, ведущий в коридор первого этажа. Здесь интенсивность движения основного потока людей составит

Рассчитанное значение превышает q_max = 19,6 м/мин, установленное для дверных проемов. Вследствие этого необходимо провести мероприятия по увеличению ширины данного дверного проема до 1,1 м. В этом случае интенсивность движения будет равна

что меньше, чем q_max.

Шестой участок начинается в точке слияния основного потока людей и потока людей с первого этажа и заканчивается у дверного проема тамбура. Таким образом, на данном участке интенсивность движения составит

Так как полученное значение превышает q_max = 16,5 м/мин, то необходимо принять меры по увеличению ширины данного участка пути до 2 м. В этом случае

Для рассчитанного значения q₉ скорость движения составит V₉ = 10 м/мин. В данных условиях время движения по шестому участку будет равно

Седьмой участок - путь в дверном проеме тамбура шириной ₁₀ = 1,3м. Интенсивность движения будет равна

Восьмой участок представляет собой отрезок пути в тамбуре до выхода из здания длиной l₁₁ = 1,5 м. Интенсивность, скорость и время движения на этом участке соответственно составят

В конечном итоге расчетное время эвакуации из здания поста ЭЦ определится как сумма времени движения потока людей по выделенным участкам пути, т.е.

Следовательно, расчетное время эвакуации составит

Полученное значение показывает, что расчетное время эвакуации людей из здания поста ЭЦ при пожаре не превышает необходимое время эвакуации (1,250 мин). Вместе с тем, необходимо провести некоторые мероприятия по переустройству здания, связанные с увеличением ширины дверных проемов в тамбуре до 3 м и дверного проема, ведущего на лестницу из коридора первого этажа, до 1,1 м.

Заключение

В процессе проектирования были рассмотрены и решены задачи, основными из которых являются следующие:

а) разработка мероприятий по обеспечению непрерывного контроля технического состояния подвижного состава при его движении на участке Гомель - Калинковичи;

б) исследование формы сигналов в контрольных точках измерительного тракта подсистемы автоматического обнаружения волочащихся деталей на ходу поезда ДИСК - В;

в) усовершенствование АРМ электромеханика КРП ДИСК.

Работа над вопросом, записанным в пункте а, заключалась в оборудовании на протяжении всего участка следования (Гомель - Калинковичи) подвижного состава аппаратурой автоматизированной системы контроля подвижного состава и состояния приборов ДИСК (АСК ПС) отделений дороги, в пределах которых расположен данный участок.

В пункте б было проведено исследование устройства и принципа работы субблока обнаружения волочащихся деталей (ВД), составлена его структурная схема и исследованы формы сигналов в контрольных точках схемы.

Главной задачей стало усовершенствование АРМ “Стенд” электромеханика КРП ДИСК. Т.е. на основании исследований, проведенных в пункте б, была предложена методика проверки работоспособности субблока ВД на базе АРМ “Стенд”. Решение этой задачи состояло в написании алгоритма и программы, обеспечивающей работу АРМа в режиме проверки субблока ВД.

Программным способом был решен вопрос по расчету потребляемой энергии и степени нагрузки вторичных источников питания блока управления перегонной стойки ДИСК - Б.

Также были рассмотрены вопросы техники безопасности и чрезвычайных ситуации, включающих в себя и определение расчетного времени эвакуации людей из здания поста ЭЦ при пожаре.

В графической части дипломного проекта представлены электрические принципиальные и функциональные схемы, временные диаграммы и алгоритмы, поясняющие работу рассмотренных в проекте устройств.

Список принятых сокращений

ISA-слот - разъем на материнской плате ПЭВМ;

АОПБ - аппаратура обнаружения перегретых букс;

АПД - аппаратура передачи данных;

ДИСК-Б - базовая подсистема автоматического обнаружения перегретых букс;

ДИСК-В - подсистема автоматического обнаружения волочащихся деталей;

ДИСК-К - подсистема автоматического обнаружения дефектов колес по кругу катания;

КРП - контрольно - ремонтный пункт;

ПТО - пункт технического обслуживания вагонов;

ПКТО - пункт контрольно - технического обслуживания;

КИП - контрольно - измерительные приборы;

ЗИП - запасное имущество прибора;

ЭЦ - электрическая централизация;

ИК - инфракрасное излучение;

ИМС - интегральная микросхема;

АЦП - аналого - цифровой преобразователь;

ЦАП - цифро - аналоговый преобразователь;

ПИТ - программируемый интервальный таймер.

Литература

1 Трестман Е. Е., Лозинский С. Н., Образцов В. Л. Автоматизация контроля буксовых узлов в поездах. - М.: Транспорт, 1983. 352с.

2 Лозинский С. Н., Алексеев А. Г., Карпенко П. Н. Аппаратура автоматического обнаружения перегретых букс в поездах. - М.: Транспорт, 1978. 160 с.

3 Автоматизированная система контроля подвижного состава и состояния приборов ДИСК (АСК ПС). Техническое описание и инструкция по эксплуатации. Гомельское бюро автоматизированных систем. - 1999.

4 Подсистема ДИСК - В для автоматического обнаружения волочащихся деталей на ходу поезда. Техническое описание и инструкция по эксплуатации. № 78Б ТО. - Уральское отделение ВНИИЖТ, 1985. 29с.

5 Инструкция по размещению, установке и эксплуатации средств автоматического контроля технического состояния подвижного состава на ходу поезда. - М.: Транспорт, 1990. 31 с.

6 Якубовский С. В., Ниссельсон Л. И., Кулешов В. И. и др.; Под ред. Якубовского С. В. Цифровые и аналоговые интегральные микросхемы: Справочник. - М.: Радио и связь, 1989. 496 с.

7 Ястребенецкий М. А., Иванова Г. М. Надежность автоматизированных систем управления технологическими процессами: Учеб. пособие для вузов. - М.: Энергоатомиздат, 1989. 264 с.

8 Дружинин Г. В., Степанов С. В., Шихматова В. Л., Ярыгин Г. А. Теория надежности радиоэлектронных систем в примерах и задачах: Учеб. пособие для студентов радиотехн. специальностей вузов. Под ред. Дружинина Г. В. - М.: Энергия, 1976. 448 с.

9 Орлов Г. Г., Булыгин В. И., Виноградов Д. В. и др.; Под ред. Орлова Г. Г. Инженерные решения по охране труда в строительстве: Справочник строителя. - М.: Стройиздат, 1985. 278 с.

10 СНиП II - 2 - 80. Противопожарные нормы проектирования зданий и сооружений. Госстрой СССР. - М.: Стройиздат, 1981. 14 с.

11 Усатенко С. Т., Каченюк Т. К., Терехова М. В. Выполнение электрических схем по ЕСКД: Справочник. - М.: Издательство стандартов, 1989. 352 с.

12 ГОСТ 2.105 - 95 ЕСКД. Общие требования к текстовым документам.- Мн.: Белстандарт, 1996.

13 Автоматика, связь, информатика. № 1. - М., 1998.

Приложение А

Листинг программы проверки работоспособности субблока ВД подсистемы ДИСК-В на базе

АРМ "Стенд"

// Программа - проект

program ProjLpt;

uses

Forms,

Ulpt in 'Ulpt.pas' {Form1},

Uprint in 'Uprint.pas' {Form2};

{$R *.RES}

begin

Application.Initialize;

Application.Title:= 'АРМ электромеханика';

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.Run;

end.

// Модуль - главная программа

unit Ulpt;

interface

uses

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

Buttons, ExtCtrls, StdCtrls, ComCtrls;

type

TForm1 = class(TForm)

Panel1: TPanel;

SpeedButton1: TSpeedButton;

RichEdit1: TRichEdit;

SpeedButton2: TSpeedButton;

Timer1: TTimer;

Label1: TLabel;

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Uprint;

{$R *.DFM}

procedure TForm1.SpeedButton1Click(Sender: TObject);

var

// Объявление переменных - сигналов

// Выходные сигналы

a10, a11, a12, a18, b11, b12, b4, a1: boolean;

// Сигналы управления

b5, a5, b6, b7, a6, a7, b8, a8: boolean;

// Входные сигналы

a2, a3, a4, b1, b2, b3, b9: boolean;

res:integer;

next:boolean;

// Флаги неисправностей

flag_a0, flag_a, flag_b, flag_c, flag_d, flag_e, flag_f:integer;

// Процедара выдачи сигналов в LPT - порт

procedure outdate;

var

data: integer;

upr: integer;

Begin

upr:= 0;

data:= 0;// Предварительное обнуление посылки

{ Выдача управляющего воздействия }

if b5 = true

then upr:= 1

else upr:= 0;

if a5 = true

then upr:= upr + 2;

if b6 = true

then upr:= upr + 4;

if a6 = true

then upr:= upr + 8;

if b7 = true

then upr:= upr + 16;

if a7 = true

then upr:= upr + 32;

if b8 = true

then upr:= upr + 64;

if a8 = true

then upr:= upr + 128;

asm // Выдача сигнала по базовому адресу слова управления

MOV EAX, data

OUT 07ah, EAX

end;

{ Вычисление слова - посылки }

if a12 = true

then data:= 1

else data:= 0;

if b12 = true

then data:= data + 2;

if a11 = true

then data:= data + 4;

if b11 = true

then data:= data + 8;

if a10 = true

then data:= data + 16;

if b4 = true

then data:= data + 32;

if a18 = true

then data:= data + 64;

if a1 = true

then data:= data + 128;

asm // Выдача сигнала по базовому адресу слова данных

MOV EAX, data

OUT 078h, EAX

end;

// Обнуление сигналов

a10:= false; a11:= false; a12:= false; a18:= false;

b11:= false; b12:= false; b4:= false; a1:= false;

b5:= false; a5:= false; b6:= false; b7:= false;

a6:= false; a7:= false; b8:= false; a8:= false;

End;

// Процедура "Модуль 2"

// Модуль 2

// Установка в исходное состояние цепей субблока ВД

procedure modul2;

begin

{ Установка сигнала IIтел - "0" (выкл.) }

a6:= false;

a10:= false;

a11:= false;

a12:= true;

a18:= false;

b12:= false;

b11:= false;

outdate;

{ Установка сигнала ПЗУ - "1"(выкл) }

a7:= true;

a12:= false;

a11:= true;

a10:= false;

a18:= false;

b12:= true;

b11:= false;

outdate;

{ Установка сигнала запрет - "1"(выкл) }

a7:= true;

a12:= true;

a11:= false;

a10:= false;

a18:= false;

b12:= true;

b11:= false;

outdate;

{ Установка сигнала Поезд - "0"(выкл) }

a6:= false;

a12:= false;

a11:= true;

a10:= false;

a18:= false;

b12:= true;

b11:= false;

outdate;

{ Установка сигнала ОВ17 - "1"(выкл) }

a5:= true;

a12:= true;

a11:= true;

a10:= false;

a18:= false;

b12:= false;

b11:= false;

outdate;

{ Установка сигнала ОВП1 - "1"(выкл) }

a6:= true;

a12:= true;

a11:= true;

a10:= false;

a18:= false;

b12:= true;

b11:= false;

outdate;

end;

// Процедура остановки программы

procedure stopwork;

var i:integer;

Begin

i:= 0;

// Подготовка к заполнению бланка печати

Form2.QRLabel2.Caption:= ' ';

Form2.QRLabel3.Caption:= ' ';

Form2.QRLabel4.Caption:= ' ';

Form2.QRLabel5.Caption:= ' ';

Form2.QRLabel6.Caption:= ' ';

Form2.QRLabel7.Caption:= ' ';

Form2.QRLabel8.Caption:= ' ';

RichEdit1.Text:= '';

next:= false;

// Проверка флагов

if flag_a0 = 1 then

Begin

RichEdit1.Lines.Add('Неисправность соответствующего канала - усилитель, детектор, пороговое устройство, триггер 1-ой ступени,индикация');

Form2.QRLabel2.Caption:= 'Неисправность соответствующего канала ';

inc(i);

End;

if flag_a = 1 then

Begin

RichEdit1.Lines.Add('Неисправен тракт на элементах DD5, DD11 субблока ВД');

if i = 1 then

Form2.QRLabel3.Caption:='Неисправен тракт на элементах DD5, DD11 субблока ВД'

else

Form2.QRLabel2.Caption:='Неисправен тракт на элементах DD5, DD11 субблока ВД';

inc(i);

End;

if flag_b = 1 then

Begin

RichEdit1.Lines.Add('Неисправен тракт на элементе DD11 субблока ВД');

case i of

0:Form2.QRLabel2.Caption:='Неисправен тракт на элементе DD11 субблока ВД';

1:Form2.QRLabel3.Caption:='Неисправен тракт на элементе DD11 субблока ВД';

2:Form2.QRLabel4.Caption:='Неисправен тракт на элементе DD11 субблока ВД';

end;

inc(i);

End;

if flag_c = 1 then

Begin

RichEdit1.Lines.Add('Неисправен тракт на элементах DD5, DD11 субблока ВД');

case i of

0:Form2.QRLabel2.Caption:='Неисправен тракт на элементах DD5, DD11 субблока ВД';

1:Form2.QRLabel3.Caption:='Неисправен тракт на элементах DD5, DD11 субблока ВД';

2:Form2.QRLabel4.Caption:='Неисправен тракт на элементах DD5, DD11 субблока ВД';

3:Form2.QRLabel5.Caption:='Неисправен тракт на элементах DD5, DD11 субблока ВД';

end;

inc(i);

End;

if flag_d = 1 then

Begin

RichEdit1.Lines.Add('Неисправен тракт на элементах DD5-DD9, DD12, VD21-24 субблока ВД');

case i of

0:Form2.QRLabel2.Caption:='Неисправен тракт на элементах DD5-DD9, DD12, VD21-24 субблока ВД';

1:Form2.QRLabel3.Caption:='Неисправен тракт на элементах DD5-DD9, DD12, VD21-24 субблока ВД';

2:Form2.QRLabel4.Caption:='Неисправен тракт на элементах DD5-DD9, DD12, VD21-24 субблока ВД';

3:Form2.QRLabel5.Caption:='Неисправен тракт на элементах DD5-DD9, DD12, VD21-24 субблока ВД';

4:Form2.QRLabel6.Caption:='Неисправен тракт на элементах DD5-DD9, DD12, VD21-24 субблока ВД';

end;

inc(i);

End;

if flag_e = 1 then

Begin

RichEdit1.Lines.Add('Неисправна схема переключения (DD10) или схема совпадения DD16');

case i of

0:Form2.QRLabel2.Caption:='Неисправна схема переключения (DD10) или схема совпадения DD16';

1:Form2.QRLabel3.Caption:='Неисправна схема переключения (DD10) или схема совпадения DD16';

2:Form2.QRLabel4.Caption:='Неисправна схема переключения (DD10) или схема совпадения DD16';

3:Form2.QRLabel5.Caption:='Неисправна схема переключения (DD10) или схема совпадения DD16';

4:Form2.QRLabel6.Caption:='Неисправна схема переключения (DD10) или схема совпадения DD16';

5:Form2.QRLabel7.Caption:='Неисправна схема переключения (DD10) или схема совпадения DD16';

end;

inc(i);

End;

if flag_f = 1 then

Begin

RichEdit1.Lines.Add('Неисправен тракт на элементах DD14.1, DD15 субблока ВД');

case i of

0:Form2.QRLabel2.Caption:='Неисправен тракт на элементах DD14.1, DD15 субблока ВД';

1:Form2.QRLabel3.Caption:='Неисправен тракт на элементах DD14.1, DD15 субблока ВД';

2:Form2.QRLabel4.Caption:='Неисправен тракт на элементах DD14.1, DD15 субблока ВД';

3:Form2.QRLabel5.Caption:='Неисправен тракт на элементах DD14.1, DD15 субблока ВД';

4:Form2.QRLabel6.Caption:='Неисправен тракт на элементах DD14.1, DD15 субблока ВД';

5:Form2.QRLabel7.Caption:='Неисправен тракт на элементах DD14.1, DD15 субблока ВД';

6:Form2.QRLabel8.Caption:='Неисправен тракт на элементах DD14.1, DD15 субблока ВД';

end;

End;

End;

{ Основная программа }

Begin

next:= true;

// Модуль 1

// Подача птитающих напряжений +12В, -12В.

b7:= true;

a12:= true;

b12:= true;

a11:= true;

a18:= true;

b11:= false;

a10:= false;

outdate; // Включение регистра

a12:= false;

b12:= true;

a11:= true;

a18:= true;

b11:= true;

a10:= false;

outdate; // Включение реле К1

// Вызов модуля 2

Modul2;

// Модуль 3 Проверка входных каналов субблока ВД

// По очереди загораются светодиоды

ShowMessage('Для проверки входных каналов необходимо установить перемычки на контактах разъема субблока ВД следующим образом: А6 с А2, А17 с А21, А19 с А22, А26 с В29');

b5:= true;

outdate;

// на выходе 9 DD2 - 0, запись "1" по выходу 19 (Q0) DD11 регистр ЦАП

a12:= true;

b11:= true;

a11:= false;

b12:= false;

a10:= false;

a18:= false;

outdate;

if MessageDlg('Все светодиоды загорелись?', mtConfirmation, [mbYes, mbNo], 0)=mrNo

then

begin

ShowMessage('Неисправность соответствующего канала'+

'(усилитель, детектор, пороговое устройство, триггер 1-ой ступени,'+

' индикация)');

flag_a0:= 1;

if MessageDlg('Продолжить проверку?', mtConfirmation, [mbYes, mbNo], 0)=mrNo

then

Begin

stopwork;

next:= false;

End;

end;

// end;

// Вызов модуля 2

if next = true then Modul2;

// Модуль 4. Проверка формирования сигнала отключения выходных ключей блока СВ

if next = true then

Begin

if MessageDlg('Тумблер В1 находится в положении "Раб"?', mtConfirmation, [mbYes, mbNo], 0)=mrNo

then ShowMessage('Поставте В1 в положение "Раб." и нажммите ОК');

// Выбор регистра DD26. Сигнал CS22

a12:= false;

b12:= true;

a11:= true;

b11:= false;

a10:= true;

// Снятие результата

// Считать с А8 состояние

asm

IN EAX, DX

MOV res, EAX

end;

if res - 128 < 0 then a8:= false

else a8:= true;

if a8 = true then

begin

ShowMessage('Неисправен тракт на элементах DD5, DD11 субблока ВД');

flag_a:= 1;

if MessageDlg('Продолжить проверку?', mtConfirmation, [mbYes, mbNo], 0)=mrNo

then

Begin

stopwork;

next:= false;

End;

end;

End;

// Вызов модуля 2

if next = true then Modul2;

// Модуль 5

// Проверка формирования сигнала выходных ключей блока СВ

// Входные данные

if next = true then

Begin

a6:= true;

outdate;

// Сигнал CS6. Выбор регистра DD6

a12:= false;

b11:= false;

b12:= true;

a11:= true;

a10:= false;

a18:= false;

outdate;

// Сигнал CS22. Выбор регистра DD26

a12:= false;

a10:= true;

b11:= false;

a11:= true;

b12:= true;

outdate;

// Получение результата

// Считать с А8 состояние

asm

IN EAX, DX

MOV res, EAX

end;

if res - 128 < 0 then a8:= false

else a8:= true;

if a8 = false then

begin

ShowMessage('Неисправен тракт на элементе DD11 субблока ВД');

flag_b:= 1;

if MessageDlg('Продолжить проверку?', mtConfirmation, [mbYes, mbNo], 0)=mrNo

then

Begin

stopwork;

next:= false;

End;

end;

End;

// Вызов модуля 2

if next = true then Modul2;

// Модуль 6

// Проверка формирования сигнала включения выходных ключей блока СВ в контрольном режиме

if next = true then

Begin

ShowMessage('Переключите тумблер В1 в положение "Контр" и нажмите ОК');

// Входные данные ПЗУ - "0" (вкл.)

a7:= false;

outdate;

// Сигнал CS6. Выбор регистра DD6

a12:= false;

a10:= false;

a18:= false;

b11:= false;

b12:= true;

a11:= true;

// Сигнал CS22. Выбор регистра DD26

a12:= false;

a10:= true;

b11:= false;

b12:= true;

a11:= true;

// Получение результата

// Считать с А8 состояние

asm

IN EAX, DX

MOV res, EAX

end;

if res - 128 < 0 then a8:= false

else a8:= true;

if a8 = true then

begin

ShowMessage('Неисправен тракт на элементах DD5, DD11 субблока ВД');

flag_c:= 1;

if MessageDlg('Продолжить проверку?', mtConfirmation, [mbYes, mbNo], 0)=mrNo

then

Begin

stopwork;

next:= false;

End;

end;

End;

// Вызов модуля 2

if next = true then Modul2;

// Модуль 7

// Проверка исправности попроговых устройств и триггера первой ступени

// запоминания "ВОЛОЧЕНИЯ"

//Водные данные

if next = true then

Begin

a3:= true;

outdate;

// Сигнал CS1. Выбор регистра DD1

a12:= true;

b12:= false;

a11:= false;

b11:= false;

a10:= false;

a18:= false;

outdate;

// Сообщение

if MessageDlg('Все светодиоды загорелись?', mtConfirmation, [mbYes, mbNo], 0)=mrNo

then

Begin

flag_d:= 1;

ShowMessage('Неисправен тракт на элементах DD5-DD9, DD12, VD21-24 субблока ВД');

if MessageDlg('Продолжить проверку?', mtConfirmation, [mbYes, mbNo], 0)=mrNo

then

Begin

stopwork;

next:= false;

End;

end;

End;

// Модуль 8

// Проверка работоспособности схемы переключения триггера

// второй ступени запоминания "ВОЛОЧЕНИЯ"

// Входные данные ПЗУ - "0" (вкл.)

if next = true then

Begin

a7:= false;

outdate;

// Сигнал CS6. Выбор DD6

a12:= false;

a10:= false;

a18:= false;

b11:= false;

a11:= true;

b12:= true;

outdate;

// Входные данные ОВП1 - "0" (вкл.)

a6:= false;

outdate;

// Сигнал CS7. Выбор DD7

a12:= true;

a10:= false;

a18:= false;

b11:= false;

a11:= true;

b12:= true;

outdate;

// Временная задержка на 2 мс.

Timer1.Enabled:= true;

// Снятие сигнала ОВП1 - "1" (выкл.)

a6:= true;

outdate;

a12:= true;

a10:= false;

a18:= false;

b11:= false;

a11:= true;

b12:= true;

outdate;

// Сообщение

if MessageDlg('Все светодиоды погасли?', mtConfirmation, [mbYes, mbNo], 0)=mrNo

then

Begin

flag_e:= 1;

ShowMessage('Неисправна схема переключения (DD10) или схема совпадения DD16');

if MessageDlg('Продолжить проверку?', mtConfirmation, [mbYes, mbNo], 0)=mrNo

then

Begin

stopwork;

next:= false;

End;

end;

End;

// Модуль 9

// Прверка формирования выходного сигнала "ВОЛОЧЕНИЕ"

// Входные данные ОВ17 - "0" (вкл.)

if next = true then

Begin

a5:= false;

outdate;

// CS5 DD5

a12:= true;

a11:= true;

a10:= false;

a18:= false;

b12:= false;

b11:= false;

outdate;

// CS23 DD27

a12:= true;

a11:= true;

a10:= true;

b12:= true;

b11:= false;

outdate;

// Снятие результата

// Считать с А8 состояние

asm

IN EAX, DX

MOV res, EAX

end;

if res - 128 < 0 then a8:= false

else a8:= true;

if a8 = false then

begin

ShowMessage('Неисправен тракт на элементах DD14.1, DD15 субблока ВД');

flag_f:= 1;

stopwork;

end;

End;

// В завершении - кнопка "Печать" доступна

SpeedButton2.Enabled:= True;

end;

// Процедура предварительного просмотра печатного документа

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

Form2.QuickRep1.Preview;

end;

// Завершение головной программы

End.

// Модуль окна печати

unit Uprint;

inerface

uses

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

quickrpt, Qrctrls, Db, DBTables, ExtCtrls;

type

TForm2 = class(TForm)

QuickRep1: TQuickRep;

DataSource1: TDataSource;

Table1: TTable;

QRBand1: TQRBand;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

QRLabel8: TQRLabel;

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.DFM}

end.

Приложение Б

Алгоритм программы расчета потребляемой энергии и степени нагрузки вторичных источников питания перегонной стойки ДИСК - Б

Размещено на http://www.allbest.ru/

125

Приложение В

Листинг программы расчета потребляемой энергии и степени нагрузки вторичных источников питания блока управления перегонной стойки ДИСК-Б

unit Umain;

interface

uses

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

ComCtrls, Tabnotbk, ExtCtrls, Db, DBTables, Grids, DBGrids, Buttons,

StdCtrls, DBCtrls;

type

TFormMain = class(TForm)

Panel1: TPanel;

TabbedNotebook1: TTabbedNotebook;

DataSource1: TDataSource;

DataSource2: TDataSource;

Table1: TTable;

Table2: TTable;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

Label1: TLabel;

Label2: TLabel;

SpeedButton6: TSpeedButton;

DBNavigator1: TDBNavigator;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

DBNavigator2: TDBNavigator;

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure CheckBox2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormMain: TFormMain;

implementation

{$R *.DFM}

// Процедура добавления записи

procedure TFormMain.SpeedButton1Click(Sender: TObject);

begin

// Активизация кнопок "Отменить" и "Подтвердить"

SpeedButton2.Enabled:= True;

SpeedButton3.Enabled:= True;

// Выбор базы данных

Case TabbedNotebook1.PageIndex of

0: Begin

Table1.First;

Table1.Insert;

DBGrid1.SetFocus;

End;

1: Begin

Table2.First;

Table2.Insert;

DBGrid2.SetFocus;

End;

End;

end;

// Процедура подтверждения изменения

procedure TFormMain.SpeedButton2Click(Sender: TObject);

begin

// Деактивизация кнопок "Отменить" и "Подтвердить"

SpeedButton2.Enabled:= False;

SpeedButton3.Enabled:= False;

// Выбор базы данных

Case TabbedNotebook1.PageIndex of

0: Begin

// Процедура подтверждения изменения

Table1.Post;

End;

1: Begin

// Процедура подтверждения изменения

Table2.Post;

End;

End;

end;

// Процедура отмены изменений

procedure TFormMain.SpeedButton3Click(Sender: TObject);

begin

// Деактивизация кнопок "Отменить" и "Подтвердить"

SpeedButton2.Enabled:= False;

SpeedButton3.Enabled:= False;

// Выбор базы данных

Case TabbedNotebook1.PageIndex of

0: Begin

// Процедура отмены изменения

Table1.Cancel;

End;

1: Begin

// Процедура отмены изменения

Table2.Cancel;

End;

End;

end;

// Процедура очистки базы данных

procedure TFormMain.SpeedButton4Click(Sender: TObject);

begin

// Выбор базы данных

Case TabbedNotebook1.PageIndex of

0: Begin

Table1.First;

Repeat

Table1.Edit;

Table1.FieldByName('Chislo').Asfloat:= 0;

Table1.Post;

Table1.Next;

Until Table1.EOF;

Label1.Visible:= false;

End;

1: Begin

Table2.First;

Repeat

Table2.Edit;

Table2.FieldByName('Chislo').Asfloat:= 0;

Table2.Post;

Table2.Next;

Until Table2.EOF;

Label2.Visible:= false;

End;

End;

end;

// Процедура расчета

procedure TFormMain.SpeedButton5Click(Sender: TObject);

var x,y:real;

begin

x:= 0;

y:= 0;

// Деактивизация кнопок "Отменить" и "Подтвердить"

SpeedButton2.Enabled:= False;

SpeedButton3.Enabled:= False;

// Выбор базы данных

Case TabbedNotebook1.PageIndex of

0: Begin

Table1.First;

Repeat

// Реализация расчетной формулы для микросхем

x:= x + Table1.FieldByName('Chislo').Asfloat*Table1.FieldByName('Tok').Asfloat;

Table1.Next;

Until Table1.EOF;

Label1.Visible:= True;

Label1.Caption:= 'Cумма токов - ' + FloatToStr(x)+ ' mA.';

End;

1: Begin

Table2.First;

Repeat

// Реализация расчетной формулы для резисторов

y:= y + Table2.FieldByName('Chislo').Asfloat*sqrt(Table2.FieldByName('Power').Asfloat*0.25);

Table1.Next;

Until Table2.EOF;

Label2.Visible:= True;

Label2.Caption:= 'Cумма токов - ' + FloatToStr(x)+ ' mA.';

End;

End;

end;

// Проедура изменения

procedure TFormMain.SpeedButton6Click(Sender: TObject);

begin

// Активизация кнопок "Отменить" и "Подтвердить"

SpeedButton2.Enabled:= True;

SpeedButton3.Enabled:= True;

// Выбор базы данных

Case TabbedNotebook1.PageIndex of

0: Begin

// Процедура редактирования

Table1.Edit;

End;

1: Begin

// Процедура редактирования

Table2.Edit;

End;

End;

end;

procedure TFormMain.CheckBox1Click(Sender: TObject);

begin

If CheckBox1.Checked = true then

Begin

DBNavigator1.Visible:= true;

SpeedButton1.Enabled:= False;

SpeedButton2.Enabled:= False;

SpeedButton3.Enabled:= False;

SpeedButton6.Enabled:= False;

End;

If CheckBox1.Checked = false then

Begin

DBNavigator1.Visible:= false;

SpeedButton1.Enabled:= True;

SpeedButton6.Enabled:= True;

End;

end;

procedure TFormMain.CheckBox2Click(Sender: TObject);

begin

If CheckBox2.Checked = true then

Begin

DBNavigator2.Visible:= true;

SpeedButton1.Enabled:= False;

SpeedButton2.Enabled:= False;

SpeedButton3.Enabled:= False;

SpeedButton6.Enabled:= False;

End;

If CheckBox2.Checked = false then

Begin

DBNavigator2.Visible:= false;

SpeedButton1.Enabled:= True;

SpeedButton6.Enabled:= True;

End;

end;

end.

Размещено на Allbest.ru