-> Hier kostenlos registrieren
Hallo Kollegen,
ich bin eine SCL Anfangerin, hier habe ich ein Fehlerhaftes Programm und weiß nicht wie kann ich es korrigieren, habt Ihr ein bißchen Zeit für mich?
FUNCTION FC960 : INT
VAR
m : INT;
n : INT;
code : INT;
prioritaet : INT;
END_VAR
BEGIN
m := 0;
n := 0;
code := 0;
prioritaet := 0;
WHILE DB900.DW36.DXx36,0 DO
IF DB900.DWm.DXxm,n <> 0 THEN
code := m*8+n;
CASE m OF
0 : prioritaet := 1;
2,4,6 : prioritaet := 2;
8,10,12 : prioritaet := 3;
14,16,18,20 : prioritaet := 4;
20,24,26 : prioritaet := 5;
28,30 : prioritaet := 6;
32,34 : prioritaet := 7;
END_CASE;
IF n = 15 THEN
m := 0;
m := m+2;
ELSE
n := n+1;
CONTINUE;
END_IF;
ELSE
IF n >= 15 THEN
n := 0;
m := m+2;
ELSE
n := n+1;
CONTINUE;
END_IF;
END_IF;
END_WHILE;
FC960 := code + prioritaet;
END_FUNCTION
vielen Dank im Voraus!
MFG
Rose
ich bin eine SCL Anfangerin, hier habe ich ein Fehlerhaftes Programm und weiß nicht wie kann ich es korrigieren, habt Ihr ein bißchen Zeit für mich?
FUNCTION FC960 : INT
VAR
m : INT;
n : INT;
code : INT;
prioritaet : INT;
END_VAR
BEGIN
m := 0;
n := 0;
code := 0;
prioritaet := 0;
WHILE DB900.DW36.DXx36,0 DO
IF DB900.DWm.DXxm,n <> 0 THEN
code := m*8+n;
CASE m OF
0 : prioritaet := 1;
2,4,6 : prioritaet := 2;
8,10,12 : prioritaet := 3;
14,16,18,20 : prioritaet := 4;
20,24,26 : prioritaet := 5;
28,30 : prioritaet := 6;
32,34 : prioritaet := 7;
END_CASE;
IF n = 15 THEN
m := 0;
m := m+2;
ELSE
n := n+1;
CONTINUE;
END_IF;
ELSE
IF n >= 15 THEN
n := 0;
m := m+2;
ELSE
n := n+1;
CONTINUE;
END_IF;
END_IF;
END_WHILE;
FC960 := code + prioritaet;
END_FUNCTION
vielen Dank im Voraus!
MFG
Rose