Moin Kehrer,
um das Programm in AWL oder FUP umzuschreiben, sollte man verstehen, was da warum in SCL geschrieben wurde.
Häufig ist der SCL-code kürzer, aber leider nicht immer die beste Wahl.
Trotzdem empfehle ich Dir, Dich in SCL einzuarbeiten und das Programm nicht anzupassen. Denn:
1. beim Anpassen können natürlich leicht Fehler entstehen
2. Wenn der code nicht sinngemäß verstanden wurde, kann man es nicht in eine andere Programmiersprache umsetzen
3. Es werden immer mehr SCL-Programme auf Dich zukommen => Rüste Dich!
Also zum Code:
- am besten erstmal den ganzen Code markieren und oben bei der Buttonleiste gibt es den Button "Selektierten Text automatisch formatieren". Diesen bitte betätigen. Dann wird der Code schon einmal lesbarer.
Code:
2: // Prüfen ob Nest leer ist
[COLOR=#008000]IF oLinearschiene_eFrei = false THEN [/COLOR][COLOR=#0000ff]// IF NOT oLinearschiene_eFrei THEN ist eleganter[/COLOR]
[COLOR=#ff8c00]IF a2m_sync <> 0 THEN[/COLOR] // Wenn Bohren aktiv sollte kein Fehler gemeldet werden um Spindel zu schützen [COLOR=#0000ff]// wenn in der Variablen "a2m_sync" keine 0 drin steht[/COLOR]
[COLOR=#ff8c00];[/COLOR] [COLOR=#0000ff]// nichts machen![/COLOR]
[COLOR=#ff8c00]ELSE [/COLOR][COLOR=#0000ff]// wenn doch, dann[/COLOR]
[COLOR=#ff8c00]sf_fehler(Fehlernummer := 1327, Fehlerart := sk_Fehler, Diagnosenummer := BYTE_TO_INT(alc_step));[/COLOR] [COLOR=#0000ff]// dies machen[/COLOR]
[COLOR=#ff8c00]END_IF; [/COLOR][COLOR=#0000ff]// IF-Abfrage beenden[/COLOR]
sc_nextstep := alc step;
[COLOR=#008000]ELSIF oEinschub_eTeil_InHalter = true AND oDebug_BrueckenTeilInHal = false THEN[/COLOR]
[COLOR=#a52a2a]IF a2m_sync <> 0 THEN[/COLOR] // Wenn Bohren aktiv sollte kein Fehler gemeldet werden um Spindel zu schützen [COLOR=#0000ff]// wenn in der Variablen "a2m_sync" keine 0 drin steht[/COLOR]
[COLOR=#a52a2a];[/COLOR] [COLOR=#0000ff]// nichts machen![/COLOR]
[COLOR=#a52a2a]ELSE[/COLOR] [COLOR=#0000ff]// wenn doch, dann[/COLOR]
[COLOR=#a52a2a]sf_fehler(Fehlernummer := 1324, Fehlerart := sk_Fehler, Diagnosenummer := BYTE_TO_INT(alc_step));[/COLOR] [COLOR=#0000ff]// dies machen[/COLOR]
[COLOR=#a52a2a]END_IF[/COLOR] [COLOR=#0000ff]// IF-Abfrage beenden[/COLOR]
sc_nextstep := alc_step;
[COLOR=#008000]ELSIF oDebug_BrueckenTeilInHal = true THEN[/COLOR]
sf_fehler(Fehlernummer := 1326, Fehlerart := sk_hinweis, Diagnosenummer := BYTE_TO_INT(alc_step));
END_IF[COLOR=#0000ff]// IF-Abfrage beenden[/COLOR]
bTeilEinschubGesehen := false; // Vorbereitung um Teileeinschub zu sehen
[COLOR=#008000]END_IF[/COLOR] [COLOR=#0000ff]// muss noch dazu kommen[/COLOR]
Insgesamt sieht der Code nicht sehr elegant aus. Aber ich denke, dass der Code eine Standardprogrammierung wiederspiegelt, die maschinenabhängig befüllt wird. Aber daran kann jetzt nichts mehr geändert werden. Wichtiger ist, dass Du verstehst, was passiert.
noch ein paar Tipps:
Code:
IF
<boolscher Wert> // der boolsche Wert muss nicht verglichen werden (Variable = true / Variable = false), sondern sollte direkt abgefragt werden (Variable / NOT Variable)
THEN
;
ELSE
;
END_IF;
Leere Anweisungsteile eine IF-Abfrage zeugen davon, das die Abfragelogik invers gestaltet werden sollte:
NICHT:
Code:
IF false THEN
;
ELSE
<something>;
END_IF;
SONDERN:
Code:
IF NOT false THEN
<something>;
END_IF;
VG
MFreiberger
