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

VAR_INPUT

input_data:DWORD;//输入的双字

END_VAR

VAR

data:DWORD;    

bool_data AT data: ARRAY[0..31] OF BOOL;  //使用AT将双字转换成BOOL量

I:INT;    

END_VAR

VAR_OUTPUT

Q0    :    BOOL    ; 

................

Q31    :    BOOL    ;

END_VAR

data:= input_data;

    FOR I:= 0 TO 31 BY 1 DO

        Q0    :=     bool_data[0]    ;

.................................................

Q31    :=     bool_data[31]    ; 

    END_FOR;

END_FUNCTION_BLOCK

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

VAR_INPUT

X0    :    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[31]    :=    X31;      

    END_FOR;

OUT:= S2;

END_FUNCTION_BLOCK