TIA S7-1200 Amperestunden Zähler

  rMesswert : REAL;  [COLOR="#008000"]//oder LREAL[/COLOR]
  Strom1_ganz : INT; [COLOR="#008000"]//oder DINT[/COLOR]
  Strom1 : REAL;     [COLOR="#008000"]//oder LREAL[/COLOR]
  Strom2 : DINT;
END_VAR

Strom1 := rMesswert / 100.0 + Strom1; [COLOR="#008000"]//bei Aufruf alle 10ms (100Hz)[/COLOR]
Strom1_ganz := TRUNC(Strom1);
[COLOR="#008000"]//IF Strom1_ganz <> 0 THEN //kann IF, funktioniert aber auch ohne IF bei Strom1_ganz = 0[/COLOR]
  Strom1 := Strom1 - INT_TO_REAL(Strom1_ganz);
  Strom2 := Strom2 + Strom1_ganz;
[COLOR="#008000"]//END_IF;[/COLOR]

  rMesswert : REAL;  [COLOR=#008000]//oder LREAL[/COLOR]
  Strom1_ganz : INT; [COLOR=#008000]//oder DINT[/COLOR]
  Strom1 : REAL;     [COLOR=#008000]//oder LREAL[/COLOR]
  Strom2 : DINT;
END_VAR

Strom1 := rMesswert / 100.0 + Strom1; [COLOR=#008000]//bei Aufruf alle 10ms (100Hz)[/COLOR]
Strom1_ganz := TRUNC(Strom1);
[COLOR=#008000]//IF Strom1_ganz <> 0 THEN //kann IF, funktioniert aber auch ohne IF bei Strom1_ganz = 0[/COLOR]
  Strom1 := Strom1 - INT_TO_REAL(Strom1_ganz);
  Strom2 := Strom2 + Strom1_ganz;
[COLOR=#008000]//END_IF;[/COLOR]

//Der Eingangswert am Eingang "in" wird mit Hilfe des FB "Integration" integriert.
//Am Parameter "out" des FBs erfolgt die Ausgabe des Integralwertes und wird remanent gehalten.
// - "reset" setzt den Ausgabewert des Integrationsbausteins zurück.
// - "enable" startet die Integralberechnung und ist remanent zu wählen, wenn die Integration nach einem Spannungsausfall fortgesetzt werden soll.
// - das Ausgangsbit "error" signalisiert die fehlende Aktivierung oder Beschaltung des Systemmerkerbyte. Ist das "Error"-Bit nur für einen Zyklus aktiv, trat eine Spannungswiederkehr während der Integration auf.
//*******************************************************************************************************************************************************************************************************************
//The input value "in" will be integrated by the FB "Integration".
//The output value of the "Integration" is the parameter "out" and is retentive and holds the integrated value.
// - "reset" resets the integrated output value "out".
// - "enable" starts the integral calculation and must be retentive if the integration should continue after a power failure.
// - the output bit "error" signals that the system memory byte is disabled or not connected (when glowing). Is active for one cycle only, it signals a power up while integration.
                                       
IF #reset = true THEN
     #out := 0.0;
     #statLastIn := 0.0;
     #statIntegral := 0.0;
     RETURN;
END_IF;
                                       
#tempAux := NORM_X(MIN := 0, VALUE := #in, MAX := 27648);
#statIn := SCALE_X(MIN := 0.0, VALUE := #tempAux, MAX := 10.0);
                                       
#tempRv1:= RD_SYS_T(OUT=>#statActualTime);

#tempDeltaTimeT:= T_DIFF(IN1:=#statActualTime, IN2:=#statlastTime);
#tempDeltaTimeDI:= TIME_TO_DINT(#tempDeltaTimeT);

#tempDeltaTime:= DINT_TO_LREAL(#tempDeltaTimeDI);
#tempDeltaTime := #tempDeltaTime / 1000.0;
#statlastTime := #statActualTime;

IF NOT #enable = true THEN
    #statLastIn := 0.0;
    RETURN;
END_IF;

#statIn := #statIn + #statLastIn;
#statIn := #statIn / 2.0;
#statIn := #statIn * #tempDeltaTime;
#statIntegral := #statIntegral + #statIn;
#out:= #statIntegral;

#statLastIn := #statIn;

#statIn := #statIn / 2.0;             [COLOR="#008000"]//ab hier enthält statIn die mittlere Höhe des Trapez[/COLOR]
[COLOR="#0000FF"]#statIn := #statIn * #tempDeltaTime;[/COLOR]  [COLOR="#008000"]//ab hier enthält statIn die Fläche[/COLOR]
#statIntegral := #statIntegral + [COLOR="#0000FF"]#statIn[/COLOR];
...
#statLastIn := [COLOR="#FF0000"]#statIn[/COLOR]; [COLOR="#008000"]//hier soll sich statLastIn den aktuellen Meßwert merken, es ist aber die Fläche[/COLOR]

  10 Aufrufe alle 1000ms : 89.999775390625    Soll: 100.0
                           90.009765625
                           89.991162109375

1000 Aufrufe alle 10ms   : 50.2458775131216   Soll: 100.0
                           50.2510037625305
                           50.2458876837445