FUNCTION_BLOCK FB21

TITLE = 'BOOL_TO_DWORD'

//

// Block Comment...

//

VERSION: '1.0'

AUTHOR: baikai

NAME: B_DW

FAMILY: baikai

know_how_protect

(* 将BOOL量转换为双字*)

VAR_INPUT

X0    :    BOOL;

X1    :    BOOL;

X2    :    BOOL;

X3    :    BOOL;

X4    :    BOOL;

X5    :    BOOL;

X6    :    BOOL;

X7    :    BOOL;

X8    :    BOOL;

X9    :    BOOL;

X10    :    BOOL;

X11    :    BOOL;

X12    :    BOOL;

X13    :    BOOL;

X14    :    BOOL;

X15    :    BOOL;

X16    :    BOOL;

X17    :    BOOL;

X18    :    BOOL;

X19    :    BOOL;

X20    :    BOOL;

X21    :    BOOL;

X22    :    BOOL;

X23    :    BOOL;

X24    :    BOOL;

X25    :    BOOL;

X26    :    BOOL;

X27    :    BOOL;

X28    :    BOOL;

X29    :    BOOL;

X30    :    BOOL;

X31    :    BOOL;

END_VAR

VAR_OUTPUT

    // Output Parameters

OUT:DWORD;    

END_VAR

VAR

NO:INT;

S1: ARRAY[0..31] OF BOOL; 

S2 AT S1: DWORD;

END_VAR

    FOR NO:= 0 TO 31 BY 1 DO

       S1[0]    :=    X0;

S1[1]    :=    X1;

S1[2]    :=    X2;

S1[3]    :=    X3;

S1[4]    :=    X4;

S1[5]    :=    X5;

S1[6]    :=    X6;

S1[7]    :=    X7;

S1[8]    :=    X8;

S1[9]    :=    X9;

S1[10]    :=    X10;

S1[11]    :=    X11;

S1[12]    :=    X12;

S1[13]    :=    X13;

S1[14]    :=    X14;

S1[15]    :=    X15;

S1[16]    :=    X16;

S1[17]    :=    X17;

S1[18]    :=    X18;

S1[19]    :=    X19;

S1[20]    :=    X20;

S1[21]    :=    X21;

S1[22]    :=    X22;

S1[23]    :=    X23;

S1[24]    :=    X24;

S1[25]    :=    X25;

S1[26]    :=    X26;

S1[27]    :=    X27;

S1[28]    :=    X28;

S1[29]    :=    X29;

S1[30]    :=    X30;

S1[31]    :=    X31;     

 END_FOR;

OUT:= S2;

END_FUNCTION_BLOCK