Dejan/s7-SCL-scripts
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

added first scripts

Browse source
This commit is contained in:
Dejan Rožič 2026-02-20 12:51:24 +01:00
commit be5720e84e
2 changed files with 92 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
main.scl Normal file
View file

@ -0,0 +1,46 @@
FUNCTION_BLOCK FB_MovingAverage
VAR_INPUT
xEnable : BOOL;
rInput : REAL; // Raw analog value
iWindowSize : INT := 10; // Number of samples (1..100)
END_VAR
VAR_OUTPUT
rOutput : REAL; // Filtered output
xReady : BOOL; // TRUE when buffer is full
END_VAR
VAR
arBuffer : ARRAY[0..99] OF REAL; // Circular buffer
iIndex : INT := 0;
iCount : INT := 0;
rSum : REAL := 0.0;
iWin : INT;
END_VAR
IF NOT xEnable THEN
rOutput := rInput;
iIndex := 0;
iCount := 0;
rSum := 0.0;
RETURN;
END_IF;
// Clamp window size
iWin := MIN(MAX(iWindowSize, 1), 100);
// Subtract the oldest value from sum before overwrite
rSum := rSum - arBuffer[iIndex];
// Store new value
arBuffer[iIndex] := rInput;
rSum := rSum + rInput;
// Advance circular index
iIndex := (iIndex + 1) MOD iWin;
// Track how many samples collected
IF iCount < iWin THEN
iCount := iCount + 1;
END_IF;
xReady := (iCount >= iWin);
rOutput := rSum / INT_TO_REAL(iCount); // Valid even before buffer full

46
moving-average.txt Normal file
View file

@ -0,0 +1,46 @@
FUNCTION_BLOCK FB_MovingAverage
VAR_INPUT
xEnable : BOOL;
rInput : REAL; // Raw analog value
iWindowSize : INT := 10; // Number of samples (1..100)
END_VAR
VAR_OUTPUT
rOutput : REAL; // Filtered output
xReady : BOOL; // TRUE when buffer is full
END_VAR
VAR
arBuffer : ARRAY[0..99] OF REAL; // Circular buffer
iIndex : INT := 0;
iCount : INT := 0;
rSum : REAL := 0.0;
iWin : INT;
END_VAR
IF NOT xEnable THEN
rOutput := rInput;
iIndex := 0;
iCount := 0;
rSum := 0.0;
RETURN;
END_IF;
// Clamp window size
iWin := MIN(MAX(iWindowSize, 1), 100);
// Subtract the oldest value from sum before overwrite
rSum := rSum - arBuffer[iIndex];
// Store new value
arBuffer[iIndex] := rInput;
rSum := rSum + rInput;
// Advance circular index
iIndex := (iIndex + 1) MOD iWin;
// Track how many samples collected
IF iCount < iWin THEN
iCount := iCount + 1;
END_IF;
xReady := (iCount >= iWin);
rOutput := rSum / INT_TO_REAL(iCount); // Valid even before buffer full