Optionsbutton

[ChristianKnorr]

Hallo zusammen,
um nicht von nützlichen Dingen überrascht zu werden, die im falschen Moment Spielerei sind, habe ich ein Optionsbutton erstellt.

Hier zum Beispiel die Sprachausgabe:

Code Auswählen Erweitern

define Sprachausgabe dummy
attr Sprachausgabe devStateIcon .*Ja:rc_GREEN:Nein .*Nein:rc_STOP:Ja
attr Sprachausgabe room Optionen
attr Sprachausgabe setList state:Ja,Nein
attr Sprachausgabe webCmd Ja:Nein
Darauf zugegriffen wird dann so:

Code Auswählen Erweitern


sub say_own_text(@){
  my $sprachausgabe = Value("Sprachausgabe");
  my $name = "MyTTS";
  my ($text) = @_;
  if ( $sprachausgabe eq "Ja" )
  {
    my $say = "set $name tts";
    Log3 $name, 3, $name . ": Ich sage: $text";
    fhem("$say $text");
  } else {
    Log3 $name, 3, $name . ": Ich sage NICHT: $text";
  }
}
oder:

Code Auswählen Erweitern

if ( ( Value("AVR_darf_leiser_wenn_Klingel") eq "Ja" ) && ( ReadingsVal("wz_AVR","volume","0") > 15 ) ) { fhem("set wz_AVR volume 15") }

Viel Spaß dabei...