Übersetzung/Umwandlung von Ergebnis-Werten

[NeuFehm]

Mein Temperaturfühler liefert einen dezimalwert (0-255), Beispiel "74".

Dies entspricht einer Temperatur von 22,1°C.
Da der Fühler nicht linear arbeitet, habe ich für alle Dezimalwerte eine Tabelle aus der ich dann die
dazugehörige Temperatur ablesen kann.

Wo und wie kann ich diese "Übersetzung" der Werte eintragen, sodass ich als Antwort 22,1 statt 74 bekomme?

meine classdef, die die "74" liefert:
#Senden der Temperaturabfrage
set temp cmd {chr(35).chr(84).chr(34).chr(97).chr(13).chr(10)}
Aus dem Ergebnis die richtige Stelle lesen und in dezimal umwandeln
set temp postproc {ord(substr($_,5,1))}

[fiedel]

Sieh dir mal "userreadings" und "stateformat" an. Damit kannst du deine Formel integrieren und das Ergebnis als "state" des Sensors anzeigen lassen.

Gruß

Frank

[NeuFehm]

Habe mal die classdef zum Test erweitert(Rückgbewert ohne Umwandlung "074" sollte dann 21.2 erzeugen):

set newtemp cmd {chr(35).chr(84).chr(34).chr(97).chr(13).chr(10)}
set newtemp postproc {\
my %temps = ('073'=>20.7,'074'=>21.2,'075'=>21.6);\
$temps{ord(substr($_,5,1))};\
}


ERzeugt aber eine Fehlermeldung

No such class temps at (eval 1393) line 1, near "{my temps" syntax error at (eval 1393) line 1, near "my temps =" Global symbol "%temps" requires explicit package name at (eval 1393) line 1.

[NeuFehm]

Hallo Frank,
mit den userReadings komm ich noch nicht klar....
bleibe aber dran...

[fiedel]

Hi,

mit der Classdef würde ich nicht klarkommen. 

Hier mal ein einfaches Beispiel für ein Userreading, damit du die Funktion erkennst (einfach Formel mit Faktor oder Wert anlegen):

Code Auswählen Erweitern

define Sens_TF_Aussen CUL_WS 6
attr Sens_TF_Aussen event-min-interval state:600
attr Sens_TF_Aussen event-on-change-reading state
attr Sens_TF_Aussen event-on-update-reading .*
attr Sens_TF_Aussen fp_0_Hauptbildschirm 350,486,4,Aussen
attr Sens_TF_Aussen group Geräte_Sensoren
attr Sens_TF_Aussen icon temp_outside
attr Sens_TF_Aussen room 5_System
attr Sens_TF_Aussen userReadings T_Aussen_korr {ReadingsVal("Sens_TF_Aussen", "temperature", "0")+10.5;;}


Und hier mal  ein komplizierteres, damit du siehst, was in etwa möglich ist (es geht noch viel mehr, da man ja eine kompl. Perlfunktion einbauen kann - auch nichtlineare Berechnungen):

Code Auswählen Erweitern


attr OW_Counter userReadings displayA {ReadingsVal("OW_Counter","counters.A",0)/75.0+AttrVal("OW_Counter","offsetA",0);;}, consumption_power differential {ReadingsVal("OW_Counter","counters.A",0)*3600*0.01333333333333;;}, daily_power {ReadingsVal("OW_Counter","displayA",0)-Value("Dum_DP_Diff_D");;}, displayB {ReadingsVal("OW_Counter","counters.B",0)/100.0+AttrVal("OW_Counter","offsetB",0);;}, consumption_gas differential {ReadingsVal("OW_Counter","counters.B",0)*3600*0.01;;}, daily_gas {ReadingsVal("OW_Counter","displayB",0)-Value("Dum_DG_Diff_D");;}


Gruß

Frank

[NeuFehm]

Prinzip verstanden! Danke!
Allerdings müsste ich dann für die nichtliniearen Wertepaare eine Funktion ermitteln, mit der ich dann meine Werte in Temperaturen umrechne. Leider ist die Kennlinie nicht liniear, so dass ich als "Nichtmathematiker" das nicht hinbekomme.
Grundsätzlich glaube ich, dass die Funktion alles hin und her rechnen kann, aber ich habe keine Formel

Ich such also eine Möglichkeit, wo ich sagen kann: wenn 1, dann 4, wenn 2 dann 5, wenn 3 dann 7, wenn 4 dann 10....

mein Ansatz:
set temp postproc {\
my @temps = ('068'=>18.5,'069'=>18.9,'070'=>19.4,'071'=>19.8,'072'=>20.3,'073'=>20.7,'074'=>21.2,'075'=>21.6,'076'=>22.1,'077'=>22.5,'078'=>23.0);\
$_ = $temps{ord(substr($_,5,1))};\
}

Aber hier gibt es Sysntax-Errors

[NeuFehm]

Schade,

hatte endlich was "ähnliches" gefunden:

attr mytermo rawToReadable 070:19 071:19 072:20 073:20 074:21

aber das funktioniert nicht mit einem ECMD-Device offensichtlich

[NeuFehm]

HURRA!!!!:

meine Werte werden nun umgewandelt.
Die Fehler kamen, weil der classdef--Code doch ein wenig "erweitert" ist.
So muss man für einen hash statt (wie hier) %temps - %%temps schreiben.
Die Definitionszeile: my $temps = 21;;\ kann man glaube ich auch kürzen,
indem man die Zeile $_= $temps{ord(substr($_,5,1))};;\ so schreibt:
$_= my $temps{ord(substr($_,5,1))};;\
aber das ist noch nicht getestet.
Hier auf jeden Fall das funktionierende Endergebnis.
DANKE allen Kommentaren!

Inhalt meiner temp.classdef:

set temp cmd {chr(35).chr(84).chr(34).chr(97).chr(13).chr(10)}
set temp postproc {\
my $temps = 21;;\
my %%temps = (\
"0"=>-40.5,\
"1"=>-38.9,\
"2"=>-37.3,\
"3"=>-35.7,\
----
usw.
----
"254"=>158.2,\
"255"=>160.4);;\
$_= $temps{ord(substr($_,5,1))};;\
}

[Puschel74]

Hallo,

Beitrag NICHT schliessen - ein Gelöst vor den titel genügt.
Danke.

Grüße