DMP8624 -> iobroker

Wal

@ralla66 ,
was ich schon in Thermostaten mache ist aus dem Sonoff-Adapter Objekte abonnieren und im Skript weiter verarbeiten.
Man legt ein Datenpunkt im Objektbaum vom DPM an und beschreibt ihn mit irgendetwas und hat den Wert dann im ESP.

Ralla66

@Wal

von Tasmota nach Tasmota cmd senden geht ja, wäre die Frage ob beim Scripting es möglich ist ein
Request zu senden und die Antwort ( Json ) darauf hin zu empfangen.
Das wäre für Hichi ESP Lesekopf Besitzer dann die Top Speicher Balkonkraftwerk Nulleinspeisung
mit dem DPM.

Wal

@ralla66 ,
mit einem Mosquitto Server kein Problem, könnte auch mit dem MQTT-Adapter als Server gehen.
Es braucht da auch kein Json, man kann jeden Datenpunkt abonnieren den man möchte.

>BS
+>subscribe V, cmnd/%topic%/tvolt
+>subscribe C, cmnd/%topic%/tampere
+>subscribe SW, cmnd/%topic%/tpow
+>subscribe L, stat/Haus.Stromzaehler/aktuelle_leistung
+>subscribe G, stat/Haus.Wechselrichter/wasauchimmer

Http request gibt es auch im Skript

USE_WEBSEND_RESPONSE)
http("url" "payload") = does a GET or POST request on a URL (http:// is internally added)

edit: einen hichi und solarregler habe ich ja, brauche nur eine Batterie zum spielen.

Ralla66

@wal

Pylontech
Alles was das Herz begehrt an Schnittstellen, auslesen per ESP Routine.
BMS mit an Board.

Eher Autark, ESP DPM mit ESP Zähler, IO und Mqtt Broker kann ja dabei sein, aber eben kein muss.

Post klingt Interessant, damit kann ich den HM600 über NRF Antenne direkt steuern.

Nachtrag

http("url" "payload") = does a GET or POST request on a URL (http:// is internally added)

Antwort kann wie per print ausgegeben werden ? Teste dann heute Abend

Wal

@ralla66 sagte in DMP8624 -> iobroker:

Pylontech

Pylontech US5000 1.235,25 € evtl. mit dem Weihnachtsgeld.

Ralla66

@wal

Die kleine Pylontech Routine

Ralla66

@wal

Request Antwort Json print so ?

; Read the status JSON payload

U
gw=StatusNET#Gateway
print %gw%

Wal

@ralla66 ,
da musst du dich mal durcharbeiten, habe damit noch nichts gemacht.

Ralla66

@wal

ok, dann mal ran an Lehrbrief 1 -> Übung 1

Button Websend einfügen, Websend ausführen, Antwort Request in Var schreiben.

1 und 2 sollte gehen, bei 3 haperts noch

>D
; Ralla
gw=""

Vmax=60
Cmax=24
v=0
V=0
c=0
C=0
sw=0
SW=0
; Ralla
WS=0
rV="01060000"
vV=""
rC="01060001"
vC=""
rSW="01060002000"
vSW=""
>BS
+>subscribe V, cmnd/%topic%/tvolt
+>subscribe C, cmnd/%topic%/tampere
+>subscribe SW, cmnd/%topic%/tpow
>B
smlj=0
->sensor53 r
; Ralla
; Request Status information. The response will trigger the `U` section
+>status 5

>R
smlj=0
>S
if upsecs>30
then
smlj=1
endif
>W
bu(SW "DPM Ein" "DPM Aus")
; Ralla
bu(WS "WebSend" "Websend")
nm(0.0 60.0 0.01 V "DPM Ausgang (V)" 200 2)
nm(0.0 24.0 0.01 C "DPM Ausgang (A)" 200 2)
>T
sw=DC#sSwitch
v=DC#sVolt
c=DC#sCur
if ((chg[sw]>0) and (SW!=sw))
then
  SW=sw
  +>publish stat/%topic%/RESULT {"tpow":%0sw%}
endif
if ((chg[v]>0) and (V!=v))
then
  V=v
  +>publish stat/%topic%/RESULT {"tvolt":%2v%}
endif
if ((chg[c]>0) and (C!=c))
then
  C=c
  +>publish stat/%topic%/RESULT {"tampere":%2c%}
endif
if chg[V]>0
then
  if V>Vmax
  then
    V=Vmax
  endif
  if V<0
  then
    V=0
  endif
  vV=rV+sb(hx((V*100)) 4 4)
  +>publish stat/%topic%/RESULT {"tvolt":%2V%}
  sml(1 3 vV)
endif
if chg[C]>0
then
  if C>Cmax
  then
    C=Cmax
  endif
  if C<0
  then
    C=0
  endif
  vC=rC+sb(hx((C*1000)) 4 4)
  +>publish stat/%topic%/RESULT {"tampere":%2C%}
  sml(1 3 vC)
endif
if ((chg[SW]>0) 
then
  vSW=rSW+s(SW)
  +>publish stat/%topic%/RESULT {"tpow":%0SW%}
  sml(1 3 vSW)
endif

; Ralla
if ((chg[WS]>0) 
then

=>WebSend [192.168.2.28] /cm?cmnd=status&2010
;Org Ralla IO http://192.168.2.28/cm?cmnd=status%2010
print Ralla websend

endif
; Ralla
; Read the status JSON payload
>U
gw=StatusNET#Gateway
;gw=StatusSNS,MT175,Bezug_aktuell
print %gw%
print Ralla gw

>M 1
+1,3,m,16,9600,DC,1,2,010300000001,010300010001,010300020001,010310010001,010310020001
1,010302SSssxxxx@i0:100,Spannung (set),V,sVolt,2
1,010302SSssxxxx@i1:1000,Strom (set),A,sCur,2
1,010302SSssxxxx@i2:1,Ausgang (set),,sSwitch,0
1,010302SSssxxxx@i3:100,Spannung (disp),V,dVolt,2
1,010302SSssxxxx@i4:1000,Strom (disp),A,vCur,2
#

DPM WebSend.jpg

DPM WebSend gui.jpg

; Request Status information. The response will trigger the U section

B
+>status 5
Dann sollte ja U print ausgeführt sein, ist aber nicht, dann kann nur WebSend falsch sein

Wal

@ralla66 ,
denk daran das man eine Firmware mit USE_WEBSEND_RESPONSE braucht.

Wal

@ralla66 ,
hier für dich falls du es noch nicht kennst.

edit: Werde ich heute testen ob ich den aktuellen Verbrauch vom hichi holen kann wenn du nicht dazu kommst.

Ralla66

@wal

heute morgen war um 0:30 Feierabend
den Link lese ich heute Abend,
habe boot error am ESP nach dem flashen / script einfügen, war eventuell schon übermüdet
meine .bin mit USE_WEBSEND_RESPONSE aktiviert lief nicht sauber.
kannst du mal bitte die .bin hochladen mit Zeile 471 USE_WEBSEND_RESPONSE aktiviert
Wäre cool wenn du mit testes, macht das debuggen einfacher.

Danke

Wal

@ralla66 ,
firmware_websend.bin.gz

Ralla66

@wal

Danke, jetzt weiter

Wal 1.jpg

Ralla66

@wal

erste Antwort, bekomme ein WEbQuery zurück

17:35:28.308 SCR: performs "WebSend [192.168.2.28] /cm?cmnd=status&2010"
17:35:29.951 MQT: stat/tasmota_3CECBB/RESULT = {"WebQuery":{"Status":{"Module":18,"DeviceName":"SMA","FriendlyName":["SMA"],"Topic":"tasmota_D35C9C","ButtonTopic":"0","Power":0,"PowerOnState":3,"LedState":1,"LedMask":"FFFF","SaveData":1,"SaveState":1,"SwitchTopic":"0","SwitchMode":[0,0,0,0,0,0,0,0],"ButtonRetain":0,"SwitchRetain":0,"SensorRetain":0,"PowerRetain":0,"InfoRetain":0,"StateRetain":0}}}
17:35:29.955 MQT: stat/tasmota_3CECBB/RESULT = {"WebSend":"Done"}
17:35:29.957 Ralla websend

>D

; Ralla

gw=""


Vmax=60

Cmax=24

v=0

V=0

c=0

C=0

sw=0

SW=0

; Ralla

WS=0

rV="01060000"

vV=""

rC="01060001"

vC=""

rSW="01060002000"

vSW=""

>BS

+>subscribe V, cmnd/%topic%/tvolt

+>subscribe C, cmnd/%topic%/tampere

+>subscribe SW, cmnd/%topic%/tpow

>B

smlj=0

->sensor53 r

; Ralla

; Request Status information. The response will trigger the `U` section

+>status 5

 

>R

smlj=0

>S

if upsecs>30

then

smlj=1

endif

>W

bu(SW "DPM Ein" "DPM Aus")

; Ralla

bu(WS "WebSend" "Websend")

nm(0.0 60.0 0.01 V "DPM Ausgang (V)" 200 2)

nm(0.0 24.0 0.01 C "DPM Ausgang (A)" 200 2)

>T

sw=DC#sSwitch

v=DC#sVolt

c=DC#sCur

if ((chg[sw]>0) and (SW!=sw))

then

  SW=sw

  +>publish stat/%topic%/RESULT {"tpow":%0sw%}

endif

if ((chg[v]>0) and (V!=v))

then

  V=v

  +>publish stat/%topic%/RESULT {"tvolt":%2v%}

endif

if ((chg[c]>0) and (C!=c))

then

  C=c

  +>publish stat/%topic%/RESULT {"tampere":%2c%}

endif

if chg[V]>0

then

  if V>Vmax

  then

    V=Vmax

  endif

  if V<0

  then

    V=0

  endif

  vV=rV+sb(hx((V*100)) 4 4)

  +>publish stat/%topic%/RESULT {"tvolt":%2V%}

  sml(1 3 vV)

endif

if chg[C]>0

then

  if C>Cmax

  then

    C=Cmax

  endif

  if C<0

  then

    C=0

  endif

  vC=rC+sb(hx((C*1000)) 4 4)

  +>publish stat/%topic%/RESULT {"tampere":%2C%}

  sml(1 3 vC)

endif

if ((chg[SW]>0) 

then

  vSW=rSW+s(SW)

  +>publish stat/%topic%/RESULT {"tpow":%0SW%}

  sml(1 3 vSW)

endif

 

; Ralla

if ((chg[WS]>0) 

then

 

=>WebSend [192.168.2.28] /cm?cmnd=status&2010

res=WebSend [192.168.2.28] /cm?cmnd=status&2010

;Org Ralla IO http://192.168.2.28/cm?cmnd=status%2010

print Ralla websend



endif

; Ralla

; Read the status JSON payload

>U

gw=StatusNET#Gateway

;gw=StatusSNS,MT175,Bezug_aktuell

print %gw%

print Ralla gw

 

>M 1

+1,3,m,16,9600,DC,1,2,010300000001,010300010001,010300020001,010310010001,010310020001

1,010302SSssxxxx@i0:100,Spannung (set),V,sVolt,2

1,010302SSssxxxx@i1:1000,Strom (set),A,sCur,2

1,010302SSssxxxx@i2:1,Ausgang (set),,sSwitch,0

1,010302SSssxxxx@i3:100,Spannung (disp),V,dVolt,2

1,010302SSssxxxx@i4:1000,Strom (disp),A,vCur,2

#

Wal

@ralla66 ,

Wal

@ralla66 ,

Hichi:

>D
aktuell=0
>B
->sensor53 r
>T
aktuell=MT175#P
http("192.168.xxx.xxx" "/cm?cmnd=script>Aktuell="+s(aktuell))
>M 1
+1,3,s,16,9600,MT175
1,77070100010800ff@1000,E_in,kWh,E_in,1
1,77070100010801ff@1000,E_in_HT,kWh,E_in_HT,1
1,77070100010802ff@1000,E_in_NT,kWh,E_in_NT,1
1,77070100020800ff@1000,E_out,kWh,E_out,1
1,77070100100700ff@1,P,W,P,18
1,77070100000009ff@#,Server_ID,,Server_ID,0
#

DPM8624:

>D
Aktuell=0
>W
Aktuelle Leistung{m} %0Aktuell% W

Ralla66

@wal

Habe die Data, %20 weglassen

18:10:08.057 SCR: performs "WebSend [192.168.2.28] /cm?cmnd=status 10"
18:10:08.622 MQT: stat/tasmota_3CECBB/RESULT = {"WebQuery":{"StatusSNS":{"Time":"2023-09-20T18:10:08","MT175":{"Geräte_ID":"","Verbrauch_Gesamt":37714,"Bezug_Tarif_1":37714.412,"Bezug_Tarif_2":0,"Netzeinspeisung":0,"Lieferung_Tarif_1":0,"Lieferung_Tarif_2":0,"Bezug_aktuell":9,"Phase_L1":17,"Phase_L2":-71,"Phase_L3":62}}}}
18:10:08.626 MQT: stat/tasmota_3CECBB/RESULT = {"WebSend":"Done"}
18:10:08.628 Ralla websend

; Ralla
if ((chg[WS]>0) 
then
;10 = show connected sensor information (replaces 'Status 8')
=>WebSend [192.168.2.28] /cm?cmnd=status 10
print Ralla websend
endif

Yeep
jetzt noch zerlegen, Ideen ? mit U ?

Teste mal mit Hichi ob Daten kommen

Wal

@ralla66 ,
Ätsch war trotzdem erster.

Ralla66

@wal

ok hast gewonnen

wie machen wir weiter ?
Ein DPM Script für alle IR Leseköpfe bauen, also den Status SNS komplett abholen.
Dann den Bezugswert Filtern. Habe ja kein Hichi. Dieser Wert kann ja anders benannt sein,
Dann Script cleanen und die erste Beta 1.0 bauen.
Weiter dann mit der Berechnung Bezug -> DPM setzt V und A ?

Gruß Ralla

Nachtrag, Leseköpfe ( Status SNS ) Json einlesen, dann würden auch Shelly PM gehen.

NEWS

DMP8624 -> iobroker

Support us

1.4k
Online

30.6k
Users

77.0k
Topics

1.2m
Posts

NEWS

DMP8624 -> iobroker

Support us

1.4kOnline

30.6kUsers

77.0kTopics

1.2mPosts

1.4k
Online

30.6k
Users

77.0k
Topics

1.2m
Posts