Hi,
ich habe von einem Bekannten einen Elster AS 1440 Stromzähler bekommen. Dieser hat unter der Abdeckung einen RS485 Anschluss. Diesen habe ich mit einem RS485 Adapter (! muss Auto FlowControl haben !) an ein Wemos D1 (RX/TX) angeschlossen. Beide Seiten des RS485 wurden mit einem 100 Ohm Widerstand abgeschlossen.
Und dann gings los... also erstmal ging gar nichts. Nach langem spielen mit den Werten und recherchieren bin ich auf dieses Ergebnis gekommen, was bei mir sauber funktioniert.
Vielleicht brauchts mal einer.. (man beachte die kuriose serielle Geschwindigkeit - mit 9600 geht nix)
Code
>D
s1="Tagesverbrauch: {m}<span"
s2="aktuell: {m}<span"
s3="0:00 Uhr: {m}<span"
s4="Monatsanfang: {m}<span"
s5="Jahresanfang: {m}<span"
v1=0
v2=0
v3=0
v4=0
v5=0
v6=0
min=0
hr=0
wd=0
md=0
yr=0
p:sm=0
sd=0
p:sma=0
smn=0
p:sya=0
syn=0
>T
v2=Garage#Zählerstand
v4=Garage#Aktuell
v5=Garage#Curr_summ
>S
min=int(time/5)
if chg[min]>0
and v2>0
then
dp3
=>Publish /%topic%/tele/Jahresanfang %3sya%
=>Publish /%topic%/tele/Monatsanfang %3sma%
=>Publish /%topic%/tele/Tagesanfang %3sm%
=>Publish /%topic%/tele/Tagesverbrauch %3sd%
endif
;Tagesverbrauch
hr=hours
if chg[hr]>0
and hr==0
and v2>0
then
sm=v2
svars
endif
if upsecs%tper==0{
sd=v2-sm
}
;Monatsverbrauch
md=day
if chg[md]>0
and md==1
and v2>0
then
sma=v2
svars
endif
if upsecs%tper==0{
smn=v2-sma
}
;Jahresverbrauch
yr=year
if chg[yr]>0
and v2>0
then
sya=v2
svars
endif
if upsecs%tper==0{
syn=v2-sya
}
>W
Strom%s1%>%1sd% KWh
Monatsverbrauch: {m} %1smn% kWh
Jahresverbrauch: {m} %1syn% kWh
------------------
STROM Zählerstand
aktuell: {m} %1v2% kWh
0:00 Uhr: {m} %1sm% kWh
Monatsanfang: {m} %1sma% kWh
Jahresanfang: {m} %1sya% kWh
>B
=>sensor53 r
>M 1
+1,3,o,0,9200,Garage,1,1000,2F3F210D0A
1,1.8.1(@1,Zählerstand Summe,kWh,Zählerstand,2
1,1.7.0(@1,Aktuelle Last,kW,Aktuell,3
#
Alles anzeigen