EMH Meter TASMOTA Scripts - stromleser.tasmota

 >D
 >B
 ->sensor53 r
 >M 1
 +1,3,s,16,9600,eBZD,1
 1.77070100010800ff@1000,consumption,kWh,E_in,3
 1.77070100020800ff@1000,Feed-in,kWh,E_out,3
 1.77070100100700ff@1,current power,W,Power,0
 #

 >D
 >B
 ->sensor53 r
 >M 1
 +1,3,s,16,9600,ED300L,1
 1,=so1,00010800,63,5,63,5,000f0700
 1.77070100010800ff@1000,consumption,kWh,E_in,3
 1.77070100020800ff@1000,Feed-in,kWh,E_out,3
 1.77070100100700ff@1,current power,W,Power,0
 #

 >D
 >B
 ->sensor53 r
 >M 1
 +1,3,s,16,9600,ED300S,1
 1.77070100010800ff@1000,consumption,kWh,E_in,3
 1.77070100020800ff@1000,Feed-in,kWh,E_out,3
 1.77070100100700ff@1,current power,W,Power,0
 #

 >D
 >B
 =>sensor53 r
 >M 1
 +1,3,s,16,9600,eHZ,1
 1.77070100010800ff@1000,consumption,kWh,E_in,3
 1.77070100020800ff@1000,Feed-in,kWh,E_out,3
 1.77070100100700ff@1,current power,W,Power,0
 1.770701000f0700ff@1,current power2,W,Power2,0
 #

 >D
 >B
 ->sensor53 r
 >M 1
 +1,3,s,16,9600,EMH,1
 1.77070100010800ff@1000,consumption,kWh,E_in,3
 1.77070100020800ff@1000,Feed-in,kWh,E_out,3
 1,77070100100700ff@1,current power,W,Power,0
 #

 >D
 res=0
 scnt=0
 >B
 =>sensor53 r
 >F
 scnt+=1
 switch scnt
 case 3
 res=sml(1 0 300)
 res=sml(1 1 "2F3F210D0A")
 case 3000
 scnt=0
 ends
 >M 1
 +1,3,o,0,300,EMH,1
 1,0.0.0(@1,Counter No.,,0_0_0,0
 ... 
1,4.8.2(@1,BlindEnEinspT2,kvarh,4_8_2,3
 #