Codesys: оператор case

Оператор Case в Codesys не один раз выручал меня в решениях различных задач по автоматизации. Особенно пригодилась эта функция при разработке различных машин-автоматов, которые выполняют всегда одни и те же действия (пресс, вибропресс, кофе-автоматы, автоматы развальцовка и т.д.)

Но на одних физических функциях полезность оператора не заканчивается, можно реализовывать переключение режимов, выполнять опрос модулей, реализация различных сетевых сокетов и т.д.

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

Оператор CASE в Codesys — структура

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

CASE <Var1> OF
<value1>:<instruction1>
<value2>:<instruction2>
<value3, value4, value5>:<instruction3>
<value6..value10>:<instruction4>
{ELSE
<ELSE-instruction>}
END_CASE;

• Переменная условия должна быть из группы типов ANY_NUM или перечислением.
• То, что в фигурных скобках, {} не обязательно.
• Условие может быть одно ,<Value1>.
• Условий может быть несколько<Value1,Value2> , перечисленных через запятую.
• Условие может определять промежуток от … до

Рассмотрим пример, как это выглядит:

CASE Motor OF
1: sSost := "Forward";
2: sSost := "Reverse";
3: sSost := "Stop";
ELSE
sSost := "Alarm";
END_CASE

Моя конкретная реализация

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

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

Вот как я делаю:

CASE State_ACT OF

1: (*Запуск 1-ого компонента взвешивания*)
pusk_VES_uzel:=TRUE;
stop_VES_uzel:=FALSE;
2: (*Производим учет тары, выравниваем в 0*)
uchet1:=1;
uchet_vesa:=1;
END_CASE

Стараюсь подписывать каждый шаг в комментарии. Подписываю в Codesys Case после каждого шага. В программе не использую стандартные функции и функциональные блоки из библиотек. Пишу так, чисто перекидываю переменные из одного состояния в другое. Так мне удобно контролировать ситуацию вплоть до мелочей.

Можно вместо числовых индексов делать перечислениями. Допустим создаем структуру данных:

TYPE
enumMotor : (FWD := 1, REV := 2, STOP := 3);
END_TYPE

То CASE может выглядеть более интуитивно:

VAR
Motor : enumMotor;
END_VAR

CASE Motor OF
FWD: sMotor := "Вперед";
REV: sMotor := "Назад";
STOP:sMotor := "Стоп";
ELSE
sMotor := "Авария";
END_CASE

В принципе по этому оператору я написал всё что хотел, если есть вопросы, пишите в комментах.