BenzinpreisMonitor

[Puschel74]

Hallo,

ich frage die Tankstellen alle 1800 Sekunden ab.
Auch wenn ich die zeitliche Auflösung auf "nur" 7 Tage stelle ändert sich nicht viel an den Sprüngen 

Grüße

[PeMue]

Sorry aber anders hab ich das noch nicht geschafft - für Perl hab ich zur Zeit leider zuwenig Zeit 
Ich denke mal das sich das auch auf einen einfacheren Nenner bringen lässt.

Hallo Puschel,

ich hab mal etwas programmiert, siehe hier:

Code Auswählen Erweitern

#------------------------------------------------------------------------------
# FuelFormat:
# sets the valueStyle of the fuel monitor:
# lowest value: green bold
# biggest value: red bold
# $DEVICE contains the station
# $REDING contains the fuel type
# $VALUE contains the price
#
# calling in fhem:
# attr <name> valueStyle {FuelFormat($DEVICE,$READING,$VALUE)}
#
# version/programming:
# 0.1/Peter Mühlbeyer
#
# bugs/improvements:
#  - in case of same max. or min. values only one value will be marked
#------------------------------------------------------------------------------
sub FuelFormat($$$)
{
  my ($DEVICE, $READING, $VALUE) = @_;
  my @device_list = ("SpritSpathelf","SpritHagelauer","SpritShellIlsfeld","SpritAralIlsfeld","SpritRANDitzingen","SpritRANWeilimdorf");
  my $lowprice1 = 99; my $lowdevice1;
  my $highprice1 = -99; my $highdevice1;
  my $actprice1;
  my $lowprice2 = 99; my $lowdevice2;
  my $highprice2 = -99; my $highdevice2;
  my $actprice2;

  if ($READING eq "Diesel")
  {
    foreach (@device_list)
    {
      $actprice1 = ReadingsVal($_,"Diesel",99);
      #Log 3, "Schleife: $_ $actprice1";
      if ($actprice1 > $highprice1)
      {
        $highprice1 = $actprice1;
        $highdevice1 = $_;
      }
      elsif ($actprice1 < $lowprice1)
      {
        $lowprice1 = $actprice1;
        $lowdevice1 = $_;
      }
    }
    if ($DEVICE eq $lowdevice1) { return 'style="color:lightgreen;;font-weight:bold"'; }
    elsif ($DEVICE eq $highdevice1) { return 'style="color:red"'; }
    else { return 'style="color:yellow;;font-weight:bold"'; }
  }
  elsif ($READING eq "SuperE10")
  {
    foreach (@device_list)
    {
      $actprice2 = ReadingsVal($_,"Diesel",99);
      if ($actprice2 > $highprice2)
      {
        $highprice2 = $actprice2;
        $highdevice2 = $_;
      }
      elsif ($actprice2 < $lowprice2)
      {
        $lowprice2 = $actprice2;
        $lowdevice2 = $_;
      }
    }
    if ($DEVICE eq $lowdevice2) { return 'style="color:lightgreen;;font-weight:bold"'; }
    elsif ($DEVICE eq $highdevice2) { return 'style="color:red"'; }
    else { return 'style="color:yellow;;font-weight:bold"'; }
  }
}
#----- FuelFormat -------------------------------------------------------------
Grundidee ist es, den Array der Tankstellen (sind vermutlich mehr, als die Spritsorten) abzugrasen und dann den teuersten und den billigsten rauszusuchen. Einen Nachteil hat das Ding: Bei Preisgleichheit wird der vorletzte, der abgefragt wird, gelb. Ist aber m.E. vom Core her etwas übersichtlicher als Deins. 

Gibt es eigentlich auch orange? In der Standardansicht ist gelb extrem schlecht lesbar ...

Gruß PeMue

Edit:
Ups, so ganz perfekt ist das noch nicht ...
(http://forum.fhem.de/index.php?action=dlattach;topic=22554.0;attach=18382;image)

[stenny73]

Hallo

Ich mal wieder mit einem alten Problem....

Da mein Server mit FHEM usw. mit akuter Altersschwäche in Rente gejagt wurde und nun alles wieder
zufriedenstellend läuft bin ich wieder bei meinem letzten Problem mit der Meldung bei Preisänderung
angekommen.....

Derzeit ist.....

Neues Ubuntu - aktuell
Neues FHEM aktuell

Alle Konfigs in extra Dateien
Mail, Asterisk Meldungen alles i.O.

Es werden 3 Tankstellen abgefragt.
Über userReading wird die Diverenz ermittelt (DEF)

Code Auswählen Erweitern

Div_Diesel difference {ReadingsVal("Preismonitor_bft_B10","Diesel","0")}, Div_SuperE10 difference {ReadingsVal("Preismonitor_bft_B10","SuperE10","0")}

Bei Wert "0" soll keine Meldung erfolgen - Bei Abweichung vorerst eine Mail.

Aus der Batterieüberwachung habe ich

Code Auswählen Erweitern

Preismonitor*.*:Div*.* {if("%" !~ m/ok/){
DebianMail('werauchimmer@@googlemail.com','FHEM Preisänderung')};
}
übernommen - hier kommt bei jedem Wert Logischerweise eine Mail

also

Code Auswählen Erweitern

Preismonitor*.*:Div*.* {if("%" !~ m/0/){
DebianMail('werauchimmer@@googlemail.com','FHEM Preisänderung')};
}
Und es kommt nie eine Mail - mit oder Ohne Preisänderung.....

Einträge im Log gibt es hierzu auch nicht

Wer kann Helfen.....




stenny

[PeMue]

Hallo stenny,

ich musste mich auch erst einlesen, aber mit

Code Auswählen Erweitern

attr <device> <name> diff_Diesel difference { ReadingsVal("Preismonitor_bft_B10","Diesel","0") }
müsste eigentlich immer, wenn ein neues Reading <name> eingeht, die Differenz berechnet werden.
Was sagt denn der Event-Monitor? Einfach mal etwas warten und nach diff_Diesel suchen.
Wenn da nichts kommt, versagt auch Dein notify.

Gruß PeMue

Edit:
Beim PCA301 geht es bei mir mit:

Code Auswählen Erweitern

attr PCA301_055708 userReadings power_diff difference {ReadingsVal($name,'power',0)}

[stenny73]

Die Differenz habe ich ja sauber, nur das notify macht halt nicht das was es soll.....

[Puschel74]

Hallo,

versuchs mal so:

Code Auswählen Erweitern

Preismonitor.*:Div.* {if("%" !~ m/0/){

*.* macht mAn keinen Sinn
.* deckt ja schon so gut wie alles ab
Ob du im if mit !~ m/0/ glücklich wirst - keine Ahnung
Lass es doch mal weg und schau erstmal das das regexp des notify nur auf die Differenz triggert.

Alles nur geraten und ohne wissen warum 

Grüße

[Puschel74]

Hallo,

@PeMue
Übersichtlicher ist dein Code bestimmt - ich frag aber nur 2 Tankstellen ab und vergleiche von diesen beiden die Preise.
Und bei mir wird auch richtig eingefärbt 

Ich habe auch schon mit einem Array versucht aber bin dann wie die Kuh vor dem Tor gestanden wenn es blitzt.
Evtl. hab ich heute mal etwas Zeit dann werd ich mal schauen inwieweit ich deine Lösung mit meiner verschmelzen kann (und ob das überhaupt Sinn macht).

Grüße

[PeMue]

@PeMue
... Und bei mir wird auch richtig eingefärbt

Versuch's mal damit:

Code Auswählen Erweitern

#------------------------------------------------------------------------------
# FuelFormat:
# sets the valueStyle of the fuel monitor:
# lowest value: green bold
# biggest value: red bold
# $DEVICE contains the station
# $REDING contains the fuel type
# $VALUE contains the price
#
# calling in fhem:
# attr <name> valueStyle {FuelFormat($DEVICE,$READING,$VALUE)}
#
# version/programming:
# 0.2/Peter Mühlbeyer
#
# bugs/improvements:
#  - none found but Puschel will do
#------------------------------------------------------------------------------
sub FuelFormat($$$)
{
  my ($DEVICE, $READING, $VALUE) = @_;
  my @device_list = ("SpritSpathelf","SpritHagelauer","SpritShellIlsfeld","SpritAralIlsfeld","SpritRANDitzingen","SpritRANWeilimdorf");
  my $lowprice1 = 9;
  my $highprice1 = -9;
  my $actprice1;
  my $lowprice2 = 9;
  my $highprice2 = -9;
  my $actprice2;

  if ($READING eq "Diesel")
  {
    foreach (@device_list)
    {
      $actprice1 = ReadingsVal($_,"Diesel",99);
      #Log 3, "In Schleife Diesel $_: $actprice1";
      if ($actprice1 > $highprice1) { $highprice1 = $actprice1; }
      if ($actprice1 < $lowprice1) { $lowprice1 = $actprice1;}
    }
    #Log 3, "Nach Schleife Diesel: $lowprice1 $highprice1";
    if ((ReadingsVal($DEVICE,"Diesel",99) == $lowprice1)) { return 'style="color:lightgreen;;font-weight:bold"'; }
    elsif ((ReadingsVal($DEVICE,"Diesel",99) == $highprice1)) { return 'style="color:red"'; }
    else { return 'style="color:yellow;;font-weight:bold"'; }
  }
  elsif ($READING eq "SuperE10")
  {
    foreach (@device_list)
    {
      $actprice2 = ReadingsVal($_,"SuperE10",99);
      #Log 3, "In Schleife SuperE10 $_: $actprice2";
      if ($actprice2 > $highprice2) { $highprice2 = $actprice2; }
      if ($actprice2 < $lowprice2) { $lowprice2 = $actprice2;}
    }
    #Log 3, "Nach Schleife SuperE10: $lowprice2 $highprice2";
    if ((ReadingsVal($DEVICE,"SuperE10",99) == $lowprice2)) { return 'style="color:lightgreen;;font-weight:bold"'; }
    elsif ((ReadingsVal($DEVICE,"SuperE10",99) == $highprice2)) { return 'style="color:red"'; }
    else { return 'style="color:yellow;;font-weight:bold"'; }
  }
}
#----- FuelFormat -------------------------------------------------------------
Das tut bei mir.
(http://forum.fhem.de/index.php?action=dlattach;topic=22554.0;attach=18384;image)
Grundidee: Ein Array für die Tankstellen und eine if Bedinung für jede Spritsorte (ich gehe mal davon aus, dass die Zahl der Tankstellen höher ist als die Anzahl der Spritsorten). Der Array wird einmal komplett durchgesucht und danach wird das Format zurückgegeben. Geht jetzt auch für gleiche Preise  *coolzurücklehn*
Warum das if / elsif Konstrukt vorher nicht funktioniert hat, weiß ich nicht.

Gruß und schönen Sonntag.

PeMue

[stenny73]

@Puschel74


Keine Änderung durch deinen Vorschlag.

Da mein Part aus der Batterieüberwachung abgeleitet ist habe ich das gefühl das das wohl vielleicht nur auf Text greift?!?!?!? Es geht ja schließlich wenn ich "ok" statt "0" darin habe.


stenny

[no_Legend]

Hi Leute,

kann vielleicht einer kurz ne Anleitung machen, wie man das ganze bei Sich einbaut?

Danke und Gruß Robert

[Puschel74]

Hallo,

Hi Leute,

kann vielleicht einer kurz ne Anleitung machen, wie man das ganze bei Sich einbaut?

Danke und Gruß Robert

Ab hier http://forum.fhem.de/index.php/topic,22554.msg184354.html#msg184354
sollte es losgehen.

Oder auch hier:
http://forum.fhem.de/index.php/topic,22554.msg184523.html#msg184523

Grüße

[moonsorrox]

uuh jetzt wirds hier wieder interessant... Das ist eine tolle Idee, mit der Anzeige für Hoch und niedrig.
Der Code von PeMue steht wohl in der 99_myUtils und der damals erarbeitet wurde, muss dann raus..?

Ich habe ja noch diesen hier drin, den hatten damals alle zusammen erstellt als es anfing mit dem Benzinpreismonitor... (ich eher nicht  )

Code Auswählen Erweitern

sub Werte($$) {
  my ($name, $wert) = @_;
# Log(3,"$name $wert");
  if ($name eq "Diesel") {
    return 'style="color:crimson"' if($wert >= 1.39);
    return 'style="color:yellow"' if(($wert >= 1.30) && ($wert < 1.39));
    return 'style="color:lightgreen;;font-weight:bold"' if($wert < 1.30);
  }elsif ($name eq "SuperE10") {
    return 'style="color:crimson"' if($wert >= 1.70);
    return 'style="color:yellow"' if(($wert >= 1.55) && ($wert < 1.70));
    return 'style="color:lightgreen;;font-weight:bold"' if($wert < 1.55);
  }elsif ($name eq "SuperE5") {
    return 'style="color:crimson"' if($wert >= 1.59);
    return 'style="color:yellow"' if(($wert >= 1.50) && ($wert < 1.59));
    return 'style="color:lightgreen;;font-weight:bold"' if($wert < 1.50);
  } 
}

[stenny73]

Hallo

Auch mein Problem habe ich scheinbar - warte noch auf reguläre Änderung - am laufen.

Code Auswählen Erweitern

define Preismonitor_Nachricht notify Preismonitor_.*:Div_.* { if($EVENT !~ m/0$/mi) {DebianMail('werauchimmer@@googlemail.com', 'FHEM Preisänderung', 'FHEM Preisänderung')}}

Wenn ich jetzt mit

Code Auswählen Erweitern

trigger Preismonitor_Jet Div_Diesel:0.01
absetze kommt eine Mail.

stenny

[PeMue]

Der Code von PeMue steht wohl in der 99_myUtils und der damals erarbeitet wurde, muss dann raus..?

Warum denn? Meine Funktion heißt doch ganz anders. Einfach den anderen Aufruf nehmen und freuen ...

Gruß und schönen Sonntag.

PeMue

[no_Legend]

Liest einer bei Shell "Shell V-Power Racing" aus?
Bekomme es nicht ausgelesen.

Edit: Hab's hin bekommen