Ankündigung

Einklappen
Keine Ankündigung bisher.

Rolladenkonfigurationsseite + Timer

Einklappen
X
Einklappen
 
  • Seite von 1
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge
Vorherige template Weiter
    #1

    [Codebeispiel] Rolladenkonfigurationsseite + Timer

    Hallo Leute,

    Hab mir mal für meine Rollos eine kleine Konfigurationsseite gebastelt in der ich mit Timern die Rollos nach meine Wünschen fahren kann.

    Besteht aus 6 Zeitschaltuhren, in denen ich die Uhrzeit, die abs. Position des Rollos und die Wochentage (Mo-Fr, Mo-So, Sa-So) einstelle.
    Jedem Raum kann ich 3 Uhren zuordnen (siehe Screenshot: Wohnzimmer sind Zeitschaltuhr 1, 2 und 4 aktiv, beim Max 2, 5 u. 6)

    Vielleicht kann ja jemand den Code brauchen u. spart sich so einiges an Tipparbeit...

    P.S. nein.. es ist kein Macro.. und nein.. ich mach da auch keins draus..
    jeder muss sich hier halt seine GA's nach Lust und Laune selber eintragen.
    P.P.S. Jaaa. die Variablen heißen so wie meine Räume.. wem das nicht passt.. selber anpassen

    [highlight=epc]
    [EibPC]

    //Seite Rolladensteuerung

    Rollo_Pos1=getpslider(4,Konfig4ID)
    Rollo_Pos2=getpslider(6,Konfig4ID)
    Rollo_Pos3=getpslider(8,Konfig4ID)
    Rollo_Pos4=getpslider(10,Konfig4ID)
    Rollo_Pos5=getpslider(27,Konfig4ID)
    Rollo_Pos6=getpslider(29,Konfig4ID)

    if change(Rollo_Pos1) then setpslider (4,Rollo_Pos1,ROLLER,INACTIVE,Konfig4ID) endif
    if change(Rollo_Pos2) then setpslider (6,Rollo_Pos2,ROLLER,INACTIVE,Konfig4ID) endif
    if change(Rollo_Pos3) then setpslider (8,Rollo_Pos3,ROLLER,INACTIVE,Konfig4ID) endif
    if change(Rollo_Pos4) then setpslider (10,Rollo_Pos4,ROLLER,INACTIVE,Konfig4ID) endif
    if change(Rollo_Pos5) then setpslider (27,Rollo_Pos5,ROLLER,INACTIVE,Konfig4ID) endif
    if change(Rollo_Pos6) then setpslider (29,Rollo_Pos6,ROLLER,INACTIVE,Konfig4ID) endif

    if after (systemstart(),5500u64) then {
    Rollo_Pos1=0%;
    Rollo_Pos2=0%;
    Rollo_Pos3=0%;
    Rollo_Pos4=0%;
    Rollo_Pos5=0%;
    Rollo_Pos6=0%
    } endif

    Rollo_KueFe_Uhr1= 0u08
    Rollo_KueFe_Uhr2= 0u08
    Rollo_KueFe_Uhr3= 0u08

    Rollo_KueTu_Uhr1= 0u08
    Rollo_KueTu_Uhr2= 0u08
    Rollo_KueTu_Uhr3= 0u08

    Rollo_EssFe_Uhr1= 0u08
    Rollo_EssFe_Uhr2= 0u08
    Rollo_EssFe_Uhr3= 0u08

    Rollo_EssTu_Uhr1= 0u08
    Rollo_EssTu_Uhr2= 0u08
    Rollo_EssTu_Uhr3= 0u08

    Rollo_Wohn_Uhr1= 0u08
    Rollo_Wohn_Uhr2= 0u08
    Rollo_Wohn_Uhr3= 0u08

    Rollo_Maxi_Uhr1= 0u08
    Rollo_Maxi_Uhr2= 0u08
    Rollo_Maxi_Uhr3= 0u08

    Rollo_Schlafz_Uhr1= 0u08
    Rollo_Schlafz_Uhr2= 0u08
    Rollo_Schlafz_Uhr3= 0u08

    Rollo_Bad_Uhr1= 0u08
    Rollo_Bad_Uhr2= 0u08
    Rollo_Bad_Uhr3= 0u08

    Rollo_Buero_Uhr1= 0u08
    Rollo_Buero_Uhr2= 0u08
    Rollo_Buero_Uhr3= 0u08

    //Konfiguration Wochentage

    Rollo_Sa_So = AUS
    Rollo_Mo_Fr = AUS
    Rollo_Mo_So = EIN

    Rollo_Tag_1 = 1u08
    Rollo_Tag_2 = 1u08
    Rollo_Tag_3 = 1u08
    Rollo_Tag_4 = 1u08
    Rollo_Tag_5 = 1u08
    Rollo_Tag_6 = 1u08

    Rollo_Tag_Timer1 = AUS
    Rollo_Tag_Timer2 = AUS
    Rollo_Tag_Timer3 = AUS
    Rollo_Tag_Timer4 = AUS
    Rollo_Tag_Timer5 = AUS
    Rollo_Tag_Timer6 = AUS

    if systemstart() and dayofweek()== 0 or dayofweek() == 6 then Rollo_Sa_So = EIN; Rollo_Mo_Fr = AUS else Rollo_Sa_So = AUS; Rollo_Mo_Fr = EIN endif

    if pbutton(30,Konfig4ID) == 1 then Rollo_Tag_1 = Rollo_Tag_1 + 1u08 endif
    if pbutton(30,Konfig4ID) == 2 then Rollo_Tag_1 = Rollo_Tag_1 - 1u08 endif
    if Rollo_Tag_1 == 4u08 then Rollo_Tag_1 = 1u08 endif
    if Rollo_Tag_1 == 0u08 then Rollo_Tag_1 = 3u08 endif
    if Rollo_Tag_1 == 1u08 then Rollo_Tag_Timer1 = Rollo_Mo_So; pdisplay(30, $MO - SO$, UP,INACTIVE,GREEN,Konfig4ID) endif
    if Rollo_Tag_1 == 2u08 then Rollo_Tag_Timer1 = Rollo_Mo_Fr; pdisplay(30, $MO - FR$, UP,INACTIVE,GREEN,Konfig4ID) endif
    if Rollo_Tag_1 == 3u08 then Rollo_Tag_Timer1 = Rollo_Sa_So; pdisplay(30, $SA - SO$, UP,INACTIVE,GREEN,Konfig4ID) endif

    if pbutton(31,Konfig4ID) == 1 then Rollo_Tag_2 = Rollo_Tag_2 + 1u08 endif
    if pbutton(31,Konfig4ID) == 2 then Rollo_Tag_2 = Rollo_Tag_2 - 1u08 endif
    if Rollo_Tag_2 == 4u08 then Rollo_Tag_2 = 1u08 endif
    if Rollo_Tag_2 == 0u08 then Rollo_Tag_2 = 3u08 endif
    if Rollo_Tag_2 == 1u08 then Rollo_Tag_Timer2 = Rollo_Mo_So; pdisplay(31, $MO - SO$, UP,INACTIVE,GREEN,Konfig4ID) endif
    if Rollo_Tag_2 == 2u08 then Rollo_Tag_Timer2 = Rollo_Mo_Fr; pdisplay(31, $MO - FR$, UP,INACTIVE,GREEN,Konfig4ID) endif
    if Rollo_Tag_2 == 3u08 then Rollo_Tag_Timer2 = Rollo_Sa_So; pdisplay(31, $SA - SO$, UP,INACTIVE,GREEN,Konfig4ID) endif

    if pbutton(32,Konfig4ID) == 1 then Rollo_Tag_3 = Rollo_Tag_3 + 1u08 endif
    if pbutton(32,Konfig4ID) == 2 then Rollo_Tag_3 = Rollo_Tag_3 - 1u08 endif
    if Rollo_Tag_3 == 4u08 then Rollo_Tag_3 = 1u08 endif
    if Rollo_Tag_3 == 0u08 then Rollo_Tag_3 = 3u08 endif
    if Rollo_Tag_3 == 1u08 then Rollo_Tag_Timer3 = Rollo_Mo_So; pdisplay(32, $MO - SO$, UP,INACTIVE,GREEN,Konfig4ID) endif
    if Rollo_Tag_3 == 2u08 then Rollo_Tag_Timer3 = Rollo_Mo_Fr; pdisplay(32, $MO - FR$, UP,INACTIVE,GREEN,Konfig4ID) endif
    if Rollo_Tag_3 == 3u08 then Rollo_Tag_Timer3 = Rollo_Sa_So; pdisplay(32, $SA - SO$, UP,INACTIVE,GREEN,Konfig4ID) endif

    if pbutton(33,Konfig4ID) == 1 then Rollo_Tag_4 = Rollo_Tag_4 + 1u08 endif
    if pbutton(33,Konfig4ID) == 2 then Rollo_Tag_4 = Rollo_Tag_4 - 1u08 endif
    if Rollo_Tag_4 == 4u08 then Rollo_Tag_4 = 1u08 endif
    if Rollo_Tag_4 == 0u08 then Rollo_Tag_4 = 3u08 endif
    if Rollo_Tag_4 == 1u08 then Rollo_Tag_Timer4 = Rollo_Mo_So; pdisplay(33, $MO - SO$, UP,INACTIVE,GREEN,Konfig4ID) endif
    if Rollo_Tag_4 == 2u08 then Rollo_Tag_Timer4 = Rollo_Mo_Fr; pdisplay(33, $MO - FR$, UP,INACTIVE,GREEN,Konfig4ID) endif
    if Rollo_Tag_4 == 3u08 then Rollo_Tag_Timer4 = Rollo_Sa_So; pdisplay(33, $SA - SO$, UP,INACTIVE,GREEN,Konfig4ID) endif

    if pbutton(34,Konfig4ID) == 1 then Rollo_Tag_5 = Rollo_Tag_5 + 1u08 endif
    if pbutton(34,Konfig4ID) == 2 then Rollo_Tag_5 = Rollo_Tag_5 - 1u08 endif
    if Rollo_Tag_5 == 4u08 then Rollo_Tag_5 = 1u08 endif
    if Rollo_Tag_5 == 0u08 then Rollo_Tag_5 = 3u08 endif
    if Rollo_Tag_5 == 1u08 then Rollo_Tag_Timer5 = Rollo_Mo_So; pdisplay(34, $MO - SO$, UP,INACTIVE,GREEN,Konfig4ID) endif
    if Rollo_Tag_5 == 2u08 then Rollo_Tag_Timer5 = Rollo_Mo_Fr; pdisplay(34, $MO - FR$, UP,INACTIVE,GREEN,Konfig4ID) endif
    if Rollo_Tag_5 == 3u08 then Rollo_Tag_Timer5 = Rollo_Sa_So; pdisplay(34, $SA - SO$, UP,INACTIVE,GREEN,Konfig4ID) endif

    if pbutton(35,Konfig4ID) == 1 then Rollo_Tag_6 = Rollo_Tag_6 + 1u08 endif
    if pbutton(35,Konfig4ID) == 2 then Rollo_Tag_6 = Rollo_Tag_6 - 1u08 endif
    if Rollo_Tag_6 == 4u08 then Rollo_Tag_6 = 1u08 endif
    if Rollo_Tag_6 == 0u08 then Rollo_Tag_6 = 3u08 endif
    if Rollo_Tag_6 == 1u08 then Rollo_Tag_Timer6 = Rollo_Mo_So; pdisplay(35, $MO - SO$, UP,INACTIVE,GREEN,Konfig4ID) endif
    if Rollo_Tag_6 == 2u08 then Rollo_Tag_Timer6 = Rollo_Mo_Fr; pdisplay(35, $MO - FR$, UP,INACTIVE,GREEN,Konfig4ID) endif
    if Rollo_Tag_6 == 3u08 then Rollo_Tag_Timer6 = Rollo_Sa_So; pdisplay(35, $SA - SO$, UP,INACTIVE,GREEN,Konfig4ID) endif


    //Konfiguration Räume
    if pbutton(11,Konfig4ID)==1 then Rollo_KueFe_Uhr1 = Rollo_KueFe_Uhr1+1u08 endif
    if pbutton(11,Konfig4ID)==2 then Rollo_KueFe_Uhr2 = Rollo_KueFe_Uhr2+1u08 endif
    if pbutton(11,Konfig4ID)==3 then Rollo_KueFe_Uhr3 = Rollo_KueFe_Uhr3+1u08 endif
    if systemstart() or change(Rollo_KueFe_Uhr1) or change(Rollo_KueFe_Uhr2) or change(Rollo_KueFe_Uhr3) then {
    pdisplay(11,$Schaltuhr: $ + convert(Rollo_KueFe_Uhr1,$$)+ $ - $ + convert(Rollo_KueFe_Uhr2,$$)+$ - $ + convert(Rollo_KueFe_Uhr3,$$),UP,INACTIVE,GREEN,Kon fig4ID)
    } endif
    if Rollo_KueFe_Uhr1 == 7u08 then Rollo_KueFe_Uhr1 = 0u08 endif
    if Rollo_KueFe_Uhr2 == 7u08 then Rollo_KueFe_Uhr2 = 0u08 endif
    if Rollo_KueFe_Uhr3 == 7u08 then Rollo_KueFe_Uhr3 = 0u08 endif
    if KonfigRollo1 and Rollo_Tag_Timer1 and (Rollo_KueFe_Uhr1==1u08 or Rollo_KueFe_Uhr2==1u08 or Rollo_KueFe_Uhr3==1u08) then write("Küche Fenster-GA", Rollo_Pos1) endif
    if KonfigRollo2 and Rollo_Tag_Timer2 and (Rollo_KueFe_Uhr1==2u08 or Rollo_KueFe_Uhr2==2u08 or Rollo_KueFe_Uhr3==2u08) then write("Küche Fenster-GA", Rollo_Pos2) endif
    if KonfigRollo3 and Rollo_Tag_Timer3 and (Rollo_KueFe_Uhr1==3u08 or Rollo_KueFe_Uhr2==3u08 or Rollo_KueFe_Uhr3==3u08) then write("Küche Fenster-GA", Rollo_Pos3) endif
    if KonfigRollo4 and Rollo_Tag_Timer4 and (Rollo_KueFe_Uhr1==4u08 or Rollo_KueFe_Uhr2==4u08 or Rollo_KueFe_Uhr3==4u08) then write("Küche Fenster-GA", Rollo_Pos4) endif
    if KonfigRollo5 and Rollo_Tag_Timer5 and (Rollo_KueFe_Uhr1==5u08 or Rollo_KueFe_Uhr2==5u08 or Rollo_KueFe_Uhr3==5u08) then write("Küche Fenster-GA", Rollo_Pos5) endif
    if KonfigRollo6 and Rollo_Tag_Timer6 and (Rollo_KueFe_Uhr1==6u08 or Rollo_KueFe_Uhr2==6u08 or Rollo_KueFe_Uhr3==6u08) then write("Küche Fenster-GA", Rollo_Pos6) endif


    if pbutton(12,Konfig4ID)==1 then Rollo_KueTu_Uhr1 = Rollo_KueTu_Uhr1+1u08 endif
    if pbutton(12,Konfig4ID)==2 then Rollo_KueTu_Uhr2 = Rollo_KueTu_Uhr2+1u08 endif
    if pbutton(12,Konfig4ID)==3 then Rollo_KueTu_Uhr3 = Rollo_KueTu_Uhr3+1u08 endif
    if systemstart() or change(Rollo_KueTu_Uhr1) or change(Rollo_KueTu_Uhr2) or change(Rollo_KueTu_Uhr3) then {
    pdisplay(12,$Schaltuhr: $ + convert(Rollo_KueTu_Uhr1,$$)+$ - $ + convert(Rollo_KueTu_Uhr2,$$)+$ - $ + convert(Rollo_KueTu_Uhr3,$$),UP,INACTIVE,GREEN,Kon fig4ID)
    } endif
    if Rollo_KueTu_Uhr1 == 7u08 then Rollo_KueTu_Uhr1 = 0u08 endif
    if Rollo_KueTu_Uhr2 == 7u08 then Rollo_KueTu_Uhr2 = 0u08 endif
    if Rollo_KueTu_Uhr3 == 7u08 then Rollo_KueTu_Uhr3 = 0u08 endif
    if KonfigRollo1 and Rollo_Tag_Timer1 and (Rollo_KueTu_Uhr1==1u08 or Rollo_KueTu_Uhr2==1u08 or Rollo_KueTu_Uhr3==1u08) then write("Küche Tür -GA", Rollo_Pos1) endif
    if KonfigRollo2 and Rollo_Tag_Timer2 and (Rollo_KueTu_Uhr1==2u08 or Rollo_KueTu_Uhr2==2u08 or Rollo_KueTu_Uhr3==2u08) then write("Küche Tür -GA", Rollo_Pos2) endif
    if KonfigRollo3 and Rollo_Tag_Timer3 and (Rollo_KueTu_Uhr1==3u08 or Rollo_KueTu_Uhr2==3u08 or Rollo_KueTu_Uhr3==3u08) then write("Küche Tür -GA", Rollo_Pos3) endif
    if KonfigRollo4 and Rollo_Tag_Timer4 and (Rollo_KueTu_Uhr1==4u08 or Rollo_KueTu_Uhr2==4u08 or Rollo_KueTu_Uhr3==4u08) then write("Küche Tür -GA", Rollo_Pos4) endif
    if KonfigRollo5 and Rollo_Tag_Timer5 and (Rollo_KueTu_Uhr1==5u08 or Rollo_KueTu_Uhr2==5u08 or Rollo_KueTu_Uhr3==5u08) then write("Küche Tür -GA", Rollo_Pos5) endif
    if KonfigRollo6 and Rollo_Tag_Timer6 and (Rollo_KueTu_Uhr1==6u08 or Rollo_KueTu_Uhr2==6u08 or Rollo_KueTu_Uhr3==6u08) then write("Küche Tür -GA", Rollo_Pos6) endif

    if pbutton(13,Konfig4ID)==1 then Rollo_EssFe_Uhr1 = Rollo_EssFe_Uhr1+1u08 endif
    if pbutton(13,Konfig4ID)==2 then Rollo_EssFe_Uhr2 = Rollo_EssFe_Uhr2+1u08 endif
    if pbutton(13,Konfig4ID)==3 then Rollo_EssFe_Uhr3 = Rollo_EssFe_Uhr3+1u08 endif
    if systemstart() or change(Rollo_EssFe_Uhr1) or change(Rollo_EssFe_Uhr2) or change(Rollo_EssFe_Uhr3) then {
    pdisplay(13,$Schaltuhr: $ + convert(Rollo_EssFe_Uhr1,$$)+$ - $ + convert(Rollo_EssFe_Uhr2,$$)+$ - $ + convert(Rollo_EssFe_Uhr3,$$),UP,INACTIVE,GREEN,Kon fig4ID)
    }endif
    if Rollo_EssFe_Uhr1 == 7u08 then Rollo_EssFe_Uhr1 = 0u08 endif
    if Rollo_EssFe_Uhr2 == 7u08 then Rollo_EssFe_Uhr2 = 0u08 endif
    if Rollo_EssFe_Uhr3 == 7u08 then Rollo_EssFe_Uhr3 = 0u08 endif
    if KonfigRollo1 and Rollo_Tag_Timer1 and (Rollo_EssFe_Uhr1==1u08 or Rollo_EssFe_Uhr2==1u08 or Rollo_EssFe_Uhr3==1u08) then write("Esszimmer Fenster-GA", Rollo_Pos1) endif
    if KonfigRollo2 and Rollo_Tag_Timer2 and (Rollo_EssFe_Uhr1==2u08 or Rollo_EssFe_Uhr2==2u08 or Rollo_EssFe_Uhr3==2u08) then write("Esszimmer Fenster-GA", Rollo_Pos2) endif
    if KonfigRollo3 and Rollo_Tag_Timer3 and (Rollo_EssFe_Uhr1==3u08 or Rollo_EssFe_Uhr2==3u08 or Rollo_EssFe_Uhr3==3u08) then write("Esszimmer Fenster -GA", Rollo_Pos3) endif
    if KonfigRollo4 and Rollo_Tag_Timer4 and (Rollo_EssFe_Uhr1==4u08 or Rollo_EssFe_Uhr2==4u08 or Rollo_EssFe_Uhr3==4u08) then write("Esszimmer Fenster -GA", Rollo_Pos4) endif
    if KonfigRollo5 and Rollo_Tag_Timer5 and (Rollo_EssFe_Uhr1==5u08 or Rollo_EssFe_Uhr2==5u08 or Rollo_EssFe_Uhr3==5u08) then write("Esszimmer Fenster -GA", Rollo_Pos5) endif
    if KonfigRollo6 and Rollo_Tag_Timer6 and (Rollo_EssFe_Uhr1==6u08 or Rollo_EssFe_Uhr2==6u08 or Rollo_EssFe_Uhr3==6u08) then write("Esszimmer Fenster -GA", Rollo_Pos6) endif

    if pbutton(14,Konfig4ID)==1 then Rollo_EssTu_Uhr1 = Rollo_EssTu_Uhr1+1u08 endif
    if pbutton(14,Konfig4ID)==2 then Rollo_EssTu_Uhr2 = Rollo_EssTu_Uhr2+1u08 endif
    if pbutton(14,Konfig4ID)==3 then Rollo_EssTu_Uhr3 = Rollo_EssTu_Uhr3+1u08 endif
    if systemstart() or change(Rollo_EssTu_Uhr1) or change(Rollo_EssTu_Uhr2) or change(Rollo_EssTu_Uhr3) then {
    pdisplay(14,$Schaltuhr: $ + convert(Rollo_EssTu_Uhr1,$$)+$ - $ + convert(Rollo_EssTu_Uhr2,$$)+$ - $ + convert(Rollo_EssTu_Uhr3,$$),UP,INACTIVE,GREEN,Kon fig4ID)
    } endif
    if Rollo_EssTu_Uhr1 == 7u08 then Rollo_EssTu_Uhr1 = 0u08 endif
    if Rollo_EssTu_Uhr2 == 7u08 then Rollo_EssTu_Uhr2 = 0u08 endif
    if Rollo_EssTu_Uhr3 == 7u08 then Rollo_EssTu_Uhr3 = 0u08 endif
    if KonfigRollo1 and Rollo_Tag_Timer1 and (Rollo_EssTu_Uhr1==1u08 or Rollo_EssTu_Uhr2==1u08 or Rollo_EssTu_Uhr3==1u08) then write("Jalousie Esszimmer-GA", Rollo_Pos1) endif
    if KonfigRollo2 and Rollo_Tag_Timer2 and (Rollo_EssTu_Uhr1==2u08 or Rollo_EssTu_Uhr2==2u08 or Rollo_EssTu_Uhr3==2u08) then write("Jalousie Esszimmer-GA", Rollo_Pos2) endif
    if KonfigRollo3 and Rollo_Tag_Timer3 and (Rollo_EssTu_Uhr1==3u08 or Rollo_EssTu_Uhr2==3u08 or Rollo_EssTu_Uhr3==3u08) then write("Jalousie Esszimmer-GA", Rollo_Pos3) endif
    if KonfigRollo4 and Rollo_Tag_Timer4 and (Rollo_EssTu_Uhr1==4u08 or Rollo_EssTu_Uhr2==4u08 or Rollo_EssTu_Uhr3==4u08) then write("Jalousie Esszimmer-GA", Rollo_Pos4) endif
    if KonfigRollo5 and Rollo_Tag_Timer5 and (Rollo_EssTu_Uhr1==5u08 or Rollo_EssTu_Uhr2==5u08 or Rollo_EssTu_Uhr3==5u08) then write("Jalousie Esszimmer-GA", Rollo_Pos5) endif
    if KonfigRollo6 and Rollo_Tag_Timer6 and (Rollo_EssTu_Uhr1==6u08 or Rollo_EssTu_Uhr2==6u08 or Rollo_EssTu_Uhr3==6u08) then write("Jalousie Esszimmer-GA", Rollo_Pos6) endif

    if pbutton(15,Konfig4ID)==1 then Rollo_Wohn_Uhr1 = Rollo_Wohn_Uhr1+1u08 endif
    if pbutton(15,Konfig4ID)==2 then Rollo_Wohn_Uhr2 = Rollo_Wohn_Uhr2+1u08 endif
    if pbutton(15,Konfig4ID)==3 then Rollo_Wohn_Uhr3 = Rollo_Wohn_Uhr3+1u08 endif
    if systemstart() or change(Rollo_Wohn_Uhr1) or change(Rollo_Wohn_Uhr2) or change(Rollo_Wohn_Uhr3) then {
    pdisplay(15,$Schaltuhr: $ + convert(Rollo_Wohn_Uhr1,$$)+$ - $ + convert(Rollo_Wohn_Uhr2,$$)+$ - $ + convert(Rollo_Wohn_Uhr3,$$),UP,INACTIVE,GREEN,Konf ig4ID)
    } endif
    if Rollo_Wohn_Uhr1 == 7u08 then Rollo_Wohn_Uhr1 = 0u08 endif
    if Rollo_Wohn_Uhr2 == 7u08 then Rollo_Wohn_Uhr2 = 0u08 endif
    if Rollo_Wohn_Uhr3 == 7u08 then Rollo_Wohn_Uhr3 = 0u08 endif
    if KonfigRollo1 and Rollo_Tag_Timer1 and (Rollo_Wohn_Uhr1==1u08 or Rollo_Wohn_Uhr2==1u08 or Rollo_Wohn_Uhr3==1u08) then write("Wohnzimmer Fenster-GA", Rollo_Pos1) endif
    if KonfigRollo2 and Rollo_Tag_Timer2 and (Rollo_Wohn_Uhr1==2u08 or Rollo_Wohn_Uhr2==2u08 or Rollo_Wohn_Uhr3==2u08) then write("Wohnzimmer Fenster-GA", Rollo_Pos2) endif
    if KonfigRollo3 and Rollo_Tag_Timer3 and (Rollo_Wohn_Uhr1==3u08 or Rollo_Wohn_Uhr2==3u08 or Rollo_Wohn_Uhr3==3u08) then write("Wohnzimmer Fenster-GA", Rollo_Pos3) endif
    if KonfigRollo4 and Rollo_Tag_Timer4 and (Rollo_Wohn_Uhr1==4u08 or Rollo_Wohn_Uhr2==4u08 or Rollo_Wohn_Uhr3==4u08) then write("Wohnzimmer Fenster-GA", Rollo_Pos4) endif
    if KonfigRollo5 and Rollo_Tag_Timer5 and (Rollo_Wohn_Uhr1==5u08 or Rollo_Wohn_Uhr2==5u08 or Rollo_Wohn_Uhr3==5u08) then write("Wohnzimmer Fenster-GA", Rollo_Pos5) endif
    if KonfigRollo6 and Rollo_Tag_Timer6 and (Rollo_Wohn_Uhr1==6u08 or Rollo_Wohn_Uhr2==6u08 or Rollo_Wohn_Uhr3==6u08) then write("Wohnzimmer Fenster-GA", Rollo_Pos6) endif

    if pbutton(16,Konfig4ID)==1 then Rollo_Maxi_Uhr1 = Rollo_Maxi_Uhr1+1u08 endif
    if pbutton(16,Konfig4ID)==2 then Rollo_Maxi_Uhr2 = Rollo_Maxi_Uhr2+1u08 endif
    if pbutton(16,Konfig4ID)==3 then Rollo_Maxi_Uhr3 = Rollo_Maxi_Uhr3+1u08 endif
    if systemstart() or change(Rollo_Maxi_Uhr1) or change(Rollo_Maxi_Uhr2) or change(Rollo_Maxi_Uhr3) then {
    pdisplay(16,$Schaltuhr: $ + convert(Rollo_Maxi_Uhr1,$$)+$ - $ + convert(Rollo_Maxi_Uhr2,$$)+$ - $ + convert(Rollo_Maxi_Uhr3,$$),UP,INACTIVE,GREEN,Konf ig4ID)
    }endif
    if Rollo_Maxi_Uhr1 == 7u08 then Rollo_Maxi_Uhr1 = 0u08 endif
    if Rollo_Maxi_Uhr2 == 7u08 then Rollo_Maxi_Uhr2 = 0u08 endif
    if Rollo_Maxi_Uhr3 == 7u08 then Rollo_Maxi_Uhr3 = 0u08 endif
    if KonfigRollo1 and Rollo_Tag_Timer1 and (Rollo_Maxi_Uhr1==1u08 or Rollo_Maxi_Uhr2==1u08 or Rollo_Maxi_Uhr3==1u08) then write("Maxi Fenster-GA", Rollo_Pos1) endif
    if KonfigRollo2 and Rollo_Tag_Timer2 and (Rollo_Maxi_Uhr1==2u08 or Rollo_Maxi_Uhr2==2u08 or Rollo_Maxi_Uhr3==2u08) then write("Maxi Fenster-GA", Rollo_Pos2) endif
    if KonfigRollo3 and Rollo_Tag_Timer3 and (Rollo_Maxi_Uhr1==3u08 or Rollo_Maxi_Uhr2==3u08 or Rollo_Maxi_Uhr3==3u08) then write("Maxi Fenster-GA", Rollo_Pos3) endif
    if KonfigRollo4 and Rollo_Tag_Timer4 and (Rollo_Maxi_Uhr1==4u08 or Rollo_Maxi_Uhr2==4u08 or Rollo_Maxi_Uhr3==4u08) then write("Maxi Fenster-GA", Rollo_Pos4) endif
    if KonfigRollo5 and Rollo_Tag_Timer5 and (Rollo_Maxi_Uhr1==5u08 or Rollo_Maxi_Uhr2==5u08 or Rollo_Maxi_Uhr3==5u08) then write("Maxi Fenster-GA", Rollo_Pos5) endif
    if KonfigRollo6 and Rollo_Tag_Timer6 and (Rollo_Maxi_Uhr1==6u08 or Rollo_Maxi_Uhr2==6u08 or Rollo_Maxi_Uhr3==6u08) then write("Maxi Fenster-GA", Rollo_Pos6) endif

    if pbutton(17,Konfig4ID)==1 then Rollo_Schlafz_Uhr1 = Rollo_Schlafz_Uhr1+1u08 endif
    if pbutton(17,Konfig4ID)==2 then Rollo_Schlafz_Uhr2 = Rollo_Schlafz_Uhr2+1u08 endif
    if pbutton(17,Konfig4ID)==3 then Rollo_Schlafz_Uhr3 = Rollo_Schlafz_Uhr3+1u08 endif
    if systemstart() or change(Rollo_Schlafz_Uhr1) or change(Rollo_Schlafz_Uhr2) or change(Rollo_Schlafz_Uhr3) then {
    pdisplay(17,$Schaltuhr: $ + convert(Rollo_Schlafz_Uhr1,$$)+$ - $ + convert(Rollo_Schlafz_Uhr2,$$)+$ - $ + convert(Rollo_Schlafz_Uhr3,$$),UP,INACTIVE,GREEN,K onfig4ID)
    }endif
    if Rollo_Schlafz_Uhr1 == 7u08 then Rollo_Schlafz_Uhr1 = 0u08 endif
    if Rollo_Schlafz_Uhr2 == 7u08 then Rollo_Schlafz_Uhr2 = 0u08 endif
    if Rollo_Schlafz_Uhr3 == 7u08 then Rollo_Schlafz_Uhr3 = 0u08 endif
    if KonfigRollo1 and Rollo_Tag_Timer1 and (Rollo_Schlafz_Uhr1==1u08 or Rollo_Schlafz_Uhr2==1u08 or Rollo_Schlafz_Uhr3==1u08) then write("Bad Eltern Fenster-GA", Rollo_Pos1) endif
    if KonfigRollo2 and Rollo_Tag_Timer2 and (Rollo_Schlafz_Uhr1==2u08 or Rollo_Schlafz_Uhr2==2u08 or Rollo_Schlafz_Uhr3==2u08) then write("Bad Eltern Fenster-GA", Rollo_Pos2) endif
    if KonfigRollo3 and Rollo_Tag_Timer3 and (Rollo_Schlafz_Uhr1==3u08 or Rollo_Schlafz_Uhr2==3u08 or Rollo_Schlafz_Uhr3==3u08) then write("Bad Eltern Fenster-GA", Rollo_Pos3) endif
    if KonfigRollo4 and Rollo_Tag_Timer4 and (Rollo_Schlafz_Uhr1==4u08 or Rollo_Schlafz_Uhr2==4u08 or Rollo_Schlafz_Uhr3==4u08) then write("Bad Eltern Fenster -GA", Rollo_Pos4) endif
    if KonfigRollo5 and Rollo_Tag_Timer5 and (Rollo_Schlafz_Uhr1==5u08 or Rollo_Schlafz_Uhr2==5u08 or Rollo_Schlafz_Uhr3==5u08) then write("Bad Eltern Fenster-GA", Rollo_Pos5) endif
    if KonfigRollo6 and Rollo_Tag_Timer6 and (Rollo_Schlafz_Uhr1==6u08 or Rollo_Schlafz_Uhr2==6u08 or Rollo_Schlafz_Uhr3==6u08) then write("Bad Eltern Fenster-GA", Rollo_Pos6) endif

    if pbutton(18,Konfig4ID)==1 then Rollo_Bad_Uhr1 = Rollo_Bad_Uhr1+1u08 endif
    if pbutton(18,Konfig4ID)==2 then Rollo_Bad_Uhr2 = Rollo_Bad_Uhr2+1u08 endif
    if pbutton(18,Konfig4ID)==3 then Rollo_Bad_Uhr3 = Rollo_Bad_Uhr3+1u08 endif
    if systemstart() or change(Rollo_Bad_Uhr1) or change(Rollo_Bad_Uhr2) or change(Rollo_Bad_Uhr3) then {
    pdisplay(18,$Schaltuhr: $ + convert(Rollo_Bad_Uhr1,$$)+$ - $ + convert(Rollo_Bad_Uhr2,$$)+$ - $ + convert(Rollo_Bad_Uhr3,$$),UP,INACTIVE,GREEN,Konfi g4ID)
    }endif
    if Rollo_Bad_Uhr1 == 7u08 then Rollo_Bad_Uhr1 = 0u08 endif
    if Rollo_Bad_Uhr2 == 7u08 then Rollo_Bad_Uhr2 = 0u08 endif
    if Rollo_Bad_Uhr3 == 7u08 then Rollo_Bad_Uhr3 = 0u08 endif
    if KonfigRollo1 and Rollo_Tag_Timer1 and (Rollo_Bad_Uhr1==1u08 or Rollo_Bad_Uhr2==1u08 or Rollo_Bad_Uhr3==1u08) then write("Schlafzimmer Eltern-GA", Rollo_Pos1) endif
    if KonfigRollo2 and Rollo_Tag_Timer2 and (Rollo_Bad_Uhr1==2u08 or Rollo_Bad_Uhr2==2u08 or Rollo_Bad_Uhr3==2u08) then write("Schlafzimmer Eltern -GA", Rollo_Pos2) endif
    if KonfigRollo3 and Rollo_Tag_Timer3 and (Rollo_Bad_Uhr1==3u08 or Rollo_Bad_Uhr2==3u08 or Rollo_Bad_Uhr3==3u08) then write("Schlafzimmer Eltern-GA", Rollo_Pos3) endif
    if KonfigRollo4 and Rollo_Tag_Timer4 and (Rollo_Bad_Uhr1==4u08 or Rollo_Bad_Uhr2==4u08 or Rollo_Bad_Uhr3==4u08) then write("Schlafzimmer Eltern -GA", Rollo_Pos4) endif
    if KonfigRollo5 and Rollo_Tag_Timer5 and (Rollo_Bad_Uhr1==5u08 or Rollo_Bad_Uhr2==5u08 or Rollo_Bad_Uhr3==5u08) then write("Schlafzimmer Eltern -GA", Rollo_Pos5) endif
    if KonfigRollo6 and Rollo_Tag_Timer6 and (Rollo_Bad_Uhr1==6u08 or Rollo_Bad_Uhr2==6u08 or Rollo_Bad_Uhr3==6u08) then write("Schlafzimmer Eltern -GA", Rollo_Pos6) endif

    if pbutton(19,Konfig4ID)==1 then Rollo_Buero_Uhr1 = Rollo_Buero_Uhr1+1u08 endif
    if pbutton(19,Konfig4ID)==2 then Rollo_Buero_Uhr2 = Rollo_Buero_Uhr2+1u08 endif
    if pbutton(19,Konfig4ID)==3 then Rollo_Buero_Uhr3 = Rollo_Buero_Uhr3+1u08 endif
    if systemstart() or change(Rollo_Buero_Uhr1) or change(Rollo_Buero_Uhr2) or change(Rollo_Buero_Uhr3) then {
    pdisplay(19,$Schaltuhr: $ + convert(Rollo_Buero_Uhr1,$$)+$ - $ + convert(Rollo_Buero_Uhr2,$$)+$ - $ + convert(Rollo_Buero_Uhr3,$$),UP,INACTIVE,GREEN,Kon fig4ID)
    } endif
    if Rollo_Buero_Uhr1 == 7u08 then Rollo_Buero_Uhr1 = 0u08 endif
    if Rollo_Buero_Uhr2 == 7u08 then Rollo_Buero_Uhr2 = 0u08 endif
    if Rollo_Buero_Uhr3 == 7u08 then Rollo_Buero_Uhr3 = 0u08 endif
    if KonfigRollo1 and Rollo_Tag_Timer1 and (Rollo_Buero_Uhr1==1u08 or Rollo_Buero_Uhr2==1u08 or Rollo_Buero_Uhr3==1u08) then write("Büro Fenster -GA", Rollo_Pos1) endif
    if KonfigRollo2 and Rollo_Tag_Timer2 and (Rollo_Buero_Uhr1==2u08 or Rollo_Buero_Uhr2==2u08 or Rollo_Buero_Uhr3==2u08) then write("Büro Fenster -GA", Rollo_Pos2) endif
    if KonfigRollo3 and Rollo_Tag_Timer3 and (Rollo_Buero_Uhr1==3u08 or Rollo_Buero_Uhr2==3u08 or Rollo_Buero_Uhr3==3u08) then write("Büro Fenster -GA", Rollo_Pos3) endif
    if KonfigRollo4 and Rollo_Tag_Timer4 and (Rollo_Buero_Uhr1==4u08 or Rollo_Buero_Uhr2==4u08 or Rollo_Buero_Uhr3==4u08) then write("Büro Fenster -GA", Rollo_Pos4) endif
    if KonfigRollo5 and Rollo_Tag_Timer5 and (Rollo_Buero_Uhr1==5u08 or Rollo_Buero_Uhr2==5u08 or Rollo_Buero_Uhr3==5u08) then write("Büro Fenster -GA", Rollo_Pos5) endif
    if KonfigRollo6 and Rollo_Tag_Timer6 and (Rollo_Buero_Uhr1==6u08 or Rollo_Buero_Uhr2==6u08 or Rollo_Buero_Uhr3==6u08) then write("Büro Fenster -GA", Rollo_Pos6) endif

    if change(KonfigRollo1) and KonfigRollo1 == EIN then KonfigRollo1=AUS endif
    if change(KonfigRollo2) and KonfigRollo2 == EIN then KonfigRollo2=AUS endif
    if change(KonfigRollo3) and KonfigRollo3 == EIN then KonfigRollo3=AUS endif
    if change(KonfigRollo4) and KonfigRollo4 == EIN then KonfigRollo4=AUS endif
    if change(KonfigRollo5) and KonfigRollo5 == EIN then KonfigRollo5=AUS endif
    if change(KonfigRollo6) and KonfigRollo6 == EIN then KonfigRollo6=AUS endif
    [/highlight]

    und so hab ich die Seite definiert:
    [highlight=epc]
    [WebServer]

    //Page 12 Konfiguration 2
    page(Konfig4ID)[$Konfiguration$,$Konfiguration Rollo$]
    design$black$
    header(0)
    footer(0)

    line $Rollosteuerung EG$
    pshifter(3) [PLUS,MINUS,UP,DOWN]$Schaltuhr 1$ pslider(4)[ROLLER]$Position$ pbutton(30)[UP]$Wochentage$
    pshifter(5) [PLUS,MINUS,UP,DOWN]$Schaltuhr 2$ pslider(6)[ROLLER]$Position$ pbutton(31)[UP]$Wochentage$
    pshifter(7) [PLUS,MINUS,UP,DOWN]$Schaltuhr 3$ pslider(8)[ROLLER]$Position$ pbutton(32)[UP]$Wochentage$
    pshifter(9) [PLUS,MINUS,UP,DOWN]$Schaltuhr 4$ pslider(10)[ROLLER]$Position$ pbutton(33)[UP]$Wochentage$
    pshifter(26)[PLUS,MINUS,UP,DOWN]$Schaltuhr 5$ pslider(27)[ROLLER]$Position$ pbutton(34)[UP]$Wochentage$
    pshifter(28)[PLUS,MINUS,UP,DOWN]$Schaltuhr 6$ pslider(29)[ROLLER]$Position$ pbutton(35)[UP]$Wochentage$

    line $Räume$
    pshifter (11)[UP,UP,UP]$Küche Fenster$ pshifter (12)[UP,UP,UP]$Küche Tür$
    pshifter (13)[UP,UP,UP]$Esszimmer Fenster$ pshifter (14)[UP,UP,UP]$Esszimmer Tür$
    pshifter (15)[UP,UP,UP]$Wohnzimmer$ pshifter (16)[UP,UP,UP]$Max$
    pshifter (17)[UP,UP,UP]$Schlafzimmer$ pshifter (18)[UP,UP,UP]$Bad$
    pshifter (19)[UP,UP,UP]$Büro$

    [/highlight]

    den Button mit den Wochentagen hab ich so programmiert das auch ein pshifter gehen würde, mit up/down Butttons..
    aus Platzgründen hab ich mich aber für den Button entschieden.. mir gefällt das so besser..

    Verwendung natürlich auf eigene Gefahr...

    Gruß Martin
    Angehängte Dateien
    Die Selbsthilfegruppe "UTF-8-Probleme" trifft sich diesmal abweichend im groüen Saal.
    Stichworte: -
    #2
    Gute Arbeit, Martin.

    Leider habe ich nur Jalousien, so dass ich das nicht verwenden kann.

    Den Slider wollte ich mal für den Winkel meiner Jalousien zu verwenden, was aber nie richtig funktioniert hat - allerdings war das noch in der Betatestphase. Ich habe das dann mit mbutton gelöst.

    Kommentar

      #3
      muss ja nicht Rollo sein.. ma kann die Timer ja für alles mögliche verwenden..
      Lampen, Rollos, Jalous.. usw...

      soll ja auch nicht als zentrales Bedienelement für Rollos/Jalous dienen sondern
      zb. das morgens/Abends die "Elemente" in eine best. Position fahren.

      aber ganz wichtig.. .man muss es ja nicht nutzen, bin da keinem Böse ..

      wer will darf aber gern !

      Gruß Martin
      Die Selbsthilfegruppe "UTF-8-Probleme" trifft sich diesmal abweichend im groüen Saal.

      Kommentar

      Vorherige template Weiter
      Lädt...
      X

      Wir verarbeiten personenbezogene Daten über die Nutzer unserer Website mithilfe von Cookies und anderen Technologien, um unsere Dienste bereitzustellen. Weitere Informationen findest Du in unserer Datenschutzerklärung.

      Indem Du unten auf "ICH stimme zu" klickst, stimmst Du unserer Datenschutzerklärung und unseren persönlichen Datenverarbeitungs- und Cookie-Praktiken zu, wie darin beschrieben. Du erkennst außerdem an, dass dieses Forum möglicherweise außerhalb Deines Landes gehostet wird und bist damit einverstanden, dass Deine Daten in dem Land, in dem dieses Forum gehostet wird, gesammelt, gespeichert und verarbeitet werden.

      Ich stimme zu