在一些通信程序中，需要将DINT 格式的数据转换为STRING 类型。虽然使用STEP7 自带的FC5（DI_STRING）可以把DINT转换为 STRING，但输出是从前排列的，例如输入1234，输出'$t''+''1''2''3''4'，前面空位没有相应补充'0', 而且STRING 占用长度也比较大，用起来不太方便。

改进程序：

输入范围，0-2147483647，输出类型Array [1..10] Of Char，

前面会相应补充'0'，

例如：输入 １２３４

　　　输出 '０''０''０''０''０''０''1''2''3''4'　



使用时如果数据不长，使用几位，就在输出结果中取用几位即可。

将源代码编译后，调用ＦＢ２０４即可，也可直接调用ＦＣ２０５（程序中指定MD0 为输入，大家可自行修改），但需将结果从Array中取出。

FUNCTION FC 205 : VOID

TITLE =

AUTHOR : zc

NAME : DINT_ASC

VERSION : 0.1





VAR_INPUT

DINT_IN : DINT ;

END_VAR

VAR_OUTPUT

ASC_OUT : ARRAY [1 .. 10 ] OF CHAR ;

END_VAR

VAR_TEMP

DINT_IN_TEMP1 : DINT ;

DINT_IN_TEMP2 : DINT ;

DINT_IN_TEMP3 : DINT ;

LOW_BCD : DWORD ;

HIGH_BCD : DWORD ;

END_VAR

BEGIN

NETWORK

TITLE =





L #DINT_IN;

L 0;


JC END;





L #DINT_IN;

L L#10000000;

>D ;

JCN NORM;



L #DINT_IN;

L L#10000000;

/D ;

T #DINT_IN_TEMP2; //HIGH 3 BIT of DIN_IN



L #DINT_IN_TEMP2;

L L#10000000;

*D ;

T #DINT_IN_TEMP3;



L #DINT_IN;

L #DINT_IN_TEMP3;

-D ;

T #DINT_IN_TEMP1; // LOW 7 BIT of DINT_IN



JU BCDS;





NORM: L 0;

T #DINT_IN_TEMP2;

L #DINT_IN;

T #DINT_IN_TEMP1;



BCDS: NOP 0; // BCD convert start



L #DINT_IN_TEMP1;

DTB ;

T #LOW_BCD;



L #DINT_IN_TEMP2;

DTB ;

T #HIGH_BCD;





L #LOW_BCD;

L DW#16#F;

AD ;

L B#16#30;

+D ;

T #ASC_OUT[10]; //GET CHAR[10]



L #LOW_BCD;

L DW#16#F0;

AD ;

RRD 4;

L B#16#30;

+D ;

T #ASC_OUT[9]; //GET NUM[9]



L #LOW_BCD;

L DW#16#F00;

AD ;

RRD 8;

L B#16#30;

+D ;

T #ASC_OUT[8]; //GET NUM[8]



L #LOW_BCD;

L DW#16#F000;

AD ;

RRD 12;

L B#16#30;

+D ;

T #ASC_OUT[7]; //GET NUM[7]



L #LOW_BCD;

L DW#16#F0000;

AD ;

RRD 16;

L B#16#30;

+D ;

T #ASC_OUT[6]; //GET NUM[6]



L #LOW_BCD;

L DW#16#F00000;

AD ;

RRD 20;

L B#16#30;

+D ;

T #ASC_OUT[5]; //GET NUM[5]



L #LOW_BCD;

L DW#16#F000000;

AD ;

RRD 24;

L B#16#30;

+D ;

T #ASC_OUT[4]; //GET NUM[4]





L #HIGH_BCD;

L W#16#F;

AD ;

L B#16#30;

+D ;

T #ASC_OUT[3]; //GET NUM[3]



L #HIGH_BCD;

L W#16#F0;

AD ;

RRD 4;

L B#16#30;

+D ;

T #ASC_OUT[2]; //GET NUM[2]



L #HIGH_BCD;

L W#16#F00;

AD ;

RRD 8;

L B#16#30;

+D ;

T #ASC_OUT[1]; //GET NUM[1]





END: NOP 0;

END_FUNCTION



FUNCTION_BLOCK FB 204

TITLE =

VERSION : 0.1





VAR

S1 : ARRAY [1 .. 10 ] OF CHAR ;

END_VAR

BEGIN

NETWORK

TITLE =



CALL FC 205 (

DINT_IN := MD 0,

ASC_OUT := #S1);





END_FUNCTION_BLOCK