поочередное включение аварий

[Dimensy]

Уважаемые специалисты, столкнулся при написании своей первой "посерьезнее" программы с подобной задачей. Отличие только в том, что вместо "моргушки" нужно открыть определенное окно на панели. Панели пока нет, поэтому просто сетевая переменная на выходе блока. Кратко сформулирую задачу: при определенной конфигурации входов, выдать число в сетевую переменную на выходе. Делаю с помощью конструкции CASE.
До этого написал ФБ с CASE на 23 ступени, в симуляции работает, как часы. Этот же блок не работает в симуляции, хоть убей! Что я не так делаю?

Недоглядели
Безымянный.png

попробуйте заменить кусок

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

   if IN then
      Window:=Alarm;
     return;
    else

   case iStep of
 
 0:
   if not Auto then //Переключатель "Автоматика" выключен
      NWindow:=36;
    else iStep:=10;
   end_if
           
 10:
   if HP then 
     if Y11 then
       NWindow:=34; //Дверь закрывается
      else
       NWindow:=35; //Дверь открывается
     end_if
    else iStep:=20;
   end_if
  
 20:
    if GaskVac then //Отсос уплотнения
       NWindow:=37;
     else iStep:=30;
    end_if
 
 30:
    RTRIG1(I:=Start);// Подтвердите выбранную программу повторным нажатием кнопки "Старт"
    if RTRIG1.Q then
       Flag:=true;
    end_if
    
    if Start then
      if Flag then
         Flag:=false;
        elsif not Flag then
         NWindow:=38;
      end_if
    end_if
    
    if not Start and not Flag then
        iStep:=40;
    end_if
        
 40:
     NWindow:=10;
     iStep:=0;
    
  end_case
  Window:=NWindow;
  end_if
end_function_block

[grenz]

Недоглядели
Безымянный.png

попробуйте заменить кусок

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

   if IN then
      Window:=Alarm;
     return;
    else

   case iStep of
 
 0:
   if not Auto then //Переключатель "Автоматика" выключен
      NWindow:=36;
    else iStep:=10;
   end_if
           
 10:
   if HP then 
     if Y11 then
       NWindow:=34; //Дверь закрывается
      else
       NWindow:=35; //Дверь открывается
     end_if
    else iStep:=20;
   end_if
  
 20:
    if GaskVac then //Отсос уплотнения
       NWindow:=37;
     else iStep:=30;
    end_if
 
 30:
    RTRIG1(I:=Start);// Подтвердите выбранную программу повторным нажатием кнопки "Старт"
    if RTRIG1.Q then
       Flag:=true;
    end_if
    
    if Start then
      if Flag then
         Flag:=false;
        elsif not Flag then
         NWindow:=38;
      end_if
    end_if
    
    if not Start and not Flag then
        iStep:=40;
    end_if
        
 40:
     NWindow:=10;
     iStep:=0;
    
  end_case
  Window:=NWindow;
  end_if
end_function_block

Спасибо, попробую. Отвечу обязательно после пробы.

[grenz]

Недоглядели
Безымянный.png

попробуйте заменить кусок

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

   if IN then
      Window:=Alarm;
     return;
    else

   case iStep of
 
 0:
   if not Auto then //Переключатель "Автоматика" выключен
      NWindow:=36;
    else iStep:=10;
   end_if
           
 10:
   if HP then 
     if Y11 then
       NWindow:=34; //Дверь закрывается
      else
       NWindow:=35; //Дверь открывается
     end_if
    else iStep:=20;
   end_if
  
 20:
    if GaskVac then //Отсос уплотнения
       NWindow:=37;
     else iStep:=30;
    end_if
 
 30:
    RTRIG1(I:=Start);// Подтвердите выбранную программу повторным нажатием кнопки "Старт"
    if RTRIG1.Q then
       Flag:=true;
    end_if
    
    if Start then
      if Flag then
         Flag:=false;
        elsif not Flag then
         NWindow:=38;
      end_if
    end_if
    
    if not Start and not Flag then
        iStep:=40;
    end_if
        
 40:
     NWindow:=10;
     iStep:=0;
    
  end_case
  Window:=NWindow;
  end_if
end_function_block

Магия! Работает! Спасибо Вам, Dimensy, добрый человек!
Вы правы, конструкцию CASE я пока не до конца понимаю. Я вообще пока ST плохо понимаю. У меня просто мало опыта. Программу пишу не в коммерческих целях, а для своего оборудования. В шаге 30, например, флаг не взводится. Цель этого флага, - чтобы при нажатии кнопки "Старт" выход блока стал 38, а при повторном нажатии "Старт", флаг должен обнулиться и CASE продолжил проверку шагов.
Спасибо Вам еще раз!

[kondor3000]

Магия! Работает! Спасибо Вам, Dimensy, добрый человек!
Вы правы, конструкцию CASE я пока не до конца понимаю. Я вообще пока ST плохо понимаю. У меня просто мало опыта. Программу пишу не в коммерческих целях, а для своего оборудования. В шаге 30, например, флаг не взводится. Цель этого флага, - чтобы при нажатии кнопки "Старт" выход блока стал 38, а при повторном нажатии "Старт", флаг должен обнулиться и CASE продолжил проверку шагов.
Спасибо Вам еще раз!

Советую поставить Codesys 2.3, там можно ФБ внутри смотреть прямо в работе, для отладки кода на ST прям красота.
Есть небольшая разница в оформлении ФБ, но в общем почти тоже самое.

[grenz]

Советую поставить Codesys 2.3, там можно ФБ внутри смотреть прямо в работе, для отладки кода на ST прям красота.
Есть небольшая разница в оформлении ФБ, но в общем почти тоже самое.

Спасибо! Установлю.