VAR_INPUT
Monat : INT ;
Anfang_DBD : INT ;
Pt_db : INT ;
END_VAR
VAR_OUTPUT
MW_ausgelesener_Wert : INT ;
END_VAR
VAR_TEMP
Pt_db_1 : WORD ;
END_VAR
BEGIN
NETWORK
TITLE =
L #Pt_db;
T #Pt_db_1;
AUF DB [#Pt_db_1];
NETWORK
TITLE =
L #Anfang_DBD;
SLD 3;
LAR1 ;
NETWORK
TITLE =
L #Monat;
SPL M046;
SPA M042;
SPA M031;
SPA M032;
SPA M033;
SPA M034;
SPA M035;
SPA M036;
SPA M037;
SPA M038;
SPA M039;
SPA M040;
SPA M041;
SPA M042;
M046: SPA M015;
M031: L P#0.0;
+AR1 ;
SPA M044;
M032: L P#2.0;
+AR1 ;
SPA M044;
M033: L P#4.0;
+AR1 ;
SPA M044;
M034: L P#6.0;
+AR1 ;
SPA M044;
M035: L P#8.0;
+AR1 ;
SPA M044;
M036: L P#10.0;
+AR1 ;
SPA M044;
M037: L P#12.0;
+AR1 ;
SPA M044;
M038: L P#14.0;
+AR1 ;
SPA M044;
M039: L P#16.0;
+AR1 ;
SPA M044;
M040: L P#18.0;
+AR1 ;
SPA M044;
M041: L P#20.0;
+AR1 ;
SPA M044;
M042: L P#22.0;
+AR1 ;
SPA M044;
NETWORK
TITLE =
M044: NOP 0;
L DBD [AR1,P#0.0];
T #MW_ausgelesener_Wert;
NETWORK
TITLE =
M015: BEA ;
END_FUNCTION_BLOCK