>D
;start, define variables
cnt=1
timer=1
w_new=0
w_corr=0
w_delta=0
p:w_last=0

>B
;setup sensor
->sensor53 r

>T
w_new=WAERME#w_total

>S
timer=int(time)
if chg[timer]>0 
then
switch timer
case 0
print It is midnight
print wakeup start
sml(-1 1 "2400:8N1")
for cnt 1 72 1
sml(1 1 "55555555555555555555")
next
print wakeup end
print wait for the meter
delay(350)
sml(-1 1 "2400:8E1")
print request data
sml(1 1 "105BFE5916")
case 1
print It is a minute after midnight
print calculating daily value
print w_last %0w_last%
w_delta=w_new-w_last
w_corr=w_new
;Plausibilitaetstest
if w_delta>100000 
or w_delta<9 
then
if w_last>10
then 
w_corr=w_last
endif
w_delta=0
endif
w_last=w_corr
svars
print w_new %0w_new%
print w_delta %0w_delta%
print w_corr %0w_corr%
ends
endif

>J  
,"w_delta":%w_delta%,"w_corr":%w_corr%,"w_last":%w_last% 

>W
===============
Waerme corr     :    {m} %3w_corr% KWh 
Waerme last     :    {m} %3w_last% KWh 
Vortagsverbrauch:    {m} %3w_delta% KWh 

>M 1
+1,3,rE1,0,2400,WAERME,1
1,0C06bcd8@1,Total Energy,kWh,w_total,0
1,0C13bcd8@1000,Total volume,m³,v_total,2
1,0C2Bbcd8@1,Current power,W,p_act,0
1,0B3Bbcd6@1000,Current flow,m³/h,F_akt,3
1,0A5Abcd4@10,Flow temp,°C,t_flow,1
1,0A5Ebcd4@10,Return temp,°C,t_return,1
1,0A62bcd4@10,Temp diff,°C,t_diff,2
#