Zitat von SteffiEnertex
Beitrag anzeigen
Zudem fasst das Makro beide Abfragen zusammen, da die Abfragen im ungünstigen Fall kollidieren konnten.
Mit dem Code unten kann man dann die Wetterseite gestalten wie im Screenshot (auch mal mit geänderten Textfarben).
[highlight=epc]
[WebServer]
page (Wetter_PageID)[$Allgemein$,$Wetter$]
design $black$
pbutton(Wetter_OnlineID)[INFO]$<font color=#FF6600>Online</font>$ pshifter(Wetter_InfoAktID)[WEATHER]$Aktuelle Wettervorhersage$
pbutton(Wetter_WindID)[WIND]$Wind$ pbutton(Wetter_TempID)[TEMPERATURE]$Min-Max°C, Ist °C$ pbutton(Wetter_HumidID)[RAIN]$Jetzt:$ pbutton(Wetter_TomorID)[UPDATE]$Morgen$
line $Wettervorhersage$
picture(30)[DOUBLE,ZOOMGRAF]($Vorhersage$,$http://image.de.weather.com/web/maps/de_DE/weather/forecast/germany_outlook_day1_720_de.jpg$) picture(30)[DOUBLE,ZOOMGRAF]($Satellitenbild$,$http://media.zenfs.com/en_us/weather/weather.com/eur_satintl_440_dmy_y.jpg$)
[Macros]
Wetter(DenRichtigenKeyHierEinsetzen,Weilersbach,Ge rmany)
Online()
[MacroLibs]
//Makro-Bibliotheken
EnertexV2.lib
[EibPC]
Wetter_PageID =2
Wetter_InfoAktID=0
Wetter_TempID =1
Wetter_HumidID =2
Wetter_WindID =3
Wetter_TomorID =4
Wetter_WTextID =5
Wetter_OnlineID =6
if change(Wetter_Heute_Wetter) then {
pdisplay(Wetter_InfoAktID,$<font color=teal>$+ Wetter_Heute_Wetter+$, max $+convert(Wetter_Heute_Temperatur_Max,$$)+$°C$+$, $+convert(Wetter_Luftdruck,$$)+$ hPa$+$</font>$,WEATHER, STATE4,GREEN,Wetter_PageID);
} endif
if change(Wetter_Wind) then {
pdisplay(Wetter_WindID, $<font color=teal>$+convert(Wetter_Wind*3.6,$$)+$ km/h <br></font>$+ Wetter_Windrichtung ,WIND, DISPLAY,GREY,Wetter_PageID);
} endif
if stime(0) then {
pdisplay(Wetter_OnlineID,$<font color=teal>$ +convert(AnzeigeOnline,$$)+$</font> <br>ddd:hh:mm$,INFO, DISPLAY,GREY,Wetter_PageID);
} endif
if change(Wetter_Temperatur) or change(Wetter_Heute_Temperatur_Max) then {
pdisplay(Wetter_TempID, convert(Wetter_Heute_Temperatur_Min,$$)+$-$+convert(Wetter_Heute_Temperatur_Max,$$)+$°C$+$, <font color=teal>$+convert(Wetter_Temperatur,$$)+$°C</font>$,TEMPERATURE, DISPLAY,GREY,Wetter_PageID);
} endif
if change(Wetter_Luftfeuchtigkeit) then {
pdisplay(Wetter_HumidID, convert(Wetter_Luftfeuchtigkeit,$$)+$% <br><font color=teal>$+Wetter_Wetter+$</font>$,RAIN, DISPLAY,GREY,Wetter_PageID);
} endif
if change(Wetter_Morgen_Wetter) then {
pdisplay(Wetter_TomorID, convert(Wetter_Morgen_Temperatur_Min,$$)+$-$+convert(Wetter_Morgen_Temperatur_Max,$$)+$°C, <br><font color=teal>$+Wetter_Morgen_Wetter+$°C </font>$,UPDATE, DISPLAY,GREY,Wetter_PageID);
} endif
[/highlight]
Kommentar