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

 

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

Техническими мероприятиями, обеспечивающими безопасность работ в ЭУ, являются:

.   Отключение ремонтируемого электрооборудования и принятие мер против ошибочного его включения или самовключения.

2. Установка временных ограждений неотключенных токоведущих частей, находящихся вблизи от места работы, и вывешивание на рукоятках выключателей предупредительных плакатов "Не включать - работают люди".

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

.   Ограждение рабочего места и вывешивание на нем разрешающего плаката "Работать здесь".

Эти технические мероприятия выполняет допускающий к работе (в ЭУ до 1000 В - это оперативный электротехнический персонал с III квалификационной группой) по разрешению лица, отдающего распоряжение на производство работ.

Токоведущие части, которые необходимо оставить под напряжением, ограждают временными ограждениями, на которых вывешивается плакат "Стой - опасно для жизни" (для установок напряжением до 1000 В).

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

Организационными мероприятиями, обеспечивающими безопасносное производство работ в ЭУ, являются оформление работы нарядом или распоряжением; оформление допуска к работе; надзор во время работы; оформление перерывов в работе и переходов на другое рабочее место; оформление окончания работ.

Наряд есть письменное распоряжение на работу в ЭУ, определяющее место, время, начало и окончание работы, условия безопасного её проведения. В наряде указывается состав бригады и лиц, ответственных за безопасность работ. По наряду проводятся работы с полным или частичным снятием напряжения с ремонтируемой ЭУ, а также работы, выполняемые без снятия напряжения вблизи и на токоведущих частях, находящихся под напряжением. Работы могут выполняться без наряда и по распоряжению, которые передаются по телефону. Распоряжение принимается и записывается в оперативный журнал. По распоряжению могут выполняться работы без снятия напряжения вдали от токоведущих частей, находящихся под напряжением, а также кратковременные работы со снятием и без снятия напряжения.

Ответственными за безопасность работ являются: лица, выдающие наряд, или отдающие распоряжение, ответственный руководитель работ, лицо оперативного персонала - допускающий к работе; производитель работ или наблюдающий, рабочие, входящие в состав бригад. Право выдачи нарядов имеет начальник электроцеха, начальник службы эксплуатации, мастер. Разрешение на выдачу нарядов этим лицам даёт главный энергетик предприятия. Эти лица должны иметь не ниже IV группы допуска в установках до 1000 В. Право давать распоряжение, определяемое главным энергетиком предприятия, может быть дано лицам оперативного персонала, не ниже IV группы допуска. Лицо, выдающее наряд или распоряжение на производство работ, отвечает за безопасность её выполнения, а также за квалификацию ответственного руководителя, производителя работ или наблюдающего. Ответственный руководитель (с V группой допуска) определяет состав бригады и квалификацию рабочих. Принимая рабочее место, он отвечает за безопасность работ на данном участке. Правилами техники безопасности разрешается одному из ответственных лиц совмещать обязанности двух лиц: ответственного руководителя и производителя работ.

Наряд на производство работ выписывается в двух экземплярах, один экземпляр должен хранится у дежурного данной ЭУ, другой у производителя работ.

В оперативном журнале отмечается время начала и окончания работ, номер наряда. Если подстанция работает без постоянного дежурного, то второй экземпляр хранится у лица, выдавшего наряд. Производителю выдаётся только один наряд на одну бригаду и на одно присоединение, т.е. электрическая цепь одного назначения и наименования.

Разрешается выдача одного наряда на несколько однотипных работ при производстве работ без снятия напряжения, или выполнения работ в разных местах при полном снятии напряжения. В отдельных случаях разрешается передача текста наряда по телефону, наряд в таких случаях выполняется в трёх экземплярах: один экземпляр заполняет выдающий наряд, второй заполняет принимающий распоряжение по телефону, а третий выдаётся производителю работ. Срок действия не должен превышать 5 дней.

Допуск ремонтной бригады производится в следующем порядке: допускающий совместно с руководителем работ проверяют рабочее место, проверяют указатели напряжения, отсутствие напряжения, а затем касается рукой токоведущих частей ЭУ. Допускающий даёт инструктаж и вручает один экземпляр оформленного наряда.

Надзор во время работы осуществляет руководитель работ или наблюдающий. Если наблюдающего во время работ не может заменить руководитель или лицо, выдавшее наряд, то вся бригада выводится из помещения и запирается дверь. Наблюдающему во всех случаях не разрешается принимать участие в работе бригады. При обнаружении нарушения ТБ угрожающего безопасности работающих, наряд отбирается, а бригада удаляется. По устранению неполадок бригада вновь допускается к работе.

Перерывы в работе (обед) в наряде не оформляются, а вся бригада удаляется, а помещение запирается. По окончании рабочего дня поставленные заземления, временные ограждения и плакаты остаются на месте, а наряд сдаётся оперативному дежурному.

Наряд закрывается после осмотра ремонтируемого оборудования, отсутствия посторонних предметов, удаления временных ограждений, снятия всех вывешенных плакатов. Включение установки разрешается после закрытия наряда.

Заключение

 

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

В результате выполнения дипломного проекта были рассмотрены различные методы измерения емкостей и выбран наиболее приемлемый. На основании этих данный была разработана структурная схема устройства, в которой были применены технические решения, позволяющие снизить требования к точности и стабильности используемых радиоэлектронных компонентов, а также уменьшить трудоемкость наладки устройства и его эксплуатации. На основании структурной схемы разработана и рассчитана принципиальная схема устройства, в которой использована недорогая элементная база. Был проведен расчет технико-экономических показателей для разработанного устройства. Сравнительный анализ технико-экономических характеристик показал превосходство разработанного прибора по сравнению с аналогом как по техническим, так и по экономическим характеристикам. В частности снижена потребляемая мощность, цена, эксплуатационные расходы. Повышена точность устройства, введена возможность передачи информации на ЭВМ. Также разработан раздел по технике безопасности и охране труда.

Прибор удобен в обращении, так как предоставляет возможности для его управления и отображает необходимую пользователю информацию на семисегментных индикаторах. Пользователь может получить информацию как об уровне жидкости, так и о емкости, вычисленных программно, используя код на выходах АЦП, пропорциональный измеренному уровню. Погрешность измерения - менее 1%. Кроме того, возможно отображение времени работы системы.

Система состоит из шести датчиков, каждый из которых имеет возможность измерения в высоту до 2 м. Наличие интерфейса RS-232C позволяет осуществлять передачу данных о текущем состоянии системы на внешнюю ПЭВМ.

Данное устройство обеспечивает надежный контроль за уровнем жидкости в резервуарах, а также соответствует заданным параметрам.

Список использованной литературы

 

1. Иванова Г.М. и др. Теплотехнические измерения и приборы:

2. Учебник для вузов / Г.М. Иванова, Н.Д. Кузнецов, B. C. Чистяков. - М.:

.   Энергоатомиздат., 1984.

.   Измерения в промышленности: Справочник / В. Бастль и др. Под ред.П. Профоса. - М.: Металлургия, 1990.

.   Спектор С.А. Электрические измерения физических величин. - Л.: Энергоатомиздат, 1987.

.   Хансуваров К.И., Цейтлин В.Г. Техника измерения давления, расхода, количества и уровня жидкости, газа и пара. - М.: Изд. станд., 1990.

.   Практическое руководство: Комплексный курсовой проект для студентов "Промышленная электроника".Э.М. Виноградов, А.И. Никеенков, 2003.

.   Операционные усилители: Справочник: - М.: ПАТРИОТ, 1996.

.   Цифровые и аналоговые интегральные микросхемы: Справочник / Под ред., С.В. Якубовского. - М.: Радио и связь, 1990.

.   Галкин В.И., Булычев А.Л., Лямин П.М. Полупроводниковые приборы. Диоды. Тиристоры. - Минск: Беларусь, 1994.

.   Резисторы, конденсаторы, трансформаторы, дроссели, коммутационные устройства РЭА: Справочник / Н.Н. Акимов, Е.Л. Ващуков, В.А. Прохоренко, Ю.П. Ходоренок. - Мн: Беларусь, 1994.

.   Однокристальные микроЭВМ. Справочник Боборыкин А.В., Липовецкий Г.П. М.: МИКАП, 1994.

13. Сташин В.В. и др. Проетирование цифровых устройств на однокристальных микроконтроллерах / В.В. Сташин, А.В. Урусов, О.Ф. Мологонцева. - М.: Энергоатомиздат, 1990.

.   Вуколов Н.И., Михайлов А.Н. Знакосинтезирующие индикаторы: Справочник / Под ред.В.П. Балашова. - М: Радио и связь, 1987.

.   Галкин В.И., Булычев А.Л., Лямин П.М. Полупроводниковые приборы. Транзисторы. - Минск: Беларусь, 1994.

.   Федорков Б. Г, Телец В.А., Дязтеренко В. Микроэлектронные ЦАП и АЦП. - М.: Радио и связь, 1984.

.   Цифровые интегральные микросхемы: Справочник / П. П.

.   Мальцев, Н.С. Долидзе, М.И. Критенко и др. - М.: Радио и связь, 1994.

.   Гуртовцев А.Л., Гудыменко С.В. Программы для микропроцессоров: Справочное пособие. - Мн.: Вышэйшая школа, 1989.

.   Цифровые интегральные микросхемы. Справочник.М. И Богданович. Мн. Беларусь 1991.

.   Янсен И. Курс цифровой электроники: в 4-х т. Т.4. Микрокомпьютеры, Пер. с голланд. - М.: Мир, 1987.

.   Микросхемы для бытовой радиоаппаратуры: Справочник / И.В. Новаченко, В.М. Петухов, И.П. Блудов, А.В. Юровский. - М.: Радио и связь, 1989.

.   Кожекин Г.Я., Синица Л.М. Организация производства: Учебное пособие - Мн.; ИП " Энергоперспектива", 1998г. - 334с.

.   Технико-экономическое обоснование дипломных проектов: Учеб. Пособие для втузов / Л.А. Астреина, В.В. Балдесов, В.К. Беклешов и др.; Под ред.В.К. Беклешова. - М.: Высш. шк., 1991. - 176 с.: ил.

.   Методика выполнения курсовых проектов и работ: Учеб. Пособие для радиотехн. Спец. Вузов / Ю.П. Анискин, И.Е. Андрейчук, Н.А. Рогачев и др.; Под ред. Ю.М. Солдака. - М.: Высш. шк., 1988. - 200 с.: ил.

.   Методические указания по курсовому проектированию по курсу "Организация, планирование и управление предприятием" для студентов специальности 20.05. Разработчик Подгорная Л.П. - Гомель: Ротопринт ГПИ, 1995 - 26с.

.   Методические указания к выполнению организационно- экономического раздела дипломного проекта для студентов специальности 20.05. "Промышленная электроника". Разработчик Соломенко Л.А., Волочко Н.К. - Гомель: Ротопринт ГПИ, 1990 - 31с.

28. Официальный Internet-сайт "Промышленная автоматизация": <http://www.automatization.ru/>

.   Официальный Internet-сайт "Электронные компоненты": <http://www.chipinfo.ru/>

.   Официальный Internet-сайт "Промэлектроника": <http://www.promelec.ru/>

.   Долин П.А. Основы техники безопасности в электроустановках: Учеб. пособие для вузов. - М.: Энергия, 1979. - 408 с., ил.

.   Чекалин Н.А. И др. Охрана труда в электротехнической промышленности: Учебник для электромехан. спец. техникумов / Чекалин Н.А., Полухина Г.Н., Тугуши Г.Г. - М.: Энергия, 1978. - 256 с., ил.

.   Справочная книга по охране труда в машиностроении / Г.В. Бектобеков, Н.Н. Борисова, В.И. Коротков и др.; Под общ. ред.О.Н. Русака - Л.: Машиностроение. Ленингр. отд-ние, 1989. - 541 с.: ил.

Приложения

 

Приложение 1

Текст программы для микроконтроллера

; Основная программа
	ORG 000H		; начальный адрес
	JMP BEGIN
	ORG 100H
BEGIN:	ACALL INIT		; п/п инициализации ККД
START:	CLR P1.0		; запуск АЦП
WAIT:	JNB P1.1, WAIT		; переход, если данные не готовы
	CLR P1.2		; сброс Р1.2
	MOV A, P0		; данные из АЦП в аккумуляторе
	MOV 30H, A		; данные из АЦП в ячейке 30Н ОЗУ
	SETB P1.0		; гашение АЦП
	SETB P1.2		; регистр в Z-состояние
	ACALL LEVEL		; вызов п/п вычисления уровня
	ACALL CAPACITY		; вызов п/п вычисления емкости
	ACALL TIME		; вызов п/п вычисления времени
	SETB P3.0		; установить сигнал DTR
	NOP
	NOP
	CLR P3.0		; снять сигнал DTR
	SETB EA		; разрешение прерывания
	SETB ЕХ1
	SETB ЕХ0
	ACALL DELAY1		; п/п задержки на 1 минуту
	JMP START		; цикл
; Подпрограмма перекодировки из двоично-десятичного в семисегментный код
	ORG 40H
TABLECOD:	DB 3FH		; "0”
	DB 06H		; "1”
	DB 5BH		; "2”
	DB 4FH		; "3”
	DB 66H		; "4”
	DB 6DH		; "5”
	DB 7DH		; "6”
	DB 87H		; "7”
	DB 7FH		; "8”
	DB 6FH		; "9”
; Подпрограмма инициализации контроллера клавиатуры и дисплея
INIT:	MOV A, #C0H		; очистка дисплея
			Продолжение приложения 2
	MOV P0, A
	SETB P1.4		; выбор ККД
	SETB P1.3		; РУС ККД
	MOV A, #00H		; установка режима
	MOV P0, A
	SETB P1.3		; РУС ККД
	MOV A, #22H		; управление частотой сканирования
	MOV P0, A
	SETB P1.3		; РУС ККД
	CLR P1.4		; ККД не выбран
	RET
; Подпрограмма преобразования данных с АЦП в значение уровня жидкости. ; Входной параметр: ячейка 30Н - последние данные с АЦП ; Выходные параметры: ячейки 50Н, 51Н, 52Н, 53Н, 54Н - соответственно сотни, ; десятки, единицы, десятые, сотые значения уровня
LEVEL:	MOV A, 30H		; в (А) данные АЦП в двоичном коде
	MOV B, #78		; (В) ←78 множитель
	MUL AB		; (В) (А) ← (А) (В)
	MOV R7, A		; (R7) ← (А) Мл.Б. произведения
	XCH A, B		; (А) ↔ (В)
	MOV R6, A		; (R6) ← (А) Ст.Б. произведения
	ACALL PREOBR2-210		; вызов п/п преобразования
	MOV 50H, R3		; по адресу 50Н количество сотен
	MOV A, R4		; (А) ← (R4)
	SWAP A		; обмен тетрад в аккумуляторе
	ANL A, 00001111B		; (А) ← (А) &0FH
	MOV 51H, A		; по адресу 51Н количество десятков
	MOV A, R4		; (А) ← (R4)
	ANL A, 00001111B		; (А) ← (А) &0FH
	MOV 52H, A		; по адресу 52Н количество единиц
	MOV A, R5		; (А) ← (R5)
	SWAP A		; обмен тетрад в аккумуляторе
	ANL A, 00001111B		; (А) ← (А) &0FH
	MOV 53H, A		; по адресу 53Н количество десятых
	MOV A, R5		; (А) ← (R5)
	ANL A, 00001111B		; (А) ← (А) &0FH
	MOV 54H, A		; по адресу 54Н количество сотых
	RET
; Подпрограмма преобразования данных с АЦП в значение емкости. ; Входной параметр: ячейка 30Н - последние данные с АЦП.
; Выходные параметры: ячейки 55Н, 56Н, 57Н, 58Н, 59Н - соответственно десятки,
; единицы, десятые, сотые, тысячные значения емкости
CAPACITY:	MOV A, 30H		; в (А) данные АЦП в двоичном коде
	MOV B, #59		; (В) ←59 множитель
	MUL AB		; (В) (А) ← (А) (В)
	MOV R7, A		; (R7) ← (А) Мл.Б. произведения
	XCH A, B		; (А) ↔ (В)
	MOV R6, A		; (R6) ← (А) Ст.Б. произведения
	ACALL PREOBR2-210		; вызов п/п преобразования
	MOV 55H, R3		; по адресу 55Н количество десятков
	MOV A, R4		; (А) ← (R4)
	SWAP A		; обмен тетрад в аккумуляторе
	ANL A, 00001111B		; (А) ← (А) &0FH
	MOV 56H, A		; по адресу 56Н количество единиц
	MOV A, R4		; (А) ← (R4)
	ANL A, 00001111B		; (А) ← (А) &0FH
	MOV 57H, A		; по адресу 57Н количество десятых
	MOV A, R5		; (А) ← (R5)
	SWAP A		; обмен тетрад в аккумуляторе
	ANL A, 00001111B		; (А) ← (А) &0FH
	MOV 58H, A		; по адресу 58Н количество сотых
	MOV A, R5		; (А) ← (R5)
	ANL A, 00001111B		; (А) ← (А) &0FH
	MOV 59H, A		; по адресу 59Н количество тысячных
	RET
; Подпрограмма вычисления значения времени ; Выходные параметры: ячейка 5АН - десятки часов, ячейка 5ВН - единицы часов
TIME:	SETB P1.6		; установка Р1.6
	MOV A, P0		; данные о времени в (А)
	CLR P1.6		; сброс Р1.6
	ADD A, #00H		; (А) ← (А) +00Н
	DA A		; десятичная коррекция
	MOV R0, A		; (R0) ← (А)
	ANL A, #00001111B		; (А) ← (А) &0FH
	MOV 5BH, A		; по адресу 5ВН единицы часов
	MOV A, R0		; (А) ← (R0)
	SWAP A		; обмен тетрад аккумулятора
	ANL A, #00001111B		; (А) ← (А) &0FH
	MOV 5AH, A		; по адресу 5АН десятки часов
	RET
; Подпрограмма преобразования двоичного целого беззнакового числа формата 16
; в двоично-десятичное число формата 5х4
; Входные параметры: R6 - Ст.Б., R7 - Мл.Б.
; Выходные параметры: R3 - Ст.Б., R4 - Ср.Б., R5 - Мл.Б.
		; обнуление текущей суммы
PREOBR2-210:		CLR A
		MOV R4, A
		MOV R5, A
		MOV A, R6
		MOV R1, A
		MOV A, R7
		MOV R2, A
		MOV R0, #16H	; счетчик циклов
		CLR A
		; сдвиг двоичного числа влево
CYCLE:		XCH A, R4
		XCH R1, A
		XCH R4, A
		XCH A, R5
		XCH R2, A
		XCH R5, A
		MOV A, R5
		ADD A, R5
		MOV R5, A
		MOV A, R4
		ADDC A, R4
		XCH A, R4
		XCH R1, A
		XCH R4, A
		XCH A, R5
		XCH R2, A
		XCH R5, A
		; двоично-десятичное удвоение суммы с учетом переноса
		MOV A, R5
		ADDC A, R5
		DA A
		MOV R5, A
		MOV A, R4
		ADDC A, R4
		DA A
		MOV R4, A
		MOV A, R7
		ADDC A, R7
		DA A
		MOV R7, A
		; проверка конца цикла
		DJNZ R0, CYCLE
		MOV A, R7
		MOV R3, A
		RET
; Подпрограмма перекодировки из двоичного в семисегментный код
CROSSCOD:		ADD A, #40H	; (А) ← (А) +40Н
		MOV R1, A
		MOV A, @R1
		MOV R1, A
		RET
; Подпрограмма задержки на 1 минуту
DELAY1:		MOV R7, #00H	; обнулить счетчик переполнения
		MOV R6, #00H	; обнулить счетчик переполнения
		SETB EA	; общее разрешение прерывания
		SETB ET0	; разрешение прерывания от Т/С0
		MOV TMOD, #01H	; режим 1 Т/С0
		MOV TL0, #0B0H
		MOV TH0, #3CH	; загрузка числа
		SETB TR0	; запуск Т/С0
LOOP:		CJNE R6, #60, LOOP	; переход при (R6) ≠60
		RETI
		ORG 000BH	; вектор прерывания
		CLR TR0	; остановить Т/С0
		CLR TF0	; сбросить TF0
		INC R7	; инкремент
		JMP MET
		ORG 0030Н
MET:		CJNE R7, #20, AGAIN	; переход при (R7) ≠20
		MOV R7, #00H	; обнуление
		INC R6	; инкремент
		RETI
AGAIN:		MOV TL0, #0B0H
		MOV TH0, #3CH	; загрузка числа
		MOV TR0	; запуск Т/С0
			Продолжение приложения 2
		RETI
; Подпрограмма обработки прерывания по входу INT0
		ORG 0003H	; вектор прерывания
INT:		CLR ES	; запрет прерываний от УАПП
		MOV SCON, #42H	; режим УАПП
		CLR TR1	; останов Т/С1
		MOV R0, #50H	; адрес пересылаемых данных
		ACALL USTAN	; вызов п/п
		RET
USTAN:		MOV TMOD, #20H	; режим 2 Т/С1
		MOV TH1, #0FAH	; загрузка числа
		SETB TR1	; запуск Т/С1
PROV:		MOV A, @R0
SPOUT:		JNB TI, SPOUT	; ожидание готовности передатчика
		CLR TI	; сброс TI
		INC R0	; инкремент
		MOV SBUF, A	; пересылка символа
		CJNE R0, #5CH, PROV	; все переслали?
		RET
; Подпрограмма обработки прерывания по входу INT1
		ORG 0013H	; вектор прерывания
		MOV A, 40H	; команда чтения FIFO
		MOV P0, A
		SETB P1.4	; выбор ККД
		CLR P1.3	; регистр DAN ККД
		MOV A, P0	; в (А) код нажатой клавиши
		RRC A	; сдвиг
		JB C, UR	; переход, если перенос
		RRC	; сдвиг
		JB C, EMK	; переход, если перенос
		RRC	; сдвиг
		JB C, WR	; переход, если перенос
UR:		ACALL UROVEN	; вызов п/п
		RET
EMK:		ACALL EMKOST	; вызов п/п
		RET
WR:		ACALL VREMY	; вызов п/п
		RET
			Продолжение приложения 2
; Подпрограмма вывода на дисплей значения уровня жидкости
UROVEN:		MOV R0, #50H	; (R0) ←50Н
		CJNE R0, #52H, PRY
		MOV A, @R0
		ACALL CROSSCOD	; вызов п/п перекодировки
		MOV A, R1
		ADD A, #10000000B
		MOV R1, A
		JMP DAL
PRY:		MOV A, @R0
		ACALL CROSSCOD
DAL:		MOV A, #80H	; команда запись в ОЗУ дисплея
		MOV P0, A
		SETB P1.3	; РУС ККД
		MOV A, R1
		MOV P0, A
		CLR P1.3	; вывод на дисплей
		INC R0	; инкремент
		CJNE R0, #55H, PRY	; все выведено?
		RET
; Подпрограмма вывода на дисплей значения емкости
EMKOST:		MOV R0, #55H	; (R0) ←55Н
		CJNE R0, #56H, PRY1
		MOV A, @R0
		ACALL CROSSCOD	; вызов п/п перекодировки
		MOV A, R1
		ADD A, #10000000B
		MOV R1, A
		JMP DAL1
PRY1:		MOV A, @R0
		ACALL CROSSCOD
DAL1:		MOV A, #80H	; команда запись в ОЗУ дисплея
		MOV P0, A
		SETB P1.3	; РУС ККД
		MOV A, R1
		MOV P0, A
		CLR P1.3	; вывод на дисплей
		INC R0	; инкремент
		CJNE R0, #5AH, PRY1	; все выведено?
		RET
			Продолжение приложения 2
; Подпрограмма вывода на дисплей значения времени
VREMY:		MOV R0, #5AH	; (R0) ←5АН
PRY2:		MOV A, @R0
		ACALL CROSSCOD	; вызов п/п перекодировки
		MOV A, #80H	; команда запись в ОЗУ дисплея
		MOV P0, A
		SETB P1.3	; РУС ККД
		MOV A, R1
		MOV P0, A
		CLR P1.3	; вывод на дисплей
		INC R0	; инкремент
		CJNE R0, #5CH, PRY2	; все выведено?
		RET

 

Приложение 3

Текст программы для внешней ПЭВМ

 

program nata_dip;crt,dos;=array [1.6] of real;_int=array [1.6] of integer;=array [1.4000] of byte;,j, podkl, podkl1, inc_t: integer;_nas,obem_t,pred_proc: vec;_str, off: vec_int;: boolean;: char;,tmp: real;: registers;: ekr;_str: byte;_all: real;,hm, m,mm, s,sm,sn,sp, hund: Word;Okno (x1,y1,x2,y2,swet_fon: byte);(x1,y1,x2,y2);(swet_fon);;;Ramka (x1,y1,x2,y2,swet,l: byte);=array [1.6] of char;_od: mas= ('└','┌','┐','┘','│','─');_dv: mas= ('╚','╔','╗','╝','║','═');: integer;: mas;l=1 then m: =mas_odm: =mas_dv;(swet);(x2,y2-1);(m [4]);(x1,y2-1);(m [1]);

Продолжение приложения 3

for i: =1 to x2-x1-1 do (m [6]);

InsLine;(x1,y1);(m [2]);i: =1 to x2-x1-1 do(m [6]);(m [3]);i: =1 to y2-y1-1 do(x1,y1+i);(m [5]);(x2,y1+i);(m [5]);;;Pol_Okno (x1,y1,x2,y2,swet_fon,swet: byte;: boolean; ram: byte);ten then(x1+1,y1+1,x2+1,y2+1,black);(x1,y1,x2,y2,swet_fon);ram=1(1,1,x2-x1+1,y2-y1+1,swet,1)ram=2(1,1,x2-x1+1,y2-y1+1,swet,2);;Ubr_Kurs;. ah: =1;. ch: =$20;($10,r);Vst_Kurs;. ah: =1;. ch: =6;. cl: =7;($10,R);Rab_Ekr (log: boolean; var save: ekr);: ekr absolute $B800: $0000;log then save: =ekranekran: =save;;next;(25,25);(15); (' Для продолжения нажмите любую клавишу');

ch: =readkey;;;vvod;;i: =1 to 6 do ('Введите значение скорости насоса', i,', л/мин >> ');

readln (s_nas [i]);;(''); ('Введите значение емкости резервуара, л >> ');

readln (obem_all);;LZero (w: Word): String;: String;(w: 0,ss);Length (ss) = 1 then: = '0' + ss;: = ss;;ris_nap (proc: real);x: real;_pos: integer;: =pred_proc [podkl];

Продолжение приложения 3

pred_proc [podkl]: =proc;_pos: = pred_str [podkl];(x <= proc) do

begin( (x >= ( (n_pos) *5+2.5)) and (x < ( (n_pos) *5+5))) thengotoxy (3+ (podkl-1) *13,23-n_pos); write ('▄▄▄▄▄▄▄▄▄▄'); end;( (x >= ( (n_pos) *5+5)) and (x < ( (n_pos) *5+7.5))) thengotoxy (3+ (podkl-1) *13,23-n_pos); write ('██████████'); end;(proc>=90) then(4+ (podkl-1) *13,18);(LZero (hm),': ',LZero (mm),': ',LZero (sm));(6+ (podkl-1) *13, 20);(5);('Off');(1);;(5+ (podkl-1) *13,15); write (proc: 2: 1,'%');: =x+0.5;(x > (n_pos*5+7.5)) then_pos: =n_pos+1;_str [podkl]: =n_pos;;;;: = 1;_all: = 5000;i: =1 to 6 do_proc [i]: = 0;_str [i]: = 0;[i]: =1;;_nas [1]: =130;_nas [2]: =80;_nas [3]: =100;_nas [4]: =120;_nas [5]: =150;_nas [6]: =180;: = 0; mm: = 0; sm: = 0;

Продолжение приложения 3

ex: =true;_kurs;(1,1,80,25,15);_Okno (12,7,70,17,3,15,false,2); (13,8,69,16,3);

vvod;_kurs;(1,1,80,25,15);;(0);(1,2);

write(' ┌────────1─┐ ┌────────2─┐ ┌────────3─┐ ┌────────4─┐ ┌────────5─┐ ┌────────6─┐');i:=3 to 23 do(1,i);(' │     │ │     │ │     │ │     │ │     │ │     │');;(1,24);

write(' └──────────┘ └──────────┘ └──────────┘ └──────────┘ └──────────┘ └──────────┘');

textcolor (2);(1+ (podkl-1) *13,2);(' ┌────────',podkl,'─┐');i: =3 to 23 do(2);(2+ (podkl-1) *13, i);('│');(13+ (podkl-1) *13, i);('│');;(1+ (podkl-1) *13,24);(' └──────────┘');(0);(h,m,s,hund);: = s;_t: = 1;ex do(KeyPressed = true) then

Продолжение приложения 3

ch: = readkey;(ch = '1') then inc_t: = 1;(ch = '2') then inc_t: = 5;(ch = '3') then inc_t: = 10;(ch = '4') then inc_t: = 20;(ch = '5') then inc_t: = 30;(ch = '0') then inc_t: = 60;(ch = #13) then ex: = false;;(h,m,s,hund);(s = sp+1) then(s = 59) then