[Gelöst] Günstigsten Tankpreis anzeigen

[holzfelix]

Hi Zusammen,

ich lass mir 4 Tankstellen im Umkreis anzeigen.
Was ich jetzt gerne hätte wäre eine Auswertung welche der 4 Tankstellen denn aktuell die günstigste ist,
diese würde ich dann auch gerne in FTUI anzeigen.

Hat jemand ne Idee für mich?

Danke

[MadMax-FHEM]

Es gibt ein Modul: https://wiki.fhem.de/wiki/Spritpreismonitor

Und Beiträge: https://forum.fhem.de/index.php?topic=22554.0

Ob das passt musst du feststellen und ob da was mit Tablet-UI geht auch

EDIT: und ob du das schon verwendest weiß ich nicht...

Gruß, Joachim

[TomLee]

Hi,

möglicherweise kannst du das mit minNum() umsetzen.

http://fhem.de/commandref_DE.html#Utils

Gruß

Thomas

[holzfelix]

Es gibt ein Modul: https://wiki.fhem.de/wiki/Spritpreismonitor

Und Beiträge: https://forum.fhem.de/index.php?topic=22554.0

Ob das passt musst du feststellen und ob da was mit Tablet-UI geht auch

EDIT: und ob du das schon verwendest weiß ich nicht...

Gruß, Joachim

Ja das nutz ich um die 4 Tankstellen ab zu fragen aber vergleichen kann das nicht oder?

Gesendet von meinem ONEPLUS A5000 mit Tapatalk

[holzfelix]

Hi,

möglicherweise kannst du das mit minNum() umsetzen.

http://fhem.de/commandref_DE.html#Utils

Gruß

Thomas

MinNum sieht interessant aus, nur wie bekommt min num die Werte von den tanken?

Gesendet von meinem ONEPLUS A5000 mit Tapatalk

[MadMax-FHEM]

Die Werte der jeweiligen Tanken per ReadingsVal z.B.

Allerdings fraglich wie du dann nach dem Vergleich wieder zurück zur Tanke mit dem niedrigsten Preis kommst...

Evtl. selber in einer Sub in myUtils sortieren/vergleichen...

Kurz da nur Handy...

Gruß, Joachim

[TomLee]

Hi nochmal,

hat mich jetzt auch interessiert und so würd ich's angehen:

In die 99_myUtils.pm kommt folgendes:

Code Auswählen Erweitern

sub gtanke()
{
my $A = (ReadingsNum("Aral","SuperE5",'0'));
my $G = (ReadingsNum("Globus","SuperE5",'0'));
my $R = (ReadingsNum("Real","SuperE5",'0'));
my $J = (ReadingsNum("Jet","SuperE5",'0'));

my $gtanke = minNum($A,$G,$R,$J);
fhem ("setreading du_Test gtanke $gtanke")
}

Und mit einem at bspw. alle 10 Minuten die sub aufrufen:

Code Auswählen Erweitern

define at_gtanke at +*00:10:00 { gtanke() }

Hab ich mir mit meinem Halbwissen zusammengeschustert und nur kurz getestet daher mit Vorsicht zu genießen.

Gruß

Thomas

[holzfelix]

danke das wäre cool

wo wird das denn ausgegeben?

[Fixel2012]

danke das wäre cool

wo wird das denn ausgegeben?

Du kannst es in irgendein Device schreiben und dir den Reading namen aussuchen.

Das macht diese Zeile:

Code Auswählen Erweitern

fhem ("setreading <Device> <Reading> <Deine Variable aus der Sub um den Wert in das Reading zu schreiben>")

In dem Fall ist die Variable $gtanke

[TomLee]

Hier im Beispiel testweise in dem Reading gtanke des Dummy du_test.

Code Auswählen Erweitern

fhem ("setreading du_Test gtanke $gtanke")

Wohin du das setreading schreibst, bleibt aber dir überlassen.
Wenn du auch die Spritpreisübersicht (readingsgroup) angelegt hast, denk ich, passt das dort gut.

Gruß

Thomas

[TomLee]

An meinem gezeigten Beispiel würd ich gerne Wissen weshalb der Code nicht direkt aus dem at funktioniert ?

So in der Art:

Code Auswählen Erweitern

define at_gtanke at +*00:10:00 {
my $A = (ReadingsNum("Aral","SuperE5",'0'));
my $G = (ReadingsNum("Globus","SuperE5",'0'));
my $R = (ReadingsNum("Real","SuperE5",'0'));
my $J = (ReadingsNum("Jet","SuperE5",'0'));

my $gtanke = minNum($A,$G,$R,$J);
fhem ("setreading du_Test gtanke $gtanke")
}

Das sollte doch eigentlich auch gehen ?
Kann jemand mit etwas Erfahrung in Perl dazu was sagen ?

Gruß

Thomas

[holzfelix]

jetzt funzt ... tippfehler

Aber das gibt ja nur den billigsten Preis zurück oder? Besser wäre ja wenn es den Name der Tanke zurück gibt oder? Geht das auch?

[MadMax-FHEM]

Das ist mir bereits zu Beginn aufgefallen: https://forum.fhem.de/index.php/topic,84577.msg768967.html#msg768967

Evtl. durch Rückwärtsvergleich, also welche Tanke diesen günstigsten Preis hat...

Oder die ganzen Preise in ein Array und dann den Index zum günstigsten Preis merken beim Vergleich...

Kurz, da wieder nur Handy...

Gruß, Joachim

[holzfelix]

oh das hab ich überlesen

kann ich da in der myUtils.pm normal mit pearl programmieren gibt es einschränkungen?

[MadMax-FHEM]

Ja, perl.

Einschränkungen kenne ich bislang keine bzw. was ich machen wollte scheiterte nicht an Einschränkungen...

Allerdings: keine Schleifen etc. die lange laufen, da solange die Funktion/Sub ausgeführt wird eben fhem blockiert...

Das wäre so die einzige Einschränkung die mir jetzt so einfällt...

Wenn du fhem-Befehle absetzen willst, dann halt so:

Code Auswählen Erweitern

fhem("Fhembefel")

Beispiel:

Code Auswählen Erweitern

fhem("set Licht on")

Gruß, Joachim