{"id":503,"date":"2014-03-19T21:48:56","date_gmt":"2014-03-19T20:48:56","guid":{"rendered":"http:\/\/eiseler.synology.me\/wordpress\/?p=503"},"modified":"2020-08-18T03:11:26","modified_gmt":"2020-08-18T01:11:26","slug":"gunstig-temperatur-luftfeuchte-und-energie-messen-mit-raspberry-pi-oder-pc","status":"publish","type":"post","link":"https:\/\/eiseler.de\/wordpress\/?p=503","title":{"rendered":"G\u00fcnstig Temperatur, Luftfeuchte und Energie messen mit Raspberry Pi oder PC"},"content":{"rendered":"

Drahtloses Anbinden von Temperatursensoren und Energiemesser. Und das noch g\u00fcnstig. Sehr hilfreich war dieser Beitrag<\/a>. Er beschreibt die Anbindung von drahtlosen Sensoren an Fhem<\/a>. Fhem wollte ich jetzt (noch) nicht aufsetzen, deshalb realisierte ich meine eigene Anbindung in der die Temperaturkurven auf dem Webserver des Raspi angezeigt werden.\"Bildschirmfoto<\/a><\/p>\n

Zutaten: Ein Raspi (kann aber auch ein NAS, PC oder Mac sein). Ein Jeelink<\/a> (arduino mit 868 MHz Sender\/Empf\u00e4nger auf einem USB-Stick) (Versand dauert ca. 4 Tage). Einen (oder mehrere, ich habe inzwischen 7) passende Temperatursensoren<\/a>. (Gibt es auch mit Luftfeuchtemesser).<\/p>\n

Verarbeitung: Der Jeelink muss mit dem passenden Sketch<\/a> best\u00fcckt werden. Danach lauscht er nach senden Thermostationen und gibt das Ergebnis \u00fcber seine serielle Schnittstelle aus. Zum Auslesen habe ich mir folgendes Perl-Script erstellt (alpha):<\/p>\n

#!\/usr\/bin\/perl\n$|++;\n\n# LaCrosse auslesen\n# Interpretation:\n# OK\n# 9\n# 1 Byte: addr\n# 1 Byte: battery, type, channel\n# 2 Byte: temperature \n# 1 Byte: battery_low, humidity\n\nuse strict;\nuse warnings;\n\nuse Device::SerialPort;\n\nmy $device1 = 'F0'; \nmy $device2 = '68'; \nmy $device3 = 'E0'; \nmy $device4 = 'CC'; \nmy $device5 = '58'; \nmy $device6 = 'D4'; # Fensterbrett war 38\nmy $device7 = '54'; \nmy $device8 = 'DC'; \nmy $device9 = '94'; \n\nmy $port;\nmy %devices = ($device1 => 'n', $device2 => 'n', $device3 => 'n', $device4 => 'n', $device5 => 'n', $device6 => 'n', $device7 => 'n', $device8 => 'n', $device9 => 'n');\n\tmy $sec;\n\tmy $min;\n\tmy $hour;\n\tmy $mday;\n\tmy $mon;\n\tmy $year;\n\tmy $wday;\n\tmy $yday;\n\tmy $isdst;\n\tmy @myvalues;\n\tmy $hygro;\n\n sub check_output{\n\n     my $answer;\n     my $answer1;\n     # my( @bytes, $channel,$cmd,$addr,$data,$power,$consumption );\n     my( @bytes, $addr, $battery_new, $type, $channel, $temperature, $battery_low, $humidity ); \n      my $state;\n      my $readonly;\n\n\tmy @array;\n\tmy $len;\n\n while(1){    \n\tprint STDERR \"wait for read\\n\";\n    $answer1 = $port->read(255);\n   \tprint STDERR \"\\n>\" . $answer1 . \"<-\\n\";\n\n\t#print \"read\\n\";\n    if ($answer1 ne \"\") {\n    \t$answer = $answer . $answer1;\n    \t#print \"\\n>\" . $answer . \"<\\n\";\n\t\tif( $answer =~ m\/^OK.*\\n\/ ) {\n\t\t\tlast;\n\t\t}\n\t\t$len = length($answer);    \t\n\t\tif ($answer ne \"\" && $len > 1000){ #something went wrong\n\t\t\tprint STDERR \"---- delete length $len too long----\\n\";\n\t\t\tprint STDERR \">\" . $answer . \"<\\n\";\n\t\t\t$answer = \"\";\n\t\t\t}\n\t\tif (length($answer) >= 2){\n\t\t\tif (substr($answer, 0, 2) ne \"OK\"){ #something went wrong\n\t\t\t\tprint  STDERR  \"---- delete wrong start----\\n\";\n\t\t\t\t$answer = \"\";\n\t\t\t\t}\n\t\t\t}\n\n    }\n    sleep(2);\n}\n#Falls mehrere Zeilen geliefert werden, \n@array=split(\/\\n\/, $answer);\n\nforeach (@array){\n$answer = $_;\n#  if( $answer =~ m\/^OK.*\\n\/ ) {\n  if( $answer =~ m\/OK 9 \\d+ \\d+ \\d+ \\d+ \\d+\/ ) {\n    @bytes = split( ' ', substr($answer, 5) );\n\n $addr = sprintf( \"%02X\", $bytes[0] );\n$battery_new = ($bytes[1] & 0x80) >> 7;\n$type = ($bytes[1] & 0x70) >> 4;\n$channel = $bytes[1] & 0x0F;\n$temperature = ($bytes[2]*256 + $bytes[3] - 1000)\/10;\n$battery_low = ($bytes[4] & 0x80) >> 7;\n$humidity = $bytes[4] & 0x7f; \n\n # we simply write the temperatur at the hash\n\tprint STDERR \"Adr: \" . $addr;\n    print STDERR \" Batt_new: \" . $battery_new;\n    print STDERR \" Type: \" . $type;\n    print STDERR \" Chan: \" . $channel;\n    print STDERR \" Temp: \" . $temperature;\n    print STDERR \" Batt_low: \" . $battery_low;\n    print STDERR \" Hum: \" . $humidity . \"\\n\";\n  $devices{$addr} = $temperature;\n  if ($addr eq 'E0'){\n  \t$hygro = $humidity;\n  }\n\n  #Wenn neue Adresse, dann hier ausgeben\n\n    $answer =\"\";\n\n} \n\n }#for each\n}  # sub check_output\n\n# -------------\n# Hauptprogramm\n\n    # Set up the serial port\n    #print \"Start\\n\";\n\n    $port = Device::SerialPort->new(\"\/dev\/ttyUSB0\");\n#    $port = Device::SerialPort->new(\"\/dev\/tty.usbserial-AM01YRW0\");\n\n    # 19200, 81N on the USB ftdi driver\n    $port->baudrate(57600); # you may change this value\n    $port->databits(8); # but not this and the two following\n    $port->parity(\"none\");\n    $port->stopbits(1);\n    $port-> write_settings;\n    $port-> lookclear;\n     #print \"start\";\n\nmy $i;\n$i = 7;        \nwhile($i > 0){    \n\nprint STDERR \"Durchlauf Nr: $i \\n\";\n\n$port-> lookclear;\nsleep(4);\ncheck_output();\n\n$i = $i -1;\n\n#sleep(900);\n#exit;\n\n#debug\n\n # output block; put at the end\n    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();\n    $mon = $mon +1;\n    $mon = sprintf(\"%02d\", $mon);\n    $mday = sprintf(\"%02d\", $mday);\n    $hour = sprintf(\"%02d\", $hour);\n    $min = sprintf(\"%02d\", $min);\n    $sec = sprintf(\"%02d\", $sec);\n    $year = $year + 1900;\n\t#@myvalues = values %devices;\n\n# ToDo Aufr\u00e4umen, muss auch weiterlaufen wenn bei einem Ger\u00e4t die Batterie leer ist\t\nif  ($devices{$device1} eq \"n\") {\n print STDERR \"na 1  $device1 nicht gefunden\\n\";\n sleep(4);\n next;\n}\nif  ($devices{$device2} eq \"n\") {\n print STDERR \"na 2  $device2 nicht gefunden\\n\";\n sleep(4);\n next;\n}\nif  ($devices{$device3} eq \"n\") {\n print STDERR \"na 3  $device3 nicht gefunden\\n\";\n sleep(4);\n next;\n}\nif  ($devices{$device4} eq \"n\") {\n print STDERR \"na 4  $device4 nicht gefunden\\n\";\n sleep(4);\n next;\n}\nif  ($devices{$device5} eq \"n\") {\n print STDERR \"na 5  $device5 nicht gefunden\\n\";\n sleep(4);\n next;\n}\nif  ($devices{$device6} eq \"n\") {\n print STDERR \"na 6  $device6 nicht gefunden\\n\";\n sleep(4);\n next;\n}\nif  ($devices{$device7} eq \"n\") {\n print STDERR \"na 7 $device7 nicht gefunden\\n\";\n sleep(4);\n next;\n}\nif  ($devices{$device7} eq \"n\") {\n print STDERR \"na 8 $device8 nicht gefunden\\n\";\n sleep(4);\n next;\n}\nif  ($devices{$device9} eq \"n\") {\n print STDERR \"na 9 $device9 nicht gefunden\\n\";\n sleep(4);\n next;\n}\n\tprint \"$year-$mon-$mday\" . \"_\" . \"$hour:$min:$sec\";\n\tprint \" $devices{$device1}\";\n\tprint \" $devices{$device2}\";\n\tprint \" $devices{$device3}\";\n\tprint \" $hygro\";\n\tprint \" $devices{$device4}\";\n\tprint \" $devices{$device5}\";\n\tprint \" $devices{$device6}\";\n\tprint \" $devices{$device7}\";\n\tprint \" $devices{$device8}\";\n\tprint \" $devices{$device9}\";\n\tprint \"\\n\";\n # output block; put at the end\n\n #nochmal alle aufzaehlen\n print STDERR \"Alle erfolgreich gefunden\\n\";\n\nexit;\n\n$i = $i -1;\nsleep(58);\n     #print \"slept\";\n\n }\n    print STDERR \"Abbruch nicht genug gefunden\\n\";\n \tprint \"$year-$mon-$mday\" . \"_\" . \"$hour:$min:$sec\";\n\tprint \" $devices{$device1}\";\n\tprint \" $devices{$device2}\";\n\tprint \" $devices{$device3}\";\n\tprint \" $hygro\";\n\tprint \" $devices{$device4}\";\n\tprint \" $devices{$device5}\";\n\tprint \" $devices{$device6}\";\n\tprint \" $devices{$device7}\";\n\tprint \" $devices{$device8}\";\n\tprint \" $devices{$device9}\";\n\tprint \"\\n\";<\/pre>\n
Dazu noch einen cronjob, der die ausgabe des Perl-scripts parst durch gnuplot schickt und die entstandene Grafikdatei auf den Webserver schiebt. – Fertig.<\/p>\n
Detaillierend zu Sebastians Frage:<\/p>\n
Die Ausgabedatei sieht z.B. ungef\u00e4hr so aus (Pro Zeile Datum, Uhrzeit, dann die Werte mit blank getrennt n wenn kein Wert).:<\/p>\n
2020-08-18_02:21:17 33.7 n 24.8 61 n -19 n 11.5 21.7 25.4 22 80 23.5 76 25.5 64 25.4 63 17.4 n 26.5 25.2 25.5 26 26 23.1 71 24.2 66 24.4 61
2020-08-18_02:31:18 33.7 n 24.8 61 n -18.9 n 11.4 21.6 25.4 22 79 23.5 76 25.5 64 n n 17.4 n 26.5 25.2 25.5 26 25.9 23.1 71 24.1 66 24.4 61
2020-08-18_02:41:14 33.7 n 24.8 61 n -19 n 11.4 21.6 25.4 22 79 23.5 76 25.5 64 25.4 63 17.2 n 26.4 25.2 25.5 26 25.9 23.1 71 24.1 66 24.4 61
2020-08-18_02:51:18 33.7 n 24.8 61 n -18.9 n 11.4 21.6 25.4 22 79 23.5 76 25.5 64 25.4 63 17.2 n 26.4 25.2 25.4 26 25.9 23 71 24.1 66 24.3 60<\/pre>\n
Darauf kann mann dann den gnuplot loslassen mit dem Befehl “gnuplot datei”. Die Datei steuert den gnuplot und kann z.B. so aussehen:<\/p>\n

set key left #legende nach links
set xtics rotate
set xdata time
set timefmt \"%Y-%m-%d_%H:%M:%S\"
set format x \"%d. %Hh\"
set grid
set title \"Johannes Temp Small Monitor\"
set ylabel \"C\"
set xlabel \"\\n1 hour interval\"
set terminal gif small size 800, 440 transparent
set output \"\/home\/pi\/bin\/tc2small.gif\"

plot \"\/home\/pi\/bin\/temperatureout.txt\" using 1:6 title \"Sensor 1\" with lines,\\
\"\/home\/pi\/bin\/temperatureout.txt\" using 1:8 title \"Sensor2\" with lines, \\
\"\/home\/pi\/bin\/w4.txt\" using 1:2 title \"OpenWeather\" with lines, \\
\"\/home\/pi\/bin\/weatherout_wunder3.txt\" using 1:2 title \"Wunderground\" with lines<\/pre>\n
die entstandene gif Datei schiebe ich dann mittels ftp auf den Webserver.<\/p>\n
Mittlerweile schreibe ich parallel dazu die Daten in eine mysql Datenbank und erstelle mittels Grafana die Auswertung. Das schaut dann ca. so aus wie unten.<\/p>\n
\u00a0<\/p>\n
Wie verbindet man den Jeelink mit dem Raspberry PI: link<\/a><\/p>\n\n\n
\"\"<\/figure>\n
Share this:<\/h3>