Step 7 SFC1 austauschen gegen direktes auslesen.

[COLOR=#000000]DATA_BLOCK Umlaufspeicher_DT
[COLOR=#000000]STRUCT
[COLOR=#000000]fm_trigger : BOOL;
[COLOR=#000000]schreib_index : INT;
[COLOR=#000000]zeiten : ARRAY [0..20] OF DATE_AND_TIME;
[COLOR=#000000]END_STRUCT
[COLOR=#000000]BEGIN
[COLOR=#000000]END_DATA_BLOCK[/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR]
[/COLOR]

FUNCTION ZeitenMerken_DT : VOID
VAR_INPUT
NIO_TVR : BOOL; // NiO Merker
END_VAR
VAR_TEMP
 x : INT;
 jetzt : DATE_AND_TIME;
 rv : INT;
END_VAR
BEGIN
 IF e0.1 AND NOT Umlaufspeicher_DT.fm_trigger THEN
 rv := Read_Clk (CDT := jetzt);
 x := Umlaufspeicher_DT.schreib_index;
 Umlaufspeicher_DT.zeiten[x] := jetzt;
 IF x = 20 THEN
 Umlaufspeicher_DT.schreib_index := 0;
 ELSE
 Umlaufspeicher_DT.schreib_index := x+1;
 END_IF;
 END_IF;
 Umlaufspeicher_DT.fm_trigger := e0.1;
END_FUNCTION

FUNCTION ZeitenMerken_DT : VOID
VAR_INPUT
e0.1 : BOOL; // NiO Merker
END_VAR
VAR_TEMP
 x : INT;
 DB1.DBD20 : DATE_AND_TIME;  >> [COLOR=#ff0000]Fehlender oder ungültiger Bezeichner.[/COLOR]
 END_VAR
BEGIN
 IF e0.1 AND NOT Umlaufspeicher_DT.fm_trigger THEN
 
 x := Umlaufspeicher_DT.schreib_index;
 Umlaufspeicher_DT.zeiten[x] := DB1.DBD20;
 IF x = 20 THEN
 Umlaufspeicher_DT.schreib_index := 0;
 ELSE
 Umlaufspeicher_DT.schreib_index := x+1;
 END_IF;
 END_IF;
 Umlaufspeicher_DT.fm_trigger := e0.1;
END_FUNCTION

Umlaufspeicher_DT.zeiten[x] := "NameMeinesDB1".NameDerVariable;