Beiträge anzeigen
Diese Sektion erlaubt es ihnen alle Beiträge dieses Mitglieds zu sehen. Beachten sie, dass sie nur solche Beiträge sehen können, zu denen sie auch Zugriffsrechte haben.
nun wenn dem wirklich so ist das siemens hier nicht der iec61131 folgt dann werden eineige unserer time und date funktionen nicht auf siemens funktionieren.Durchaus möglich, beim testen werden wir es festellen.
ich frage mich ob es dann überhaupt sinn macht siemens zu supporten?Wenn einige Bereiche NICHT funktinieren sollten, werden diese angepasst.(Siemens-Kompatibel)
eine beschreibung ist aber im handuchStimmt, arbeite jedoch oft OHNE Handbuch.
(* @PATH := '\/engineering\/measurements' *)
(* @SYMFILEFLAGS := '2048' *)
FUNCTION_BLOCK cycle_time
TITLE = 'cycle_time'
//
// this function block measures the cycle time and displays the last, min and max cycle time of the current task.
// the resolution is 1ms.
// the cycles output is a dword counter which counts the cycles.
// a rst pulse on the input will reset all data.
//
VERSION : '1.1'
AUTHOR : hugo
NAME : CYCLE
FAMILY : MEASURE
VAR_INPUT
rst : BOOL;
END_VAR
VAR_OUTPUT
ct_min : TIME := t#0s;
ct_max : TIME := t#0s;
ct_last : TIME;
systime : TIME;
sysdays : INT;
cycles : DWORD;
tcycles AT cycles : DINT;
END_VAR
VAR
last_cycle : TIME;
tx: TIME;
init: BOOL;
END_VAR
(*
version 1.1 12 dec 2006
programmer hugo
tested BY hans
*)
tx :=TIME_TCK() - last_cycle;
IF rst THEN
ct_min := t#0s - t#1ms;
ct_max := t#0ms;
cycles := 0;
ELSIF last_cycle > t#0s THEN
IF tx < ct_min THEN ct_min := tx;
ELSIF tx > ct_max THEN ct_max := tx;
END_IF;
ct_last := tx;
ELSIF ct_min = t#0s THEN
ct_min := t#0s - t#1ms;
END_IF;
IF init THEN
systime := systime + tx;
IF systime >= t#1d THEN
systime := systime - t#1d;
sysdays := sysdays + 1;
END_IF;
END_IF;
init := TRUE;
last_cycle := last_cycle + tx;
tcycles := tcycles + 1;
(* hm 12.12.2006 rev 1.1
added cycles output, a dword cycle counter.
*)
END_FUNCTION_BLOCK
IF x >= 0 AND x < 8 THEN
fact := 1;
i := 2;
WHILE x < i DO
fact := fact * i;
END_WHILE;
ELSE fact := -1;
END_IF;Unter Step 7 fehlen die Funtionen cot und acot.Diese sollten auch unter CoDeSys geschrieben werden.