PLC siemens s7 300 training, Lesson12, SCL Language concept and application

One thought on “PLC siemens s7 300 training, Lesson12, SCL Language concept and application”

1. Hi bro

   "Block symbol name is not valid"

   I wrote the same code as you but I get an error. I've checked all the code and I can't find any difference.

   The error is on the first line: —> ( FUNCTION SelectionSort: INT ) could you help me please?

   CODE:

   FUNCTION SelectionSort: INT

   // Constants
   CONST
   MAXSIZE := 150;
   END_CONST

   VAR_IN_OUT // in and out parameters
   // the array to sort
   arrValues : ARRAY [0..MAXSIZE] OF UDT1;
   END_VAR

   // temporary variables
   VAR_TEMP
   Idx1 : INT;
   Idx2 : INT;
   MaxIdx : INT;
   MaxVal : UDT1;
   END_VAR

   // **********************************************
   // Sort with selection sort
   // ———————————————–
   // Ascending:
   // Find the maximum of the lower pat of the array
   // and swap it with the last value of it.
   // **********************************************

   // At the beginning, the entire array is unsorted

   FOR Idx1:= MAXSIZE TO 1 BY -1 DO
   // Copy actual values
   MaxVal := arrValues [Idx1];
   MaxIdx := Idx1;

   // FIND maximum OF the unsorted ARRAY
   // go up to actual value -1
   FOR Idx2:= 0 TO Idx1-1 DO

   IF arrValues[Idx2].Index > MaxVal.Index THEN
   MaxVal := arrValues[Idx2];
   MaxIdx := Idx2;
   END_IF;
   END_FOR;

   // If I have found a new maximum, then swap it with
   // the actual value.
   IF MaxIdx < Idx1 THEN
   arrValues[MaxIdx] := arrValues[Idx1];
   arrValues[Idx1] := MaxVal;
   END_IF;

   END_FOR;

   SelectionSort := 100;

   END_FUNCTION

Comments are closed.