Von allen Thermostaten die R-valveMaxPos

[jostmario]

Hallo,

würde gerne meinen Hydraulichen abgleich über die Thermostate machen.
ist es möglich sich von allen Heizkörperthermostaten das reading R-valveMaxPos  in einer art Liste darstellen zu lasssen ?

Gruß Josty

[marvin78]

Code Auswählen Erweitern

list .* R-valveMaxPos

Das müsste das sein, was du suchst.

[jostmario]

Hallo marvin,

perfekt Danke.

Gruß Josty

[rudolfkoenig]

Oder readingsGroup

[jostmario]

Hallo

was meinst du mit readingsGroup ?

Gruß Josty

[justme1968]

siehe commandref oder hier: http://www.fhemwiki.de/wiki/ReadingsGroup

gruss
  andre

[P.A.Trick]

Hier mal mein Auszug aus der fhem.cfg und ein Screenshot!

Code Auswählen Erweitern

#########################################################################
# Heizung Dashboard
#########################################################################

define Heizungswerte readingsGroup <%sani_heating>,<Ventil>,<Soll>,<Ist>,<MaxV>,<GID>,<Mode>,<Batterie> type=HeatingThermostat:valveposition,desiredTemperature,temperature,maxValveSetting,groupid,mode,battery
attr Heizungswerte group Heizung
attr Heizungswerte mapping %ROOM
attr Heizungswerte nameStyle style='color:yellow;;font-size:8pt;;font-weight:bold;;'
attr Heizungswerte room _House
attr Heizungswerte valueFormat {temperature => "%.0f °C", desiredTemperature => "%.0f °C", valveposition =>"%.0f %%",maxValveSetting =>"%.0f %%" }
attr Heizungswerte valueIcon {'battery.ok' => 'batterie@lightgreen', 'battery.low' => 'batterie@red'}
attr Heizungswerte valueStyle { if($READING eq "temperature" && $VALUE > 20){ 'style="color:green;;font-weight:bold"' }elsif( $READING eq "temperature" && $VALUE <= 20 ){ 'style="color:blue"' }elsif( $READING eq "temperature" && $VALUE > 23 ){ 'style="color:red"' }else{ 'style="color:gray"' } }
attr Heizungswerte verbose 3

[justme1968]

wie wäre es das gleich ins wiki zu stellen

[P.A.Trick]

Gleich nicht, aber morgen - ok?

[justme1968]

na klar. auch wenn noch ne ganze stunde zeit ist bis morgen

[Puschel74]

Hallo,

@ P.A.Trick
Danke schonmal für den Code.
Ich hab ihn gleich mal ein bischen angepasst für meine FHT - soweit klappt auch alles.

Könntest du bitte auch mal einen Screenshot von einem deiner Heizungsregler posten?
Speziell die Readings wie du sie in deiner ReadingsGroup verwendest.

Grüße

[jostmario]

Hallo P.A.Trick

kannst du mir sagen was ich umbauen muss das es mit meinen Homematic Thermostaten funktioniert.
hab es so wie du eingebaut, er füllt es aber noch nicht mit Werten.

Gruß Josty

[Puschel74]

Hallo,

ich vermute (da du deinen Code nicht postest) das du hier

type=HeatingThermostat

ansetzen musst.

Meine FHT habe ich mit einem

Code Auswählen Erweitern

TYPE=FHT:
zur Mitarbeit bewegen können.
Natürlich musst du auch die restlichen Readings noch anpassen 

Für meine FHT sieht das dann so aus wie im Screenhsot.

Grüße

Edith: Im Wiki hat es aber auch jede Menge Beispiele zu ReadingsGroup 
http://www.fhemwiki.de/wiki/ReadingsGroup

[coolice]

Würde das ganze auch für meine HM-CC-RT-DN verwenden.

Habe das ganze so geändert

Code Auswählen Erweitern


#########################################################################
# Heizung Dashboard
#########################################################################

define Heizungswerte readingsGroup <%sani_heating>,<Ventil>,<Soll>,<Ist>,<MaxV>,<GID>,<Mode>,<Batterie> type=CUL_HM:ValvePosition,desired-tempe,measured-temp,R-valveMaxPos,groupid,mode,battery
attr Heizungswerte mapping %ROOM
attr Heizungswerte nameStyle style='color:yellow;;font-size:8pt;;font-weight:bold;;'
attr Heizungswerte room Heizung
attr Heizungswerte valueFormat {temperature => "%.0f °C", desiredTemperature => "%.0f °C", valveposition =>"%.0f %%",maxValveSetting =>"%.0f %%" }
attr Heizungswerte valueIcon {'battery.ok' => 'batterie@lightgreen', 'battery.low' => 'batterie@red'}
attr Heizungswerte valueStyle { if($READING eq "temperature" && $VALUE > 20){ 'style="color:green;;font-weight:bold"' }elsif( $READING eq "temperature" && $VALUE <= 20 ){ 'style="color:blue"' }elsif( $READING eq "temperature" && $VALUE > 23 ){ 'style="color:red"' }else{ 'style="color:gray"' } }
attr Heizungswerte verbose 3
Leider bleibt die Readingsgroup wie im Screenshot zu sehen.
Sind die Readings nicht richtig?

Mirco

[jostmario]

Hallo,

es ist bei mir auch  noch nicht ganz zufriedenstellend, aber ich habe es so und es zeigt zumindet einmal ein paar werte an.

define Heizungswerte readingsGroup <%sani_heating>,<Valve>,<Soll>,<Ist>,<MaxV>,<>,<> Heizung_.*:ValvePosition,desired-temp,measured-temp,R-valveMaxPos,<{myUtils_HeizungUpDown($DEVICE,"up")}@desired-temp>,desired-new,<{myUtils_HeizungUpDown($DEVICE,"down")}@desired-temp>,window,battery
attr Heizungswerte group Heizung
attr Heizungswerte nameStyle style='color:yellow;;font-size:8pt;;font-weight:bold;;'
attr Heizungswerte room A_Heizungssystem
attr Heizungswerte valueFormat {temperature => "%.0f °C", desired-temp => "%.0f °C", valveMaxPos =>"%.0f %%",maxValveSetting =>"%.0f %%" }
attr Heizungswerte valueIcon {'battery.ok' => 'batterie@lightgreen', 'battery.low' => 'batterie@red', 'window.closed' => 'fts_window_1w@lightgreen', 'window.open' => 'fts_window_1w_open@red'}
attr Heizungswerte valueStyle {($VALUE eq "00")?'style="visibility:hidden"':}
define notifyHeizungUpDown notify .*:desired-new.* { myUtils_HeizungUpDownNotify($NAME,$EVTPART1);; }

meine 99_myUtils.com sieht dann so aus

package main;
use strict;
use warnings;
use POSIX;
sub
myUtils_Initialize($$)
{
my ($hash) = @_;
}
######## DebianMail  Mail auf dem RPi versenden ############
sub
DebianMail
{
my $rcpt = shift;
my $subject = shift;
my $text = shift;
my $ret = "";
my $sender = "xxx\@gmx.de";
my $konto = "xxx\@gmx.de";
my $passwrd = "xxx";
my $provider = "smtp.gmx.de";
Log 1, "sendEmail RCP: $rcpt";
Log 1, "sendEmail Subject: $subject";
Log 1, "sendEmail Text: $text";

$ret .= qx(sendEmail -f '$sender' -t '$rcpt' -u '$subject' -m '$text' -s '$provider' -xu '$konto' -xp '$passwrd' -o tls=auto);
$ret =~ s,[\r\n]*,,g;    # remove CR from return-string
Log 1, "sendEmail returned: $ret";
}





#Heizung regeln in readingsGroup
sub
myUtils_HeizungUpDown($$)
{
  my($DEVICE,$CMD) = @_;

  my $icon = $CMD;
  my $VALUE = ReadingsVal($DEVICE,"desired-new","20" );
  $VALUE = ReadingsVal($DEVICE,"desired-temp","20" )
     if( !$VALUE || $VALUE == 0 );
  my $link;

  if( $CMD eq "up" ) {
    $icon = "control_arrow_upward";
    $VALUE += 1;

    if( $VALUE <= 24 ) {
      $icon .= "\@red";
      $link = "setreading $DEVICE desired-new $VALUE";
    }
  } elsif( $CMD eq "down" ) {
    $icon = "control_arrow_downward";
    $VALUE -= 1;

    if( $VALUE >= 18 ) {
      $icon .= "\@blue";
      $link = "setreading $DEVICE desired-new $VALUE";
    }
  }

  my $notify = "notifyHeizungUpDown";
  if( !defined($defs{$notify}) ) {
    CommandDefine(undef,
                   "$notify notify .*:desired-new.* "
                   ."{ myUtils_HeizungUpDownNotify(\$NAME,\$EVTPART1); }" );
  }

  my $ret = "%$icon";
  $ret .= "%$link" if( $link );

  return $ret;
}
sub
myUtils_HeizungUpDownNotify($$)
{
  my($DEVICE,$VALUE) = @_;

  return if( $VALUE == 0 );

  my $at = "triggerHeizungUpDown_$DEVICE";
  CommandDelete(undef, $at) if( defined($defs{$at}) );
  CommandDefine(undef,
                 "$at at +00:00:03 "
                 ."{my \$v = ReadingsVal(\"$DEVICE\",\"desired-new\",undef);"
                 ."fhem(\"set $DEVICE desired-temp \$v\") if( \$v );"
                 ."fhem(\"setreading $DEVICE desired-new 00\");}" );

  return undef;
}


1;

Gruß Josty