Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

OKIU / metod_pr

.pdf
Скачиваний:
22
Добавлен:
16.02.2016
Размер:
1.19 Mб
Скачать

103

Розроблені панелі керування оператора

(редактор форм SCADA-системиGenie 3.0)

Create PDF files without this message by purchasing novaPDF printer (http://www.novapdf.com)

104

Текст програми для блоку Бейсик-сценарію SCR1

Sub SCR1()

 

 

 

set cn1 = GetTag("TASK1", "CNT1")

'Лічильник 1

set cn2 = GetTag("TASK1","CNT2")

'Лічильник 2

set cn3 = GetTag("TASK1","CNT3")

'Лічильник 3

set cn4 = GetTag("TASK1","CNT4")

'Лічильник 4

set cn5 = GetTag("TASK1","CNT5")

'Лічильник 5

set tb3 = GetTag("DISP1","BBTN3")

'СТОП

set t2 = GetTag("DISP1","CBTN2")

'СТАРТ

if t2=1 then

'Якщо натиснути клавішу "СТАРT"

outputi 0,0

'Запуск CNT1

 

outputi 2,cn1 'Вивід значения CNT1 (канал 2) - заповнення

автоклаву водою

 

 

else

 

 

 

outputi 0,1

'інакше - зупинка CNT1

 

end if

 

 

 

if cn1=4000 then 'Якщо автоклав заповнений

 

outputi 0,1

'Зупинка CNT1

 

outputi 1,0

'Запуск CNT2

 

else outputi 1,1 'інакше - зупинка CNT2

 

end if

 

 

 

if cn2=10 then

'Якщо кран на злив воду (верхній рівень)

закритий

 

 

 

outputi 3,0

'Пуск CNT3

 

else outputi 3,1 'інакше - зупинка CNT3

 

end if

 

 

 

if cn3=40 then

'Якщо

в автоклаві створено необхідний тиск та

температуру

 

 

 

outputi 3,1

'Зупинка CNT3

 

outputi 4,0

'Пуск CNT4

 

else outputi 4,1 'інакше - зупинка CNT4

 

end if

 

 

 

if cn4=50 then

'Якщо витримано час 25 хв

 

outputi 4,1

'Зупинка CNT3

 

Create PDF files without this message by purchasing novaPDF printer (http://www.novapdf.com)

105

outputi 5,0 'Пуск CNT5

outputi 7,cn5 'Вивід значения CNT5 (канал 7) - злив води else outputi 5,1 'інакше - зупинка CNT5

end if

if cn5=0 then

'Якщо злито воду

outputi 5,1

'Зупинка CNT5

end if

 

end sub

 

Текст програми для блоку Бейсик-сценарію SCR2

public s%

 

 

Sub SCR2()

 

 

set cn1 = GetTag("TASK1", "CNT1")

'Лічильник 1

set cn2 = GetTag("TASK1","CNT2")

'Лічильник 2

set cn3 = GetTag("TASK1","CNT3")

'Лічильник 3

set cn4 = GetTag("TASK1","CNT4")

'Лічильник 4

set cn5 = GetTag("TASK1","CNT5")

'Лічильник 5

set t2 = GetTag("DISP1","CBTN2")

'СТАРТ

set k1 = GetTag("DISP1","BBTN1")

'0,2...1,5 л

set k2 = GetTag("DISP1","BBTN2")

'2, 3 л

if k1=1 then s%=26

'Встановлення величини тиску в автоклаві 1,5

атм

 

 

if k2=1 then s%=20

'Встановлення величини тиску в автоклаві 2 атм

if s%=0 then outputi 7,1

 

else outputi 7,0

'Вивід строки для вводу величини тиску в

автоклаві

 

 

if t2=1 then

'Якщо натиснена клавіша "СTAРT"

outputi 1,1

'Подача води

 

if cn1=4000 then

'Якщо автоклав заповнений водою

outputi 1,0

'Припинення подачі води

outputi 2,1

'Відкриття крану на злив води з верхнього рівня

end if

 

 

if cn2=10 then

'Якщо встановився верхній рівень води в автоклаві

Create PDF files without this message by purchasing novaPDF printer (http://www.novapdf.com)

 

 

106

outputi 2,0

'Закриття крану на злив води з верхнього рівня

outputi 3,1

 

'Подача в автоклав повітря та пари

outputf 5,cn3*2.5

'Виведення величини температури в автоклаві на

індикатор

 

 

outputf 6,cn3/s%

'Виведення величини тиску в автоклаві на

індикатор

 

 

end if

 

 

if cn3=40 then

 

'Якщо автоклав вийшов на режим

outputi 3,0

'Припинення подачі повітря та пару

outputf 0,cn4/2

'Виведення величини часу витримки на

індикатор

 

 

end if

 

 

if cn4=50 then

'Якщо витримано час 25 хв

outputi 4,1

'Відкриття крану на злив

outputf 5,0

'Скидання на нуль індикатора температури

outputf 6,0

'Скидання на нуль індикатора тиску

end if

 

 

if cn5=0 then

'Якщо вода злита

outputi 4,0

'Закриття крану на злив

end if

 

 

end if

 

 

End Sub

Контрольні питання

1.Принципи створення мнемосхеми в Редакторі задач SCADA-

системі Genie 3.0.

2.Принципи створення екранних форм автоматизованих робочих місць оператора в Редакторі форм SCADA-системі Genie 3.0.

3.Принципи створення стратегій в SCADA-системі Genie 3.0.

4.Принципи створення тренажерів в SCADA-системі Genie 3.0.

5.Вимоги до комп’ютерних тренажерів.

6.Початкові дії при створенні стратегій та тренажерів.

7.Центр обробки даних.

8.VBA-сумісний Редактор сценаріїв.

9.VBA-сумісне редагування сценаріїв.

10.Функції відладки.

Create PDF files without this message by purchasing novaPDF printer (http://www.novapdf.com)

107

11.Програмування задач і ввід-вивід в реальному масштабі часу.

12.Меню “Старт”.

13.Меню “Стоп”.

14.Меню “Продовжити”.

15.Меню “Припинити”.

16.Меню “Блокувати”.

17.Меню “Вікно”.

Create PDF files without this message by purchasing novaPDF printer (http://www.novapdf.com)

108

Перелік рекомендованої літератури

1.Локотков А. GENIE 3.0: гармония простоты и эффективности. // Современные технологии автоматизации. - № 3. – 1998. – С. 6271.

2.Локотков А. Что должна уметь SCADA-система. // Современные технологии автоматизации. - № 3. – 1998. – С. 44-47.

3.Ахметсафин Р., Ахметсафина Р., Курсов Ю. Разработка тренажёров и отладка проектов АСУ ТП на базе пакетов MMI/SCADA. // Современные технологии автоматизации. - № 3.

– 1998. – С. 38-43.

Create PDF files without this message by purchasing novaPDF printer (http://www.novapdf.com)

109

Для заміток

Create PDF files without this message by purchasing novaPDF printer (http://www.novapdf.com)

110

Для заміток

Create PDF files without this message by purchasing novaPDF printer (http://www.novapdf.com)

Соседние файлы в папке OKIU