-> Hier kostenlos registrieren
Hallo Forum,
bin noch ziemlich neu was das Thema SPS-Programmierung angeht deswegen bitte ich um Verständnis ^^
Habe folgende Aufgabe erhalten:
Programmiere einen Sortieralgorithmus (Bubbel Sort) in SCL, der Werte 5 Werte aus einem Array in einem DB liest, und anschließend die Werte der Größe nach sortiert ( von klein nach groß, also bspw. 0...1...3...4)
Ich habe mich bereits durch das Forum gelesen aber konnte leider keinen Beitrag bisher auf meine Aufgabenstellung umsetzten
Konnte mich mit Hilfe eines Beitrages im Forum inspirieren leider hat es noch nicht so funktioniert wie ich es mir vorgestellt hatte deshalb hoffe ich auf Hilfe im Forum
Hier mein Code:
#Write_Index := 0;
FOR #Read_Index := 0 TO #Anzahl_Sortierwerte DO
IF "Zahlen_sortiererDB".Sortierwerte[#Read_Index] <> 0 THEN
"Zahlen_sortiererDB".Sortierwerte[#Write_Index] := "Zahlen_sortiererDB".Sortierwerte[#Read_Index];
#Write_Index := #Write_Index + 1;
;
END_IF;
END_FOR;
WHILE #Write_Index <= #Anzahl_Sortierwerte DO
"Zahlen_sortiererDB".Sortierwerte[#Write_Index] := 0;
#Write_Index := #Write_Index + 1;
;
END_WHILE;
bin noch ziemlich neu was das Thema SPS-Programmierung angeht deswegen bitte ich um Verständnis ^^
Habe folgende Aufgabe erhalten:
Programmiere einen Sortieralgorithmus (Bubbel Sort) in SCL, der Werte 5 Werte aus einem Array in einem DB liest, und anschließend die Werte der Größe nach sortiert ( von klein nach groß, also bspw. 0...1...3...4)
Ich habe mich bereits durch das Forum gelesen aber konnte leider keinen Beitrag bisher auf meine Aufgabenstellung umsetzten
Konnte mich mit Hilfe eines Beitrages im Forum inspirieren leider hat es noch nicht so funktioniert wie ich es mir vorgestellt hatte deshalb hoffe ich auf Hilfe im Forum
Hier mein Code:
#Write_Index := 0;
FOR #Read_Index := 0 TO #Anzahl_Sortierwerte DO
IF "Zahlen_sortiererDB".Sortierwerte[#Read_Index] <> 0 THEN
"Zahlen_sortiererDB".Sortierwerte[#Write_Index] := "Zahlen_sortiererDB".Sortierwerte[#Read_Index];
#Write_Index := #Write_Index + 1;
;
END_IF;
END_FOR;
WHILE #Write_Index <= #Anzahl_Sortierwerte DO
"Zahlen_sortiererDB".Sortierwerte[#Write_Index] := 0;
#Write_Index := #Write_Index + 1;
;
END_WHILE;