ST функции OWEN Logic

[1exan]

Это делается так

function BYTE_OF_BIT: udint; //
//    (c) PeterA для ворума ОВЕН
    var_input //объявление входных переменных
    B0:BOOL;
    B1:BOOL;
    B2:BOOL;
    B3:BOOL;
    B4:BOOL;
    B5:BOOL;
    B6:BOOL;
    B7:BOOL;
    end_var
    
    BYTE_OF_BIT:= SHL(SHL(SHL(SHL(SHL(SHL(SHL(bool_to_udint(B7),1) + bool_to_udint(B6),1) 
                        + bool_to_udint(B5),1) + bool_to_udint(B4),1) + bool_to_udint(B3),1) 
                        + bool_to_udint(B2),1) + bool_to_udint(B1),1) + bool_to_udint(B0);
end_function

Вариант:

...

BYTE_OF_BIT.	0	 := B0	;
BYTE_OF_BIT.	1	 := B1	;
BYTE_OF_BIT.	2	 := B2	;
BYTE_OF_BIT.	3	 := B3	;
BYTE_OF_BIT.	4	 := B4	;
BYTE_OF_BIT.	5	 := B5	;
BYTE_OF_BIT.	6	 := B6	;
BYTE_OF_BIT.	7	 := B7	;
end_function