BenzinpreisMonitor

[Puschel74]

Hallo,

@dieda
Danke für den Code aber den hatte ich ganz zu Anfang mal im Einsatz aber da mit fixen Werte für mich zu unflexibel.

@PeMue
Hab deinen Code auf Seite 11 gefunden - angepasst und eingefügt - danke dir.

Einwandfrei bis auf eine Kleinigkeit 
Im elsif-Teil für SuperE10 hast du auch die Readings für Diesel eingelesen (aber das ist ja mittlerweile kein Problem mehr für mich  ) und
du hast einen elsif-Teil für SuperE5 unterschlagen - aber das hab ich dann auch noch grad so hinbekommen 

Anbei mir für alle der neue Code-Teil:

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 = ("Gehring","Jet","Shell","Shell_Loe");
  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($_,"SuperE10",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"'; }
  }
  elsif ($READING eq "SuperE5")
  {
    foreach (@device_list)
    {
      $actprice2 = ReadingsVal($_,"SuperE5",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 -------------------------------------------------------------
Achtung: In Zeile 22

Code Auswählen Erweitern

my @device_list = ("Gehring","Jet","Jet_Loe","Shell","Shell_Loe");
müsst ihr Eure Tankstellen hartcodiert eintragen - das sollte aber das kleinere Problem sein 

@Phil__
Kannst du den Code evtl. bitte noch im ersten Beitrag ergänzen (dann brauchen andere nicht solange suchen  ) - Danke.

Das ganze sieht dann so aus wie im Screenshot.

Grüße

[PeMue]

Hallo Puschel,

ich vermute, dass ich das an dem Abend selber gefunden habe. Meine aktuelle Version ist noch ein bisschen einfacher:

Code Auswählen Erweitern

#------------------------------------------------------------------------------
# FuelFormat:
# sets the valueStyle of the fuel monitor:
# lowest value: green bold
# biggest value: red bold
# $DEVICE contains the station
# $READING contains the fuel type
# $VALUE contains the price
#
# calling in fhem:
# attr <name> valueStyle {FuelFormat($DEVICE,$READING,$VALUE)}
#
# version/programming:
# 0.3/Peter Mühlbeyer
#
# bugs/improvements:
#  - none found
#------------------------------------------------------------------------------
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;
  my $lowprice3 = 9;
  my $highprice3 = -9;
  my $actprice3;

  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"'; }
  }
  elsif ($READING eq "SuperE5")
  {
    foreach (@device_list)
    {
      $actprice3 = ReadingsVal($_,"SuperE5",99);
      #Log 3, "In Schleife SuperE5 $_: $actprice3";
      if ($actprice3 > $highprice3) { $highprice3 = $actprice3; }
      if ($actprice3 < $lowprice3) { $lowprice3 = $actprice3;}
    }
    #Log 3, "Nach Schleife SuperE5: $lowprice3 $highprice3";
    if ((ReadingsVal($DEVICE,"Super5",99) == $lowprice3)) { return 'style="color:lightgreen;;font-weight:bold"'; }
    elsif ((ReadingsVal($DEVICE,"SuperE5",99) == $highprice3)) { return 'style="color:red"'; }
    else { return 'style="color:yellow;;font-weight:bold"'; }
  }
}
#----- FuelFormat -------------------------------------------------------------
Ich suche erst den höchsten und den niedrigsten Preis. Wenn das Reading einem von beiden entspricht, dann wird es entprechend eingefärbt, ansonsten wird es gelb.

Gruß PeMue

Edit1: Das SuperE5 tanke ich nicht  aber mit ein bisschen kopieren funktioniert das schon.
Edit2: SuperE5 ist mit drin.

[dirk.msc]

Der Benzinpreismonitor ist echt Klasse! Leider fehlt die letzte Nachkommastelle. Ich habe den regulären Ausdruck zwar schon von
readingsRegex_SuperE5: <div class="fuel_type">Super E5[^0-9]+([0-9\.]+)
umgeändert in
readingsRegex_SuperE5: <div class="fuel_type">Super E5[^0-9]+([0-9\.]+)[^0-9\.]*([0-9])

Aber das Modul verwendet nur den ersten Klammerwert und die 3. Stelle vom Preis fehlt immer noch. Hat jemand eine Idee, wie man das lösen kann?

[Puschel74]

Hallo,

diesen Beitrag
http://forum.fhem.de/index.php/topic,22554.msg218095.html#msg218095
hast du vermutlich bei deiner Suche übersehen 

Grüße

[dirk.msc]

Danke, so geht's natürlich auch. Mich hätte es allerdings gereizt, den echten Wert mit einem angepassten Ausdruck auszulesen

[Starkstrombastler]

den echten Wert mit einem angepassten Ausdruck auszulesen

In den Rohdaten steht ein ganzes Stück weiter die Zahl Neun. Vielleicht kann jemand den Regex-Ausdruck erweitern, ich hab's nicht geschafft.

Zur Kontrolle brauchen wir dann noch eine Tanke, deren Preis nicht mit Komma-Neun endet.

[Rince]

Würdet ihr das in die Wiki schreiben, bitte?

[Bootscreen]

gibt es denn eine Möglichkeit die echte 0,009 auszulesen? Da ich bei mir einige Autogas Tankstellen drin hab welche glatte Cent Beträge haben wäre es einfacher als immer nachzuschauen bei welcher Tanke und welchem Sprit die 0,009 hinzuaddiert werden müssen.

[moonsorrox]

Oh was ist denn mit dem Spritpreis los, ich glaube ich muss "nachbessern" 

[Rince]

Oh was ist denn mit dem Spritpreis los, ich glaube ich muss "nachbessern"

Logisch. Du hast das Kleingedruckte nicht gelesen:

Bei Verwendung des Spritpreismonitors verpflichten Sie sich, 10 Cent / Liter für die Weiterentwicklung von fhem zu zahlen. Nach Erhalt Ihrer Zahlung erhalten Sie den Perl-Code, der den Spritpreis entsprechend um diese 10 Cent nach oben korrigiert

*duckundweg*

[mcbo]

@moonsorrox

Kannst Du mir bitte Deine tolles Zapfsäulen Icon zur Verfügung stellen?


Danke

Gruß

Marcel

[moonsorrox]

ja klar, gerne 

[mcbo]

Super, danke.

[cocojambo]

Betr.: die Kommastelle
Ich habe weiter vorne den Beitrag schon gelesen:

attr Aral readingsExpr_SuperE5 $val +0.009

bei mir sieht aber diese Zeile so aus:

attr Benzinpreis1 readingsRegex_Diesel <div class="fuel_type">Diesel[^0-9]+([0-9\.]+)

Habe schon vieles probiert irgendwo in diese Zeile die 0.009 zu addieren. Kriege es aber nicht hin. Weiß jemand an welcher Stelle und wie ich das ändern muß?
Viele Dank
Norbert aus Köln

[Puschel74]

Hallo,

einfach als neues Reading Attribut anlegen.
siehe Screenshot.

Grüße

Edith: Reading ist natürlich falsch - sollte auch Attribut heissen.