30 lines
516 B
Plaintext
30 lines
516 B
Plaintext
|
|
(* @PATH := '\/Functions_Collection' *)
|
|
(* @SYMFILEFLAGS := '0' *)
|
|
FUNCTION ArrayToReal : REAL
|
|
VAR_INPUT
|
|
mIn_Value : POINTER TO BYTE;
|
|
END_VAR
|
|
VAR
|
|
i : INT;
|
|
p : UDINT;
|
|
p1 : UDINT;
|
|
mPoint : POINTER TO BYTE;
|
|
mPoint1 : POINTER TO BYTE;
|
|
mTemp : REAL;
|
|
END_VAR
|
|
(* @END_DECLARATION := '0' *)
|
|
mPoint := ADR(mTemp);
|
|
FOR i := 3 TO 0 BY -1
|
|
DO
|
|
p1 := mIn_Value;
|
|
mPoint1 := p1 + i;
|
|
mPoint^ := mPoint1^;
|
|
p := mPoint ;
|
|
p := p + 1 ;
|
|
mPoint := p ;
|
|
END_FOR
|
|
ArrayToReal := mTemp;
|
|
|
|
END_FUNCTION
|