einfacher zähler

[mroschk]

Hallo,

ja genau, funktioniert super!
Danke dir/euch für die Hilfe !
Wieder was gelernt

Jetzt werd ich mal schauen wie ich das mit Pearl hinbekomme

Matthias

[Damian]

Hier ein Beispiel wie man diese Aufgabe in DOIF-Perl-Mode umsetzen kann:

Code Auswählen Erweitern

define di_count DOIF
subs { # Deklaration von Funktionen
sub count_inc { #Funktion zum hochzählen
  if ($_count < 10) {
    $_count++; # zähle Instanzvariable $_count eins hoch
    set_Reading("count",$_count,1); # setze Reading count
    set_Exec("timer",1,"count_inc"); # Funktion ruft sich selbst auf in einer Sekunde
  }
}

sub count_dec { #Funktion zum runterzählen
  if ($_count > 0) {
    $_count--;
    set_Reading("count",$_count,1);
    set_Exec("timer",1,"count_dec")
  }
}

}
## BLock reagiert auf Trigger von Schalter und ruft ggf. Funktion count_inc auf
{if ([Schalter] eq "on" and $_count < 100) {count_inc()}}

## BLock reagiert auf Trigger von Schalter und ruft ggf. Funktion count_dec auf
{if ([Schalter] eq "off" and $_count > 0) {count_dec()}}


Im Reading count von di_count kann man sehen, was passiert.

An diesem Beispiel sieht man, wie man im DOIF-Perl-Mode:

- Trigger-Blöcke definiert
- eigene Funktionen programmiert
- eigene Funktionen sich über Timer selbst aufrufen können
- Device-Variablen (Instanzvariablen) nutzt ($_count)
- Perl nutzt, Angaben in eckigen Klammern stellen hier einer Erweiterung der Perl-Syntax um Trigger dar, diese gibt es im reinen Perl so natürlich nicht
- ohne FHEM-Befehle auskommt, der FHEM-Parser wird zur Laufzeit gar nicht in Anspruch genommen
- ohne Attribute auskommt

[mroschk]

Hallo,

wow, was für eine SUPER Erklärung mit Kommentaren !!
Das werd ich vielleicht nachher noch ausprobieren.
Ich danke dir sehr !!

Matthias

[rischbiter123]

Moin,

müsste es hier

Code Auswählen Erweitern

sub count_inc { #Funktion zum hochzählen
  if ($_count < 10) {
    $_count++; # zähle Instanzvariable $_count eins hoch
nicht auch <100 heißen?

LG

Andreas

OT
Könnte man das nicht so auch als 'Eieruhr' nutzen?

[mroschk]

ja egal, sind doch nur Testwerte.
aber Eieruhr klingt gut

Matthias

[Damian]

10 war Absicht, sonst muss man zu lange warten, bis man beim höchsten Wert ankommt. Es sind auch nicht 0.2 Sekunden

[mroschk]

Hallo,

im Umzugsstress hatte ich kurz zeit das DOIF mit Pearl zu testen.

Was genau soll denn diese Zeile machen?

Code Auswählen Erweitern


set_Reading("count",$_count,1); # setze Reading count


ich hab mal noch ein fhem"set count $_count" in das DOIF aufgenommen, damit wird das state von dem dummy namens "count" gesetzt.

Soll die das Reading ( also state ) von dem dummy "count" setzen ? Falls ja, dann funktioniert das nicht.
Zweite Frage: Woher kommt denn $_count ? Das wird ja nirgends definiert.

Dank euch für die Hilfe.

Matthias

[Prof. Dr. Peter Henning]

Pearl

Freundlicher Hinweis: Bei Pearl handelt es sich um eine ANDERE Programmiersprache als die für FHEM verwendete Sprache Perl

pah

[Damian]

Hallo,

im Umzugsstress hatte ich kurz zeit das DOIF mit Pearl zu testen.

Was genau soll denn diese Zeile machen?

Code Auswählen Erweitern


set_Reading("count",$_count,1); # setze Reading count


ich hab mal noch ein fhem"set count $_count" in das DOIF aufgenommen, damit wird das state von dem dummy namens "count" gesetzt.

Soll die das Reading ( also state ) von dem dummy "count" setzen ? Falls ja, dann funktioniert das nicht.
Zweite Frage: Woher kommt denn $_count ? Das wird ja nirgends definiert.

Dank euch für die Hilfe.

Matthias

Ich zitiere mal:

Im Reading count von di_count kann man sehen, was passiert.

Zum Thema Instanzvariablen im DOIF-Perl-Mode und dass man sie nicht definieren muss, kann man hier nachlesen: https://fhem.de/commandref_DE.html#DOIF_Device-Variablen

[mroschk]

oh, ich muss besser lesen...SORRY !!

Danke nochmal
Matthias

[Damian]

Nebenbei:

Bei meinem Beispiel kommt man auch mit einem Ereignisblock aus, da der Trigger der selbe ist.

Statt:

Code Auswählen Erweitern

## BLock reagiert auf Trigger von Schalter und ruft ggf. Funktion count_inc auf
{if ([Schalter] eq "on" and $_count < 100) {count_inc()}}

## BLock reagiert auf Trigger von Schalter und ruft ggf. Funktion count_dec auf
{if ([Schalter] eq "off" and $_count > 0) {count_dec()}}

lässt sich auch definieren:

Code Auswählen Erweitern

{if ([Schalter] eq "on" and $_count < 100) {count_inc()} elsif ([Schalter] eq "off" and $_count > 0) {count_dec()}}

[mroschk]

Hallo,

ahh, ok...probier ich, wenn ich meinen Raspi wieder in Stellung gebracht habe

Matthias

[nils_]

Das hatte ich schon mal bei was anderem probiert und kenne ich auch aus C#. Da muss man auch immer aufpassen, das einem die HUI nicht einfriert.

oha.... wie kommst du zu dieser annahme??