Apator Zähler TASMOTA Scripts - Stromleser WIFI

>D
scnt=0
res=0
>B
=>sensor53 r
>F
scnt+=1
switch scnt
case 3
  res=sml(1 0 300)
  res=sml(1 1 "2F3F210D0A")
case 20
  res=sml(1 1 "063035300D0A")
case 23
  res=sml(1 0 9600)
case 60
  scnt=0
ends
>M 1
+1,3,o,16,9600,12EC3,1
1,1.8.0*00(@1,Verbrauch,kWh,E_in,2
1,1.8.1*00(@1), Verbrauch HT,kWh,E_inHT,2
1,1.8.2*00(@1), Verbrauch NT,kWh,E_inNT,2
1,2.8.0*00(@1,Einspeisung,kWh,E_out,2
#
        

>D
>B
->sensor53 r
>M 1
+1,3,s,16,9600,APOX,1
1,77070100010800ff@1000,Verbrauch,kWh,E_in,3
1,77070100020800ff@1000,Einspeisung,kWh,E_out,3
1,77070100100700ff@1,akt. Leistung,W,Power,0
1,=h-------
1,770701001f0700ff@1,Current L1,A,Curr_p1,3
1,77070100330700ff@1,Current L2,A,Curr_p2,3
1,77070100470700ff@1,Current L3,A,Curr_p3,3
1,=h-------
1,77070100200700ff@1,Voltage L1,V,Volt_p1,3
1,77070100340700ff@1,Voltage L2,V,Volt_p2,3
1,77070100480700ff@1,Voltage L3,V,Volt_p3,3
#
        

>D
>B
->sensor53 r
>M 1
+1,3,s,16,9600,LEPUS,1
1,77070100010800ff@1000,Verbrauch,Kwh,E_in,3
1,77070100020800ff@1000,Einspeisung,Kwh,E_out,3
1,77070100100700ff@1,akt. Leistung,W,power,0
#
        

>D
>B
->sensor53 r
>M 1
+1,3,s,16,9600,Norax,1
1,77070100010800ff@1000,Verbrauch,kWh,E_in,3
1,77070100020800ff@1000,Einspeisung,kWh,E_out,3
1,77070100100700ff@1,akt. Leistung,W,Power,0
1,77070100200700ff@1,Voltage L1,V,Volt_p1,1
1,77070100340700ff@1,Voltage L2,V,Volt_p2,1
1,77070100480700ff@1,Voltage L3,V,Volt_p3,1
1,770701001f0700ff@1,Amperage L1,A,Amperage_p1,1
1,77070100330700ff@1,Amperage L2,A,Amperage_p2,1
1,77070100470700ff@1,Amperage L3,A,Amperage_p3,1
1,77070100510704ff@1,Phaseangle I-L1/U-L1,deg,phase_angle_p1,1
1,7707010051070fff@1,Phaseangle I-L2/I-L2,deg,phase_angle_p2,1
1,7707010051071aff@1,Phaseangle I-L3/I-L3,deg,phase_angle_p3,1
1,770701000e0700ff@1,Frequency,Hz,frequency,0
#
        

>D
>B
=>sensor53 r
>M 1
+1,3,s,16,9600,PICUS,1
1,77070100010800ff@1000,Verbrauch,Kwh,E_in,3
1,77070100020800ff@1000,Einspeisung,Kwh,E_out,3
1,77070100100700ff@1,akt. Leistung,W,power,0
#
        

>D
scnt=0
res=0
>B
=>sensor53 r
>F
scnt+=1
switch scnt
case 3
  res=sml(1 0 300)
  res=sml(1 1 "2F3F210D0A")
case 20
  res=sml(1 1 "063035300D0A")
case 23
  res=sml(1 0 9600)
case 60
  scnt=0
ends
>M 1
+1,3,o,16,9600,Corax,1
1,0.9.1(@1),Time,,0_9_1,0
1,0.9.2(@1),Date,,0_9_1,0
1,1.7.0(@1),Inst Power,kWh,E_in,2

1,=h ---- Reactive Energy Import ----
1,3.8.0(@1,Total Energy,kvarh,nrg_reac_imp,3
1,3.8.1(@1,T1 Energy,kvarh,t1_reac_imp,3
1,3.8.2(@1,T2 Energy,kvarh,t2_reac_imp,3
1,3.8.3(@1,T3 Energy,kvarh,t3_reac_imp,3
1,3.8.4(@1,T4 Energy,kvarh,t4_reac_imp,3
1,3.2.0(@1,Commulative Energy,kvarh,comm_reac_imp,3
1,3.6.0(@1,Q+ Max Demand,kvarh,dem_reac_imp,3
1,=h ---- Reactive Energy Export ----
1,4.8.0(@1,Total Energy,kvarh,nrg_reac_exp,3
1,4.8.1(@1,T1 Energy,kvarh,t1_reac_exp,3
1,4.8.2(@1,T2 Energy,kvarh,t2_reac_exp,3
1,4.8.3(@1,T3 Energy,kvarh,t3_reac_exp,3
1,4.8.4(@1,T4 Energy,kvarh,t4_reac_exp,3
1,4.2.0(@1,Commulative Energy,kvarh,comm_reac_exp,3
1,4.6.0(@1,Q- Max Demand,kvarh,dem_reac_exp,3
1,=h ---- Active Energy ---- 
1,15.8.0*01(@1,Abs Energy,kWh,a_plus,2
1,15.8.1*01(@1,T1 Abs Energy,kWh,a1_plus,2
1,15.8.2*01(@1,T2 Abs Energy,kWh,a2_plus,2
1,15.8.3*01(@1,T3 Abs Energy,kWh,a3_plus,2
1,15.8.4*01(@1,T4 Abs Energy,kWh,a4_plus,2
1,15.6.0*01(@1, Abs Total,kWh,atot_plus,2
1,=h ----
1,32.7.0(@1,L1 Voltage,V,volts_l1,1
1,31.7.0(@1,L1 Current,A,amp_l1,1
1,52.7.0(@1,L2 Voltage,V,volts_l2,1
1,51.7.0(@1,L2 Voltage,A,amp_l2,1
1,72.7.0(@1,L3 Voltage,V,volts_l3,1
1,71.7.0(@1,L3 Current,A,amp_l3,1
#