5 Sekunden Maschinentaktzeit einsparen halte ich für nicht repräsentativ. War die CPU davor eine extrem alte/langsame CPU? (Welche CPUs genau wurden da getauscht?) Oder ist das Programm vielleicht sehr ungünstig programmiert? Die 5s werden ja nicht in nur einem OB1-Zyklus eingespart, sondern in hunderten Zyklen, d.h. der Maschinentakt müsste da hunderte Schritte erfordern.
Wie immer lässt sich nicht die eine PatentLösung angeben, die für alle Anwendungen gleichermassen gültig ist.
Das ist definitiv übersichtlicher und weniger aufwendig als . . .
Schliesslich führt das Aufblähen des Programms durch das Einbauen vieler "Abkürzungen" auch zu zusätzlicher Ausführungszeit - was gerne mal übersehen wird.
Gar nichts. Ich meinte damit meinen Gedankengang, bei schwankenden ZyklusZeiten die Zykluszeit künstlich zu verlängern, damit sie weniger stark schwankt..
FUNCTION "GesamtBetriebsart" : Int
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1
VAR_INPUT
BA_Array : Array
[*] of Int; // Hier Array mit allen Objektbetriebsarten anlegen
P1_Mode : Int; // Betriebsart mit höchster Anzuzeigender Priorität (Revision = 4)
P2_Mode : Int;
P3_Mode : Int;
P4_Mode : Int;
P5_Mode : Int; // Betriebsart mit niedrigster Prio (Automatik = -1)
END_VAR
VAR_TEMP
Lower : DInt;
Upper : DInt;
index : DInt;
END_VAR
BEGIN
#GesamtBetriebsart := -1;
#Lower := LOWER_BOUND(ARR := #BA_Array, DIM := 1);
#Upper := UPPER_BOUND(ARR:= #BA_Array, DIM:= 1);
[COLOR=#ff0000] FOR #index := #Lower TO #Upper DO[/COLOR]
[COLOR=#ff0000] IF #BA_Array[#index] = #P1_Mode THEN[/COLOR]
[COLOR=#ff0000] #GesamtBetriebsart := #P1_Mode;[/COLOR]
[COLOR=#ff0000] GOTO Ende;[/COLOR]
[COLOR=#ff0000] END_IF;[/COLOR]
[COLOR=#ff0000] END_FOR;[/COLOR]
FOR #index := #Lower TO #Upper DO
IF #BA_Array[#index] = #P2_Mode THEN
#GesamtBetriebsart := #P2_Mode;
GOTO Ende;
END_IF;
END_FOR;
FOR #index := #Lower TO #Upper DO
IF #BA_Array[#index] = #P3_Mode THEN
#GesamtBetriebsart := #P3_Mode;
GOTO Ende;
END_IF;
END_FOR;
FOR #index := #Lower TO #Upper DO
IF #BA_Array[#index] = #P4_Mode THEN
#GesamtBetriebsart := #P4_Mode;
GOTO Ende;
END_IF;
END_FOR;
FOR #index := #Lower TO #Upper DO
IF #BA_Array[#index] = #P5_Mode THEN
#GesamtBetriebsart := #P5_Mode;
GOTO Ende;
END_IF;
END_FOR;
Ende:;
END_FUNCTION
das tut man ja auch nicht, schleife einmal und in der schleife das Array mit Hilfe einer Case (oder If / Elsif) Konstrukt das Array bzw. dessen Inhalt prüfen - dann brauchst auch keine GOTO und es reicht ein einfaches Exit
Allerdings ändert es dein beschriebenes Verhalten nur bedingt - die Laufzeit ist immer noch abhängig von der Größe des Arrays und dem platz der Übereinstimmung im Array
FUNCTION "GesamtBetriebsart" : Int{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1
VAR_INPUT
BA_Array : Array
[*] of Int; // Hier Array mit allen Objektbetriebsarten anlegen
P1_Mode : Int; // Betriebsart mit höchster Anzuzeigender Priorität (Revision = 4)
P2_Mode : Int;
P3_Mode : Int;
P4_Mode : Int;
P5_Mode : Int; // Betriebsart mit niedrigster Prio (Automatik = -1)
END_VAR
VAR_TEMP
Lower : DInt;
Upper : DInt;
index : DInt;
Mode : Int;
END_VAR
BEGIN
#GesamtBetriebsart := -1;
#Lower := LOWER_BOUND(ARR := #BA_Array, DIM := 1);
#Upper := UPPER_BOUND(ARR:= #BA_Array, DIM:= 1);
FOR #index := #Lower TO #Upper DO
// get mode from array
#Mode := #BA_Array[#index];
// check which mode is active
IF #Mode = #P1_Mode THEN
#GesamtBetriebsart := #P1_Mode;
EXIT;
ELSIF #Mode = #P2_Mode THEN
#GesamtBetriebsart := #P2_Mode;
EXIT;
ELSIF #Mode = #P3_Mode THEN
#Mode := #P3_Mode;
EXIT;
ELSIF #BA_Array[#index] = #P4_Mode THEN
#Mode := #P4_Mode;
EXIT;
ELSIF #BA_Array[#index] = #P5_Mode THEN
#Mode := #P5_Mode;
EXIT;
ELSE
; // no match
END_IF;
END_FOR;
END_FUNCTIONFUNCTION "GesamtBetriebsart" : Int
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1
VAR_INPUT
BA_Array : Array
[*] of Int; // Hier Array mit allen Objektbetriebsarten anlegen
P1_Mode : Int; // Betriebsart mit höchster Anzuzeigender Priorität (Revision = 4)
P2_Mode : Int;
P3_Mode : Int;
P4_Mode : Int;
P5_Mode : Int; // Betriebsart mit niedrigster Prio (Automatik = -1)
END_VAR
VAR_TEMP
Lower : DInt;
Upper : DInt;
index : DInt;
END_VAR
BEGIN
#GesamtBetriebsart := -1;
#Lower := LOWER_BOUND(ARR := #BA_Array, DIM := 1);
#Upper := UPPER_BOUND(ARR:= #BA_Array, DIM:= 1);
FOR #index := #Lower TO #Upper DO
IF #BA_Array[#index] = #P1_Mode OR #GesamtBetriebsart = #P1_Mode THEN
#GesamtBetriebsart := #P1_Mode;
ELSIF #BA_Array[#index] = #P2_Mode OR #GesamtBetriebsart = #P2_Mode THEN
#GesamtBetriebsart := #P2_Mode;
ELSIF #BA_Array[#index] = #P3_Mode OR #GesamtBetriebsart = #P3_Mode THEN
#GesamtBetriebsart := #P3_Mode;
ELSIF #BA_Array[#index] = #P4_Mode OR #GesamtBetriebsart = #P4_Mode THEN
#GesamtBetriebsart := #P4_Mode;
ELSIF #BA_Array[#index] = #P5_Mode OR #GesamtBetriebsart = #P5_Mode THEN
#GesamtBetriebsart := #P5_Mode;
END_IF;
END_FOR;
END_FUNCTION
