FUNCTION_BLOCK "gray_dec"
TITLE =
VERSION : 0.1
//*************instruction ,first put the "gray_dec" FB XXX in symbol table
//*************second compile the stl scource
VAR_INPUT
gray_in : WORD ;
END_VAR
VAR_OUTPUT
dec_out : WORD ;
END_VAR
BEGIN
NETWORK
TITLE =


L P##gray_in;
LAR1 ;
L P##dec_out;
LAR2 ;
A [AR1,P#0.7];
= [AR2,P#0.7];


X [AR1,P#0.6];
X [AR2,P#0.7];
= [AR2,P#0.6];
X [AR1,P#0.5];
X [AR2,P#0.6];
= [AR2,P#0.5];
X [AR1,P#0.4];
X [AR2,P#0.5];
= [AR2,P#0.4];
X [AR1,P#0.3];
X [AR2,P#0.4];
= [AR2,P#0.3];
X [AR1,P#0.2];
X [AR2,P#0.3];
= [AR2,P#0.2];
X [AR1,P#0.1];
X [AR2,P#0.2];
= [AR2,P#0.1];
X [AR1,P#0.0];
X [AR2,P#0.1];
= [AR2,P#0.0];

X [AR1,P#1.7];
X [AR2,P#0.0];
= [AR2,P#1.7];
X [AR1,P#1.6];
X [AR2,P#1.7];
= [AR2,P#1.6];
X [AR1,P#1.5];
X [AR2,P#1.6];
= [AR2,P#1.5];
X [AR1,P#1.4];
X [AR2,P#1.5];
= [AR2,P#1.4];
X [AR1,P#1.3];
X [AR2,P#1.4];
= [AR2,P#1.3];
X [AR1,P#1.2];
X [AR2,P#1.3];
= [AR2,P#1.2];
X [AR1,P#1.1];
X [AR2,P#1.2];
= [AR2,P#1.1];
X [AR1,P#1.0];
X [AR2,P#1.1];
= [AR2,P#1.0];



END_FUNCTION_BLOCK

做了个格雷码与自然二进制码的转换的程序
欢迎批评指导！