>D
; 31.1.24 ELSTER EMAG
tSec=0
upH=0
sr=0
ss=0

g:Pi=0
g:Po=0

; counters today
B0=0
B1=0
B2=0
E0=0
E1=0
E2=0

; counters yesterday
p:yB1=0
p:yB2=0
p:yE1=0
p:yE2=0

; prev month 4 counters
m:p:Mon=0 4

; energy today
dEi1=0
dEi2=0
dEo1=0
dEo2=0

>B
=>sensor53 r

>M 1
+1,3,o,0,115200,z

1,0-0:1.0.0(@#),Zeit,S,TS,16
1,1-0:1.7.0(@1,Pin,W,Pi,16
1,1-0:2.7.0(@1,Pout,W,Po,16
1,=h_Energie Zähler
1,1-1:1.8.0(@1000,Ei0,kWh,B0,19
1,1-1:1.8.1(@1000,Ei1,kWh,B1,19
1,1-1:1.8.2(@1000,Ei2,kWh,B2,19
1,1-1:2.8.0(@1000,Eo0,kWh,E0,19
1,1-1:2.8.1(@1000,Eo1,kWh,E1,19
1,1-1:2.8.2(@1000,Eo2,kWh,E2,19
#
>T
; on mqtt pub, set vars
Pi=z#Pi
Po=z#Po

B0=z#B0
B1=z#B1
B2=z#B2
E0=z#E0
E1=z#E1
E2=z#E2

>S
; today sec
tSec=(60*time)+secs
upH=uptime/60
sr=sunrise/60
ss=sunset/60

;  calc energy today
dEi1=B1-yB1
dEi2=B2-yB2
dEo1=E1-yE1
dEo2=E2-yE2

; at 23:59:59
if tSec==86399 {
 if day==1 {
  ; save prev months counts
  Mon[0]=0
  Mon=yB1
  Mon=yB2
  Mon=yE1
  Mon=yE2
 }

; counters yesterday
 yB1=B1
 yB2=B2
 yE1=E1
 yE2=E2

 svars
}

>W
@%tstamp% uptime: %1upH% h sunrise: %1sr% h sunset: %1ss% h
@_ Heute __ Bez. HT: %3dEi1% NT: %3dEi2% _ Einsp. HT: %3dEo1% NT: %3dEo2% kWh _
@_ Z VorTag Bez. HT: %3yB1% NT: %3yB2% _ Einsp. HT: %3yE1% NT: %3yE2% kWh _
@_ Z VorMon Bez. HT: %3Mon[1]% NT: %3Mon[2]% _ Einsp. HT: %3Mon[3]% NT: %3Mon[4]% kWh _