Fs20 ES1 an Grundwasserpumpe

[fiffi]

Guten Tag,
viele Grüße an alle Mitglieder.
Habe mich Heute angemeldet mit einem Makroproblem.
Ich habe eine Grundwasserpumpe mit einem ES1 Erschütterungssensor verbunden.
Schaltet die Pumpe ein, sendet der ES1 ein Signal an meine FHZ 1300 WLAN.
Je öfter die Pumpe schaltet, je mehr steigt das Grundwasser.
Kann man das steigende und fallende Wasser in der Visialisierung anzeigen.
Zum Beispiel mit einem Plus und Minuszeichen, oder einer roten und grünen Anzeige.
Mit einem passenden Makro ist bestimmt was zu machen.
Eine rote und grüne LED wäre auch nicht schlecht, aber wie.
Für eine Antwort danke ich.

nochmals viele Grüße aus Kempen
von Rainer

[buempi]

Hallo Rainer und herzlich willkommen im Forum!

Deine Angaben über das Schaltverhalten der Pumpe sind etwas spärlich. Man müsste zu viele Annahmen treffen. Ein aufgrund dieser Annahmen erstelltes Makro wäre dann kaum brauchbar. - Kannst du deshalb mal folgende Fragen beantworten:

1. Wie lange läuft die Pumpe, wenn sie mal einschaltet

- mindestens
- normalerweise
- höchstens

2. Welcher minimale Zeitabschnitt muss beobachtet werden, um aussagekräftige Daten darüber zu sammeln, ob der Pegel steigt, sinkt oder gleich bleibt? (1 Stunde, 3, 6 ....)

3. Wenn eher die Einschalt-Häufigkeit innerhalb dieses Zeitabschnittes ein geeignetes Indiz für den Pegel ist, wie viele EIN's bedeuten

- steigend
- sinkend
- gleichbleibend

4. Wenn eher die Gesamt-Laufzeit innerhalb dieses Zeitabschnittes ein geeignetes Indiz für den Pegel ist, wie viele Minuten bedeuten

- steigend
- sinkend
- gleichbleibend

Für die Anzeige der drei Zustände wird man eine eigene Typdefinition anlegen müssen, welcher man dann auch die passenden Bitmaps zuordnen kann. Grüne/gelbe/rote LED's gibt's in der BMP-Sammlung von Homeputer nicht; aber im Internet müsste sich so was finden lassen.... Oder du malst dir mit Paint entsprechend eingefärbte Kreise; wenn du den Hintergrund rein blau (Farbe: 0/0/255) machst, wird dieser in der Visualisierung durchsichtig.

Viele Grüsse
Bümpi

[fiffi]

Moin, buempi
danke für die schnelle Antwort.

Also, normalerweise läuft die Pumpe nicht.
Wenn das Grundwasser steigt läuft das Wasser in den Pumpensumpf.
Ist der Pumpensumpf (Auffangwanne) voll, pumpt die Pumpe ihn leer.
Mit steigendem Grundwasser muss die Pumpe öfter laufen.
Sinkt das Grundwasser läuft sie wieder weniger.
Ich müsste die Schaltvorgänge in einer Stunde mit der nächsten Stunde vergleichen.
Der Unterschied zeigt mir an ob das Wasser steigt oder sinkt.( mehr oder weniger Einschaltungen )
Zur Zeit läuft die Pumpe alle 40 min.
Regnet es noch einige Tage weiter kann es sein, das Sie alle 5 min einschaltet.
Ich möchte einfach nur eine Anzeige, ob die Pumpe mehr oder weniger schalten muss.
Vielleicht ist es ratsam die Zählung der Einschaltungen alle sechs Stunden zu machen und mit den vorherigen sechs
Stunden zu vergleichen und dann ein Plus oder Minuszeichen anzuzeigen.
Aber wie und wo ?
nochmals danke für deine Mühe
Gruß
Rainer

[buempi]

Hallo Rainer

Sehr aussagekräftig sind deine Angaben immer noch nicht! Versuchen wir mal eine Lösung mit einer "rollenden" Beobachtungsperiode von 3 Stunden.

Der Erschütterungssensor sendet ja nur Signale, solange er Erschütterungen feststellt. Es kommt kein "keine Erschütterung". Deshalb müssen wir ihn im Makro zurücksetzen. Ich nehme mal an, dass die Pumpe AUS ist, wenn während einer Minute keine Signale gekommen sind (vielleicht musst du das anpassen). Du aktivierst "Ausführen bei Empfang" und trägst folgendes Makro ein:

Code: Alles auswählen

wenn Erschuetterungssensor eingeschaltet dann

   ** nur beim ersten EIN-Signal darf der Zaehler erhöht werden!
   wenn geschaltet(Erschuetterungssensor) dann
      AnzeigeGrundwasser.Stunde1 := AnzeigeGrundwasser.Stunde1 + 1
      erledigt(Erschuetterungssensor)
   endewenn

   warte("00:01:00")
   Erschuetterungssensor ausschalten

endewenn

Nun erstellst du ein Objekt vom Typ Zeichen "AnzeigeGrundwasser". Als Ausführungsintervall wählst du "jede Stunde". Du definierst die angegebenen Variablen und trägst das Makro ein:

Code: Alles auswählen

** Variablen: Stunde1       Typ Zahl   Startwert 0
**            Stunde2       Typ Zahl   Startwert -1
**            Stunde3       Typ Zahl   Startwert -1
**            Stunde4       Typ Zahl   Startwert -1
**            SummeAlt      Typ Zahl   Startwert 0
**            SummeNeu      Typ Zahl   Startwert 0
**            Differenz     Typ Zahl   Startwert 0


** Die erste (angebrochene) Stunde wird nicht berücksichtigt
wenn Stunde2 < 0 dann
   Stunde2   := 9999
   Stunde1   := 0
   verlassen
endewenn

** Eine Stunde nach Programmstart noch kein Vergleichswert vorhanden
wenn Stunde2  = 9999 dann
   Stunde2   := Stunde1
   Stunde1   := 0
   verlassen
endewenn

SummeNeu := Stunde1
SummeAlt := Stunde2

wenn Stunde3 >= 0 dann
   SummeNeu  := SummeNeu + Stunde2
   SummeAlt  := SummeAlt + Stunde3
endewenn

wenn Stunde4 >= 0 dann
   SummeNeu  := SummeNeu + Stunde3
   SummeAlt  := SummeAlt + Stunde4
endewenn

Differenz := SummeNeu - SummeAlt

wenn Differenz > 3 dann
   AnzeigeGrundwasser := "steigend"
sonst
   wenn Differenz < (-3) dann
      AnzeigeGrundwasser := "fallend"
   sonst
      AnzeigeGrundwasser := "gleichbleibend"
   endewenn
endewenn

Stunde4 := Stunde3
Stunde3 := Stunde2
Stunde2 := Stunde1
Stunde1 := 0

Die erste Anzeige wird erst bei der dritten vollen Stunde nach Programmstart erfolgen! Die erste (angebrochene) Stunde wird nicht berücksichtigt!

Viele Grüsse
Bümpi

[fiffi]

Danke vielmals für die Vorschläge.
Werde es in Kürze testen.

Gruß
Rainer

[fiffi]

So, moin erstmal.
Das Makro läuft einwandfrei.
Habe die Messzeit auf 6 Stunden gestellt und die
Abweichung > oder < auf 2 Schaltvorgänge verkürzt.
Aber das kann man ja individuell einstellen

Danke an buempi

viele Grüße aus Kempen von Rainer

[fiffi]

Guten Abend,

ich bin es nochmal zum Thema Grundwasserpumpe.
Ich brauche noch eine Anzeige wie oft die Pumpe in der Stunde einschaltet.

Kann mir einer helfen ?
buempi vielleicht ?

Danke im Voraus

[buempi]

Hallo Rainer

Da würde ich ein neues Objekt vom Typ Zeichen "AnzahlEIN" anlegen; es braucht zwei Variablen vom Typ Zahl mit Startwert 0: AktuelleStunde und LetzteStunde.

Du setzst den Intervall auf jede Stunde und trägst folgendes Makro ein:

Code: Alles auswählen

LetzteStunde   := AktuelleStunde
AktuelleStunde := 0

Im Makro des Erschütterungssensors ergibt sich folgende Änderung:

Code: Alles auswählen

wenn Erschuetterungssensor eingeschaltet dann

   ** nur beim ersten EIN-Signal darf der Zaehler erhöht werden!
   wenn geschaltet(Erschuetterungssensor) dann
      AnzeigeGrundwasser.Stunde1 := AnzeigeGrundwasser.Stunde1 + 1
      AnzahlEin.AktuelleStunde   := AnzahlEin.AktuelleStunde + 1
      AnzahlEin := AnzahlEin.LetzteStunde + " / " + AnzahlEin.AktuelleStunde
      erledigt(Erschuetterungssensor)
   endewenn

   warte("00:01:00")
   Erschuetterungssensor ausschalten

endewenn

So kriegst du eine Anzeige, wie oft die Pumpe in der letzten Stunde und in der aktuellen Stunde eingeschaltet hat.

Viele Grüsse
Bümpi

[fiffi]

Guten Abend
und vielen Dank Bümpi.
Das Macro läuft wie gewollt und fehlerlos.

Gruß
Rainer