Could anyone explain the code for me please, Step by step
Thank you ,
-----------------------------
FUNCTION FC 3 : VOID
TITLE =
VERSION : 0.1
VAR_INPUT
rFillValue : REAL ;
iStartStep : INT ;
iEndStep : INT ;
iItemNo : INT ;
iBytesBetweenEntries : INT ;
dbDB : BLOCK_DB ;
END_VAR
VAR_TEMP
iDBNumber : INT ;
iLoopCount : INT ;
dwOffset : DWORD ;
END_VAR
BEGIN
NETWORK
TITLE =
L #iBytesBetweenEntries;
SLD 3;
T #dwOffset;
OPN #dbDB;
LAR1 P#DBX 0.0;
L #iStartStep;
+ -1;
L #dwOffset;
*D ;
+AR1 ;
L #iItemNo; //make item zero based
+ -1;
SLD 5;
+AR1 ;
L #iEndStep;
L #iStartStep;
-I ;
+ 1;
L: T #iLoopCount;
L #rFillValue;
T D [AR1,P#0.0];
L #dwOffset;
+AR1 ;
L #iLoopCount;
LOOP L;
SET ;
SAVE ;
END_FUNCTION
Thank you ,
-----------------------------
FUNCTION FC 3 : VOID
TITLE =
VERSION : 0.1
VAR_INPUT
rFillValue : REAL ;
iStartStep : INT ;
iEndStep : INT ;
iItemNo : INT ;
iBytesBetweenEntries : INT ;
dbDB : BLOCK_DB ;
END_VAR
VAR_TEMP
iDBNumber : INT ;
iLoopCount : INT ;
dwOffset : DWORD ;
END_VAR
BEGIN
NETWORK
TITLE =
L #iBytesBetweenEntries;
SLD 3;
T #dwOffset;
OPN #dbDB;
LAR1 P#DBX 0.0;
L #iStartStep;
+ -1;
L #dwOffset;
*D ;
+AR1 ;
L #iItemNo; //make item zero based
+ -1;
SLD 5;
+AR1 ;
L #iEndStep;
L #iStartStep;
-I ;
+ 1;
L: T #iLoopCount;
L #rFillValue;
T D [AR1,P#0.0];
L #dwOffset;
+AR1 ;
L #iLoopCount;
LOOP L;
SET ;
SAVE ;
END_FUNCTION