LREAL型からSTRING型へ
LREAL_TO_STRING命令は、LREAL型の値を小数点の前後に7つのスペースを持つSTRING[64]型の値に変換します。変換結果の文字列は、"-999999.0000000" ~ "9999999.0000000"の範囲で右寄せします。正数のプラス符号は省略されます。ゼロとなる桁にはスペースが埋め込まれます(例: "-12.0"はSTRING"-12.0"になります)。
出力
POUヘッダには、このプログラムで使用するすべての入力変数と出力変数を宣言します。POUヘッダは全プログラム言語で使用できます。
VAR
lrValue: LREAL:=5.983e5;
bStart: BOOL:=FALSE;
sResult: STRING[64]:='';
END_VAR
変数bStartがTRUEにセットされると、このファンクションが実行されます。
BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 6 ;
NETWORK_BODY
B(B_CONTACT,,bStart,3,2,5,4,);
B(B_F,E_LREAL_TO_STRING!,,9,1,19,5,,?DEN?DIN?AENO?C);
B(B_VARIN,,lrValue,7,3,9,5,);
B(B_VAROUT,,sResult,19,3,21,5,);
L(1,0,1,6);
L(1,3,3,3);
L(5,3,9,3);
END_NETWORK_BODY
END_NET_WORK
END_BODY
if (bStart) then
sResult:=LREAL_TO_STRING(lrValue);
end_if;