Функциональные блоки на языке ST

Так исторический сложилось, что в owen logic и в программируемых реле используется именно беззнаковый int, в планах конечно есть добавление новых типов данных

Цитата:

---

Сообщение от Рогов Алексей

Вложение 69388

Добрый день!

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

---

Наверное, так?

Код:

---

function_block functionblock1 //имя функционального блока.

//
    var_input //объявление входных переменных
     
      N : udint; //входная переменная для
    end_var

    var_output //объявление выходных переменных
      Q0,Q1,Q2,Q3,Q4,Q5,Q6,Q7,Q8,Q9,Q10,Q11,Q12,Q13,Q14,Q15 : bool; //выходная переменная с типом данных bool
    end_var

    var //объявление локальных переменных
     
    end_var
      Q0 := N.0;
      Q1 := N.1;
      Q2 := N.2;
      Q3 := N.3;
      Q4 := N.4;
      Q5 := N.5;
      Q6 := N.6;
      Q7 := N.7;
      Q8 := N.8;
      Q9 := N.9;
      Q10 := N.10;
      Q11 := N.11;
      Q12 := N.12;
      Q13 := N.13;
      Q14 := N.14;
      Q15 := N.15;
end_function_block

---

Цитата:

---

Сообщение от Рогов Алексей

Вложение 69388

Добрый день!

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

---

Думаю так будет верно

Вложение 69389

Спасибо!
Изучаем дальше!

При использовании вызова внутри ФБ другого ФБ при запуске симуляции выходит ошибка

Текст ошибки:

System.InvalidOperationException: Sequence contains no elements
at System.Linq.ThrowHelper.ThrowNoElementsException()
at System.Linq.Enumerable.Single[TSource](IEnumerable`1 source)
at ProgramRelayFBD.ApplicationLayer.ST.AddScrollToFun ctionBlockCommand.CreateArguments(CompilerExceptio n exception)
at ProgramRelayFBD.ApplicationLayer.ST.AddScrollToFun ctionBlockCommand.Build(StFunctionBlockElement element, ProgramCode program, ICompiledProgramNetworkRepository compiledProgramNetworkRepo)
at ProgramRelayFBD.ApplicationLayer.ST.SimulateFuncti onBlockElementService.Initialize(StFunctionBlockEl ement element, ProgramCode program, ICompiledProgramNetworkRepository compiledFunctionRepo, IBuildFunctionBlockElementService buildFunctionBlockElement)
at ProgramRelayFBD.InfrastructureLayer.Adapters.FormP resenter.<>c__DisplayClass299_0.b__1(FunctionBlock BuildingStartedEvent ev)
at DomainTemplates.DomainEvents.RaiseEvent[T](T event, IEnumerable`1 actions)
at ProgramRelayFBD.DomainLayer.Simulation.SimulateCom pilerState.HandleBuildElement(IBuildingElement builder, ProgramCode program, ICompiler compiler)
at Owen.Compiling.ProgramLinker.CompilingElements(Pro gramCode program, IEnumerable`1 elements, CancellationToken cancellationToken)
at ProgramRelayFBD.DomainLayer.Compilers.BaseCompiler .Compiling(Generator generator, ProgramItem programItem, Stream stream, CancellationToken cancellationToken)
at ProgramRelayFBD.DomainLayer.Series200.CompilerSeri es200.<>c__DisplayClass7_0.b__1()
at System.Threading.ExecutionContext.RunFromThreadPoo lDispatchLoop(Thread threadPoolThread, ExecutionContext executionContext, ContextCallback callback, Object state)
--- End of stack trace from previous location ---
at System.Threading.Tasks.Task.ExecuteWithThreadLocal (Task& currentTaskSlot, Thread threadPoolThread)

Цитата:

---

Сообщение от Валенок

Мне показалось что какая то фигня с выравниванием. Какой состав объявлений?

---

Да прямо стандартная болванка fb, обёрнутая в неё-же (перепривязаны вход-выходы)

1 ФБ:

function_block functionblock1 //имя функционального блока.

// Пример функционального блока на ST, который является счетчиком и используется для прямого счета.
// Операция «прямой счет» выполняется по переднему фронту импульса на входе «U»,
// что увеличивает значение выходного сигнала «Q».
// При поступлении на вход Res логической «1», выход счетчика «Q» устанавливается в значение входа «N».

var_input //объявление входных переменных
U : bool; //входная переменная с типом данных bool
Res : bool; //входная переменная с типом данных bool
N : udint; //входная переменная для значения счетчика после сброса
end_var

var_output //объявление выходных переменных
Q : udint; //выходная переменная с типом данных udint
end_var

var //объявление локальных переменных
CounterValue : udint; //переменная для текущего значения счетчика
RTrig : bool; //переменная для определения переднего фронта на входе «U»
end_var

if Res then
CounterValue := 0;
end_if
if U and not RTrig and not Res then
CounterValue := (CounterValue + 1);
RTrig := U;
end_if
if not U and RTrig then
RTrig := false;
end_if
Q := CounterValue;

end_function_block

2 ФБ:

function_block functionblock2 //имя функционального блока.

// Пример функционального блока на ST, который является счетчиком и используется для прямого счета.
// Операция «прямой счет» выполняется по переднему фронту импульса на входе «U»,
// что увеличивает значение выходного сигнала «Q».
// При поступлении на вход Res логической «1», выход счетчика «Q» устанавливается в значение входа «N».

var_input //объявление входных переменных
U : bool; //входная переменная с типом данных bool
Res : bool; //входная переменная с типом данных bool
N : udint; //входная переменная для значения счетчика после сброса
end_var

var_output //объявление выходных переменных
Q : udint; //выходная переменная с типом данных udint
end_var

var //объявление локальных переменных
CounterValue : functionblock1; //переменная для текущего значения счетчика
end_var

CounterValue(U := U, Res:= Res, N := N, Q => Q);

end_function_block

Цитата:

---

Сообщение от Валенок

перед CounterValue обьявите например 3...4 буля

//я тоже в матрёшки сыграл. До 4-х дошел, дальше было лень

---

Точно, достаточно поместить хоть 1 булевую или целочисленную, до или после объявления ФБ, то всё работает. Баг налицо. Вложение 69393

Код:

---

var //объявление локальных переменных
    //x1 : bool;
    fbCTU1:functionblock1; //переменная для текущего значения счетчика
    x2 : udint;
end_var

---

Закомментировал обе переменных, сразу баг Вложение 69394 вот я вчера намучился, никак не работало(((

А как эти ФБ теперь сохраняются?

Цитата:

---

Сообщение от Эдуард_Н

А как эти ФБ теперь сохраняются?

---

Как у вас макросы сохранялись? Так и ФБ и функции, только у них свои папки.

Цитата:

---

Сообщение от kondor3000

Как у вас макросы сохранялись? Так и ФБ и функции, только у них свои папки.

---

Спасибо, прошляпил я это.