Posts by wend

wend · Apr 14th 2021

Aus dem Vortrag oben geht hervor, dass die relevanten Partikelgrößen <5µm betragen. Also dachte ich, man haette vielleicht mit dem PM2.5 Signal eine chance. Leider wird nicht so gut erläutert, wie die Messgeräte funktionieren. Und ich konnte nicht herausfonden, auf welche Partikelgrößen die Rauchmelder ansprechen.

wend · Apr 14th 2021

Hm. Ich hab einen Feinstaubsensor in Betrieb. er mißt PM2.5 und PM10. Der Luftstrom ist undefiniert, aber wahrscheinlich bei jeder Messung geich. Also kann ich ja einen Verlauf messen. Aber ist das ausreichend? Bisher messe ich draussen, und dabei wahrscheinlich Dieselabgase und Rauch von Kaminen.

Drinnen muesste man erst noch Experimente machen. Aber ist das überhaupt der Richtige Sensor? Mit 10-15 EURO wäre er ja billig genug. Jedoch ist er nicht so leicht im Inland zu bekommen. Es ist der von luftdateninfo: https://sensor.community/de/sensors/airrohr/

Wenn es Sinn machen würde, dann würde ich auch mal einen Rauchmelder auseinandernehmen und SIgnale abgreifen. Das Prinzip müsste ja dasselbe sein. (Laster-Rückstreuung, verschiedene Winkel entsprechen verschiedene Partikelgrößen).

wend · Apr 14th 2021

Ich möchte Hier mal eine Idee zu einem Aerosol-Partikel-Detektor zur Diskussion stellen.

Es werden benötigt überall Aerosol-Partikel-Messgeräte in Innenräumen. Und zwar sollen die Partikelanzahl gemessen werden und nicht etwa C=2 Gehalt der Luft oder dergleichen. Im Prinzip ist das möglich, aber bei guten Geräten recht teuer. Woran liegt es?

Im Prinzip kann man ja einen billigen Rauchmelder umfunktionieren. Statt Alarmschwelle und dann Alarm würde man aber gerne das SIgnal direkt auslesen, also bevor es mit einer Schwelle verglichen wird und einen Alarm auslöst. Das könnte man ja mit einem Microcontroller oder RaspBerry Pi gut machen. Ist die Idee quatsch? Hat das schonmal gemand versucht?. Ich weiss, dass es auch Feinstaub-Detektoren (ca. 10 EURO fertig aus China bestellt gibt, die auch so aehnlich funktionieren, und 2.5 Mikrometer und 10 Mkrometer Partikelfraktionen messen können. Für die Corona Aerosol-Auswertung möchte man aber noch wenigstens 3 zusätzliche Partikelgrösenbereiche mit messen.

Ich verlinke mal einen Vortrag zu dem Thema, falls das interessant wäre:

Code

https://www.youtube.com/watch?v=RH1RBcvf3mM

Humane Tröpfchen und Aerosole | Prof. Dr. Eberhard Bodenschatz

Es muss doch möglich sein, etwas brauchbares zusammenzubasteln. Warum ist das so schwierig?

wend · Apr 12th 2021

Was hast Du denn bisher so mit dem RaspBerry Pi gemacht? Vielleicht möchtest Du mit einem einfacheren Projekt beginnen, und Dich dann langsam vortasten....

wend · Apr 12th 2021

Also als Rückrad eigent sich MQTT. Vielleicht benötigst DU da nichtmal eine Datenbank. Die Aktuellen Zustaende können auf dem MQTT-Broker vorgehalten werden. Programmiersprache C, ja ist ne gute Idee.

Als Anregung: mein Tutorial: [Tutorial] Daten zwischen mehreren Raspis live austauschen und in einem Cockpit anzeigen

Das dort referenzierte Projekt MQTT-Hyperdash verwendet C. Es hat auch einen Rahmen mit Regelmaschinen und einige interessante Dokumente, die ein Konzept beschreiben, wie man meherere Maschinen miteinander interagieren lassen kann.

Hier der Direkt-Link: click.

Entspricht das Deinem Geschmack?

wend · Apr 12th 2021

Ok, wenns weiter nichts ist.

Code

crontab -l > crontab-l

Dann die Datei crontab-l mit einem Editor deiner Wahl bearbeiten (wahrscheinlich ist sie noch leer, ansonsten Zeile hinzufügen):

Code

0 3 * * * echo `date` > /dev/ttyUSB0

dann wieder abspeichern. Dann

Code

crontab crontab-l

und schon fertig. Ab sofort wird immer um genau 3:00 Uhr jeden Tag das Kommando ausgeführt.

wend · Apr 11th 2021

Siehst Du, und genau darum geht es. Eigentlich braucht man nur eine einzige Serielle Schnittstelle zum Raspberry Pi und die Verschiedenen Daten-Typen (Zeit,MQTT, wasauch immer) müssen nur entsprechend codeirt werden. Um "irgendwas" an "irgendeine" Serielle Schnittstelle zu schicken, genügt (vorausgesetzt, die Schnittstelle ist schon von woanders heraus konfiguriert) ein

Code

echo "Was auch immer" > /dev/ttyUSB0

oder Zeit und Datum des Raspberry Pi an Serielle Schnittstelle versenden:

Code

echo `date` > /dev/ttyUSB0

evtl. ein sudo davor, evtl. eine andere Nummer als "0" und fertig. Wenn Du es periodisch haben willst, dann trag das Kommando in die crotab ein.

Damit wirst Du aber nicht zufrieden sein, nehme ich an, deshalb formuliere doch Deine Frage etwas konkreter, sonst -- so fürche ich -- kann Dir niemand helfen.

wend · Apr 11th 2021

Das Senden von irgendwas per Serielle Schnittstelle ist nicht das Problem. Sondern wie das Arduino-Sketch diese verarbeitet. Ohne das zu wissen, kann ich hier nicht helfen. Man wird schon irgendwas programmieren oder skripten müssen.

wend · Apr 10th 2021

Hallo Hofei. Hm. Ja, das ist ein wunder Punkt. Aber in der Anleitung zur bcm2835 (Link siehe oben) ist auch kein Hinweis zu finden. Man könnte aber annehmen, dass es beim Raspi4 genauso geht wie beim Raspi2 und 3. Da ich keinen zum Testen habe, gilt hier: Ausprobieren. Dieses Zählerprojekt funktioniert aber einwandfrei mit einem RaspI 1B+ . Also ist es auch gut, um ältere und schwächere, dafür aber Strom-sparsamere Pi's noch zu verwenden. Dennoch: Ein wenig Experimentierfreude ist bei diesem Projekt schon nötig. Aber wer sowas nachbauen will, der hat die ja in der Regel. Ich gehe davon aus, dass sich alle Probleme irgendwie lösen lassen.

wend · Apr 10th 2021

Hast Du denn cloud-Zugriff auf den Server, der deine Web-Seite hostet? Dann könntest Du dort einen MQTT-broker installieren und ein kleines skript laufen lassen, was MQTT-Messages in eine Datei schreibt.

wend · Apr 10th 2021

Wie sieht denn Dein Sketch für den Arduino bisher aus?

Welche Programmiersprache nimmst Du denn so gewöhnlich auf dem Raspberry Pi, wenn nicht python? Ich nehme auch kaum python.

wend · Apr 9th 2021

Ich verwende hier so einen:

Adafruit_BMP085

wend · Apr 9th 2021

Code

sudo apt-get install screen

Dann screen aufrufen und darin dann arbeiten. Statt exit am ende, CTRL-A Z zum beenden verwenden. Wenn Du wieder ringehen willst, dann screen -r aufrufen.

wend · Apr 9th 2021

Hallo, willkommen. Machst Du auch Grafiken für Computerprogramme oder Apps?

wend · Apr 9th 2021

Braucht man für dieses Display nicht 5V (statt 3.3V)? Sonst reicht die Spannung nicht für einigermassen brauchbaren Kontrast.

wend · Apr 9th 2021

Die *-Auswertung.bas Programme sind recht ähnlich für jeden Zählertyp. Das Programm makeplots.bas macht dabei noch die Hauptarbeit. Es erzeugt die WEB-Seite, also den Rahme in dem dann auch die stündlich aktualisierten Plots erscheinen.

Eigentlich wäre es das schon: Eine rundum Datenauswertung für die Gas- Strom- und Wasserzähler. Ihr habe nun alle Files, um das zum Laufen zu bekommen. Wenn was nicht geht, bitte melden.

Noch Fragen?

(ggf. wäre es günstig, Eure Fragen in separaten Threads zu stellen, dann kann ich diesen hier noch für Ergänzungen nutzen. Fehler würde ich dann direkt in den Betreffenden Abschnitten korrigieren. Ihr könnt Euch ja auf diesen Thread bzw. dieses Tutorial beziehen in der Überschrift Eures Beitrags.).

wend · Apr 9th 2021

Code: /home/pi/gaszaehler/bas/makeplots.bas

#!/usr/bin/xbasic
' ###############################################
' Datenauswertung der Energieverbrauchs-Daten 
' (c) wend 2016-2021
' ###############################################
'
' Erstellt die Hauptseite, normalerweise nur einmal am Tag.
'
'
zieldir$="/var/www/html"
basedir$="/home/pi/gaszaehler"
etcdir$=basedir$+"/gnu"
datadir$="/home/pi/data"

today=INT((TIMER-1000)/3600/24)

CHDIR basedir$
today=INT(TIMER/3600/24)
nowweek=@kw(DATE$)
nowmonth=VAL(MID$(DATE$,4,2))
nowyear=VAL(RIGHT$(DATE$,4))

statf$=datadir$+"/gasstat.dat"
statf2$=datadir$+"/wasserstat.dat"
statf3$=datadir$+"/stromstat.dat"

' Daten vom letzten Jahr einsammeln

DIM gasday(366)
DIM wasserday(366)
DIM stromday(366)
ARRAYFILL gasday(),0
ARRAYFILL wasserday(),0
ARRAYFILL stromday(),0
print "<-- "+statf$
OPEN "I",#33,statf$
WHILE NOT EOF(#33)
  LINEINPUT #33,t$
  t$=trim$(t$)
  a=VAL(WORD$(t$,1))
  IF a>=today-365
    gasday(a-today+365)=VAL(WORD$(t$,3))
  ENDIF
WEND
CLOSE #33
print "<-- "+statf2$
OPEN "I",#33,statf2$
WHILE NOT EOF(#33)
  LINEINPUT #33,t$
  t$=trim$(t$)
  a=VAL(WORD$(t$,1))
  IF a>=today-365
    wasserday(a-today+365)=VAL(WORD$(t$,3))
  ENDIF
WEND
CLOSE #33
print "<-- "+statf3$
OPEN "I",#33,statf3$
WHILE NOT EOF(#33)
  LINEINPUT #33,t$
  t$=trim$(t$)
  a=VAL(WORD$(t$,1))
  IF a>=today-365
    stromday(a-today+365)=VAL(WORD$(t$,3))
  ENDIF
WEND
CLOSE #33
DIM gasweek(54*2)
DIM wasserweek(54*2)
DIM stromweek(54*2)
ARRAYFILL gasweek(),0
ARRAYFILL wasserweek(),0
ARRAYFILL stromweek(),0
FOR i=0 TO 365-1
  datum$=UNIXDATE$((i+today-365)*24*3600)
  week=@kw(datum$)
  month=VAL(MID$(datum$,4,2))
  year=VAL(RIGHT$(datum$,4))
  IF year=nowyear
    gasweek(54+week)=gasweek(54+week)+gasday(i)
    wasserweek(54+week)=wasserweek(54+week)+wasserday(i)
    stromweek(54+week)=stromweek(54+week)+stromday(i)
  ELSE
    gasweek(week)=gasweek(week)+gasday(i)
    wasserweek(week)=wasserweek(week)+wasserday(i)
    stromweek(week)=stromweek(week)+stromday(i)  
  ENDIF
 ' print datum$,week,i+today-365,gasday(i),wasserday(i),stromday(i)
NEXT i

datafile$="/home/pi/data/gws-week.dat"
PRINT "--> "+datafile$
OPEN "O",#1,datafile$
FOR i=0 TO 54*2-1
  IF gasweek(i)>0 OR wasserweek(i)>0 OR stromweek(i)>0
    IF i<54
      PRINT #1,STR$(nowyear-1)+"-"+str$(i),gasweek(i),wasserweek(i),stromweek(i)
    ELSE
      PRINT #1,STR$(nowyear)+"-"+str$(i-54),gasweek(i),wasserweek(i),stromweek(i)
    ENDIF
  ENDIF
NEXT i
CLOSE #1
img$=zieldir$+"/Wochenstatistik.png"
  t$=@load_proto$(etcdir$+"/wstat.gnu.proto")
  t$=REPLACE$(t$,"input.dat",datafile$)
  t$=REPLACE$(t$,"output.png",img$)
  BSAVE "/run/shm/wstat.gnu",VARPTR(t$),LEN(t$)
  SYSTEM "gnuplot /run/shm/wstat.gnu"
  PRINT "<-- "+img$
  KILL "/run/shm/wstat.gnu"

' Ausgeben
print "--> "+zieldir$+"/index.html"

OPEN "O",#2,zieldir$+"/index.html"
PRINT #2,"<HTML> <HEAD> <TITLE>Energieverbrauch-Datenuebersicht</TITLE></HEAD>"
PRINT #2,"<BODY bgcolor='#ffffff' link=2200aa vlink=008800>"
PRINT #2,"<h2>Statistics "+dat$+"</h2>"
PRINT #2,"<h4>Aktuelle Daten</h4>"
PRINT #2,"<img src='gas.png'>"
PRINT #2,"<img src='strom.png'>"
PRINT #2,"<img src='wasser.png'>"
PRINT #2,"<hr>"
PRINT #2,"<h4>Wochenstatistik</h4>"
PRINT #2,"<img src='Wochenstatistik.png'>"
PRINT #2,"<hr>"

PRINT #2,"<h4>Tagesstatistik</h4>"
PRINT #2,"<img src='Tagesstatistik.png'>"
PRINT #2,"<hr>"
@sumi("/home/pi/data/gws.dat",datadir$+"/gasstat.dat",datadir$+"/wasserstat.dat",datadir$+"/stromstat.dat",zieldir$+"/Tagesstatistik.png")
PRINT #2,"<hr>"
PRINT #2,"<FONT FACE="+CHR$(34)+"ARIAL,HELVETICA"+CHR$(34)+" SIZE=1>"
PRINT #2,"Erzeugt am "+TIME$+" "+DATE$
PRINT #2,"</FONT></BODY></HTML>"
CLOSE #2
PRINT "--> index.html"
QUIT

FUNCTION get_entry$(f$,daynum)
  LOCAL t$
  ret$=""
  OPEN "I",#33,f$
  WHILE NOT EOF(#33)
    LINEINPUT #33,t$
    t$=trim$(t$)
    IF daynum=VAL(WORD$(t$,1))
      ret$=t$
      BREAK
    ENDIF
  WEND
  CLOSE #33
  RETURN ret$
ENDFUNCTION

' Macht eine Tabelle und ein Histo-Plot von Gegebener WOche/Monat etc...
PROCEDURE sumi(datafile$,statf$,statf2$,statf3$,img$)
  LOCAL asum,bsum,csum,tag$,ertrag,verbrauch,t$

  OPEN "O",#11,datafile$
  PRINT #2,"<table border=1 align='center' cellspacing=0>"
  PRINT #2,"<td align='center'>Tag #</td><td align='center'>Datum</td><td align='center'>Gasverbrauch [mÂ³]</td><td align='center'>Wasserverbrauch [l]</td><td align='center'>Stromverbrauch [kWh]</td><td align='center'>Druck [hPa]</td>"
  CLR asum,bsum,csum
  FOR i=today-32 TO today
    gasverbrauch=gasday(i-today+365)
    wasserverbrauch=wasserday(i-today+365)
    stromverbrauch=stromday(i-today+365)
    IF gasverbrauch>0 OR stromverbrauch>0 OR wasserverbrauch>0
      PRINT #2,"<tr>"
      tag$=str$(i)
      datum$=UNIXDATE$(i*24*3600)
      print datum$,gasverbrauch,wasserverbrauch,stromverbrauch
      PRINT #2,"<td align='center'>"+str$(i)+"</td>"
      PRINT #2,"<td align='center'>"+datum$+"</td>"
      PRINT #2,"<td align='right'>"
      IF EXIST(zieldir$+"/plots/"+tag$+"-Gas.png")
        PRINT #2,"<a href='plots/"+tag$+"-Gas.png'>"+USING$(gasverbrauch,"###.#")+"</a>"
      ELSE
        PRINT #2,USING$(gasverbrauch,"###.#")
      ENDIF
      PRINT #2,"</td>"
      
      PRINT #2,"<td align='right'>"
      IF EXIST(zieldir$+"/plots/"+tag$+"-Wasser.png")
        PRINT #2,"<a href='plots/"+tag$+"-Wasser.png'>"+USING$(wasserverbrauch,"####")+"</a>"
      ELSE
        PRINT #2,USING$(wasserverbrauch,"####")
      ENDIF
      PRINT #2,"</td>"

      PRINT #2,"<td align='right'>"
      IF EXIST(zieldir$+"/plots/"+tag$+"-Strom.png")
        PRINT #2,"<a href='plots/"+tag$+"-Strom.png'>"+USING$(stromverbrauch,"###.#")+"</a>"
      ELSE
        PRINT #2,USING$(stromverbrauch,"###.#")
      ENDIF
      PRINT #2,"</td>"
      PRINT #2,"</tr>"
      ADD asum,gasverbrauch
      ADD bsum,wasserverbrauch
      ADD csum,stromverbrauch
      PRINT #11,STR$(i);" ";datum$;" ";str$(gasverbrauch);" ";str$(wasserverbrauch);" ";str$(stromverbrauch)
    ENDIF
  NEXT i
  CLOSE #11
  PRINT #2,"</table>"
  PRINT #2,"<p>"
  PRINT #2,"Summe: "+USING$(asum,"#####.#")+" Kubikmeter <br>"
  PRINT #2,"Summe: "+USING$(bsum,"######")+" Liter <br>"
  PRINT #2,"Summe: "+USING$(csum,"#####.#")+" kWh <br>"
  PRINT #2,"<p>"
  
  t$=@load_proto$(etcdir$+"/tstat.gnu.proto")
  t$=REPLACE$(t$,"input.dat",datafile$)
  t$=REPLACE$(t$,"output.png",img$)
  BSAVE "/run/shm/a.gnu",VARPTR(t$),LEN(t$)
  SYSTEM "gnuplot /run/shm/a.gnu"
  KILL "/run/shm/a.gnu"
  PRINT "<-- "+img$
RETURN

' Gibt Kalenderwoche zu Datum (c) Markus Hoffmann
FUNCTION kw(d$)
  LOCAL j,j2,wt,wt2,a,b
  j=JULIAN(d$)
  wt=(j+7) MOD 7
  a=j-wt+3            ! Donnerstag der Woche  
  j2=JULIAN("04.01."+RIGHT$(d$,4))
  wt2=(j2+7) MOD 7
  b=j2-wt2+3          ! Erster Donnerstag im Jahr
  RETURN (a-b)/7+1
ENDFUNCTION
FUNCTION load_proto$(f$)
  LOCAL xt$
  OPEN "I",#1,f$
  xt$=INPUT$(#1,LOF(#1))
  CLOSE #1
  RETURN xt$
ENDFUNCTION

Display More

wend · Apr 9th 2021

Code: /home/pi/stromzaehler/bas/Strom-Auswertung.bas

#!/usr/bin/xbasic

' Macht Datenauswertung fuer Stromzaehler-Daten
zieldir$="/var/www/html"
basedir$="/home/pi/stromzaehler"
rawdatadir$="/home/pi/rawdata"
datadir$="/home/pi/data"

' cleanup
IF EXIST("/run/shm/dead.letter")
  KILL "/run/shm/dead.letter"
ENDIF
CHDIR basedir$
SYSTEM "sudo chown pi "+datadir$+"/*.dat"
PRINT "Daten-Auswertung start..."

' Jetzt die Verbrauchsdatens"atze einsortieren
a$=FSFIRST$(datadir$,"strom-*.dat")
WHILE LEN(a$)
  IF WORD$(a$,1)="-"
    ff$=WORD$(a$,2)
    SPLIT ff$,".",0,a$,t$
    SPLIT a$,"-",0,t$,a$
    t=INT((TIMER-1000)/3600/24)
    IF VAL(a$)<t
      @dowasser(datadir$+"/"+ff$)
    ELSE
      PRINT "Laufende Datennahme: "+ff$
      OPEN "I",#1,"/home/pi/stromzaehler/gnu/stromverbrauch.gnu.proto"
      t$=INPUT$(#1,LOF(#1))
      CLOSE #1
      t$=REPLACE$(t$,"017217",STR$(t,6,6,1))
      t$=REPLACE$(t$,"xx.xx.xxxx",date$)
      BSAVE "/home/pi/stromzaehler/gnu/stromverbrauch.gnu",VARPTR(t$),LEN(t$)
    ENDIF
  ENDIF
  a$=FSNEXT$()
WEND
QUIT

PROCEDURE dowasser(f$)
  LOCAL t$,x1,x2,count%,t1,t2,t3,a$,tag$
  LOCAL gmin,gmax,gaa,gmm,gzz
  gmin=9999
  gmm=0
  gmax=-99
  PRINT "<-- ";f$
  SYSTEM "sudo chmod 644 "+f$
  OPEN "I",#1,f$
  WHILE NOT EOF(#1)
    LINEINPUT #1,t$
    t$=TRIM$(t$)
    IF LEFT$(t$)="%" OR LEFT$(t$)="#"
      '
    ELSE
      x1=VAL(WORD$(t$,1))
      t1=VAL(WORD$(t$,2))
      t2=VAL(WORD$(t$,3))
      if t2>0
        wasser=1000/75/t2*3600   ! W 
      else
        wasser=0
      endif
      a=VAL(WORD$(t$,4))
      c=VAL(WORD$(t$,5))
      gmin=MIN(gmin,wasser)
      if count%=0
        gmm=wasser
    gascounterstart=c
      else
        gmm=(gmm*count%+wasser)/(count%+1)
      endif
      gmax=MAX(gmax,wasser)
      INC count%
      IF (count% MOD 100)=0
        PRINT count%;CHR$(13);
    FLUSH
      ENDIF
    ENDIF
  WEND
  gzz=wasser
  gascounterend=c
  CLOSE #1
  PRINT "]("+STR$(count%)+")"
  PRINT "Tagesstromverbrauch: ";USING$(1/75*(gascounterend-gascounterstart),"###.#");" kWh"
  PRINT "strom=[";USING$(gmin,"####.#");":";USING$(gmm,"####.#");":";USING$(gmax,"####.#");"] ";using$(gaa,"####.###");" -> ";using$(gzz,"####.###");" [W]"

  ' Jetzt noch den Tagesverlauf Plotten....

  ' tag$ aus f$
  SPLIT f$,".",0,a$,t$
  SPLIT a$,"-",0,a$,tag$
  plotfile$=zieldir$+"/plots/"+str$(val(tag$))+"-Strom.png"
  if not exist(plotfile$)
    print "--> "+plotfile$
      OPEN "I",#1,"/home/pi/stromzaehler/gnu/stromverbrauch.gnu.proto"
      t$=INPUT$(#1,LOF(#1))
      CLOSE #1
      t$=REPLACE$(t$,"017217",tag$)
      t$=REPLACE$(t$,"/var/www/html/strom.png",plotfile$)
      t$=REPLACE$(t$,"Aktueller ","")
      t$=REPLACE$(t$,"xx.xx.xxxx",UNIXDATE$(VAL(tag$)*24*3600))
      BSAVE "/var/run/shm/strom.gnu",varptr(t$),len(t$)
      SYSTEM "gnuplot /var/run/shm/strom.gnu"
      SYSTEM "chmod 644 "+plotfile$
  ENDIF
  PRINT "mv "+f$+" "+rawdatadir$+"/"
  SYSTEM "mv "+f$+" "+rawdatadir$+"/"
  OPEN "A",#1,datadir$+"/stromstat.dat"
  SPLIT f$,".",0,a$,t$
  SPLIT a$,"-",0,t$,a$
  PRINT #1,a$+" "+UNIXDATE$(VAL(a$)*24*3600)+" "+USING$(1/75*(gascounterend-gascounterstart),"###.###")+" ";
  PRINT #1,USING$(gmin,"####.##")+" "+USING$(gmm,"####.##")+" "+USING$(gmax,"####.##")+" "+USING$(gaa,"####.##")+" "+USING$(gzz,"####.##")+" ";
  PRINT #1
  CLOSE #1
  PRINT "--> "+datadir$+"/stromstat.dat"
RETURN

Display More

wend · Apr 9th 2021

Code: /home/pi/wasserzaehler/bas/Wasser-Auswertung.bas

#!/usr/bin/xbasic

' Macht Datenauswertung fuer WasserzÃ¤hler Daten

zieldir$="/var/www/html"
basedir$="/home/pi/wasserzaehler"
rawdatadir$="/home/pi/rawdata"
datadir$="/home/pi/data"

' cleanup
IF EXIST("/run/shm/dead.letter")
  KILL "/run/shm/dead.letter"
ENDIF
CHDIR basedir$
SYSTEM "sudo chown pi "+datadir$+"/*.dat"
PRINT "Daten-Auswertung start..."
' Jetzt die Verbrauchsdatens"atze einsortieren
a$=FSFIRST$(datadir$,"wasser-*.dat")
WHILE LEN(a$)
  IF WORD$(a$,1)="-"
    ff$=WORD$(a$,2)
    SPLIT ff$,".",0,a$,t$
    SPLIT a$,"-",0,t$,a$
    t=INT((TIMER-1000)/3600/24)
    IF VAL(a$)<t
      @dowasser(datadir$+"/"+ff$)
    ELSE
      PRINT "Laufende Datennahme: "+ff$
      OPEN "I",#1,"/home/pi/wasserzaehler/gnu/wasserverbrauch.gnu.proto"
      t$=INPUT$(#1,LOF(#1))
      CLOSE #1
      t$=REPLACE$(t$,"017217",STR$(t,6,6,1))
      t$=REPLACE$(t$,"xx.xx.xxxx",date$)
      BSAVE "/home/pi/wasserzaehler/gnu/wasserverbrauch.gnu",varptr(t$),len(t$)
    ENDIF
  ENDIF
  a$=FSNEXT$()
WEND
QUIT


PROCEDURE dowasser(f$)
  LOCAL t$,x1,x2,count%,t1,t2,t3,a$,tag$
  LOCAL gmin,gmax,gaa,gmm,gzz
  gmin=9999
  gmm=0
  gmax=-99
  PRINT "<-- ";f$
  SYSTEM "sudo chmod 644 "+f$
  OPEN "I",#1,f$
  WHILE NOT EOF(#1)
    LINEINPUT #1,t$
    t$=TRIM$(t$)
    IF LEFT$(t$)="%" OR LEFT$(t$)="#"
      '
    ELSE
      x1=VAL(WORD$(t$,1))
      t1=VAL(WORD$(t$,2))
      t2=VAL(WORD$(t$,3))
      if t2>0
        wasser=1/t2*3600*24
      else
        wasser=0
      endif
      a=VAL(WORD$(t$,4))
      c=VAL(WORD$(t$,5))
      gmin=MIN(gmin,wasser)
      if count%=0
        gmm=wasser
    gascounterstart=c
      else
        gmm=(gmm*count%+wasser)/(count%+1)
      endif
      gmax=MAX(gmax,wasser)
      INC count%
      IF (count% MOD 100)=0
        PRINT count%;CHR$(13);
    FLUSH
      ENDIF
    ENDIF
  WEND
  gzz=wasser
  gascounterend=c
  CLOSE #1
  PRINT "]("+STR$(count%)+")"
  PRINT "Tagesverbrauch: ";USING$(gascounterend-gascounterstart,"####");" Liter"
  PRINT "wasser=[";using$(gmin,"####.#");":";using$(gmm,"####.#");":";using$(gmax,"####.#");"] ";using$(gaa,"####.###");" -> ";using$(gzz,"####.###")

  ' Jetzt noch den Tagesverlauf Plotten....

  ' tag$ aus f$
  SPLIT f$,".",0,a$,t$
  SPLIT a$,"-",0,a$,tag$
  plotfile$=zieldir$+"/plots/"+str$(val(tag$))+"-Wasser.png"
  if not exist(plotfile$)
    print "--> "+plotfile$
      OPEN "I",#1,"/home/pi/wasserzaehler/gnu/wasserverbrauch.gnu.proto"
      t$=INPUT$(#1,LOF(#1))
      CLOSE #1
      t$=REPLACE$(t$,"017217",tag$)
      t$=REPLACE$(t$,"/var/www/html/wasser.png",plotfile$)
      t$=REPLACE$(t$,"Aktueller ","")
      t$=REPLACE$(t$,"xx.xx.xxxx",UNIXDATE$(VAL(tag$)*24*3600))
      BSAVE "/var/run/shm/wasser.gnu",varptr(t$),len(t$)
      SYSTEM "gnuplot /var/run/shm/wasser.gnu"
      SYSTEM "chmod 644 "+plotfile$
  ENDIF
  PRINT "mv "+f$+" "+rawdatadir$+"/"
  SYSTEM "mv "+f$+" "+rawdatadir$+"/"
  OPEN "A",#1,datadir$+"/wasserstat.dat"
  SPLIT f$,".",0,a$,t$
  SPLIT a$,"-",0,t$,a$
  PRINT #1,a$+" "+UNIXDATE$(VAL(a$)*24*3600)+" "+USING$(gascounterend-gascounterstart,"####")+" ";
  PRINT #1,using$(gmin,"####.##")+" "+using$(gmm,"####.##")+" "+using$(gmax,"####.##")+" "+using$(gaa,"####.##")+" "+using$(gzz,"####.##")+" ";
  PRINT #1
  CLOSE #1
  PRINT "--> "+datadir$+"/wasserstat.dat"
RETURN

Display More

wend · Apr 9th 2021

Code: /home/pi/gaszaehler/bas/Gas-Auswertung.bas

#!/usr/bin/xbasic

' Macht Datenauswertung fuer Gas

zieldir$="/var/www/html"
basedir$="/home/pi/gaszaehler"
rawdatadir$="/home/pi/rawdata"
datadir$="/home/pi/data"

' cleanup
if exist("/run/shm/dead.letter")
  kill "/run/shm/dead.letter"
endif

CHDIR basedir$
system "sudo chown pi "+datadir$+"/*.dat"
PRINT "Daten-Auswertung start..."

' Jetzt die Verbrauchsdatens"atze einsortieren
a$=FSFIRST$(datadir$,"gas-*.dat")
WHILE LEN(a$)
  IF WORD$(a$,1)="-"
    ff$=WORD$(a$,2)
    SPLIT ff$,".",0,a$,t$
    SPLIT a$,"-",0,t$,a$
    t=INT((TIMER-1000)/3600/24)
    IF VAL(a$)<t
      @dogas(datadir$+"/"+ff$)
    ELSE
      PRINT "Laufende Datennahme: "+ff$
      OPEN "I",#1,"/home/pi/gaszaehler/gnu/gasverbrauch.gnu.proto"
      t$=INPUT$(#1,LOF(#1))
      CLOSE #1
      t$=REPLACE$(t$,"017217",STR$(t,6,6,1))
      t$=REPLACE$(t$,"xx.xx.xxxx",date$)
      BSAVE "/home/pi/gaszaehler/gnu/gasverbrauch.gnu",varptr(t$),len(t$)
    ENDIF
  ENDIF
  a$=FSNEXT$()
WEND
QUIT

PROCEDURE dogas(f$)
  LOCAL t$,x1,x2,count%,t1,t2,t3
  LOCAL gmin,gmax,gaa,gmm,gzz
  gmin=99
  gmm=0
  gmax=-99
  PRINT "<-- ";f$
  system "sudo chmod 644 "+f$
  OPEN "I",#1,f$
  WHILE NOT EOF(#1)
    LINEINPUT #1,t$
    IF LEFT$(t$)="%" OR LEFT$(t$)="#"
      '
    ELSE
      x1=VAL(WORD$(t$,1))
      t1=VAL(WORD$(t$,2))
      t2=VAL(WORD$(t$,3))
      if t2>0
        gas=0.01/t2*3600*24
      else
        gas=0
      endif
      a=VAL(WORD$(t$,4))
      c=VAL(WORD$(t$,5))
      gmin=MIN(gmin,gas)
      if count%=0
        gmm=gas
    gascounterstart=c
      else
        gmm=(gmm*count%+gas)/(count%+1)
      endif
      gmax=MAX(gmax,gas)
      INC count%
      IF (count% MOD 100)=0
        PRINT count%;CHR$(13);
    FLUSH
      ENDIF
    ENDIF
  WEND
  gzz=gas
  gascounterend=c
  CLOSE #1
  PRINT "]("+STR$(count%)+")"
  PRINT "Tagesverbrauch: ";0.01*(gascounterend-gascounterstart);" Kubikmeter"
  PRINT "gas=[";using$(gmin,"###.###");":";using$(gmm,"###.###");":";using$(gmax,"###.###");"] ";using$(gaa,"###.###");" -> ";using$(gzz,"###.###")

  ' Jetzt noch den Tagesverlauf Plotten....
  ' tag$ aus f$
  SPLIT f$,".",0,a$,t$
  SPLIT a$,"-",0,a$,tag$
  plotfile$=zieldir$+"/plots/"+str$(val(tag$))+"-Gas.png"
  if not exist(plotfile$)
    print "--> "+plotfile$
      OPEN "I",#1,"/home/pi/gaszaehler/gnu/gasverbrauch.gnu.proto"
      t$=INPUT$(#1,LOF(#1))
      CLOSE #1
      t$=REPLACE$(t$,"017217",tag$)
      t$=REPLACE$(t$,"/var/www/html/gas.png",plotfile$)
      t$=REPLACE$(t$,"Aktueller ","")
      t$=REPLACE$(t$,"xx.xx.xxxx",UNIXDATE$(VAL(tag$)*24*3600))
      BSAVE "/var/run/shm/gas.gnu",varptr(t$),len(t$)
      SYSTEM "gnuplot /var/run/shm/gas.gnu"
      SYSTEM "chmod 644 "+plotfile$
  endif
  PRINT "mv "+f$+" "+rawdatadir$+"/"
  SYSTEM "mv "+f$+" "+rawdatadir$+"/"
  OPEN "A",#1,datadir$+"/gasstat.dat"
  SPLIT f$,".",0,a$,t$
  SPLIT a$,"-",0,t$,a$
  PRINT #1,a$+" "+UNIXDATE$(VAL(a$)*24*3600)+" "+str$(0.01*(gascounterend-gascounterstart))+" ";
  PRINT #1,using$(gmin,"###.###")+" "+using$(gmm,"###.###")+" "+using$(gmax,"###.###")+" "+using$(gaa,"###.###")+using$(gzz,"###.###")+" ";
  PRINT #1
  CLOSE #1
  PRINT "--> "+datadir$+"/gasstat.dat"
RETURN

Display More

Posts by wend

Sammelthread: "Ist mein Projekt machbar?"

Sammelthread: "Ist mein Projekt machbar?"

Sammelthread: "Ist mein Projekt machbar?"

Hat der Raspberry PI einen Zufallsgenerator? Wenn ja, was für ein Typ ist es, und welche Software gibt es um diesen zu nutzen?

Suche Anregungen für Programmstruktur

Arduino RTC mit Raspberry synchronisieren

Arduino RTC mit Raspberry synchronisieren

Arduino RTC mit Raspberry synchronisieren

[Tutorial] analoge Strom- Gas- und Wasserzähler auslesen und Daten auswerten

MQTT und NodeRed empfange Daten in eine TXT-Datei schreiben.

Arduino RTC mit Raspberry synchronisieren

Luftdrucksensor für RPi

Python Script weiterlaufen lassen wenn Putty geschlossen wird.

User Vorstellung

LCD Display 12C LCD 1602 leuchtet nur blau, aber zeigt nichts an.

[Tutorial] analoge Strom- Gas- und Wasserzähler auslesen und Daten auswerten

[Tutorial] analoge Strom- Gas- und Wasserzähler auslesen und Daten auswerten

[Tutorial] analoge Strom- Gas- und Wasserzähler auslesen und Daten auswerten

[Tutorial] analoge Strom- Gas- und Wasserzähler auslesen und Daten auswerten

[Tutorial] analoge Strom- Gas- und Wasserzähler auslesen und Daten auswerten