gelöst: JSON zu MQTT Device senden aus Fhem

[matze1999]

Sehr schön, das passt, wenn man es so macht, kann man auch die Schriftfarbe ändern, ich denke aber, dass kann man auch anders machen ich hab die hex Farbe jetzt als String drin:

Code Auswählen Erweitern

sub PixelItText {
    my $text = shift;
    my $farbe = shift;
    fhem( qq(set myBroker publish House/PixelIt/setScreen {"text":
{"textString":"$text","scrollText":"auto","bigFont":false,"centerText":false,"scrollTextDelay":40,"hexColor":"#$farbe","position":{"x":0,"y":1}}}))
}
ausgeführt wird damit der Text in rot, z.B.:

Code Auswählen Erweitern

{PixelItText ("Mein Text","FF0000")}
matze1999

[Beta-User]

Grundsätzlich finde ich es ja begrüßenswert, wenn ihr ohne prototypes arbeitet. Bitte aber daran denken, dass man dann trotzdem eine (andere) "Sicherung" braucht:

Code Auswählen Erweitern

sub PixelItText {
    my $text = shift // q{Kein Text!!!};
    my $farbe = shift // 'FF0000';
Und "Quotes in Perl" unbedingt suchen und lesen!

[matze1999]

Danke, was mich noch interessieren würde, wie kann man solch eine Routine für mehrere dieser Devices (Pixelit MQTT) erstellen, dazu müsste man sicher das topic mit übergeben:

Code Auswählen Erweitern

House/PixelIt
bekommt man das dann auch irgendwie in diese Art Devices, so dass das dann für "set" zur Verfügung steht?

matze1999

[Beta-User]

Klar geht das mit MQTT2_DEVICE, hatte ich ja ganz zu Beginn schon geschrieben.
 
Entweder du übergibst den Topic mit in die Routine (als weiteres Argument), und setzt dann aus der Routine den Publish-Befehl ab (dazu muss man aber das IO kennen!), oder du nutzt halt die Funktionalitäten von MQTT2_DEVICE-setList und machst eine concatenation aus dem Topic-String und der Rückgabe welcher Routine auch immer.... Hauptsache es kommt am Ende topic+payload raus, dann versendet das MQTT2_DEVICE über "sein" IO.

[matze1999]

.... du nutzt halt die Funktionalitäten von MQTT2_DEVICE-setList und machst eine concatenation aus dem Topic-String und der Rückgabe welcher Routine auch immer.... Hauptsache es kommt am Ende topic+payload raus, dann versendet das MQTT2_DEVICE über "sein" IO.

da komme ich nicht ganz mit, aber Danke.

Ich versuche erst mal einfache Dinge, wie z-.B. readings eines anderen Devices anzuzeigen, geht aber nicht:

Code Auswählen Erweitern

{PixelItText ("MQTT2_DVES_6CA8FD:Global_Temperature °C")}
matze1999

[Beta-User]

Du MUSST dich mit der Syntax beschäftigen, dauerhaft hat vermutlich keiner Lust, dir ständig auf's Pferd zu helfen, ich jedenfalls nicht.

ReadingsVal() (commandref Perl-Specials) und "concatenation" (allg. Perl-Wissen) sind deine Freunde.

[Otto123]

Anstatt Deines ersten Textes kannst Du sowas einsetzen:

Code Auswählen Erweitern

ReadingsVal("MQTT2_DVES_6CA8FD","Global_Temperature","Meintext")Probiere es am Besten in der FHEM Kommandozeile:
Die einfachste Perlfunktion, genau genommen bloß ein String:

Code Auswählen Erweitern

{"Mein Text"}Einen String aus einem Reading lesen

Code Auswählen Erweitern

{ReadingsVal("MQTT2_DVES_6CA8FD","Global_Temperature","Meintext")}

[matze1999]

Du MUSST dich mit der Syntax beschäftigen, dauerhaft hat vermutlich keiner Lust, dir ständig auf's Pferd zu helfen, ich jedenfalls nicht.

ReadingsVal() (commandref Perl-Specials) und "concatenation" (allg. Perl-Wissen) sind deine Freunde.

hab verstanden, trotzdem Danke.

matze1999

[matze1999]

Probiere es am Besten in der FHEM Kommandozeile:
Die einfachste Perlfunktion, genau genommen bloß ein String:

Code Auswählen Erweitern

{"Mein Text"}Einen String aus einem Reading lesen

Code Auswählen Erweitern

{ReadingsVal("MQTT2_DVES_6CA8FD","Global_Temperature","Meintext")}

Danke, mache ich, muss nur die richtige Syntax finden mit den " in der Sub.

matze1999

[matze1999]

Hallo,

jetzt passt es:

Code Auswählen Erweitern

sub PixelItText {
    my $text = shift // q{Kein Text!!!};
    my $farbe = shift // 'FFFFFF';
    fhem( qq(set myBroker publish House/PixelIt/setScreen {"text":
{"textString":"$text","scrollText":"auto","bigFont":false,"centerText":false,"scrollTextDelay":40,"hexColor":"#$farbe","position":{"x":0,"y":1}}}))
}

sub PixelItTemp {
    my $farbe = shift // 'FFFFFF';
    my $temp = ReadingsVal("MQTT2_DVES_6CA8FD","Global_Temperature",0)."°C";
fhem( qq(set myBroker publish House/PixelIt/setScreen {"text":
{"textString":"$temp","scrollText":"auto","bigFont":false,"centerText":true,"scrollTextDelay":40,"hexColor":"#$farbe","position":{"x":0,"y":1}}}))
}
Danke noch mal an alle.

matze1999

[Otto123]

Nö  keine zweite Sub sondern der Aufruf so - vor allem wenn die Temperatur wirklich eine Zahl ist.

Code Auswählen Erweitern

{PixelItText (ReadingsNum("MQTT2_DVES_6CA8FD","Global_Temperature",0)."°C",'AFFECC')}

[matze1999]

hi Otto123,

ja so geht das auch

jetzt bräuchte ich noch einen schubs in die richtige richtung: diese Uhr zeigt uhrzeit und Datum im Wechsel an, wenn ich sie anschalte bzw. set clock (s.o.) beschicke. Ich würde gern die Temperatur jetzt als dritte info einblenden, also

Datum (5s)
Uhrzeit (5s)
Temperatur

Das bedeutet, ich müsste die Temperatur für 5s anzeigen, dann eine set clock ausführen und nach 10 s wieder die Temperatur anzeigen. Ich hab keine richtige Idee, ich hatte schon überlegt, das mit at zu machen: at Temperatur anzeigen, nach 5 s wieder at set clock und dann nach 10 s wieder at Temperatur anzeigen. aber dafür fehlt mir irgendwie die syntax.

aber so richtig "fühlt" sich das nicht an.

matze1999

[Otto123]

Also nur aus der commandref und vom Prinzip her

Code Auswählen Erweitern

define a4 at *00:00:10 set temp on ;; sleep 5 ;; set clock on 

[matze1999]

Hallo Otto,

danke, so funktionierts relativ alle 10 s (+*):

Code Auswählen Erweitern

defmod a4 at +*00:00:10 {PixelItTemp ("FF0000")} ;; sleep 5 ;; set MQTT2_PixelIt clock
Danke,

matze1999

[matze1999]

noch was: Temperaturanzeige noch farblich angepasst

Code Auswählen Erweitern

sub PixelItTemp {
    my $temp = ReadingsVal("MQTT2_DVES_6CA8FD","Global_Temperature",0)."°C";
# kalt = blau
if (ReadingsVal("MQTT2_DVES_6CA8FD","Global_Temperature",0) < 10)
{fhem( qq(set myBroker publish House/PixelIt/setScreen {"text":
{"textString":"$temp","scrollText":"auto","bigFont":false,"centerText":true,"scrollTextDelay":40,"hexColor":"0000FF","position":{"x":0,"y":1}}}))}
# warm = gelb
elsif ((ReadingsVal("MQTT2_DVES_6CA8FD","Global_Temperature",0) >= 10) && (ReadingsVal("MQTT2_DVES_6CA8FD","Global_Temperature",0) <= 20))
{fhem( qq(set myBroker publish House/PixelIt/setScreen {"text":
{"textString":"$temp","scrollText":"auto","bigFont":false,"centerText":true,"scrollTextDelay":40,"hexColor":"FFFF00","position":{"x":0,"y":1}}}))}
# heiss = rot
elsif (ReadingsVal("MQTT2_DVES_6CA8FD","Global_Temperature",0) > 20)   
{fhem( qq(set myBroker publish House/PixelIt/setScreen {"text":
{"textString":"$temp","scrollText":"auto","bigFont":false,"centerText":true,"scrollTextDelay":40,"hexColor":"FF0000","position":{"x":0,"y":1}}}))}
}
matze1999