Buienradar Weather-30.lua

-- QuickApp BUIENRADAR WEATHER 

-- This QuickApp can be used as your Fibaro Homecenter 3 Weather Provider (Settings - 6. General - Main - Main Devices - Weather Provider)
-- The Buienradar Weather QuickApp contains the current Dutch weather measurements, the weather forecast and the 5-day forecast 
-- The 5-days forecast is shown in the labels and the tomorrow forecast is shown in the child devices 
-- The current observations are measured by KNMI weather stations spread across The Netherlands and are updated every 10 minutes 
-- The weather report is updated several times a day by the Buienradar meteorologists 

-- The QuickApp has child devices for:
  -- Temperature °C 
  -- Feel temperature °C 
  -- Ground temperature °C 
  -- Humidity % 
  -- Absolute humidity g/m³
  -- Airpressure hPa
  -- Windspeed m/s 
  -- Windspeed km/h
  -- Winddirectiondegrees ° (plus wind direction and arrow)
  -- Windspeed Bft
  -- Windgusts km/h
  -- Rain mm/h 
  -- Rain Last 24h mm
  -- Sunpower Watt/m²
  -- Visibility km
  -- Sunset (time)
  -- Sunrise (time)
  -- Sun Chance tomorrow % 
  -- Min Temp tomorrow °C
  -- Max Temp tomorrow °C
  -- Rain Chance tomorrow % 
  -- Min Rain tomorrow mm/h
  -- Max Rain tomorrow mm/h
  -- Wind tomorrow m/s (plus wind direction and arrow)
  -- Wind tomorrow km/h (plus wind direction and arrow)
  
-- This QuickApp is plug-and-play. The only thing you can do, is change the Station ID to a weatherstation nearby from the list or add some nice icons to the devices. 

-- Wind Chill (based on the JAG/TI-method) and is only valid for temperatures between -46 C and +10 C and is only valid for wind speed between 1.3 m/s and 49 m/s
-- Windspeed is shown in m/s (km/3.6)
-- Absolute humidity is the measure of water vapor (moisture) in the air, regardless of temperature. It is expressed as grams of moisture per cubic meter of air (g/m3) 
-- conditionCodes = {unavailable = 3200, clear = 32, rain = 40, snow = 43, storm = 38, cloudy = 30, fog = 20,}
-- The time shown in the QuickApp, is the last time of the measurement from Buienradar (not the system time)

-- TODO: Extra weather condition translations
-- TODO: Multi language
-- TODO: Change global variables to separate globals (?)


-- Changes version 3.0 (23rd March 2022)
-- Added 5-days forecast to the labels
-- Addded child devices for:
  -- Feel temperature °C 
  -- Ground temperature °C 
  -- Windspeed km/h
  -- Windspeed Bft
  -- Windgusts km/h
  -- Rain Last 24h mm
  -- Sun Chance tomorrow % 
  -- Min Temp tomorrow °C
  -- Max Temp tomorrow °C
  -- Rain Chance tomorrow % 
  -- Min Rain tomorrow mm/h
  -- Max Rain tomorrow mm/h
  -- Wind tomorrow m/s (plus wind direction and arrow)
  -- Wind tomorrow km/h (plus wind direction and arrow)
-- Changed SunPower device type to powerSensor
-- Changed all Wind devices types to windSensor
-- Converted date-times to more nice format
-- Quickapp variable setGlobalVar changed to boolean
-- Added Quickapp variable stationWarning to show a warning (once) if your station hasn't got some weather value (default is true)
-- Optimised some code


-- Changes version 2.1 (15th January 2021)
-- Added Airpressure Text in log of Airpressure Child Device
-- Added weatherdescription: 
  -- "Mix van opklaringen en hoge bewolking" to conditioncode "cloudy"
  -- "Half bewolkt" to conditioncode "cloudy"
  -- "Opklaring en lokaal nevel of mist" to conditioncode "fog"
  -- "Zwaar bewolkt met lichte sneeuwval" to conditionCode "snow"
  -- "Zwaar bewolkt met regen en winterse neerslag" to conditioncode "snow"
  -- "Afwisselend bewolkt met lichte sneeuwval" to conditioncode "snow"
  -- "Zware sneeuwval" to conditioncode "snow"
  -- "Opklaringen en kans op enkele pittige (onweers)buien" to conditioncode "rain"
  -- "Bewolkt en kans op enkele pittige (onweers)buien" to conditioncode "rain"

-- Changes version 2.0 (3rd January 2021)
-- Added Child Devices for: 
  -- Temperature °C (including feeltemperature and groundtemperature) 
  -- Humidity % 
  -- Absolute humidity g/m³
  -- Airpressure hPa
  -- Windspeed m/s (including windspeedBft and Windgust km/h)
  -- Winddirectiondegrees ° (including winddirection and arrow)
  -- Rain mm/h (including rainFallLast24Hour mm)
  -- Sunpower Watt/m²
  -- Visibility km
  -- Sunset (time)
  -- Sunrise (time)
-- Re-arranged the labels
-- Added backup station functionality for weather stations that don't have all the data, the data from 6260 Meetstation De Bilt is used. 
-- Improved check for missing data
-- Added Quickapp variable for debug level (1=some, 2=few, 3=all). Recommended default value is 1.

-- Changes version 1.0 (25th October 2020)
-- Added weatherdescription "Zwaar bewolkt met wat lichte regen" to conditionCode "rain"

-- Changes version 0.6 (9th September 2020)
-- Changed conditionCodes storm = 38, snow = 43 and unknown = unavailable
-- Added weatherdescription "Afwisselend bewolkt met (mogelijk) wat lichte regen" to conditionCode "rain" and and "Afwisselend bewolkt met lokaal mist(banken)" to conditionCode "fog"

-- Changes version 0.5 (4th September 2020)
-- Added wind direction, air pressure and feel temperature to QuickApp labels
-- Changed stationname to regio in labels and log
-- Changed the names of the Global Variables to meet the Fibaro standards and shortened them (please manually delete your old ones and change the names in your scenes)
-- Added an extra check for response of Buienradar (jsonTable)

-- Changes version 0.4 (23rd August 2020) 
-- Completely renewed code
-- Several Global Variables are available for personal use
-- Addes QuickApp variable SetGlobalVar true or false, whether you want to use the Global Variables
-- Added QuickApp variable Timeout for finetuning waiting for response

-- Changes version 0.3 (11th August 2020)
-- Error message instead of debug message in case of an error
-- Changed method of adding QuickApp variables, so they can be edited

-- QuickApp Variables mandatory (automatically created):
-- interval = Number in seconds to update the data (defaul = 601)
-- timeout = Number in seconds to wait for a response (default = 5)
-- stationID = Number of the station you want to use for weather measurements (default = 6260 Meetstation De Bilt)
-- backupstationID = Number of the backup station for missing weather data from stations that don't have all the data (default = 6260 Meetstation De Bilt). Don't change this ID unless you know what you are doing, 
-- setGlobalVar = true or false, whether you want tu use the Global Variables (default = false)
-- stationWarning = true or false, whether you want to receive warnings if your station hasn't got some weather value (default is true)
-- debugLevel = Number (1=some, 2=few, 3=all) (default = 1)

-- Station ID's and Stations: 
-- 6391 Meetstation Arcen / 6275 Meetstation Arnhem / 6249 Meetstation Berkhout / 6308 Meetstation Cadzand / 6260 Meetstation De Bilt / 6235 Meetstation Den Helder / 6370 Meetstation Eindhoven / 6377 Meetstation Ell / 6321 Meetstation Euro platform / 6350 Meetstation Gilze Rijen / 6323 Meetstation Goes / 6283 Meetstation Groenlo-Hupsel / 6280 Meetstation Groningen / 6315 Meetstation Hansweert /  6278 Meetstation Heino /  6356 Meetstation Herwijnen /  6330 Meetstation Hoek van Holland /  6279 Meetstation Hoogeveen / 6251 Meetstation Hoorn Terschelling /  6258 Meetstation Houtribdijk / 6285 Meetstation Huibertgat / 6209 Meetstation IJmond /  6225 Meetstation IJmuiden /  6277 Meetstation Lauwersoog / 6320 Meetstation LE Goeree / 6270 Meetstation Leeuwarden / 6269 Meetstation Lelystad / 6348 Meetstation Lopik-Cabauw / 6380 Meetstation Maastricht / 6273 Meetstation Marknesse / 6286 Meetstation Nieuw Beerta / 6312 Meetstation Oosterschelde / 6344 Meetstation Rotterdam / 6343 Meetstation Rotterdam Geulhaven / 6316 Meetstation Schaar / 6240 Meetstation Schiphol / 6324 Meetstation Stavenisse / 6267 Meetstation Stavoren / 6229 Meetstation Texelhors / 6331 Meetstation Tholen / 6290 Meetstation Twente / 6313 Meetstation Vlakte aan de Raan / 6242 Meetstation Vlieland / 6310 Meetstation Vlissingen / 6375 Meetstation Volkel / 6215 Meetstation Voorschoten / 6319 Meetstation Westdorpe / 6248 Meetstation Wijdenes / 6257 Meetstation Wijk aan Zee / 6340 Meetstation Woensdrecht / 6239 Meetstation Zeeplatform F-3 / 6252 Meetstation Zeeplatform K13

-- This QuickApp can store all general and station specific weather information in global variables. These global variables you can use in your own scripts, for example to send an email every morning with the weather forecast, send notifications of weather changes, etcetera. To use these Global Variables, set the QuickApp variable "setGlobalVar" to true.

-- Global Variables (if QuickApp variable setGlobalVar = true):
-- brStation_[deviceID]
-- brWeatherreport_[deviceID]
-- brShortterm_[deviceID]
-- brLongterm_[deviceID]
-- brFivedayforecast_2_[deviceID]
-- brFivedayforecast_3_[deviceID]
-- brFivedayforecast_4_[deviceID]
-- brFivedayforecast_5_[deviceID]

-- Examples of the Global Variables:
 
-- brStation_[deviceID] -- {"regio": "Rotterdam","timestamp": "2020-08-22T11:40:00","airpressure": 1013.1,"lat": 51.95,"weatherdescription": "Zwaar bewolkt","rainFallLast24Hour": 0.6,"feeltemperature": 20.3,"precipitation": 0,"stationname": "Meetstation Rotterdam","lon": 4.45,"$id": "36","temperature": 20.3,"graphUrl": "https://www.buienradar.nl/nederland/weerbericht/weergrafieken/c","windgusts": 14.4,"sunpower": 349,"rainFallLastHour": 0,"winddirection": "ZW","stationid": 6344,"groundtemperature": 20.7,"winddirectiondegrees": 215,"humidity": 68,"windspeedBft": 5,"windspeed": 9.3,"visibility": 25300,"iconurl": "https://www.buienradar.nl/resources/images/icons/weather/30x30/c.png"}

-- brWeatherreport_[deviceID] -- {"published":"2020-08-22T10:00:00","authorbio":"Sinds 2017 als junior Meteoroloog actief voor het weekendteam van Buienradar. Daarnaast student van de Bachelor Bodem, Water & Atmosfeer aan de Wageningen Universiteit.","author":"Philippe Schambergen","text":"Na de warmte van de afgelopen weken gaat het roer nu flink om. De komende tijd is het wisselvallig in Nederland met normale temperaturen en vooral op woensdag staat er veel wind.Vandaag is het wisselend bewolkt en is het in het binnenland nog geruime tijd droog. In de loop van de dag gaan er vanuit het noordwesten buien vallen met in het noorden kans op onweer. Na het middaguur trekken deze buien verder landinwaarts. Tussen de buien door blijft er echter genoeg ruimte voor de zon. Het wordt 21 of 22 graden langs de kust en nog een zomerse 25 graden in het zuidoosten. Er staat een matige en aan zee krachtige zuidwestenwind, windkracht 4 tot 6. Ook komen er in heel het land windstoten rond de 50 km\/h voor, tijdens buien mogelijk oplopend tot 75 km\/h. Aan het eind van de middag komt er langs de zuidwestkust mogelijk een harde zuidwestenwind te staan, windkracht 7.Vanavond klaart het op en trekken de meeste buien naar het oosten weg. Het blijft nog even stevig waaien. Vannacht neemt de wind in het binnenland iets af en verdwijnen daar de windstoten. Er gaan wel opnieuw buien ontstaan in het noorden van het land. Het koelt af naar 17 graden aan zee en 14 graden in het binnenland. Morgen is het wisselend bewolkt en trekken enkele buien over het land. Er staat wel iets minder wind dan vandaag: de westenwind waait matig tot aan zee (vrij) krachtig. In de middag wordt het nog maar 20 graden op de Wadden en 22 graden in het zuidoosten van het land, waarmee de temperatuur rond normaal komt te liggen.De dagen erna is het wisselvallig met enkele buien waarbij het vooral in het noorden soms flink kan doorregenen. Een depressie ligt woensdag boven de Noordzee en deze zorgt dan voor een flinke toename van de wind. Mogelijk wordt het zelfs even stormachtig! In de middag wordt het 19 tot 22 graden, alleen dinsdag kan het in het zuidoosten wel weer 24 graden worden.","title":"Terug naar normaal","summary":"Na de warmte van de afgelopen weken gaat het roer nu flink om. De komende tijd is het wisselvallig in Nederland met normale temperaturen en vooral op woensdag staat er veel wind.","$id":"57"}

-- brShortterm_[deviceID] -- {"startdate":"2020-08-23T00:00:00","enddate":"2020-08-27T00:00:00","forecast":"Onbestendig met geregeld regen of enkele buien.","$id":"58"}

-- brLongterm_[deviceID] -- {"startdate":"2020-08-28T00:00:00","enddate":"2020-09-01T00:00:00","forecast":"Aanvankelijk onbestendig met maxima iets onder het langjarig gemiddelde. Later in de periode neemt de kans op een droger en warmer weertype toe.","$id":"59"}
 
-- brFivedayforecast_2_[deviceID] -- {"iconurl": "https://www.buienradar.nl/resources/images/icons/weather/30x30/f.png","mintemperatureMin": 14,"maxtemperatureMax": 20,"weatherdescription": "Afwisselend bewolkt met (mogelijk) wat lichte regen","mintemperature": "14/15","mintemperatureMax": 15,"mmRainMax": 5,"maxtemperature": "19/20","maxtemperatureMin": 19,"wind": 3,"windDirection": "w","mmRainMin": 2,"sunChance": 30,"day": "2020-08-24T00:00:00","rainChance": 70,"$id": "61"}

-- brFivedayforecast_3_[deviceID] -- {"iconurl": "https://www.buienradar.nl/resources/images/icons/weather/30x30/f.png","mintemperatureMin": 13,"maxtemperatureMax": 22,"weatherdescription": "Afwisselend bewolkt met (mogelijk) wat lichte regen","mintemperature": "13/15","mintemperatureMax": 15,"mmRainMax": 6,"maxtemperature": "20/22","maxtemperatureMin": 20,"wind": 4,"windDirection": "zw","mmRainMin": 2,"sunChance": 30,"day": "2020-08-25T00:00:00","rainChance": 80,"$id": "62"}
 
-- brFivedayforecast_4_[deviceID] -- {"iconurl": "https://www.buienradar.nl/resources/images/icons/weather/30x30/f.png","mintemperatureMin": 16,"maxtemperatureMax": 21,"weatherdescription": "Afwisselend bewolkt met (mogelijk) wat lichte regen","mintemperature": "16/17","mintemperatureMax": 17,"mmRainMax": 3,"maxtemperature": "19/21","maxtemperatureMin": 19,"wind": 5,"windDirection": "w","mmRainMin": 1,"sunChance": 30,"day": "2020-08-26T00:00:00","rainChance": 60,"$id": "63"}

-- brFivedayforecast_5_[deviceID] -- {"iconurl": "https://www.buienradar.nl/resources/images/icons/weather/30x30/f.png","mintemperatureMin": 13,"maxtemperatureMax": 20,"weatherdescription": "Afwisselend bewolkt met (mogelijk) wat lichte regen","mintemperature": "13/15","mintemperatureMax": 15,"mmRainMax": 3,"maxtemperature": "19/20","maxtemperatureMin": 19,"wind": 3,"windDirection": "zw","mmRainMin": 1,"sunChance": 40,"day": "2020-08-27T00:00:00","rainChance": 70,"$id": "64"}

-- JSON data copyright: (C)opyright Buienradar / RTL. All rights reserved
-- JSON data terms: This feed may be used freely under condition of source reference buienradar.nl including a hyperlink to https://www.buienradar.nl. The feed cannot be derived from users or other persons.


-- Below here no changes are needed


class 'brTemperature'(QuickAppChild)
function brTemperature:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brTemperature:updateValue(data) 
  self:updateProperty("value",tonumber(data.temperature))
  self:updateProperty("unit", "°C")
  self:updateProperty("log", " ")
end

class 'brFeelTemp'(QuickAppChild)
function brFeelTemp:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brFeelTemp:updateValue(data) 
  self:updateProperty("value",tonumber(data.feeltemperature))
  self:updateProperty("unit", "°C")
  self:updateProperty("log", " ")
end

class 'brGroundTemp'(QuickAppChild)
function brGroundTemp:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brGroundTemp:updateValue(data) 
  self:updateProperty("value",tonumber(data.groundtemperature))
  self:updateProperty("unit", "°C")
  self:updateProperty("log", " ")
end

class 'brHumidity'(QuickAppChild)
function brHumidity:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brHumidity:updateValue(data) 
  self:updateProperty("value",tonumber(data.humidity))
  self:updateProperty("unit", "%")
end

class 'brHumidityAbs'(QuickAppChild)
function brHumidityAbs:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brHumidityAbs:updateValue(data) 
  self:updateProperty("value",tonumber(data.humidityabsolute))
  self:updateProperty("unit", "g/m³")
end

class 'brAirpressure'(QuickAppChild)
function brAirpressure:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brAirpressure:updateValue(data) 
  self:updateProperty("value",tonumber(data.airpressure))
  self:updateProperty("unit", "hPa")
  self:updateProperty("log", data.airpressuretext)
end

class 'brWindspeedMS'(QuickAppChild)
function brWindspeedMS:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brWindspeedMS:updateValue(data) 
  self:updateProperty("value",tonumber(data.windspeed))
  self:updateProperty("unit", "m/s")
  self:updateProperty("log", " ")
end

class 'brWindspeedKMH'(QuickAppChild)
function brWindspeedKMH:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brWindspeedKMH:updateValue(data) 
  self:updateProperty("value",tonumber(data.windspeed*3.6))
  self:updateProperty("unit", "km/h")
  self:updateProperty("log", " ")
end

class 'brWindspeedBFT'(QuickAppChild)
function brWindspeedBFT:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brWindspeedBFT:updateValue(data) 
  self:updateProperty("value",tonumber(data.windspeedBft))
  self:updateProperty("unit", "bft")
  self:updateProperty("log", " ")
end

class 'brWindgusts'(QuickAppChild)
function brWindgusts:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brWindgusts:updateValue(data) 
  self:updateProperty("value",tonumber(data.windgusts))
  self:updateProperty("unit", "km/h")
  self:updateProperty("log", " ")
end

class 'brWinddirection'(QuickAppChild)
function brWinddirection:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brWinddirection:updateValue(data) 
  self:updateProperty("value",tonumber(data.winddirectiondegrees))
  self:updateProperty("unit", "°")
  self:updateProperty("log", data.winddirection ..data.winddirectionarrow)
end

class 'brPrecipitation'(QuickAppChild)
function brPrecipitation:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brPrecipitation:updateValue(data) 
  self:updateProperty("value",tonumber(data.precipitation))
  self:updateProperty("unit", "mm/h")
  self:updateProperty("log", " ")
end

class 'brLast24h'(QuickAppChild)
function brLast24h:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brLast24h:updateValue(data) 
  self:updateProperty("value",tonumber(data.rainFallLast24Hour))
  self:updateProperty("unit", "mm")
  self:updateProperty("log", " ")
end

class 'brSunpower'(QuickAppChild)
function brSunpower:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brSunpower:updateValue(data) 
  self:updateProperty("value",tonumber(data.sunpower))
  self:updateProperty("unit", "Watt/m²")
end

class 'brVisibility'(QuickAppChild)
function brVisibility:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brVisibility:updateValue(data) 
  self:updateProperty("value",tonumber(data.visibility)) 
  self:updateProperty("unit", "km")
end

class 'brSunset'(QuickAppChild)
function brSunset:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brSunset:updateValue(data) 
  self:updateProperty("value",tonumber(data.sunset)) 
  self:updateProperty("unit", "")
end

class 'brSunrise'(QuickAppChild)
function brSunrise:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brSunrise:updateValue(data) 
  self:updateProperty("value",tonumber(data.sunrise)) 
  self:updateProperty("unit", "")
end

class 'brSunChance'(QuickAppChild)
function brSunChance:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brSunChance:updateValue(data) 
  self:updateProperty("value",tonumber(data.day1sunChance)) 
  self:updateProperty("unit", "%")
end

class 'brMinMinTemp'(QuickAppChild)
function brMinMinTemp:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brMinMinTemp:updateValue(data) 
  self:updateProperty("value",tonumber(data.day1mintemperatureMin)) 
  self:updateProperty("unit", "°C")
end

class 'brMaxMaxTemp'(QuickAppChild)
function brMaxMaxTemp:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brMaxMaxTemp:updateValue(data) 
  self:updateProperty("value",tonumber(data.day1maxtemperatureMax)) 
  self:updateProperty("unit", "°C")
end

class 'brRainChance'(QuickAppChild)
function brRainChance:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brRainChance:updateValue(data) 
  self:updateProperty("value",tonumber(data.day1rainChance)) 
  self:updateProperty("unit", "%")
end

class 'brMinRain'(QuickAppChild)
function brMinRain:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brMinRain:updateValue(data) 
  self:updateProperty("value",tonumber(data.day1mmRainMin)) 
  self:updateProperty("unit", "mm/h")
end

class 'brMaxRain'(QuickAppChild)
function brMaxRain:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brMaxRain:updateValue(data) 
  self:updateProperty("value",tonumber(data.day1mmRainMax)) 
  self:updateProperty("unit", "mm/h")
end

class 'brWindMS'(QuickAppChild)
function brWindMS:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brWindMS:updateValue(data) 
  self:updateProperty("value",tonumber(data.day1wind)) 
  self:updateProperty("unit", "m/s")
  self:updateProperty("log", data.day1windDirection ..data.day1windDirectionarrow)
end

class 'brWindKMH'(QuickAppChild)
function brWindKMH:__init(dev)
  QuickAppChild.__init(self,dev)
end
function brWindKMH:updateValue(data) 
  self:updateProperty("value",tonumber(data.day1wind*3.6)) 
  self:updateProperty("unit", "km/h")
  self:updateProperty("log", data.day1windDirection ..data.day1windDirectionarrow)
end


local function getChildVariable(child,varName)
  for _,v in ipairs(child.properties.quickAppVariables or {}) do
    if v.name==varName then return v.value end
  end
  return ""
end


-- QuickApp Functions


function QuickApp:updateChildDevices() -- Update Child Devices
  for id,child in pairs(self.childDevices) do 
    child:updateValue(data) 
  end
end


function QuickApp:logging(level,text) -- Logging function for debug
  if tonumber(debugLevel) >= tonumber(level) then 
      self:debug(text)
  end
end


function QuickApp:setGlobalVariable(tag,res) -- Fill the Buienradar Global Variable
  if setGlobalVar then 
    if api.get("/globalVariables/"..tag) == nil then
      local responseData, status = api.post("/globalVariables/",{value=(json.encode(res)),name=tag})
      self:trace("Global Variable created: " ..tag .." / status: " ..status) 
    else
      local responseData, status = api.put("/globalVariables/"..tag,{value=(json.encode(res))})
    end
  else
    if api.get("/globalVariables/"..tag) then
      self:deleteGlobalVariable(tag) -- If the Global Variable exists, delete it
    end
  end
end

function QuickApp:deleteGlobalVariable(tag) -- Delete the Buienradar Global Variable 
   local responseData, status = api.delete("/globalVariables/"..tag) 
   self:trace("Global Variable deleted: " ..tag .." / status: " ..status)
end


function QuickApp:setPressuretext(airpressure) -- Setup text for airpressure
  press = tonumber(airpressure)
  if press < 974 then 
    return "Thunderstorms"
  elseif press < 990 then
    return "Stormy"
  elseif press < 1002 then
    return "Rain"
  elseif press < 1010 then
    return "Cloudy"
  elseif press < 1022 then
    return "Unstable"
  elseif press < 1035 then
    return "Stable"
  else
    return "Very dry"
  end
end


function QuickApp:setWinddirectionarrow(direction) -- Setup arrow for winddirection 
  if direction == "N" then
    return " ↓"
  elseif direction == "NO" or direction == "ONO" or direction == "NNO" then
    return " ↙"
  elseif direction == "O" then
    return " ←"
  elseif direction == "OZO" or direction ==" ZO" or direction == "ZZO" then
    return " ↖"
  elseif direction == "Z" then
    return " ↑"
  elseif direction == "ZZW" or direction == "ZW" or direction == "WZW" then
    return " ↗"
  elseif direction == "W" then
    return " →"
  elseif direction == "WNW" or direction == "NW" or direction == "NNW" then
    return " ↘"
  else
    return " ⟳"
  end
end


function QuickApp:getHumidityAbs() -- Calculate Absolute Humidity (based on Temperature, Relative Humidity and Airpressure) Source from muhmuh at Fibaro forum
  local EXP = 2.71828182845904523536028747135266249775724709369995
  local humidityAbs = 0.622 * data.humidity/100 * (1.01325 * 10^(5.426651 - 2005.1 / (data.temperature + 273.15) + 0.00013869 * ((data.temperature + 273.15) * (data.temperature + 273.15) - 293700) / (data.temperature + 273.15) * (10^(0.000000000011965 * ((data.temperature + 273.15) * (data.temperature + 273.15) - 293700) * ((data.temperature + 273.15) * (data.temperature + 273.15) - 293700)) - 1) - 0.0044 * 10^((-0.0057148 * (374.11 - data.temperature)^1.25))) + (((data.temperature + 273.15) / 647.3) - 0.422) * (0.577 - ((data.temperature + 273.15) / 647.3)) * EXP^(0.000000000011965 * ((data.temperature + 273.15) * (data.temperature + 273.15) - 293700) * ((data.temperature + 273.15) * (data.temperature + 273.15) - 293700)) * 0.00980665) / (data.airpressure/1000 - data.humidity/100 * (1.01325 * 10^(5.426651 - 2005.1 / (data.temperature + 273.15) + 0.00013869 * ((data.temperature + 273.15) * (data.temperature + 273.15) - 293700) / (data.temperature + 273.15) * (10^(0.000000000011965 * ((data.temperature + 273.15) * (data.temperature + 273.15) - 293700) * ((data.temperature + 273.15) * (data.temperature + 273.15) - 293700)) - 1) - 0.0044 * 10^((-0.0057148 * (374.11 - data.temperature)^1.25))) + (((data.temperature + 273.15) / 647.3) - 0.422) * (0.577 - ((data.temperature + 273.15) / 647.3)) * EXP^(0.000000000011965 * ((data.temperature + 273.15) * (data.temperature + 273.15) - 293700) * ((data.temperature + 273.15) * (data.temperature + 273.15) - 293700)) * 0.00980665)) * data.airpressure/1000 * 100000000 / ((data.temperature + 273.15) * 287.1)
  return string.format("%.2f",humidityAbs)
end


function QuickApp:showWarningBackupData(var) -- Show warning if data from backup station is used
  if stationWarning then
    self:warning(var .." data from " ..data.stationname .." NOT available, using data from backup station " ..data.backupstationname)
  end
end


function QuickApp:setCondition(condition) -- Update weather condition, update properties "ConditionCode" and "WeatherCondition"
  self:logging(3,"QuickApp:setCondition(condition)")
  local conditionCodes = {unavailable = 3200, clear = 32, rain = 40, snow = 43, storm = 38, cloudy = 30, fog = 20,}
  local conditionCode = conditionCodes[condition]
  if conditionCode then
    self:updateProperty("ConditionCode", conditionCode)
    self:updateProperty("WeatherCondition", condition)
  end
end


function QuickApp:setPropertiesLabels() -- Update properties and labels 
  self:logging(3,"QuickApp:setPropertiesLabels()")
  local labelText = data.regio .." (" ..data.stationname .." - " ..stationID ..")" .."\n" 
  labelText = labelText ..data.weatherdescription .."\n" 
  labelText = labelText .."Temperature: " ..data.temperature .." °C" .."\n"
  labelText = labelText .."Feel temperature: " ..data.feeltemperature .." °C" .."\n"
  labelText = labelText .."Ground temperature: " ..data.groundtemperature .." °C" .."\n"
  labelText = labelText .."Humidity: " ..data.humidity .." %" .."\n" 
  labelText = labelText .."Absolute humidity: " ..data.humidityabsolute .." g/m³" .."\n" 
  labelText = labelText .."Air pressure: " ..data.airpressure .." hPa (" ..data.airpressuretext ..")" .."\n" 
  labelText = labelText .."Rain: " ..data.precipitation .." mm/h Last 24h: " ..data.rainFallLast24Hour .." mm/h" .."\n" 
  labelText = labelText .."Wind: " ..data.winddirection .." " ..data.windspeed .." m/s " ..data.windspeed*3.6 .." km/h " ..data.windspeedBft .." Bft " .."\n" 
  labelText = labelText .."Windgusts: "..data.windgusts .." m/s" .."\n" 
  labelText = labelText .."Sun power: " ..data.sunpower .." Watt/m²" .."\n" 
  labelText = labelText .."Visibility: "  ..data.visibility .." km" .."\n" 
  labelText = labelText .."Sunset: " ..data.sunset .." - Sunrise: " ..data.sunrise .."\n"
  labelText = labelText .."Measured: " ..data.timestamp .."\n\n"

  labelText = labelText .."5-Days Forecast: " .."\n"
  labelText = labelText .."(" ..data.day1 ..") " ..data.day1weatherdescription  .."\n"
  labelText = labelText .."Sun chance: " ..data.day1sunChance .." - " ..data.day2sunChance .." - "..data.day3sunChance .." - " ..data.day4sunChance .." - "..data.day5sunChance .." %".."\n"
  labelText = labelText .."Min temp: " ..data.day1mintemperatureMin .." - " ..data.day2mintemperatureMin .." - " ..data.day3mintemperatureMin .." - " ..data.day4mintemperatureMin .." - " ..data.day5mintemperatureMin .." °C".."\n"
  labelText = labelText .."Max temp: " ..data.day1maxtemperatureMax .." - " ..data.day2maxtemperatureMax .." - " ..data.day3maxtemperatureMax .." - " ..data.day4maxtemperatureMax .." - " ..data.day5maxtemperatureMax .." °C".."\n"
  labelText = labelText .."Rain chance: " ..data.day1rainChance  .." - " ..data.day2rainChance  .." - " ..data.day3rainChance  .." - " ..data.day4rainChance  .." - " ..data.day5rainChance  .." %" .."\n"
  labelText = labelText .."Rain min: " ..data.day1mmRainMin .." - " ..data.day2mmRainMin .." - " ..data.day3mmRainMin .." - " ..data.day4mmRainMin .." - " ..data.day5mmRainMin .." mm/h" .."\n" 
  labelText = labelText .."Rain max: " ..data.day1mmRainMax .." - " ..data.day2mmRainMax .." - " ..data.day3mmRainMax .." - " ..data.day4mmRainMax .." - " ..data.day5mmRainMax .." mm/h" .."\n" 
  labelText = labelText .."Wind: " ..data.day1windDirection .." " ..data.day1wind .." - " ..data.day2windDirection .." " ..data.day2wind .." - " ..data.day3windDirection .." " ..data.day3wind .." - " ..data.day4windDirection .." " ..data.day4wind .." - " ..data.day5windDirection .." " ..data.day5wind .." m/s" .."\n"

  self:updateView("label", "text", labelText)
  self:logging(2,labelText)

  self:updateProperty("log", data.regio)

  -- Update Weatherstation values
  self:updateProperty("Temperature", tonumber(data.temperature))
  self:updateProperty("Humidity", tonumber(data.humidity))
  self:updateProperty("Wind", tonumber(data.windspeed)*3.6) -- From m/s to km/h
  --self:updateProperty("Pressure", tonumber(data.airpressure))
end 


function QuickApp:setWeathercondition() -- Set Weathercondition
  self:logging(3,"QuickApp:setWeathercondition()")  
   -- Update Condition (to be completed), unmapped weatherdescription are logged as warning
   if data.weatherdescription == "Zwaar bewolkt" or data.weatherdescription == "Mix van opklaringen en middelbare of lage bewolking" or data.weatherdescription == "Mix van opklaringen en hoge bewolking" or data.weatherdescription == "Half bewolkt" or data.weatherdescription == "Opklaringen en kans op enkele pittige (onweers)buien" or data.weatherdescription == "Bewolkt en kans op enkele pittige (onweers)buien" then self:setCondition("cloudy")
   elseif data.weatherdescription == "Zwaar bewolkt en regen" or data.weatherdescription == "Afwisselend bewolkt met (mogelijk) wat lichte regen" or data.weatherdescription == "Zwaar bewolkt met wat lichte regen" then self:setCondition("rain")
   elseif data.weatherdescription == "Vrijwel onbewolkt (zonnig/helder)" then self:setCondition("clear")
   elseif data.weatherdescription == "Sneeuw" or data.weatherdescription == "Zwaar bewolkt met lichte sneeuwval" or data.weatherdescription == "Afwisselend bewolkt met lichte sneeuwval" or weatherdescription == "Zware sneeuwval" then self:setCondition("snow")
   elseif data.weatherdescription == "Storm" then self:setCondition("storm")
   elseif data.weatherdescription == "Mistig" or data.weatherdescription == "Afwisselend bewolkt met lokaal mist(banken)" or data.weatherdescription == "Opklaring en lokaal nevel of mist" then self:setCondition("fog")
   else -- Unable to set the Condition to a known one
      self:setCondition("unavailable") 
      self:warning("Weatherdescription unavailable: " ..data.weatherdescription)
   end 
end


function QuickApp:onWeatherDataReceived(jsonTable) -- Get all weather data from json
  self:logging(3,"QuickApp:onWeatherDataReceived(jsonTable)")
  data.stationname = ""
  for i in pairs(jsonTable.actual.stationmeasurements) do -- Get the values from the stationID
    self:logging(3,jsonTable.actual.stationmeasurements[i].stationid .." " ..jsonTable.actual.stationmeasurements[i].stationname)
    if stationID == jsonTable.actual.stationmeasurements[i].stationid then -- The main data values
      self:logging(3,"Data from Station ID: " ..backupstationID)
      data.temperature = jsonTable.actual.stationmeasurements[i].temperature or 0
      data.feeltemperature = jsonTable.actual.stationmeasurements[i].feeltemperature or 0
      data.groundtemperature = jsonTable.actual.stationmeasurements[i].groundtemperature or 0
      data.humidity = jsonTable.actual.stationmeasurements[i].humidity or 0
      data.airpressure = jsonTable.actual.stationmeasurements[i].airpressure or 0
      data.windspeed = jsonTable.actual.stationmeasurements[i].windspeed or 0
      data.winddirection = jsonTable.actual.stationmeasurements[i].winddirection or " "
      data.windspeedBft = jsonTable.actual.stationmeasurements[i].windspeedBft or 0
      data.windgusts = jsonTable.actual.stationmeasurements[i].windgusts or 0
      data.winddirectiondegrees = jsonTable.actual.stationmeasurements[i].winddirectiondegrees or 0
      data.precipitation = jsonTable.actual.stationmeasurements[i].precipitation or 0
      data.rainFallLast24Hour = jsonTable.actual.stationmeasurements[i].rainFallLast24Hour or 0
      data.sunpower = jsonTable.actual.stationmeasurements[i].sunpower or 0
      data.visibility = jsonTable.actual.stationmeasurements[i].visibility or 0
      data.sunrise = jsonTable.actual.sunrise or 0
      data.sunset = jsonTable.actual.sunset or 0

      -- The extra data values
      data.stationname = jsonTable.actual.stationmeasurements[i].stationname
      data.regio = jsonTable.actual.stationmeasurements[i].regio
      data.weatherdescription = jsonTable.actual.stationmeasurements[i].weatherdescription
      data.timestamp = jsonTable.actual.stationmeasurements[i].timestamp
      local pattern = "(%d+)-(%d+)-(%d+)T(%d+):(%d+):(%d+)" -- Convert timestamp to nice format
      local runyear, runmonth, runday, runhour, runminute, runseconds = data.timestamp:match(pattern)
      local convertedTimestamp = os.time({year = runyear, month = runmonth, day = runday, hour = runhour, min = runminute, sec = runseconds})
      data.timestamp = os.date("%d-%m-%Y %H:%M", convertedTimestamp)

      -- Save Station specific weather values to Global Variable
      self:setGlobalVariable("brStation_"..plugin.mainDeviceId,jsonTable.actual.stationmeasurements[i])
    end
    if backupstationID == jsonTable.actual.stationmeasurements[i].stationid then
      self:logging(3,"Backup data from Station ID: " ..backupstationID)
      data.backupstationname = jsonTable.actual.stationmeasurements[i].stationname
      data.backuptemperature = jsonTable.actual.stationmeasurements[i].temperature or 99
      data.backupfeeltemperature = jsonTable.actual.stationmeasurements[i].feeltemperature or 99
      data.backupgroundtemperature = jsonTable.actual.stationmeasurements[i].groundtemperature or 99
      data.backuphumidity = jsonTable.actual.stationmeasurements[i].humidity or 0
      data.backupairpressure = jsonTable.actual.stationmeasurements[i].airpressure or 1013
      data.backupwindspeed = jsonTable.actual.stationmeasurements[i].windspeed or 0
      data.backupwinddirection = jsonTable.actual.stationmeasurements[i].winddirection or "?"
      data.backupwindspeedBft = jsonTable.actual.stationmeasurements[i].windspeedBft or 0
      data.backupwindgusts = jsonTable.actual.stationmeasurements[i].windgusts or 0
      data.backupwinddirectiondegrees = jsonTable.actual.stationmeasurements[i].winddirectiondegrees or 0
      data.backupprecipitation = jsonTable.actual.stationmeasurements[i].precipitation or 0
      data.backuprainFallLast24Hour = jsonTable.actual.stationmeasurements[i].rainFallLast24Hour or 0
      data.backupsunpower = jsonTable.actual.stationmeasurements[i].sunpower or 0
      data.backupvisibility = jsonTable.actual.stationmeasurements[i].visibility or 0
    end
  end
  
  -- Get the 5-days forecast values
  data.day1weatherdescription = jsonTable.forecast.fivedayforecast[1].weatherdescription or ""
  data.day1mintemperatureMin = jsonTable.forecast.fivedayforecast[1].mintemperatureMin or 0
  data.day1maxtemperatureMax = jsonTable.forecast.fivedayforecast[1].maxtemperatureMax or 0
  data.day1mmRainMin = jsonTable.forecast.fivedayforecast[1].mmRainMin or 0
  data.day1mmRainMax = jsonTable.forecast.fivedayforecast[1].mmRainMax or 0
  data.day1rainChance = jsonTable.forecast.fivedayforecast[1].rainChance or 0
  data.day1sunChance = jsonTable.forecast.fivedayforecast[1].sunChance or 0
  data.day1wind = jsonTable.forecast.fivedayforecast[1].wind or 0
  data.day1windDirection = string.upper(jsonTable.forecast.fivedayforecast[1].windDirection) or ""
  data.day1windDirectionarrow = self:setWinddirectionarrow(data.day1windDirection) -- Setup day1WindDirection Arrow
  data.day1 = jsonTable.forecast.fivedayforecast[1].day
  local pattern = "(%d+)-(%d+)-(%d+)T(%d+):(%d+):(%d+)" -- Convert day1 to nice format
  local runyear, runmonth, runday, runhour, runminute, runseconds = data.day1:match(pattern)
  local convertedTimestamp = os.time({year = runyear, month = runmonth, day = runday, hour = runhour, min = runminute, sec = runseconds})
  data.day1 = os.date("%d-%m-%Y", convertedTimestamp)
  
  data.day2mintemperatureMin = jsonTable.forecast.fivedayforecast[2].mintemperatureMin or 0
  data.day2maxtemperatureMax = jsonTable.forecast.fivedayforecast[2].maxtemperatureMax or 0
  data.day2mmRainMin = jsonTable.forecast.fivedayforecast[2].mmRainMin or 0
  data.day2mmRainMax = jsonTable.forecast.fivedayforecast[2].mmRainMax or 0
  data.day2rainChance = jsonTable.forecast.fivedayforecast[2].rainChance or 0
  data.day2sunChance = jsonTable.forecast.fivedayforecast[2].sunChance or 0
  data.day2wind = jsonTable.forecast.fivedayforecast[2].wind or 0
  data.day2windDirection = string.upper(jsonTable.forecast.fivedayforecast[2].windDirection) or ""
  
  data.day3mintemperatureMin = jsonTable.forecast.fivedayforecast[3].mintemperatureMin or 0
  data.day3maxtemperatureMax = jsonTable.forecast.fivedayforecast[3].maxtemperatureMax or 0
  data.day3mmRainMin = jsonTable.forecast.fivedayforecast[3].mmRainMin or 0
  data.day3mmRainMax = jsonTable.forecast.fivedayforecast[3].mmRainMax or 0
  data.day3rainChance = jsonTable.forecast.fivedayforecast[3].rainChance or 0
  data.day3sunChance = jsonTable.forecast.fivedayforecast[3].sunChance or 0
  data.day3wind = jsonTable.forecast.fivedayforecast[3].wind or 0
  data.day3windDirection = string.upper(jsonTable.forecast.fivedayforecast[3].windDirection) or ""
  
  data.day4mintemperatureMin = jsonTable.forecast.fivedayforecast[4].mintemperatureMin or 0
  data.day4maxtemperatureMax = jsonTable.forecast.fivedayforecast[4].maxtemperatureMax or 0
  data.day4mmRainMin = jsonTable.forecast.fivedayforecast[4].mmRainMin or 0
  data.day4mmRainMax = jsonTable.forecast.fivedayforecast[4].mmRainMax or 0
  data.day4rainChance = jsonTable.forecast.fivedayforecast[4].rainChance or 0
  data.day4sunChance = jsonTable.forecast.fivedayforecast[4].sunChance or 0
  data.day4wind = jsonTable.forecast.fivedayforecast[4].wind or 0
  data.day4windDirection = string.upper(jsonTable.forecast.fivedayforecast[4].windDirection) or ""
  
  data.day5mintemperatureMin = jsonTable.forecast.fivedayforecast[5].mintemperatureMin or 0
  data.day5maxtemperatureMax = jsonTable.forecast.fivedayforecast[5].maxtemperatureMax or 0
  data.day5mmRainMin = jsonTable.forecast.fivedayforecast[5].mmRainMin or 0
  data.day5mmRainMax = jsonTable.forecast.fivedayforecast[5].mmRainMax or 0
  data.day5rainChance = jsonTable.forecast.fivedayforecast[5].rainChance or 0
  data.day5sunChance = jsonTable.forecast.fivedayforecast[5].sunChance or 0
  data.day5wind = jsonTable.forecast.fivedayforecast[5].wind or 0
  data.day5windDirection = string.upper(jsonTable.forecast.fivedayforecast[5].windDirection) or ""
  
  -- Save generiek weather values to Global Variables
  self:setGlobalVariable("brWeatherreport_"..plugin.mainDeviceId,jsonTable.forecast.weatherreport)
  self:setGlobalVariable("brShortterm_"..plugin.mainDeviceId,jsonTable.forecast.shortterm)
  self:setGlobalVariable("brLongterm_"..plugin.mainDeviceId,jsonTable.forecast.longterm)
  --self:setGlobalVariable("brFivedayforecast_1_"..plugin.mainDeviceId,jsonTable.forecast.fivedayforecast[1])
  self:setGlobalVariable("brFivedayforecast_2_"..plugin.mainDeviceId,jsonTable.forecast.fivedayforecast[2])
  self:setGlobalVariable("brFivedayforecast_3_"..plugin.mainDeviceId,jsonTable.forecast.fivedayforecast[3])
  self:setGlobalVariable("brFivedayforecast_4_"..plugin.mainDeviceId,jsonTable.forecast.fivedayforecast[4])
  self:setGlobalVariable("brFivedayforecast_5_"..plugin.mainDeviceId,jsonTable.forecast.fivedayforecast[5])

  -- Check if variables have a value
  if data.stationname == "" or data.stationname == nil then
    self:error("Error: Station " ..stationID .." not found!")
  else
    if data.regio == "" or data.regio == nil then data.regio = "empty" end
    if data.weatherdescription == "" or data.weatherdescription == nil then data.weatherdescription = "empty" end
    if data.timestamp == "" or data.timestamp == nil then data.timestamp = "empty" end
    if data.temperature == "" or data.temperature == nil or data.temperature == 0 then data.temperature = data.backuptemperature; self:showWarningBackupData("temperature"); end
    if data.feeltemperature == "" or data.feeltemperature == nil or data.feeltemperature == 0 then data.feeltemperature = data.backupfeeltemperature; self:showWarningBackupData("feeltemperature"); end
    if data.humidity == "" or data.humidity == nil or data.humidity == 0 then data.humidity = data.backuphumidity; self:showWarningBackupData("humidity"); end
    if data.windspeed == "" or data.windspeed == nil or data.windspeed == 0 then data.windspeed = data.backupwindspeed; self:showWarningBackupData("windspeed"); end
    if data.windgusts == "" or data.windgusts == nil or data.windgusts == 0 then data.windgusts = data.backupwindgusts; self:showWarningBackupData("windgusts"); end
    if data.groundtemperature  == "" or data.groundtemperature == nil or data.groundtemperature == 0 then data.groundtemperature = data.backupgroundtemperature; self:showWarningBackupData("groundtemperature"); end
    if data.airpressure == "" or data.airpressure == nil or data.airpressure == 0 then data.airpressure = data.backupairpressure; self:showWarningBackupData("airpressure"); end
    if data.precipitation == "" or data.precipitation == nil or data.precipitation == 0 then data.precipitation = data.backupprecipitation; self:showWarningBackupData("rain"); end
    if data.rainFallLast24Hour == "" or data.rainFallLast24Hour == nil or data.rainFallLast24Hour == 0 then data.rainFallLast24Hour = data.backuprainFallLast24Hour; self:showWarningBackupData("rainFallLast24Hour"); end
    if data.sunpower == "" or data.sunpower == nil or data.sunpower == 0 then data.sunpower = data.backupsunpower; self:showWarningBackupData("sunpower"); end
    if data.visibility == "" or data.visibility == nil or data.visibility == 0 then data.visibility = data.backupvisibility; self:showWarningBackupData("visibility"); end
    if data.winddirection == "" or data.winddirection == nil or data.winddirection == " " then data.winddirection = data.backupwinddirection; self:showWarningBackupData("winddirection"); end
    if data.windspeedBft == "" or data.windspeedBft == nil or data.windspeedBft == 0 then data.windspeedBft = data.backupwindspeedBft; self:showWarningBackupData("windspeedBft"); end
    if data.windgusts == "" or data.windgusts == nil or data.windgusts == 0 then data.windgusts = data.backupwindgust; self:showWarningBackupData("windgusts"); end
    if data.winddirectiondegrees == "" or data.winddirectiondegrees == nil or data.winddirectiondegrees == 0 then data.winddirectiondegrees = data.backupwinddirectiondegrees; self:showWarningBackupData("winddirection degrees"); end
    stationWarning = false -- Set warnings for missing data from station false (off) to show only once

    -- Format the data (to prevent error with nil values from json data)
    data.temperature = tostring(data.temperature or 99)
    data.feeltemperature = tostring(data.feeltemperature or 99)
    data.groundtemperature = tostring(data.groundtemperature or 99)
    data.humidity = tostring(string.format("%.0f",data.humidity or 0))
    data.airpressure = tostring(string.format("%.0f",data.airpressure or 0))
    data.windspeed = tostring(string.format("%.1f",(data.windspeed or 0)/3.6))
    data.winddirection = tostring(data.winddirection or " ")
    data.windspeedBft = tostring(string.format("%.0f",data.windspeedBft or 0))
    data.windgusts = tostring(data.windgusts or 0)
    data.winddirectiondegrees = tostring(data.winddirectiondegrees or 0)
    data.precipitation = tostring(data.precipitation or 0)
    data.rainFallLast24Hour = tostring(data.rainFallLast24Hour or 0)
    data.sunpower = tostring(string.format("%.0f",data.sunpower or 0))
    data.visibility = tostring((data.visibility or 0)/1000)
    data.sunrise = string.gsub(string.sub(data.sunrise,-8,-4),":",".")
    data.sunset = string.gsub(string.sub(data.sunset,-8,-4),":",".")

    data.humidityabsolute = self:getHumidityAbs() -- Calculate Absolute Humidity
    data.winddirectionarrow = self:setWinddirectionarrow(data.winddirection) -- Setup Winddirection Arrow
    data.airpressuretext = self:setPressuretext(data.airpressure) -- Setup Airpressure Text

    self:updateChildDevices() -- Update the Child Devices
    self:setWeathercondition() -- Go to setup Weathercondition
    self:setPropertiesLabels() -- Go to setup Properties and Labels
  end
end


function QuickApp:getWeatherData() -- Fetch all weather data from Buienradar url
  self:logging(3,"QuickApp:getWeatherData()")
  local url = "https://data.buienradar.nl/2.0/feed/json"
  self:logging(3,"Connecting: " ..url)
  http:request(url, {
    options={
      method = 'GET'
    },
    success = function(response)
      self:logging(3,"Response status:" ..response.status .." Headers: ", response.headers["Content-Type"])
      self:logging(3,"Response: " ..response.data)
      local jsonTable = json.decode(response.data)

      if jsonTable then 
        self:onWeatherDataReceived(jsonTable) 
      else
        self:warning("Temporarily no data from Buienradar Weather")
      end
    end,
    error = function(error)
      self:error("error: " ..json.encode(error))
      self:updateProperty("log", "error: " ..json.encode(error))
    end
  })   
  fibaro.setTimeout(interval*1000, function() 
     self:getWeatherData()
  end)
end


function QuickApp:createVariables() -- Get all Quickapp Variables or create them
  self:logging(3,"QuickApp:createVariables()")
  data = {}
  data.temperature = ""
  data.feeltemperature = ""
  data.groundtemperature = ""
  data.humidity = ""
  data.airpressure = ""
  data.windspeed = ""
  data.winddirection = ""
  data.winddirectionarrow = ""
  data.windspeedBft = ""
  data.windgusts = ""
  data.winddirectiondegrees = ""
  data.precipitation = ""
  data.rainFallLast24Hour = ""
  data.sunpower = ""
  data.visibility = ""
  data.sunrise = ""
  data.sunset = ""  
  
  data.stationname = ""
  data.regio = ""
  data.weatherdescription = ""
  
  data.day1weatherdescription = ""
  data.day1mintemperatureMin = ""
  data.day1maxtemperatureMax = ""
  data.day1mmRainMin = ""
  data.day1mmRainMax = ""
  data.day1rainChance = ""
  data.day1sunChance = ""
  data.day1wind = ""
  data.day1windDirection = ""
  data.day1windDirectionarrow = ""
  data.day1 = ""
  
  data.day2mintemperatureMin = ""
  data.day2maxtemperatureMax = ""
  data.day2mmRainMin = ""
  data.day2mmRainMax = ""
  data.day2rainChance = ""
  data.day2sunChance = ""
  data.day2wind = ""
  data.day2windDirection = ""
  
  data.day3mintemperatureMin = ""
  data.day3maxtemperatureMax = ""
  data.day3mmRainMin = ""
  data.day3mmRainMax = ""
  data.day3rainChance = ""
  data.day3sunChance = ""
  data.day3wind = ""
  data.day3windDirection = ""
  
  data.day4mintemperatureMin = ""
  data.day4maxtemperatureMax = ""
  data.day4mmRainMin = ""
  data.day4mmRainMax = ""
  data.day4rainChance = ""
  data.day4sunChance = ""
  data.day4wind = ""
  data.day4windDirection = ""
  
  data.day5mintemperatureMin = ""
  data.day5maxtemperatureMax = ""
  data.day5mmRainMin = ""
  data.day5mmRainMax = ""
  data.day5rainChance = ""
  data.day5sunChance = ""
  data.day5wind = ""
  data.day5windDirection = ""
  
end


function QuickApp:getQuickAppVariables() -- Manage the QuickApp variables
  interval = tonumber(self:getVariable("interval")) 
  stationID = tonumber(self:getVariable("stationID")) 
  backupstationID = tonumber(self:getVariable("backupstationID")) 
  timeout = tonumber(self:getVariable("timeout")) 
  setGlobalVar = string.lower(self:getVariable("setGlobalVar"))
  stationWarning = string.lower(self:getVariable("stationWarning"))
  debugLevel = tonumber(self:getVariable("debugLevel"))

  -- Check existence of the mandatory variables, if not, create them with default values 
  if interval == "" or interval == nil then
    interval = "601" -- Default interval in seconds (Buienradar updates every 10 minues)
    self:setVariable("interval",interval)
    self:trace("Added QuickApp variable interval")
    interval = tonumber(interval)
  end
  if stationID == "" or stationID == nil then 
    stationID = "6260" -- Default station ID is 6260 (Meetstation De Bilt)
    self:setVariable("stationID",stationID)
    self:trace("Added QuickApp variable stationID")
    stationID = tonumber(stationID)
  end
  if backupstationID == "" or backupstationID == nil then 
    backupstationID = "6260" -- Default backup station ID is 6260 (Meetstation De Bilt)
    self:setVariable("backupstationID",backupstationID)
    self:trace("Added QuickApp variable backupstationID")
    backupstationID = tonumber(backupstationID)
  end
  if timeout == "" or timeout == nil then
    timeout = "5" -- Default value for timeout response in seconds
    self:setVariable("timeout",timeout)
    self:trace("Added QuickApp variable timeout")
    timeout = tonumber(timeout)
  end
  if debugLevel == "" or debugLevel == nil then
    debugLevel = "1" -- Default value for debugLevel response in seconds
    self:setVariable("debugLevel",debugLevel)
    self:trace("Added QuickApp variable debugLevel")
    debugLevel = tonumber(debugLevel)
  end
  if setGlobalVar == "" or setGlobalVar == nil then 
    setGlobalVar = false -- Default SetGlobalVar is falso (No use of Global Variables)
    self:setVariable("setGlobalVar",tostring(setGlobalVar))
    self:trace("Added QuickApp variable setGlobalVar")
  end
  if setGlobalVar == "true" then 
    setGlobalVar = true 
  else
    setGlobalVar = false
  end
  if stationWarning == "" or stationWarning == nil then 
    stationWarning = true
    self:setVariable("stationWarning",tostring(stationWarning))
    self:trace("Added QuickApp variable stationWarning")
  end
  if stationWarning == "true" then 
    stationWarning = true 
  else
    stationWarning = false
  end
end 


function QuickApp:setupChildDevices() -- Setup Child Devices
  local cdevs = api.get("/devices?parentId="..self.id) or {} -- Pick up all Child Devices
  function self:initChildDevices() end -- Null function, else Fibaro calls it after onInit()...

  if #cdevs == 0 then -- If no Child Devices, create them
    local initChildData = { 
      {className="brTemperature", name="Temperature", type="com.fibaro.temperatureSensor", value=0},
      {className="brFeelTemp", name="Feel Temperature", type="com.fibaro.temperatureSensor", value=0},
      {className="brGroundTemp", name="Ground Temperature", type="com.fibaro.temperatureSensor", value=0},
      {className="brHumidity", name="Humidity", type="com.fibaro.humiditySensor", value=0},
      {className="brHumidityAbs", name="Absolute Humidity", type="com.fibaro.multilevelSensor", value=0},
      {className="brAirpressure", name="Airpressure", type="com.fibaro.multilevelSensor", value=0},
      {className="brWindspeedMS", name="Windspeed m/s", type="com.fibaro.windSensor", value=0},
      {className="brWindspeedKMH", name="Windspeed km/h", type="com.fibaro.windSensor", value=0},
      {className="brWindspeedBFT", name="Windspeed BFT", type="com.fibaro.windSensor", value=0},
      {className="brWindgusts", name="Windgusts", type="com.fibaro.windSensor", value=0},
      {className="brWinddirection", name="Winddirection", type="com.fibaro.windSensor", value=0},
      {className="brPrecipitation", name="Rain", type="com.fibaro.multilevelSensor", value=0},
      {className="brLast24h", name="Rain Last 24h", type="com.fibaro.multilevelSensor", value=0},
      {className="brSunpower", name="Sunpower", type="com.fibaro.powerMeter", value=0},
      {className="brVisibility", name="Visibility", type="com.fibaro.multilevelSensor", value=0},
      {className="brSunset", name="Sunset", type="com.fibaro.multilevelSensor", value=0},
      {className="brSunrise", name="Sunrise", type="com.fibaro.multilevelSensor", value=0},
      {className="brSunChance", name="Sun Chance +1", type="com.fibaro.multilevelSensor", value=0},
      {className="brMinMinTemp", name="Min Temp +1", type="com.fibaro.temperatureSensor", value=0},
      {className="brMaxMaxTemp", name="Max Temp +1", type="com.fibaro.temperatureSensor", value=0},
      {className="brRainChance", name="Rain Chance +1", type="com.fibaro.multilevelSensor", value=0},
      {className="brMinRain", name="Min Rain +1", type="com.fibaro.multilevelSensor", value=0},
      {className="brMaxRain", name="Max Rain +1", type="com.fibaro.multilevelSensor", value=0},
      {className="brWindMS", name="Wind m/s +1", type="com.fibaro.windSensor", value=0},
      {className="brWindKMH", name="Wind km/h +1", type="com.fibaro.windSensor", value=0},
    }
    for _,c in ipairs(initChildData) do
      local child = self:createChildDevice(
        {name = c.name,
          type=c.type,
          value=c.value,
          unit=c.unit,
          initialInterfaces = {},
        },
        _G[c.className] -- Fetch class constructor from class name
      )
      child:setVariable("className",c.className)  -- Save class name so we know when we load it next time
    end   
  else 
    for _,child in ipairs(cdevs) do
      local className = getChildVariable(child,"className") -- Fetch child class name
      local childObject = _G[className](child) -- Create child object from the constructor name
      self.childDevices[child.id]=childObject
      childObject.parent = self -- Setup parent link to device controller 
    end
  end
end


function QuickApp:onInit() 
  __TAG = fibaro.getName(plugin.mainDeviceId) .." ID:" ..plugin.mainDeviceId
  self:debug("QuickApp:onInit()") 
  self:setupChildDevices()
  
  if not api.get("/devices/"..self.id).enabled then
    self:warning("Device", fibaro.getName(plugin.mainDeviceId), "is disabled")
    return
  end
  
  self:getQuickAppVariables()  
  self:createVariables() 
  http = net.HTTPClient({timeout=timeout})
  self:getWeatherData()
end

-- EOF