NEWS
Stromzähler per Sonoff ESP8266 auslesen
-
@milanissimo Ich habe das noch nicht aktualisiert.
Um die Daten per MQTT in den ioBroker zu bekommen musst du beim Flashen der Firmware noch eine Option zusätzlich aktivieren:#define USE_SCRIPT_JSON_EXPORTDadurch wird im Script die Sektion "J" aktiviert und per MQTT übertragen.
Für die Änderung des Ursprungsscripts um die Einspeisung zu erfassen habe ich keine konkrete Idee. Ich würde das vielleicht mal mit einem zweiten Satz Variablen probieren, aber da sind hier User die das vermutlich wesentlich besser mit den Scrips hinbekommen.
Wie man MQTT dazu bringt als Lineprotokoll Daten zu übertragen habe ich noch nie probiert. Dazu hatte ich leider noch nie Bedarf, da ich immer über den ioBroker gehe und da das als JSON angenommen wird. -
Ich frag lieber nochmal vorher
#define USE_SCRIPT_JSON_EXPORT
ergänze ich in der user_config_override.h datei richtig?
@milanissimo Ja dann wird das JSON erstelt
-
@milanissimo Ja dann wird das JSON erstelt
@chaot danke dir hat prima geklappt.
Ich hänge noch an einen letzten Punkt.
Ich hätte gern noch den Tageswert der Einspeisung, leider schreibt er einfach 0 Uhr den Zählerstand nicht.
0:00 UhrEins: {m} %2sme% KWh
>D rssi=0 s1="Tagesverbrauch: {m}<b><span style=>" v2=0 v3=0 hr=0 md=0 yr=0 ;Strom p:sm=0 p:sme=0 sd=0 sde=0 p:sma=0 smn=0 p:sya=0 syn=0 sspr=0.2599 yspr=0 ysgp=150.00 y€=0 >T v2=SML#Total_in v3=SML#Total_out rssi=Wifi#RSSI >B ->sensor53 r >S ;Tagesverbrauch hr=hours if chg[hr]>0 and hr==0 and v2>0 then sm=v2 svars endif if upsecs%tper==0 then sd=v2-sm ;TagesverbrauchEins hr=hours if chg[hr]>0 and hr==0 and v3>0 then sme=v3 svars endif if upsecs%tper==0 then sde=v3-sme -
@chaot Den Grundpreis habe ich gleich komplett mit übernommen. Das mit dem Teilen geht zwar, war mir allerdings zu aufwendig, da diese Kosten auf alle Fälle anfallen.
-
@ralfth
Grüß dich danke für deine Mühe.
Grundpreis ist der Gesamtpreis (Grundgebühr im Jahr) oder? -
@chaot danke dir hat prima geklappt.
Ich hänge noch an einen letzten Punkt.
Ich hätte gern noch den Tageswert der Einspeisung, leider schreibt er einfach 0 Uhr den Zählerstand nicht.
0:00 UhrEins: {m} %2sme% KWh
>D rssi=0 s1="Tagesverbrauch: {m}<b><span style=>" v2=0 v3=0 hr=0 md=0 yr=0 ;Strom p:sm=0 p:sme=0 sd=0 sde=0 p:sma=0 smn=0 p:sya=0 syn=0 sspr=0.2599 yspr=0 ysgp=150.00 y€=0 >T v2=SML#Total_in v3=SML#Total_out rssi=Wifi#RSSI >B ->sensor53 r >S ;Tagesverbrauch hr=hours if chg[hr]>0 and hr==0 and v2>0 then sm=v2 svars endif if upsecs%tper==0 then sd=v2-sm ;TagesverbrauchEins hr=hours if chg[hr]>0 and hr==0 and v3>0 then sme=v3 svars endif if upsecs%tper==0 then sde=v3-sme@milanissimo Hallo, ich bin jetzt nicht der Megaspezialist, aber das "p:" in Zeile 12 macht mich nachdenklich.
Gruß
-
@milanissimo Hallo, ich bin jetzt nicht der Megaspezialist, aber das "p:" in Zeile 12 macht mich nachdenklich.
Gruß
-
@ralfth hallo Ralf, ich hab das einfach 1:1 vom Tagesverbrauch übernommen. Nur zum Verständnis was sagt das p: den aus? Habe es mal geändert mal sehen ob er 0:00 Uhr einen Wert schreibt. Danke für die Hilfe.
@milanissimo Hallo, so weit ich es noch in Erinnerung habe steht "p:" für permanent. Ich finde allerdings auf die Husche nicht die Dokumentation zum Scripting.
-
@milanissimo Hallo, so weit ich es noch in Erinnerung habe steht "p:" für permanent. Ich finde allerdings auf die Husche nicht die Dokumentation zum Scripting.
@ralfth war leider nicht des Rätsels Lösung :/, hatte auch nochmal alles Stromlos gemacht leider wird kein Wert geschrieben
-
@chaot danke dir hat prima geklappt.
Ich hänge noch an einen letzten Punkt.
Ich hätte gern noch den Tageswert der Einspeisung, leider schreibt er einfach 0 Uhr den Zählerstand nicht.
0:00 UhrEins: {m} %2sme% KWh
>D rssi=0 s1="Tagesverbrauch: {m}<b><span style=>" v2=0 v3=0 hr=0 md=0 yr=0 ;Strom p:sm=0 p:sme=0 sd=0 sde=0 p:sma=0 smn=0 p:sya=0 syn=0 sspr=0.2599 yspr=0 ysgp=150.00 y€=0 >T v2=SML#Total_in v3=SML#Total_out rssi=Wifi#RSSI >B ->sensor53 r >S ;Tagesverbrauch hr=hours if chg[hr]>0 and hr==0 and v2>0 then sm=v2 svars endif if upsecs%tper==0 then sd=v2-sm ;TagesverbrauchEins hr=hours if chg[hr]>0 and hr==0 and v3>0 then sme=v3 svars endif if upsecs%tper==0 then sde=v3-sme@milanissimo
Ich denke das hiernach……
if upsecs%tper==0
then
sd=v2-sm
endif
;Gehört..
genauso nach der zweiten Berechnung. -
@ralfth war leider nicht des Rätsels Lösung :/, hatte auch nochmal alles Stromlos gemacht leider wird kein Wert geschrieben
@milanissimo Bei mir sieht das so aus:
if upsecs%tper==0{ sd=v2-sm }Allerdings habe ich auch nur eine ältere Tasmota-Version 8.1.0.4
In der aktuellen Dokumentation sieht es so aus wie bei dir, allerdings schließen diese eine If-Schleife mit einem endif
Das würde ich mal versuchen.
-
@milanissimo Bei mir sieht das so aus:
if upsecs%tper==0{ sd=v2-sm }Allerdings habe ich auch nur eine ältere Tasmota-Version 8.1.0.4
In der aktuellen Dokumentation sieht es so aus wie bei dir, allerdings schließen diese eine If-Schleife mit einem endif
Das würde ich mal versuchen.
@ralfth hey also bei dem V2 Wert/Code wird ja 0:00 Uhr ja ein Wert geschrieben.
Tagesverbrauch hr=hours if chg[hr]>0 and hr==0 and v2>0 then sm=v2 svars endif if upsecs%tper==0 then sd=v2-smEs wir nur leider bei der Einspeisung v3 kein Wert geschrieben.
;TagesverbrauchEins hr=hours if chg[hr]>0 and hr==0 and v3>0 then sme=v3 svars endif if upsecs%tper==0 then sde=v3-sme -
@ralfth hey also bei dem V2 Wert/Code wird ja 0:00 Uhr ja ein Wert geschrieben.
Tagesverbrauch hr=hours if chg[hr]>0 and hr==0 and v2>0 then sm=v2 svars endif if upsecs%tper==0 then sd=v2-smEs wir nur leider bei der Einspeisung v3 kein Wert geschrieben.
;TagesverbrauchEins hr=hours if chg[hr]>0 and hr==0 and v3>0 then sme=v3 svars endif if upsecs%tper==0 then sde=v3-smeso sollte es gehen...
;Tagesverbrauch
hr=hours
if chg[hr]>0
and hr==0
and v2>0
then
sm=v2
svars
endif
if upsecs%tper==0
then
sd=v2-sm
endif
;TagesverbrauchEinshr=hours
if chg[hr]>0
and hr==0
and v3>0
then
sme=v3
svars
endif
if upsecs%tper==0
then
sde=v3-sme
endif -
so sollte es gehen...
;Tagesverbrauch
hr=hours
if chg[hr]>0
and hr==0
and v2>0
then
sm=v2
svars
endif
if upsecs%tper==0
then
sd=v2-sm
endif
;TagesverbrauchEinshr=hours
if chg[hr]>0
and hr==0
and v3>0
then
sme=v3
svars
endif
if upsecs%tper==0
then
sde=v3-sme
endif@testpaul999 hat leider auch nix gebracht.
Anbei nochmal meine ganze config.
>D rssi=0 s1="Tagesverbrauch: {m}<b><span style=>" v2=0 v3=0 hr=0 md=0 yr=0 ;Strom p:sm=0 sd=0 p:sme=0 sde=0 p:sma=0 smn=0 p:sya=0 syn=0 sspr=0.2599 yspr=0 ysgp=150.00 y€=0 >T v2=SML#Total_in v3=SML#Total_out rssi=Wifi#RSSI >B ->sensor53 r >S ;Tagesverbrauch hr=hours if chg[hr]>0 and hr==0 and v2>0 then sm=v2 svars endif if upsecs%tper==0 then sd=v2-sm endif ;Tagesverbraucheins hr=hours if chg[hr]>0 and hr==0 and v3>0 then sme=v3 svars endif if upsecs%tper==0 then sde=v3-sme endif ;Monatsverbrauch md=day if chg[md]>0 and md==1 and v2>0 then sma=v2 svars endif if upsecs%tper==0 then smn=v2-sma endif ;Jahresverbrauch yr=year if chg[yr]>0 and hr==0 and md==1 and v2>0 then sya=v2 svars endif if upsecs%tper==0 then syn=v2-sya ;Kosten yspr=syn*sspr+ysgp endif >J ,"Verbrauch Tag":"%sd%" ,"Einspeisung Tag":"%sde%" ,"Verbrauch Monat":"%smn%" ,"Verbrauch Jahr":"%syn%" ,"Zählerstand 0:00Uhr":"%2sm%" ,"ZählerstandEins 0:00Uhr":"%2sme%" ,"Zählerstand Monatsanfang":"%2sma%" ,"Zählerstand Jahrenanfang":"%2sya%" ,"Kosten dieses Jahr":"%2yspr%" >W WLAN Empfang: {m}%rssi% ============== Tagesverbrauch: {m} %2sd% KWh TagesverbrauchEins: {m} %2sde% KWh Monatsverbrauch: {m} %2smn% KWh Jahresverbrauch: {m} %2syn% KWh ============== Strom Preis/kWh: {m} %4sspr% € Strom Grundpreis: {m} %2ysgp% € -------------- Strom kosten lfd. Jahr:{m} %2yspr% € ============== Strom Zählerstände: aktuell: {m} %2v2% KWh 0:00 Uhr: {m} %2sm% KWh 0:00 UhrEins: {m} %2sme% KWh Monatsanfang: {m} %2sma% KWh Jahresanfang: {m} %2sya% KWh ============== >M 1 +1,13,s,1,9600,SML 1,77070100010800ff@1000,Zählerstand,KWh,Total_in,2 1,77070100020800ff@1000,Einspeisung,KWh,Total_out,2 1,77070100100700ff@1,Stromverbrauch,W,Power_curr,0 1,77070100100700ff@1000,Aktuell,kW,Actual_pow,3 1,7707010060320101@#,Meter Nr,,Meter_number,0 #
-
@testpaul999 hat leider auch nix gebracht.
Anbei nochmal meine ganze config.
>D rssi=0 s1="Tagesverbrauch: {m}<b><span style=>" v2=0 v3=0 hr=0 md=0 yr=0 ;Strom p:sm=0 sd=0 p:sme=0 sde=0 p:sma=0 smn=0 p:sya=0 syn=0 sspr=0.2599 yspr=0 ysgp=150.00 y€=0 >T v2=SML#Total_in v3=SML#Total_out rssi=Wifi#RSSI >B ->sensor53 r >S ;Tagesverbrauch hr=hours if chg[hr]>0 and hr==0 and v2>0 then sm=v2 svars endif if upsecs%tper==0 then sd=v2-sm endif ;Tagesverbraucheins hr=hours if chg[hr]>0 and hr==0 and v3>0 then sme=v3 svars endif if upsecs%tper==0 then sde=v3-sme endif ;Monatsverbrauch md=day if chg[md]>0 and md==1 and v2>0 then sma=v2 svars endif if upsecs%tper==0 then smn=v2-sma endif ;Jahresverbrauch yr=year if chg[yr]>0 and hr==0 and md==1 and v2>0 then sya=v2 svars endif if upsecs%tper==0 then syn=v2-sya ;Kosten yspr=syn*sspr+ysgp endif >J ,"Verbrauch Tag":"%sd%" ,"Einspeisung Tag":"%sde%" ,"Verbrauch Monat":"%smn%" ,"Verbrauch Jahr":"%syn%" ,"Zählerstand 0:00Uhr":"%2sm%" ,"ZählerstandEins 0:00Uhr":"%2sme%" ,"Zählerstand Monatsanfang":"%2sma%" ,"Zählerstand Jahrenanfang":"%2sya%" ,"Kosten dieses Jahr":"%2yspr%" >W WLAN Empfang: {m}%rssi% ============== Tagesverbrauch: {m} %2sd% KWh TagesverbrauchEins: {m} %2sde% KWh Monatsverbrauch: {m} %2smn% KWh Jahresverbrauch: {m} %2syn% KWh ============== Strom Preis/kWh: {m} %4sspr% € Strom Grundpreis: {m} %2ysgp% € -------------- Strom kosten lfd. Jahr:{m} %2yspr% € ============== Strom Zählerstände: aktuell: {m} %2v2% KWh 0:00 Uhr: {m} %2sm% KWh 0:00 UhrEins: {m} %2sme% KWh Monatsanfang: {m} %2sma% KWh Jahresanfang: {m} %2sya% KWh ============== >M 1 +1,13,s,1,9600,SML 1,77070100010800ff@1000,Zählerstand,KWh,Total_in,2 1,77070100020800ff@1000,Einspeisung,KWh,Total_out,2 1,77070100100700ff@1,Stromverbrauch,W,Power_curr,0 1,77070100100700ff@1000,Aktuell,kW,Actual_pow,3 1,7707010060320101@#,Meter Nr,,Meter_number,0 #@milanissimo So langsam fällt mir nichts mehr ein.
-
@testpaul999 hat leider auch nix gebracht.
Anbei nochmal meine ganze config.
>D rssi=0 s1="Tagesverbrauch: {m}<b><span style=>" v2=0 v3=0 hr=0 md=0 yr=0 ;Strom p:sm=0 sd=0 p:sme=0 sde=0 p:sma=0 smn=0 p:sya=0 syn=0 sspr=0.2599 yspr=0 ysgp=150.00 y€=0 >T v2=SML#Total_in v3=SML#Total_out rssi=Wifi#RSSI >B ->sensor53 r >S ;Tagesverbrauch hr=hours if chg[hr]>0 and hr==0 and v2>0 then sm=v2 svars endif if upsecs%tper==0 then sd=v2-sm endif ;Tagesverbraucheins hr=hours if chg[hr]>0 and hr==0 and v3>0 then sme=v3 svars endif if upsecs%tper==0 then sde=v3-sme endif ;Monatsverbrauch md=day if chg[md]>0 and md==1 and v2>0 then sma=v2 svars endif if upsecs%tper==0 then smn=v2-sma endif ;Jahresverbrauch yr=year if chg[yr]>0 and hr==0 and md==1 and v2>0 then sya=v2 svars endif if upsecs%tper==0 then syn=v2-sya ;Kosten yspr=syn*sspr+ysgp endif >J ,"Verbrauch Tag":"%sd%" ,"Einspeisung Tag":"%sde%" ,"Verbrauch Monat":"%smn%" ,"Verbrauch Jahr":"%syn%" ,"Zählerstand 0:00Uhr":"%2sm%" ,"ZählerstandEins 0:00Uhr":"%2sme%" ,"Zählerstand Monatsanfang":"%2sma%" ,"Zählerstand Jahrenanfang":"%2sya%" ,"Kosten dieses Jahr":"%2yspr%" >W WLAN Empfang: {m}%rssi% ============== Tagesverbrauch: {m} %2sd% KWh TagesverbrauchEins: {m} %2sde% KWh Monatsverbrauch: {m} %2smn% KWh Jahresverbrauch: {m} %2syn% KWh ============== Strom Preis/kWh: {m} %4sspr% € Strom Grundpreis: {m} %2ysgp% € -------------- Strom kosten lfd. Jahr:{m} %2yspr% € ============== Strom Zählerstände: aktuell: {m} %2v2% KWh 0:00 Uhr: {m} %2sm% KWh 0:00 UhrEins: {m} %2sme% KWh Monatsanfang: {m} %2sma% KWh Jahresanfang: {m} %2sya% KWh ============== >M 1 +1,13,s,1,9600,SML 1,77070100010800ff@1000,Zählerstand,KWh,Total_in,2 1,77070100020800ff@1000,Einspeisung,KWh,Total_out,2 1,77070100100700ff@1,Stromverbrauch,W,Power_curr,0 1,77070100100700ff@1000,Aktuell,kW,Actual_pow,3 1,7707010060320101@#,Meter Nr,,Meter_number,0 #Das ist mein Script, da klappt die Zählung de Einspeisung.
D
; rssi=0
v2=0
v3=0
hr=0
md=0
yr=0
min=0
da=0
; Strom 0:00 Uhr Wert
p:sm=0
sd=0
; Monat 1ter Tag
p:sma=0
smn=0
; 1.Tag Jahr
p:sya=0
syn=0
; Einspeisung
p:inm=0
ind=0
; Tarif je Einheit
sspr=0.2516
yspr=0
; Grundgebühr
ysgp=71.09
y€=0
T
v2=SML#DJ_TPWRIN
v3=SML#DJ_TPWROUT
;rssi=Wifi#RSSI
B
->sensor53 r
tper=11
S
; Tagesverbrauch&Einspeisung
hr=hours
min=mins
if chg[min]>0
and hr==23
and min==59
then
sm=v2
inm=v3
svars
endif
if upsecs%tper==0
then
sd=v2-sm
ind=v3-inm
endif
; Monatsverbrauch
da=day
hr=hours
min=mins
if chg[da]>0
and da==01
; and hr==8
; and min==09
then
sma=v2
svars
endif
if upsecs%tper==0
then
smn=v2-sma
endif
; Jahresverbrauch
yr=year
md=month
hr=hours
min=mins
if chg[yr]>0
and md==01
; and hr==00
; and min==01
then
sya=v2
svars
endif
if upsecs%tper==0
then
syn=v2-sya
endif
; Kosten
yspr=syn*sspr+ysgp
J
,"Verbrauch Tag":"%sd%"
,"Verbrauch Monat":"%smn%"
,"Verbrauch Jahr":"%syn%"
,"Einspeisung Tag":"%ind%"
,"Zählerstand 0:00Uhr":"%2sm%"
,"Zählerstand Monatsanfang":"%2sma%"
,"Zählerstand Jahrenanfang":"%2sya%"
,"Kosten dieses Jahr":"%2yspr%"
W
Zaehlernummer: {m} xxxxxxxxxxxxx
==============
Tagesverbrauch:{m} %2sd% KWh
Tageseinspeisung:{m} %2ind% KWh
Monatsverbrauch: {m} %2smn% KWh
Jahresverbrauch: {m} %2syn% KWh
==============
Strom Preis/kWh: {m} %4sspr% €
Strom Grundpreis: {m} %2ysgp% €
Stromkosten lfd. Jahr: {m} %2yspr% €
Strom Zählerstände:
aktuell: {m} %2v2% KWh
Bezug 0:00 Uhr: {m} %2sm% KWh
Einspeisung 0:00 Uhr: {m} %2inm% KWh
Monatsanfang: {m} %2sma% KWh
Jahresanfang: {m} %2sya% KWhM 1
+1,5,s,16,9600,SML
1,77070100010800ff@1000,Verbrauch,KWh,DJ_TPWRIN,2
1,77070100020800ff@1000,Einspeisung,KWh,DJ_TPWROUT,2
1,77070100100700ff@1,Akt.Verbrauch,W,DJ_TPWRCURR,2
1,=h==============
1,77070100000009ff@#,Zaehler ID,,Meter_number,0
1,=h==============
-
Hallo,
da mein Zähler leider die PIN nach glaube ich 240 Sekunden wieder "vergisst" wenn keine Eingabe mehr stattfindet möchte ich gerne eine LED am "optischen Taster" alle 120 Sekunden kurz blinken lassen.
Leider hatte ich bis jetzt keinen Erfolg das im Script einzufügen.
Alle Codebeispiele die ich gefunden habe beziehen sich auf Rules und die kann ich ja nicht parallel nutzen.Wie muss das Script dazu ausschauen?
Zur Zeit habe ich das:>D >B ->sensor53 r >M +1,13,s,1,9600,SML 1,77070100010800ff@1000,Verbrauch,KWh,Power_in,1 1,77070100100700ff@1,Akt. Verbrauch,W,Power_act,1 1,77070100240700ff@1,Wirkleistung L1,W,Power_p1,1 1,77070100380700ff@1,Wirkleistung L2,W,Power_p2,1 1,770701004c0700ff@1,Wirkleistung L3,W,Power_p3,1 # -
Hallo,
da mein Zähler leider die PIN nach glaube ich 240 Sekunden wieder "vergisst" wenn keine Eingabe mehr stattfindet möchte ich gerne eine LED am "optischen Taster" alle 120 Sekunden kurz blinken lassen.
Leider hatte ich bis jetzt keinen Erfolg das im Script einzufügen.
Alle Codebeispiele die ich gefunden habe beziehen sich auf Rules und die kann ich ja nicht parallel nutzen.Wie muss das Script dazu ausschauen?
Zur Zeit habe ich das:>D >B ->sensor53 r >M +1,13,s,1,9600,SML 1,77070100010800ff@1000,Verbrauch,KWh,Power_in,1 1,77070100100700ff@1,Akt. Verbrauch,W,Power_act,1 1,77070100240700ff@1,Wirkleistung L1,W,Power_p1,1 1,77070100380700ff@1,Wirkleistung L2,W,Power_p2,1 1,770701004c0700ff@1,Wirkleistung L3,W,Power_p3,1 # -
Hallo,
da mein Zähler leider die PIN nach glaube ich 240 Sekunden wieder "vergisst" wenn keine Eingabe mehr stattfindet möchte ich gerne eine LED am "optischen Taster" alle 120 Sekunden kurz blinken lassen.
Leider hatte ich bis jetzt keinen Erfolg das im Script einzufügen.
Alle Codebeispiele die ich gefunden habe beziehen sich auf Rules und die kann ich ja nicht parallel nutzen.Wie muss das Script dazu ausschauen?
Zur Zeit habe ich das:>D >B ->sensor53 r >M +1,13,s,1,9600,SML 1,77070100010800ff@1000,Verbrauch,KWh,Power_in,1 1,77070100100700ff@1,Akt. Verbrauch,W,Power_act,1 1,77070100240700ff@1,Wirkleistung L1,W,Power_p1,1 1,77070100380700ff@1,Wirkleistung L2,W,Power_p2,1 1,770701004c0700ff@1,Wirkleistung L3,W,Power_p3,1 # -
Es ist ein Easymeter Q3AA2274. Wenn ich das in der Anleitung richtig verstanden habe kann der Netzbetreiber bei der Bestellung der Zähler wählen ob er die Pin "vergisst" oder nicht und ist dann nicht mehr so einfach änderbar. Schon gar nicht durch den Endbenutzer. Evtl. vom "Profi" über die infrarote Eingabeschnittstelle die verplombt ist.
Support us
711
Online32.4k
Benutzer81.4k
Themen1.3m
Beiträge