Stromzähler per Sonoff ESP8266 auslesen

Chaot

@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_EXPORT

Dadurch 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.

milanissimo

@chaot said in 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_EXPORT
Dadurch 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.

Hallo, also das mit den Line-Protokoll hat sich erstmal erledigt. Hab mich da mit node Red jetzt bisschen beschäftigt. Wenn jedoch noch wer eine Idee hat wie man das im ESP mit Tasmota gleich macht, wäre ich auch dankbar. Bei Bedarf kann ich auch ne kleine Anleitung noch dazu geben für Dummies.

Also das mit den Einspeisewerten wäre noch klasse wenn das mal einer posten könnte.

oberfragger

Ich benutze derzeitig ein IR -> USB Kabel.
Habt ihr eine Idee wie ich das USB-Kabel (ohne zerschneiden) an einen NodeMCU anschliessen kann. Dann könnte ich ja den Krempel via Tasmota auslesen und dann via MQTT übertragen. Hintergrund: Habe sowieso noch einen NodeMCU mit BME680 und AM2320 an der gleichen Stlle installiert. So könnte ich ja auf dem Smartmeter Adapter verzichten.

Aber und an funktinierte der mal nach Updates/ Reboots nicht mehr so wie der sollte.

milanissimo

@chaot

Ich frag lieber nochmal vorher

#define USE_SCRIPT_JSON_EXPORT

ergänze ich in der user_config_override.h datei richtig?

Chaot

@milanissimo Ja dann wird das JSON erstelt

milanissimo

@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

tobiasp

@ralfth
Grüß dich danke für deine Mühe.
Grundpreis ist der Gesamtpreis (Grundgebühr im Jahr) oder?

RalfTh

@tobiasp Hallo
Ja, so habe ich das gemacht. Mir waren die Kosten am Ende des Abrechnungsjahres wichtiger als die genauen Monatskosten, deshalb als Einmalbetrag.

RalfTh

@milanissimo Hallo, ich bin jetzt nicht der Megaspezialist, aber das "p:" in Zeile 12 macht mich nachdenklich.

Gruß

milanissimo

@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.

RalfTh

@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

@ralfth war leider nicht des Rätsels Lösung :/, hatte auch nochmal alles Stromlos gemacht leider wird kein Wert geschrieben

testpaul999

@milanissimo
Ich denke das hiernach

……
if upsecs%tper==0
then
sd=v2-sm
endif
;

Gehört..
genauso nach der zweiten Berechnung.

RalfTh

@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

@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-sm

Es 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

testpaul999

@milanissimo

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
;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

milanissimo

@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

#

RalfTh

@milanissimo So langsam fällt mir nichts mehr ein.

testpaul999

@milanissimo

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% KWh

M 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==============

da_ba_bw

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 
#

NEWS