.. wenn wir davon ausgehen dass dein Messgerät 81,9 (4095/50) Inkremente pro Ampere und Phase ausgibt und wir den Wert jede Sekunde bei Annahme 1V abgreifen, dann entsprechen die 81,9 einer Wattsekunde. 1 kWh entspricht 3600000 Ws. Wenn man nun noch die Spannung 230V berücksichtigt (absichtlich 230V da sonst 1,732 (Wurzel aus 3) auch noch berücksichtigt werden müssen) dann ergibt dies ca. 1.281.913 Inkremente pro 1 kWh. (3600000 / 230 * 81,9) Ohne aktuelle Spannungswerte bleibt es aber eher eine Schätzung!
Dieser Code wird jede Sekunde einmal aufgerufen: (Der Code ist nur sinngemäß!)
kWh_teiler := 1281913;
ws_summe := ws_summe + analog1 + analog2 + analog3;
if ws_summe >= kWh_teiler then
ws_summe := ws_summe - kWh_teiler;
kWh_summe := kWh_summe + 1;
end_if;
hoffentlich bin ich keinem Rechen- bzw. Denk- fehler aufgesessen