Aussentemperatur Wetterstation WS980Wifi in iobroker

[Pascal Bay]

Hallo Zusammen ich konnte die WS980WIfi einbinden und alle Variablen sind vorhanden. Bei der Aussentemperatur gibt es aber einen Fehler. Die Variabel zeigt, wenn die Aussenteperatur unter 0 ist einen um 6552 ° zu hohe Temperatur an. Vgl. Bilder im Anhang. Bei Werten über 0° ist dies nicht der Fall. Kann mit jemand helfen? Vielen Dank schon im Voraus Liebe Grüsse Pascal

[Homoran]

@pascal-bay sagte in Aussentemperatur Wetterstation WS980Wifi in iobroker:

ich konnte die WS980WIfi einbinden

wo und wie?
das sieht nach einer CCU aus,

@pascal-bay sagte in Aussentemperatur Wetterstation WS980Wifi in iobroker:

Vgl. Bilder im Anhang

und was ist das für ein Bild im Vorspann?

[Pascal Bay]

@homoran Vielen Dank!

Es läuft über RaspberryMatic sozusagen CCU2 Emulation. Ich habe folgendes Script verwedet.

Voraussetzungen:

• Wetterstation WS980WiFi (im Heimnetzwerk eingebunden)
• CuxD installiert
• Zugriff auf CCU / Raspberry per ssh, am kompfortabelsten mit SCP (WinSCP)

Installation:

• per SCP im Ordner /usr/local/addons einen Ordner /weather anlegen (Rechte auf 777 setzen)
• dahin dann folgende 3 Dateien aus dem entpackten Archiv kopieren: weather.tcl, weatherini.tcl und weather.hexin (Rechte für jede Datei auf 777 setzen)
• das Script script_create_var.sh einmalig ausführen (zB. neues Programm erzeugen, das Script ausführt - kann dann wieder gelöscht werden) - legt nur automatisch alle Variablen an
• ein CuxD-Gerät System mit Funktion Timer anlegen (Icon egal, habe aber Wetterstation genommen)
• Bei Geräteeinstellungen "TIMER_PRESET 60", "REPEAT angehakt", "CMD_EXE tclsh /usr/local/addons/weather/weather.tcl", "EXEC_FUNC system()", "EXEC_TIMEOUT 1"

Script_Create_Var.sh

[Pascal Bay]

@homoran Die Variable ist durch das Script generiert worden und befindet sich auf der CCU2 Oberfläche unter Variablen.

[Homoran]

@pascal-bay sagte in Aussentemperatur Wetterstation WS980Wifi in iobroker:

Es läuft über RaspberryMatic sozusagen CCU2 Emulation.

und was kann der arme ioBroker denn jetzt dafür?
Der falsche Wert steht doch bereits in der CCU.

iobroker übernimmt sie korrekt.

der Fehler muss in der CuxD Integration liegen.

[mcm1957]

@pascal-bay said in Aussentemperatur Wetterstation WS980Wifi in iobroker:

@homoran Die Variable ist durch das Script generiert worden und befindet sich auf der CCU2 Oberfläche unter Variablen.

Ohne jetzt CCU oder rasperrymatic zu kennen:
Der Fehler deutet stark darauf hin, dass eine Variable als UNSIGNED Zahl angelegt wurde und mit einerm SIGNED Wert befüllt wird. Die Variable für die Temperatur sollte wohl jedenfalls SIGNED sein.

[Pascal Bay]

@mcm1957 Vielen Dank, kann mir jemand helfen wo ich bei der CCU2 Variable auf SIGNED Variable wechseln kann? Danke

[Homoran]

@pascal-bay ich denke mal dass das eigentlich mit der Angabe negativer Werte von min passieren sollte.
Etwas anderes passendes als "Zahl" bei Typ gibt es IMHO nicht.

Aber meine Vermutung ist, dass deine CuxD Anbindung da schief läuft.

[Pascal Bay]

@homoran Danke, ich gehe auch davon aus. Der Wert in der Wetterstation stimmt. (Eigene App) Ich denke auch, da ist etwas falsch in CuxD sobald der wert negativ wird. Wo kann ich das sehen?

[peterfido]

@pascal-bay Wer fragt denn die Wetterstation ab? Da ist statt eines INT ein WORD oder U_INT genutzt worden.

[paul53]

@pascal-bay sagte: etwas falsch in CuxD

Der Fehler liegt wohl eher in der Datei weather.tcl, denn sie wird von CUxD ausgeführt.

[peterfido]

@paul53 Die habe ich auch schon gesucht.

[paul53]

@pascal-bay sagte: /usr/local/addons/weather/weather.tcl

Wenn die Zeile vor "return $zahl" bei dir fehlt, dann füge sie ein.

# - liest ein Word vom Binärstring liefert Zahl von -32768 bis 32768
proc getw {idx} {
   global global_binout
   set sb [string index $global_binout $idx]
   scan $sb %c asciih
   set idx [expr $idx + 1]
   set sb [string index $global_binout $idx]  
   scan $sb %c asciil
   set zahl [expr $asciil + { $asciih * 256}]
   if {$zahl > 32767} then {set zahl ~[expr 65535 - $zahl]}
   return $zahl
} 

[Pascal Bay]

@paul53 said in Aussentemperatur Wetterstation WS980Wifi in iobroker:

if {$zahl > 32767} then {set zahl ~[expr 65535 - $zahl]}

Vielen Dank! Bei mir sieht das so aus? Ein Tip, was ich ändern kann? Danke!

[Homoran]

@pascal-bay sagte in Aussentemperatur Wetterstation WS980Wifi in iobroker:

Ein Tip, was ich ändern kann?

@paul53 sagte in Aussentemperatur Wetterstation WS980Wifi in iobroker:

Wenn die Zeile vor "return $zahl" bei dir fehlt, dann füge sie ein.

das ist

if {$zahl > 32767} then {set zahl ~[expr 65535 - $zahl]}

[paul53]

@pascal-bay sagte: Bei mir sieht das so aus?

Das ist die falsche Prozedur. Die richtige ist getw{idx}.

EDIT: Woher ist deine "weather.tcl"? Die TCL-Datei aus "weatherV2b.zip" sieht anders aus. Anfang:

#!/bin/tclsh

load tclrega.so

# - hier nur die IP Addresse anpassen
  set debug_mode 0
  set wait_between_status_requests 1
  set connection_timeout 500
  set wait_between_retries 200
  set status_retries 5
  set command_retries 10
  set matchport_host 192.168.0.129 
  set matchport_port 45000



# - liest ein Byte vom Binärstring - liefert Zahl von 0 - 255
proc getb {idx} {
   global global_binout
   set sb [string index $global_binout $idx]
   scan $sb %c ascii
   return $ascii
}
# - liest ein Word vom Binärstring liefert Zahl von -32768 bis 32768
proc getw {idx} {
   global global_binout
   set sb [string index $global_binout $idx]
   scan $sb %c asciih
   set idx [expr $idx + 1]
   set sb [string index $global_binout $idx]  
   scan $sb %c asciil
   set zahl [expr $asciil + { $asciih * 256}]
   if {$zahl > 32767} then {set zahl ~[expr 65535 - $zahl]}
   return $zahl
} 
# - liest ein Longword vom Binärstring und liefert Zahl von 0 - 4294967295
proc getl {idx} {
   global global_binout
   set sb [string index $global_binout $idx]
   scan $sb %c ascii3
   set idx [expr $idx + 1]
   set sb [string index $global_binout $idx]  
   scan $sb %c ascii2
   set idx [expr $idx + 1]
   set sb [string index $global_binout $idx]  
   scan $sb %c ascii1   
   set idx [expr $idx + 1]
   set sb [string index $global_binout $idx]  
   scan $sb %c ascii0   
   set zahl [expr $ascii0 + {$ascii1 * 256} + {$ascii2 * 65536} + {$ascii3 * 16777216}]
   return $zahl
}

[Pascal Bay]

@paul53 Einmal mehr Danke. Ich habe die weather.tcl aus WS980WiFiV2a also noch 2b. Es scheint aber, dass die Zeile da ist. Anbei der richtige Auszug getw{idx}.

[paul53]

@pascal-bay sagte: Auszug getw{idx}.

Dann sollten negative Werte geliefert werden, denn aufgerufen wird die Prozedur für die Außentemperatur so:

            set atemp [expr double([getw 10]) / 10]

[Pascal Bay]

@paul53 Danke. Sehe ich das richtig, dann ist mein getw{idx} richtig? Der Fehler muss also woanders liegen?

[paul53]

@pascal-bay sagte: Der Fehler muss also woanders liegen?

Sieht so aus.
Hast du die TCL-Datei ausgetauscht? Oben ist die globale Variable answer und im letzten Post ist sie global_binout.