[MacroLibs]
//Makro-Bibliotheken
C:/Programme/EibStudio-win/Muster/EnertexWeb.lib
[MailConf]
// E-Mail-Einstellungen
1
[ETS-ESF]
// Die aus der ETS3 exportierte ESF-Datei
H:/KNX/Katrin_und_Carsten.esf
[WebServer]
// Seite - Allgemein - Wetter
page(SumID)[$Allgemein$,$Wetter$]
button(TimeID)[CLOCK]$Uhrzeit$ button(DateID)[DATE]$Datum$ pshifter(SunID)[INFO]$Sonnenauf- und Untergang$
// button(LuxID)[WEATHER] $Licht in Lux $ button(WindID)[WIND]$Wind in km/h$
pshifter(TempID)[TEMPERATURE]$Außentemp.: Min und Max in °C$
line $Wettervorhersage$
picture(0)[DOUBLE,CENTERGRAF]($Vorhersage$,$http://de.weather.yahoo.com/images/eur_germany_outlook_DE_DE_440_dmy_y.jpg$)\\
picture(1)[DOUBLE,CENTERGRAF]($Satellitenbild$,$http://de.weather.yahoo.com/images/eur_satintl_440_dmy_y.jpg$)
// Seite - OG - Kind 1
page(Kind1ID)[$OG$,$Kinderzimmer 1$]
button(TimeID)[CLOCK]$Uhrzeit$ button(DateID)[DATE]$Datum$
line $Schalten und Dimmen$
line $Heizen$
pshifter(HeizenID)[ABSENT,PRESENT,NIGHT,ABSENT]$Raumkontroller$
line
mpchart(VisuHeizID)[DOUBLE,XY]($HeizAnforderung$,LINE) mpchart(TempVisuID)[DOUBLE,XY]($Temperatur$,LINEDOTS)
// Seite - OG - Kind 2
page(Kind2ID)[$OG$,$Kinderzimmer 2$]
button(TimeID)[CLOCK]$Uhrzeit$ button(DateID)[DATE]$Datum$
line $Schalten und Dimmen$
line $Heizen$
pshifter(HeizenID)[ABSENT,PRESENT,NIGHT,ABSENT]$Raumkontroller$
line
mpchart(VisuHeizID)[DOUBLE,XY]($HeizAnforderung$,LINE) mpchart(TempVisuID)[DOUBLE,XY]($Temperatur$,LINEDOTS)
[EibPC]
// Seiten
SumID=1
Kind1ID=2
Kind2ID=3
// Buttons auf Seite - Allgemein - Wetter
TimeID=0
DateID=1
SunID=2
//LuxID=3
//WindID=4
TempID=5
// Buttons auf Seite - OG - Kind 1
HeizenID=2
VisuHeizID=3
TempVisuID=4
// WetterDatenWebserver Seite 1
//Wind = "Wind-3/5/1"
//Licht ="Licht-3/5/2"
// ???????????????? Temperatur anpassen
AussenTemperatur="Temperatur Ist Kind 1-3/0/0"
//Regen="RegenMeldung-5/2/2"
//RegenText=$$
//if Regen then RegenText=$ - Es regnet$ else RegenText=$ - Es regnet nicht$ endif
Sonnenaufgang=stringformat(sunrisehour(),0,3,2,2)+$:$+stringformat(sunriseminute(),0,3,2,2)
Sonnenuntergang=stringformat(sunsethour(),0,3,2,2)+$:$+stringformat(sunsetminute(),0,3,2,2)
// Maximale und Minimale Temperatur eines Tages berechnen
MaxTemp=-99.0
MinTemp=99.0
if htime(00,00,00) then {
MaxTemp=AussenTemperatur;
MinTemp=AussenTemperatur
} endif
if MaxTemp<AussenTemperatur then MaxTemp=AussenTemperatur endif
if MinTemp>AussenTemperatur then MinTemp=AussenTemperatur endif
// ----------------------------
//
// Webserver Seite 1
//
// ----------------------------
Init=after(systemstart(),5000u64)
if stime(0) then webdisplay(TimeID,settime(),CLOCK,DISPLAY,GREEN) endif
if change(setdate()) or Init then webdisplay(DateID,setdate(),DATE,DISPLAY,GREEN) endif
//if change(Wind) then webdisplay(WindID,Wind*3.6,WIND,DISPLAY,GREY) endif
//if change(Licht) then webdisplay(LuxID,Licht,WEATHER,DISPLAY,GREY) endif
if change(Sonnenaufgang) or Init then{
pdisplay(SunID,Sonnenaufgang+$ - $+Sonnenuntergang,INFO,DISPLAY,GREY,SumID)
} endif
if change(MinTemp) or change(MaxTemp) then {
pdisplay(TempID,convert(MinTemp,$$) +$ : $+ convert(MaxTemp,$$),TEMPERATURE,DISPLAY,GREY,SumID)
}endif
// ----------------------------
//
// Diagramme
//
// ----------------------------
WebZeit=convert(convert(hour(),0f32)+convert(minute(),0f32)/60f32,0f16)
if (mtime(00,00) or mtime(15,00) or mtime(30,00) or mtime(45,00)) then {
mpchart(VisuHeizID,WebZeit,convert("Grundheizen Kind 1-3/0/3",0f16)/2.549f16,0,Kind1ID);
mpchart(TempVisuID,WebZeit,"Temperatur Ist Kind 1-3/0/0",0,Kind1ID);
mpchart(VisuHeizID,WebZeit,convert("Grundheizen Kind 1-3/0/3",0f16)/2.549f16,0,Kind2ID);
mpchart(TempVisuID,WebZeit,"Temperatur Ist Kind 1-3/0/0",0,Kind2ID)
} endif
[Macros]
Raumcontroller(HeizenID,Kind1ID,"Grundheizen Kind 1-3/0/3","KONNEX Kind 1-3/0/5")
Raumcontroller(HeizenID,Kind2ID,"Grundheizen Kind 1-3/0/3","KONNEX Kind 1-3/0/5")
Kommentar