Finde den Fehler nicht bei Weckerbastelei

[accessburn]

lol, wollte ich aber 
Ich schau mal was sich machen lässt mit dem Wissensstand

[CoolTux]

Perlcode für das notify

my $wakeUpTime = Value("dummy1") . ":" . Value(dummy2);


Voraussetzung ist das die eingestellte Stunde oder Minute im state drin steht.

Sollte das bockmist sein möge sich bitte jemand melden. Ich bin da auch noch nicht so fit beim verketten.


Grüße

[franky08]

OOch jetzt warst du schneller, hab gerade mal zwei dummys gebastelt und eine sub welche die Verkettung macht, funktioniert.

sub:

Code Auswählen Erweitern

sub
time_set
{
my $tmin = ReadingsVal("Zeit_du_min","state",00);
my $thr = ReadingsVal("Zeit_du_h","state",00);
my $tmin_hr = ($thr . ":" . $tmin);
fhem "set dummy_past $tmin_hr";
}

dummys:

Code Auswählen Erweitern

define Zeit_du_h dummy
attr Zeit_du_h DbLogExclude .*
attr Zeit_du_h room Test
attr Zeit_du_h setList state:00,1,2,3,4,5,6,7,8,8,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24
attr Zeit_du_h webCmd state
define Zeit_du_min dummy
attr Zeit_du_min DbLogExclude .*
attr Zeit_du_min room Test
attr Zeit_du_min setList state:5,10,15,20,25,30,35,40,45,50,55,00
attr Zeit_du_min webCmd state
define dummy_past dummy
attr dummy_past DbLogExclude .*
attr dummy_past room Test

Ergebnis steht dann in dummy_past 

notify hab ich nicht gebaut, da ich nur den Grundansatz testen wollte

VG
Frank

[CoolTux]

Du musst ihm natürlich gleich wieder das volle Programm geben   
Nee ist schon ok, ich muß gestehen ich weiß nicht ganz ob mein Verketten der Value Ergebnisse so geht. Aber ich habe das aus dem Kopf gemacht. Wollte Code sparen.

[CoolTux]

Das interessiert mich jetzt aber echt mit dem Verketten, baue das gerade mal in meiner Testumgebung ein.     

[CoolTux]

Code getestet. Geht wie Bombe, bin doch nicht ganz so vergesslich wie ich dachte

Code Auswählen Erweitern


my $wakeUpTime = Value( "dummy1" ) . ':' . Value( "dummy2" );


Damit hast Du in $wakeUpTime den kompletten String den Du für das modify Deines at's brauchst.




Grüße

[franky08]

Hat er in dummy_past auch 

VG
Frank

[accessburn]

Ihr seit ja krass 
So schnell kann ich garnicht verinnerlichen was da abgeht


Bevor ich aber den Faden verliere. Einen zusätzlichen Ein/Aus-Schalter hab ich vordefiniert. Basierend auf dem Kaffeemaschinen-Script von eben.
Will aber irgendwie nicht. Ich tendiere dazu das ich hier den selben Fehler mache wie eben schon.
Mögt ihr mal schauen?

Code Auswählen Erweitern


define Wecker_an_aus dummy
attr Wecker_an_aus alias Wecker Ein-/Ausschalten
attr Wecker_an_aus devStateIcon Aus:general_aus@red An:general_an@green
attr Wecker_an_aus group Wecker
attr Wecker_an_aus room Wecker
attr Wecker_an_aus setList state:An,Aus
attr Wecker_an_aus webCmd state:Aus
define Wecker_an_aus_nty_an notify Wecker_an_aus {\
my $OG = Value("Wecker_an_aus")\
if ( $OG == "An" ) {fhem ("set Kaffee_an active")}\
if ( $OG == "Aus") {fhem ("set Kaffee_an inactive")}\
}

[CoolTux]

@Frank

Ja hat er auch, mir geht es bei meinem Code immer auch darum nichts doppelt zu haben und Code zu sparen. Deswegen mein Versuch. Also nichts gegen Deine Lösung, welche für einen Anfänger sicherlich verständlicher ist.

@accessburn
Nö mag ich nicht. Wir haben Dir Ansätze gegeben womit Du Deine Ursprungsanfrage lösen kannst.
Ausserdem sieht das aus wie direkt in der fhem.cfg editiert, da kann ich eh nicht helfen. Ich mache alles über das Frontend


Grüße
Leon

[accessburn]

Na gut.
Dann teste ich halt weiter. Irgendwann krieg ich es schon hin.
Die Stunden und Minuten werde ich dann mal umbauen in euere Lösung und das mit dem zusätzlichen Schalter krieg ich auch hin irgendwie 

[franky08]

Stichwort numerische und String Vergleiche, Stichwort zwei: trigger vom notify, sooo und jetzt ein Perl Buch aufschlagen 
https://wiki.selfhtml.org/wiki/Perl/Operatoren
@CoolTux

Ich mache alles über das Frontend

Genau, dann würden solch gravierende Syntax Fehler auch nicht passieren

VG
Frank

[CoolTux]

Code Auswählen Erweitern


define Wecker_an_aus_nty_an notify Wecker_an_aus.* {
                                                  my $OG = Value("Wecker_an_aus");
                                                  fhem "set Kaffee_an active" if( $OG eq "An" );
                                                  fhem "set Kaffee_an inactive" if( $OG eq "Aus" );
                                   }


Code Auswählen Erweitern


define Wecker_an_aus_nty_an notify Wecker_an_aus.* {
                              my $OG = Value("Wecker_an_aus");
                              if ( $OG eq "An" ) {
                                                  fhem "set Kaffee_an active";
                              } else {
                                                  fhem "set Kaffee_an inactive";
                              }
               }


Wenn es nicht geht, nicht meine Schuld   

[Puschel74]

Wenn es nicht geht, nicht meine Schuld

So lässt sich das ganze aber nicht 1:1 übers Frontend eingeben 
Aber zum bearbeiten dessen gibt es ja schon jede Menge Beiträge 

[franky08]

@CoolTux
OOch, jetzt hast du alles verraten und ihm das lesen erspart 

VG
Frank

[CoolTux]

Ich hege Hoffnung das er sich über den Code informiert und daran reift. Also der Anfragende, nicht der Code