DMP8624 -> iobroker

[Wal]

@ralla66 ,
wenn ich im WebGui den Button drücke der auch funktioniert, kommt auf der Konsole der selbe Befehl.

17:23:22.744 SRC: Rule
17:23:22.746 CMD: Grp 0, Cmd 'PUBLISH', Idx 1, Len 35, Pld -99, Data 'stat/Haus.DPM8624/RESULT {"tpow":1}'
17:23:22.754 MQT: stat/Haus.DPM8624/RESULT = {"tpow":1}

[Ralla66]

@wal

das wäre möglich, prüfe ich.
Wer proggt sowas ? Tasmota ESP ist abhängig von Mqtt.
DPM und ESP sollten autark sein.
Das war schon im DTU Hoymiles Projekt so, ohne Mptt Verbindung lief da nix.

[Wal]

@ralla66 ,
das Skript geht auch ohne MQTT eben getestet.

[Wal]

@ralla66 ,
mir fäääällt noch was ein, tpow tvolt und tampere habe ich in das Skript eingefügt um das Teil von ioBroker zu bedienen.
Das Skript von Github hatte das nicht, das kannst du auch mal testen.

[Ralla66]

@wal

Volt und Ampere ist Regelbar.
Ist da was beim toggeln Ein / Aus im Script falsch ?
Das könnte erklären warum die set und dsip Werte nicht erscheinen,
wenn Var Ein / Aus immer 0 bleibt

[Wal]

@ralla66 ,
bei Power 0 bleiben nur die disp Werte auf 0, die set Werte ändern sich.

[Ralla66]

@wal

weiter kann ich nicht helfen,
ohne zu sehen was die Var ( glaube SW ist Ein / Aus ) macht.
Mehr Debug geht halt nicht.
Nachtrag
Vom Android Handy selbe Spiel, nur bei Ein kommt :
17:52:18.066 MQT: stat/tasmota_3CECBB/RESULT = {"tpow":1}
Bei Aus sollte was kommen, entweder tpow 1 oder tpow 0
Ist aber nicht so

[Wal]

@ralla66 ,
ich habe das AusgangsSkript getestet und da wird im Log nichts mehr angezeigt und das funktioniert auch.

Das Skript kannst du noch testen, es schaltet nur aus und ein.

>D
SW=0
rSW="01060002000"
vSW=""
>B
->sensor53 r
>W
bu(SW "DPM Ein" "DPM Aus")
>T
if ((chg[SW]>0)
then
  vSW=rSW+s(SW)
  sml(1 3 vSW)
endif
>M 1
+1,3,m,16,9600,DC,1,2,010300020001
1,010302SSssxxxx@i0:1,Ausgang (set),,sSwitch,0
#

[Ralla66]

@wal

Ein und Aus geht damit

[Wal]

@ralla66 ,
hmm gut und wie machen wir weiter ?
Eins nach dem anderen hinzufügen ?

>D
SW=0
rSW="01060002000"
vSW=""
>B
->sensor53 r
>W
bu(SW "DPM Ein" "DPM Aus")
>T
if ((chg[SW]>0)
then
  vSW=rSW+s(SW)
  sml(1 3 vSW)
endif
>M 1
+1,3,m,16,9600,DC,1,2,010300000001,010300010001,010300020001,010310010001,010310020001,010310030001
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
1,010302SSssxxxx@i5:1,Temp,°C,tCur,1
#

[Ralla66]

@wal

was passiert hier :
if ((chg[SW]>0)
wenn der Zustand des Web Gui Switch wechselt und >0 ist ?
Also Switch Web Gui muß 1 sein ?

Nachtrag 2 Script geht auch Es wird

[Wal]

@ralla66 ,
SW Groß geschrieben ist der Status des Buttons.

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

[Ralla66]

@wal

ja ok das then wird ausgeführt bei 1 und wenn Switch 0 ist ?

[Wal]

@ralla66 ,
SW nimmt den Buttonstatus an und

chg[SW] >0 heisst change[SW] wenn SW geändert wurde.

if ((chg[SW]>0)
then
  vSW=rSW+s(SW)
  sml(1 3 vSW)
endif

[Ralla66]

@wal

Script 2 schalten geht, Werte keine

19:10:26.697 MQT: tele/tasmota_3CECBB/SENSOR = {"Time":"2023-09-17T19:10:26","DC":{"sVolt":0.00,"sCur":0.00,"sSwitch":0,"dVolt":0.00,"vCur":0.00,"tCur":0.0}}

[Wal]

@ralla66 ,
da haben wir schon ein Problem.

[Ralla66]

@wal

sollten ankommen

[Wal]

@ralla66 ,
ja du hast Recht.
Das hier funktioniert also nicht, ist aber nur die Anzeige die macht aber programmtechnisch nichts.

>M 1
+1,3,m,16,9600,DC,1,2,010300000001,010300010001,010300020001,010310010001,010310020001,010310030001
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
1,010302SSssxxxx@i5:1,Temp,°C,tCur,1
#

[Ralla66]

@wal

dann was für später eben.
Ein / Aus und Vorgaben Volt und Ampere sollte min lauffähig sein.
Bin noch ne Stunde Online wenn du noch was testen möchtest.

Erst einmal Danke für die Mühe, Top

Ralla

[Wal]

@ralla66 ,
das Einzige wäre nur die Anzeige testen.

>D
>M 1
+1,3,m,16,9600,DC,1,2,010300000001,010300010001,010300020001,010310010001,010310020001,010310030001
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
1,010302SSssxxxx@i5:1,Temp,°C,tCur,1
#