Misterhouse EIB5 Außentemperatur

[RaK]

Ich meine das ist so. Ich weiss nicht wer die geschrieben hat (war ich das?) . Ich meine ja, weil ich die Aussentemperatur übers Netz lese und von MH auf den Bus schicke. Dargestellt wird sie dann auf dem TS2+.

sub encode {
    my ($self, $state) = @_;
    my $data;

    my $sign = ($state <0 ? 0x8000 : 0);
    my $exp  = 0;
    my $mant = 0;

    $mant = int($state * 100.0);
    while (abs($mant) > 2047) {
        $mant = $mant >> 1;
        $exp++;
    }

    $data = $sign | ($exp << 11) | ($mant & 0x07ff);

    return([0, $data >> 8, $data & 0xff]);
}