Первые шаги в ST. Прошу совета по архитектуре программы

[sakanchik]

Всем добрый день.

Я только начинаю изучать язык Structured Text и программирование ПЛК в целом. Работаю с Owen Logic и контроллером ПР200. До этого в основном использовал FBD, но сейчас пытаюсь освоить ST, потому что для более сложной логики он кажется удобнее.В качестве практики пытаюсь написать программу управления коптильной камерой. Логика примерно такая:есть рецепты,в каждом рецепте есть несколько шагов,каждый шаг соответствует определённому процессу (нагрев, розжиг, копчение, проветривание и т.д.),оператор может редактировать рецепт, выбирая процесс для каждого шага,затем программа выполняет шаги по порядку.

Пока я сделал простую архитектуру:
Рецепты хранятся в массиве RecipeSteps,каждый элемент массива хранит номер процесса,по номеру процесса через CASE включаются нужные выходы.
Это мой первый более-менее большой кусок ST, поэтому понимаю, что в нём могут быть ошибки и не самые правильные решения.
Буду очень благодарен, если подскажете.Правильно ли я вообще выбрал архитектуру,есть ли более правильный способ хранить рецепты,как лучше организовать редактирование шагов,нет ли типичных ошибок начинающих, которые я уже допустилю

Код прикладываю ниже:

Скрытый текст:

FUNCTION_BLOCK koptilna

VAR_INPUT
    ProgramRun : BOOL; //программа в работе
    BtnStart : BOOL; //запуск программы
    BtnStop : BOOL; //стоп рограммы
    SelectRecipe : UDINT;   // выбранный рецепт
    EditStep : UDINT; // редактирование шага
    SelectProcess : UDINT; // выбранный процесс
END_VAR

VAR_OUTPUT
    HeatCamera : BOOL; //нагрев камеры
    HeatGen    : BOOL; //розжиг дымогенератора
    Speed1     : BOOL; //двигатели скорость 1
    Speed2     : BOOL; //двигатели скорость 2
    Valve1     : BOOL; //выброс 1/3
    Valve2     : BOOL; //выброс 2/3
    Boost      : BOOL; //наддув
    Blowdown   : BOOL; //поддув
    Firefighting : BOOL; //пожаротушение
    Stirrer     : BOOL; //ворошитель
    Sink       : BOOL; //мойка
    Hydration  : BOOL; //увлажнение
    CurenStep : UDINT; //позицая шага
END_VAR

 VAR
    RecipeSteps : ARRAY [0..200] OF UDINT;
    RecipeIndex : UDINT; // индекс рецепта
    EditIndex : UDINT; // индекс редактирования
    SelectProcessOld : UDINT; //старое значение выбраного процесса
    StepNomber : UDINT; //номер шага
 END_VAR

//Значение по умолчанию для выходов
    HeatCamera := FALSE;
    HeatGen := FALSE;
    Speed1 := FALSE; 
    Speed2 := FALSE;
    Valve1 := FALSE;     
    Valve2 := FALSE;    
    Boost := FALSE;      
    Blowdown := FALSE;   
    Firefighting := FALSE; 
    Stirrer := FALSE;    
    Sink := FALSE;       
    Hydration := FALSE;  

 //Запуск программы
 IF BtnStart  THEN
    ProgramRun := TRUE;
    CurenStep := 1;
 END_IF;
 
 //Остановка программы
 IF BtnStop THEN
    ProgramRun := FALSE;
    CurenStep := 1;
 END_IF

 //Автоматическое сохранние при редактировании рецепта
 IF SelectProcess <> SelectProcessOld THEN
    IF (SelectProcess >= 0) AND (SelectProcessOld <=10) THEN
        IF (EditStep >= 0) AND (EditStep <=20) THEN
            EditIndex := (SelectRecipe - 1) * 20 + EditStep;
            RecipeSteps [EditIndex] := SelectProcess;
         END_IF
     END_IF
 END_IF

StepNomber := RecipeSteps [RecipeIndex];

//Режимы работы
CASE StepNomber OF
    0://Завершение процессов  
    HeatCamera := FALSE;
    HeatGen := FALSE;
    Speed1 := FALSE; 
    Speed2 := FALSE;
    Valve1 := FALSE;     
    Valve2 := FALSE;    
    Boost := FALSE;      
    Blowdown := FALSE;   
    Firefighting := FALSE; 
    Stirrer := FALSE;    
    Sink := FALSE;       
    Hydration := FALSE;  
    1://Нагрев
    HeatCamera := TRUE;
    HeatGen := FALSE;
    Speed1 := TRUE; 
    Speed2 := FALSE;
    Valve1 := FALSE;    
    Valve2 := FALSE;    
    Boost := FALSE;      
    Blowdown := FALSE;   
    Firefighting := FALSE; 
    Stirrer := FALSE;    
    Sink := FALSE;       
    Hydration := FALSE;  
    2://Розжиг
    HeatCamera := TRUE;
    HeatGen := TRUE;
    Speed1 := TRUE; 
    Speed2 := FALSE;
    Valve1 := TRUE;    
    Valve2 := TRUE;    
    Boost := TRUE;      
    Blowdown := TRUE;   
    Firefighting := FALSE; 
    Stirrer := TRUE;    
    Sink := FALSE;       
    Hydration := TRUE;  
    3://Копчения
    HeatCamera := TRUE;
    HeatGen := TRUE;
    Speed1 := FALSE; 
    Speed2 := TRUE;
    Valve1 := FALSE;    
    Valve2 := TRUE;    
    Boost := TRUE;      
    Blowdown := TRUE;   
    Firefighting := FALSE; 
    Stirrer := TRUE;    
    Sink := FALSE;       
    Hydration := TRUE;    
    4://Проветривание
    HeatCamera := FALSE;
    HeatGen := FALSE;
    Speed1 := FALSE; 
    Speed2 := TRUE;
    Valve1 := TRUE;    
    Valve2 := TRUE;    
    Boost := FALSE;      
    Blowdown := FALSE;   
    Firefighting := FALSE; 
    Stirrer := FALSE;    
    Sink := FALSE;       
    Hydration := FALSE;   
    5://Мойка
    HeatCamera := TRUE;
    HeatGen := FALSE;
    Speed1 := FALSE; 
    Speed2 := FALSE;
    Valve1 := FALSE;    
    Valve2 := FALSE;    
    Boost := FALSE;      
    Blowdown := FALSE;   
    Firefighting := FALSE; 
    Stirrer := FALSE;    
    Sink := TRUE;       
    Hydration := FALSE;          
    6://Сушка
    HeatCamera := TRUE;
    HeatGen := FALSE;
    Speed1 := FALSE; 
    Speed2 := TRUE;
    Valve1 := FALSE;     
    Valve2 := FALSE;    
    Boost := FALSE;      
    Blowdown := FALSE;   
    Firefighting := FALSE; 
    Stirrer := FALSE;    
    Sink := FALSE;       
    Hydration := FALSE;    
END_CASE;

END_FUNCTION_BLOCK

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

[kondor3000]

Всё тоже самое делается циклами FOR или WHILE (использовать аккуратно) в 4-5 строк кода,
пример использования тут
Работа с циклами___ 4 насоса_Нараб_Ротация по времени_4 Уровня_10________ https://owen.ru/forum/showthread.php?t=38920&page=2#13
Простой шаговый автомат, новый TON с паузой_____ https://owen.ru/forum/showthread.php...39&page=43#424
Прогр. управление 6 нагрузками 6 реж. 12 шагов _ФБ_фунции_____https://owen.ru/forum/showthread.php...39&page=11#105

[1exan]

C рецептами в OL будет некоторое неудобство, т.к:
1. Энергонезависимых переменных нельзя сделать внутри блоков на ST
2. Массивов в качестве входных/выходных переменных пока не завезли

По поводу организации CASE предлагалось нечто подобное здесь

[FPavel]

Если рецепты хранить в панели оператора, тогда можно загружать их в ПР/ПЛК.
Единственно, у ПР200 регистров для обмена по Modbus (сетевых Slave переменных) - кот наплакал, хотя, при некотором старании, на один рецепт может хватить.

[Dimensy]

Помимо того, что показанный код не работает
1. как уже говорили, в ST нет энергонезависимых переменных, поэтому использовать его для хранения рецептов не имеет смысла
2. 200 энергонезависимых переменных сожрут почти всю память
3. хранить 10 рецептов по 20 двадцать шагов в одномерном массиве, так себе идея
4. помимо шагов не вижу в рецепте длительности нахождения на шаге
5. процесс удобнее представить в виде битовой маски
6. как то странно пожаротушение хранить в рецепте

[EFrol]

Боюсь, что как раз для логики этого приложения лучше всего подойдёт именно FBD:
1. Необходимость редактировать рецепты (энергонезависимые переменные) через экран ПР200.
2. Алгоритм не настолько сложен, чтобы его реализовывать в ST.
3. Еще не известны условия перехода на следующий шаг (время, достижение уставки и т.д.)

[sakanchik]

Здравствуйте, про отсутствие энергонезависимых переменных уже принял во внимание. То что код не рабочий понимаю. Длительность нахождения в шаге пока не делал, ну скорее всего и не буду. Лучше напишу всю логику работы установки на FBD. Про битовую маску вас услышал, буду изучать. А про пожаротушение, да, глупость с моей стороны. В любом случае спасибо за советы.

[FPavel]

Возможно, будет интересно ознакомиться с короткой статьёй
Автоматное программирование в среде Owen Logic
https://owen.ru/forum/showthread.php...l=1#post340279

Она как раз о конечных автоматах в эпоху отсутствия в Owen Logic языка ST.