FUNCTION FC 130 : VOID
TITLE =Conversie String naar Real
VERSION : 0.1
VAR_INPUT
DATA_DB : INT ;
Sign_1 : BYTE ;
DEC_1 : BYTE ;
POINT : BYTE ;
DEC_2 : BYTE ;
DEC_3 : BYTE ;
DEC_4 : BYTE ;
DEC_5 : BYTE ;
E : BYTE ;
Sign_2 : BYTE ;
DEC_6 : BYTE ;
DEC_7 : BYTE ;
END_VAR
VAR_OUTPUT
Result_Real : REAL ;
END_VAR
VAR_TEMP
iDB : INT ;
Data : STRING [14 ];
END_VAR
BEGIN
NETWORK
TITLE =Received Serial Bytes schikken in een String Data Type
L #DATA_DB;
T #iDB;
OPN DB [#iDB];
LAR1 P##Data;
L 14;
T B [AR1,P#0.0]; // Max String Length
L 14;
T B [AR1,P#1.0]; // Actual String Length
L #Sign_1; // 1
T B [AR1,P#2.0];
L #DEC_1; // 2
T B [AR1,P#3.0];
L #POINT; // 3
T B [AR1,P#4.0];
L #DEC_2; // 4
T B [AR1,P#5.0];
L #DEC_3; // 5
T B [AR1,P#6.0];
L #DEC_4; // 6
T B [AR1,P#7.0];
L #DEC_5; // 7
T B [AR1,P#8.0];
L '0'; // 8
T B [AR1,P#9.0];
L '0'; // 9
T B [AR1,P#10.0];
L '0'; // 10
T B [AR1,P#11.0];
L #E; // 11
T B [AR1,P#12.0];
L #Sign_2; // 12
T B [AR1,P#13.0];
L #DEC_6; // 13
T B [AR1,P#14.0];
L #DEC_7; // 14
T B [AR1,P#15.0];
CALL "STRNG_R" (
S := #Data,
RET_VAL := #Result_Real);
END_FUNCTION