HowTO Brematic Home Automation Gateway GWY 433 Brennenstuhl Comfort RCS 1000N

[rippi46]

Hallo,

@GhostInTheBottle:  Ich weiß es ist schon lange her, aber ich habe dein Problem erst jetzt gesehen. Vielleicht hast du ja noch Interesse.

Hier mein Vorschlag:

das hier in die fhem.cfg:

Code Auswählen Erweitern

define DimmerA dummy
attr DimmerA alias WohnDimmer
attr DimmerA devStateIcon on:li_wht_on off:li_wht_off
attr DimmerA eventMap BI:on B0:off
attr DimmerA room Wohnzimmer
attr DimmerA setList state:10,20,30,40,50,60,70

define DimmerA_ntfy notify DimmerA:.* {\
    my $v=Value("DimmerA");;\
    if ($v eq "10") {trustDimmer("TXP:0,0,5,10976,98,74,3,29,3,15,3,3,3,15,3,3,3,3,3,15,3,3,3,15,3,15,3,3,3,15,3,3,3,3,3,15,3,15,3,3,3,15,3,3,3,3,3,15,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,15,3,3,3,3,3,15,3,3,3,15,3,3,3,3,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,15,3,3,3,3,3,15,3,15,3,3,3,15,3,3,3,64")};;\
    if ($v eq "20") {trustDimmer("TXP:0,0,5,10976,98,66,3,29,3,15,3,3,3,15,3,3,3,3,3,15,3,3,3,15,3,15,3,3,3,15,3,3,3,3,3,15,3,15,3,3,3,15,3,3,3,3,3,15,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,15,3,3,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,64")};;\
    if ($v eq "30") {trustDimmer("TXP:0,0,5,10976,98,74,3,29,3,15,3,3,3,15,3,3,3,3,3,15,3,3,3,15,3,15,3,3,3,15,3,3,3,3,3,15,3,15,3,3,3,15,3,3,3,3,3,15,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,15,3,3,3,3,3,15,3,3,3,15,3,3,3,3,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,64")};;\
    if ($v eq "40") {trustDimmer("TXP:0,0,5,10976,98,74,3,29,3,15,3,3,3,15,3,3,3,3,3,15,3,3,3,15,3,15,3,3,3,15,3,3,3,3,3,15,3,15,3,3,3,15,3,3,3,3,3,15,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,15,3,3,3,3,3,15,3,3,3,15,3,3,3,3,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,15,3,3,3,15,3,3,3,15,3,3,3,64")};;\
    if ($v eq "50") {trustDimmer("TXP:0,0,5,10976,98,74,3,29,3,15,3,3,3,15,3,3,3,3,3,15,3,3,3,15,3,15,3,3,3,15,3,3,3,3,3,15,3,15,3,3,3,15,3,3,3,3,3,15,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,15,3,3,3,3,3,15,3,3,3,15,3,3,3,3,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,64")};;\
    if ($v eq "60") {trustDimmerr("TXP:0,0,5,10976,98,74,3,29,3,15,3,3,3,15,3,3,3,3,3,15,3,3,3,15,3,15,3,3,3,15,3,3,3,3,3,15,3,15,3,3,3,15,3,3,3,3,3,15,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,15,3,3,3,3,3,15,3,3,3,15,3,3,3,3,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,15,3,3,3,3,3,15,3,64")};;\
    if ($v eq "70") {trustDimmer("TXP:0,0,5,10976,98,74,3,29,3,15,3,3,3,15,3,3,3,3,3,15,3,3,3,15,3,15,3,3,3,15,3,3,3,3,3,15,3,15,3,3,3,15,3,3,3,3,3,15,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,15,3,3,3,3,3,15,3,3,3,15,3,3,3,3,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,3,3,15,3,15,3,3,3,3,3,15,3,15,3,3,3,64")};;\
}
attr DimmerA_ntfy room Wohnzimmer



und das hier in die 99_myUtils.pm:

Code Auswählen Erweitern

sub trustDimmer {
my ($DimmerCode) = "$_[0]";
my  $SendData="";

$SendData = "$DimmerCode";
my ($socket,$data);
#  We call IO::Socket::INET->new() to create the UDP Socket
$socket = new IO::Socket::INET(PeerAddr=>'192.168.2.151:49880',Proto=>'udp') or die "ERROR in Socket Creation : $!\n";
$socket->send($SendData);

$socket->close();

}

Leider weiß ich nicht welcher TXP-Code für welche Prozentangabe ist, aber das wäre fürs Erste auch egal.

IP-Adresse muss noch die richtige eingetragen werden

Wenn das funktioniert könnte man dann den Code analysieren und einfacher gestalten.


Gruß rippi