Step 7 vergleiche Array von Char simatic S7 v5.6

[silva.nrc]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo Kollegen,

Ich versuche, eine Vergleichsroutine für ein 32-Byte-Array (char) zu programmieren. Grundsätzlich wird das Array korrekt gefüllt, aber ich muss in meiner Logik eine Gegenprüfung durchführen, also muss ich 2 verschiedene Arrays vergleichen. (natürlich gleiche Struktur Arrays)

Ich habe einige Informationen im Forum gelesen, aber die meisten davon sind dem TIA-Portal gewidmet, das bessere Tools als mein S7 v5.6 hat.

Hat jemand ein paar Tipps, um mir in dieser Angelegenheit zu helfen?
Im Anhang ist, was ich bisher gemacht habe!

Vielen Dank!

 

[TP-Inc]

Ja gehts denn nicht? While hab ich auf einer SPS nie benutzt, da nehm ich nur FOR, schaut aber nicht verkehrt aus. Wirft der Compiler Warnungen?

 

[Heinileini]

Zuviel Werbung?
-> Hier kostenlos registrieren

Deine Schleife läuft nur bis maximal #n < 31, also #n = 30. Die Abfragen #n <= 31 bzw. #n < 32 wären OK, damit ggfs auch die Elemente mit dem Index 31 verglichen werden können.

Da Du Deine SchleifenDurchläufe vorzeitig abbrichst, sobald Du einen Unterschied zwischen beiden Arrays erkennst, könntest Du die Schleife per EXIT vor Ausführung von '#n := #n + 1 ;' verlassen und den Inhalt von #n nach Beendung der Schleife als Kriterium auswerten (#n erreicht nur dann den Wert 32, wenn die Schleife nicht vorzeitig abgebrochen wurde, also alle 32 Elemente des einen Arrays mit denen des anderen übereinstimmen). Die temporäre Variable #result wäre dann überflüssig, müsste nicht mit TRUE vorbesetzt werden und würde in der Abfrage im SchleifenKopf entfallen.

#n := 0 ;

WHILE #n < 32 DO
    IF #arr1[#n] <> #arr2[#n] THEN EXIT; END_IF ;
    #n := #n + 1 ;
END_WHILE ;

#EQ_ARRAY := #n = 32 ;

 

[silva.nrc]

Ja gehts denn nicht? While hab ich auf einer SPS nie benutzt, da nehm ich nur FOR, schaut aber nicht verkehrt aus. Wirft der Compiler Warnungen?

Tp-Inc

Nach dem Kompilieren sehe ich viele Fehler, ich bin mir nicht sicher warum, wie Sie sagten, der Code scheint in Ordnung zu sein

 

[silva.nrc]

Deine Schleife läuft nur bis maximal #n < 31, also #n = 30. Die Abfragen #n <= 31 bzw. #n < 32 wären OK, damit ggfs auch die Elemente mit dem Index 31 verglichen werden können.

Da Du Deine SchleifenDurchläufe vorzeitig abbrichst, sobald Du einen Unterschied zwischen beiden Arrays erkennst, könntest Du die Schleife per EXIT vor Ausführung von '#n := #n + 1 ;' verlassen und den Inhalt von #n nach Beendung der Schleife als Kriterium auswerten (#n erreicht nur dann den Wert 32, wenn die Schleife nicht vorzeitig abgebrochen wurde, also alle 32 Elemente des einen Arrays mit denen des anderen übereinstimmen). Die temporäre Variable #result wäre dann überflüssig, müsste nicht mit TRUE vorbesetzt werden und würde in der Abfrage im SchleifenKopf entfallen.

#n := 0 ;

WHILE #n < 32 DO
    IF #arr1[#n] <> #arr2[#n] THEN EXIT; END_IF ;
    #n := #n + 1 ;
END_WHILE ;

#EQ_ARRAY := #n = 32 ;

Heinileini,
Mir hat wirklich gefallen, wie Sie den Code geschrieben haben, er ist viel besser, aber aus irgendeinem Grund habe ich immer noch die gleichen Fehler, wenn ich versuche, ihn zu kompilieren.
Irgendwelche Ideen warum? vielleicht habe ich etwas übersehen.. vielen dank!

 

[PN/DP]

Zuviel Werbung?
-> Hier kostenlos registrieren

Bei Step7 V5.x werden die lokalen Variablen in SCL ohne das führende # geschrieben.

Harald

 

[silva.nrc]

Harald,

Danke guter Mann, danach keine Kompilierung Probleme mehr, danke!