37 lines
753 B
Plaintext
37 lines
753 B
Plaintext
(* Código SCL generado desde LAD TwinCAT *)
|
|
(* Convertidor mejorado con SymPy - Estructura DNF preferida *)
|
|
(* Path original: \/Functions_Collection *)
|
|
|
|
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
|
|
|
|
|
|
(* === CÓDIGO PRINCIPAL === *)
|
|
|
|
(* Código ST original *)
|
|
(* @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
|
|
END_FUNCTION |