Is it gonna rain within the next X minutes?

[tlpeter]

Hi MArk,

Sure but keep in mind that my script is totally different.
It is based on Wunderground where you can choose a weather station near by.
I do not have any integration with buienradar.
I also added a switch where i can override the script partly (except for hard wind, rain and night)
Here it is:

Code: Select all

commandArray = {}

--Weatherstation data:
sWeatherTemp, sWeatherHumidity, sWeatherUV, sWeatherPressure, sWeatherUV2 = otherdevices_svalues['Barometer']:match("([^;]+);([^;]+);([^;]+);([^;]+);([^;]+)")
sWeatherTemp = tonumber(sWeatherTemp);
sWeatherHumidity = tonumber(sWeatherHumidity);
sWeatherPressure = tonumber(sWeatherPressure);
sWeatherUV = tonumber(sWeatherUV);
sWeatherUV2 = tonumber(sWeatherUV2);

print("______________________________________________________________________________________")
print("Weather station: Temperature is " .. sWeatherTemp .. " ");
print("Weather station: Humidity is " .. sWeatherHumidity .. " ");
print("Weather station: Pressure is " .. sWeatherPressure .. " ");
print("Weather station: UV is " .. sWeatherUV .. " ");
print("Weather station: UV2 is " .. sWeatherUV2 .. " ");
print("______________________________________________________________________________________")

------------------------------------------------------------------------

--Windmeter data:
sWindDirectionDegrees, sWindDirection, sWindSpeed, sWindGust, sWindTemperature, sWindFeel = otherdevices_svalues['Wind']:match("([^;]+);([^;]+);([^;]+);([^;]+);([^;]+);([^;]+)")

sWindDirectionDegrees = tonumber(sWindDirectionDegrees);
sWindDirection = (sWindDirection);
sWindSpeed = tonumber(sWindSpeed);
sWindGust = tonumber(sWindGust);
sWindTemperature = tonumber(sWindTemperature);
sWindFeel = tonumber(sWindFeel);

print("______________________________________________________________________________________")
print("Windmeter: Winddirection (in degrees) is: " .. sWindDirectionDegrees .. " ");
print("Windmeter: Winddirection is: " .. sWindDirection .. " ");
print("Windmeter: Windspeed is: " .. sWindSpeed .. " ");
print("Windmeter: Windgust is: " .. sWindGust .. " ");
print("Windmeter: Windtemperature is: " .. sWindTemperature .. " ");
print("Windmeter: Windfeel is: " .. sWindFeel .. " ");
print("______________________________________________________________________________________")

------------------------------------------------------------------------

--Rainmeter data:
sRainmeterCurrent, sRainmeterTotal = otherdevices_svalues['Regen']:match("([^;]+);([^;]+)")

sRainmeterCurrent = tonumber(sRainmeterCurrent);
sRainmeterTotal = tonumber(sRainmeterTotal);

print("______________________________________________________________________________________")
print("Rainmeter: Actual rain is: " .. sRainmeterCurrent .. " ");
print("Rainmeter: Total rain is: " .. sRainmeterTotal .. " ");
print("______________________________________________________________________________________")
------------------------------------------------------------------------

--UV data:
sSolar = otherdevices_svalues['Solar']:match("([^;]+)")

--sUV = tonumber(sUV);
sSolar = tonumber(sSolar);

--print("UV: UV Strength is: " .. sUV .." ");
print("UV: Solar radiation is: " .. sSolar .." ");

------------------------------------------------------------------------

--Sunscreen thresholds:
        -- Windspeed            = 100.0 (value is multiplied by 100)
        -- Rain                 =  0.0
        -- UV                   =  2.0
        -- Temperature          = 12.0
        -- Closed       = Down  = On
        -- Open         = Up    = Off

------------------------------------------------------------------------

if (timeofday['Daytime'])
        then
                print('It is past sunrise, monitoring variables for sunscreen')
        if (otherdevices['Zonnescherm'] == 'Open' )
        then
                print ('Sunscreen is up')
        else
                print ('Sunscreen is down')

end

if (otherdevices['Zonnescherm manual override']  == 'Off')
		then
				print('Manual override is turned off, follow the rest of the script')
		else
				print('Manual override is turned on, goto the end of the script and do nothing')
				goto done
end

if (otherdevices['Zonnescherm']   == 'Open'
		and sRainmeterCurrent   == 0
        and sWeatherTemp        > 12.0
		and sSolar				> 100
        and sWindSpeed          < 50
        and sWindGust           < 150)

then

        print ('Sun is shining, all thresholds OK, lowering sunscreen')
		print('______________________________________________________________________________________')
        commandArray['SendNotification']='Sunscreen#Sunscreen down --> Sun is shining'
        commandArray['Zonnescherm']='On'

				elseif (otherdevices['Zonnescherm'] == 'Closed' and sRainmeterCurrent > 0)
                then
                print ('It is raining, raising sunscreen')
				print('______________________________________________________________________________________')
                commandArray['SendNotification']='Sunscreen#Sunscreen up --> It is raining'
                commandArray['Zonnescherm']='Off'
								
        elseif (otherdevices['Zonnescherm'] == 'Closed' and sWeatherTemp <11.0 and otherdevices['Zonnescherm manual override'] == 'Off')
                then
                print ('Temperature too low, raising sunscreen')
				print('______________________________________________________________________________________')
                commandArray['SendNotification']='Sunscreen#Sunscreen up --> It is too cold'
                commandArray['Zonnescherm']='Off'
				
       elseif (otherdevices['Zonnescherm'] == 'Closed' and sSolar < 80 and otherdevices['Zonnescherm manual override'] == 'Off')
                then
                print ('Sun not shining too bright, raising sunscreen')
				print('______________________________________________________________________________________')
                commandArray['SendNotification']='Sunscreen#Sunscreen up --> Sunshine not too bright'
                commandArray['Zonnescherm']='Off'
								
        elseif (otherdevices['Zonnescherm'] == 'Closed' and sWindSpeed > 50)
                then
                print ('Windspeed too high, raising sunscreen')
				print('______________________________________________________________________________________')
                commandArray['SendNotification']='Sunscreen#Sunscreen up --> Windspeed too high'
                commandArray['Zonnescherm']='Off'
								
        elseif (otherdevices['Zonnescherm'] == 'Closed' and sWindGust > 150)
                then
                print ('Windgust too high, raising sunscreen')
				print('______________________________________________________________________________________')
                commandArray['SendNotification']='Sunscreen#Sunscreen up --> Windgust too high'
                commandArray['Zonnescherm']='Off'
								
else
        print('Sunscreen status OK --> No action')
		print('______________________________________________________________________________________')
end

::done::
		print("At the end of the script")
		print("______________________________________________________________________________________")
		
elseif (timeofday['Nighttime']
        and otherdevices['Zonnescherm'] == 'Closed')
        then
                print('It is night, raising sunscreen')
				print('______________________________________________________________________________________')
                commandArray['SendNotification']='Sunscreen#Sunscreen up --> It is night'
                commandArray['Zonnescherm']='Off'
								
        else
                print('Sunscreen already up --> No action')
		print('______________________________________________________________________________________')
end

return commandArray

[mikeoo]

I added also a text device and filled it with the text from this script.

Code: Select all

function round(num, idp)
	local mult = 10^(idp or 0)
	return math.floor(num * mult + 0.5) / mult
end

----------------------------------------------------------------------------------------------------------
-- CommandArray
----------------------------------------------------------------------------------------------------------
commandArray = {}
	minuten=15
	RainPrediction = IsItGonnaRain(minuten)
	RainmmHour=10^((RainPrediction-109)/32)

	if (RainPrediction > 0  ) then
		verw = 3
		RainPredictionText=('Regen verwacht binnen '..minuten..' minuten, met ' ..round(RainmmHour, 1).. ' mm/uur')
	else 
		verw = 2
		RainPredictionText=('Geen regen verwacht binnen '..minuten..' minuten.')
	end
	commandArray[1] = {['UpdateDevice'] = RainDeviceIDX .. '|'..tostring(RainPrediction)..'|'..tostring(verw)}
	commandArray[2] = {['UpdateDevice'] = RainTextIDX .. '|0|' .. tostring(RainPredictionText)}

	print('-- Regen verwacht(0-255 hoe hoger hoe meer regen): '..RainPrediction..' binnen '..minuten..' minuten.')
	print('-- ' .. RainPredictionText )
return commandArray

RainTextIDX = the IDX of the text device.
And added a round function to display only 1 digit.

Do i need to replace RainTextIDX with only the IDX number.
like:

Code: Select all

 commandArray[2] = {['UpdateDevice'] = 97 .. '|0|' .. tostring(RainPredictionText)}

And where is RainDeviceIDX for?

I add a Dummy switch file with sensor type: TEXT with the name: regen
create a regen.lua and put it in /home/pi/domoticz/scripts/lua
Add the IDX from the TEXT sensor.

But nothing happens and only get Hello World in the switch.

[roblom]

You can create a parameter and fill it with the IDX of your text device, like below:

Code: Select all

local RainTextIDX = 97

Where "97" is your IDX.
And then keep the code below;

Code: Select all

commandArray[2] = {['UpdateDevice'] = RainTextIDX .. '|0|' .. tostring(RainPredictionText)}

Or replace the complete parameter, like below:

Code: Select all

 commandArray[2] = {['UpdateDevice'] = '97|0|' .. tostring(RainPredictionText)}

Where "97" is your IDX.

[mikeoo]

You can create a parameter and fill it with the IDX of your text device, like below:

Code: Select all

local RainTextIDX = 97

Where "97" is your IDX.
And then keep the code below;

Code: Select all

commandArray[2] = {['UpdateDevice'] = RainTextIDX .. '|0|' .. tostring(RainPredictionText)}

Or replace the complete parameter, like below:

Code: Select all

 commandArray[2] = {['UpdateDevice'] = '97|0|' .. tostring(RainPredictionText)}

Where "97" is your IDX.

Thanks for you answer bus I do something wrong. There is no update of the switch and still mention Hello World.

Update:
When i check the log file i get an error

Error: /home/pi/domoticz/scripts/lua/script_time_regen.lua:11: attempt to call global 'IsItGonnaRain' (a nil value)

Do you use this as a separate script of did you add it to the buienrader script? Bacuase in the script IsItGonnaRain gets calculated.
Buienrader script i use have the name: script_time_rain.lua
And this script: script_time_regen.lua

My Script (script_time_regen.lua) look now like

Code: Select all

    function round(num, idp)
       local mult = 10^(idp or 0)
       return math.floor(num * mult + 0.5) / mult
    end

    ----------------------------------------------------------------------------------------------------------
    -- CommandArray
    ----------------------------------------------------------------------------------------------------------
    commandArray = {}
       minuten=15
       RainPrediction = IsItGonnaRain(minuten)
       RainmmHour=10^((RainPrediction-109)/32)

       if (RainPrediction > 0  ) then
          verw = 3
          RainPredictionText=('Regen verwacht binnen '..minuten..' minuten, met ' ..round(RainmmHour, 1).. ' mm/uur')
       else
          verw = 2
          RainPredictionText=('Geen regen verwacht binnen '..minuten..' minuten.')
       end
       commandArray[1] = {['UpdateDevice'] = RainDeviceIDX .. '|'..tostring(RainPrediction)..'|'..tostring(verw)}
       commandArray[2] = {['UpdateDevice'] = '97|0|' .. tostring(RainPredictionText)}

       print('-- Regen verwacht(0-255 hoe hoger hoe meer regen): '..RainPrediction..' binnen '..minuten..' minuten.')
       print('-- ' .. RainPredictionText )
    return commandArray

[tlpeter]

I have a question, i see this line once in a while:

LUA: Regen verwacht(0-255 hoe hoger hoe meer regen): nan binnen 1 minuten.
Error: no such column: nan

Where is that "nan" coming from?
For the test i am running this script every minute.
I will change this to 10 or 15 when i am sure that it works.

[Mediacj]

I think you have by accidence changed this line in the script:

print('Regen verwacht(0-255 hoe hoger hoe meer regen): '..regen..' binnen '..minuten..' minuten.')

Just compare this line with yours. The word nan should be the value of the var regen

[tlpeter]

Hi, i just checked and i do not see this error anymore.
I ran the script every minute for a test and then every second check results in this error.
Now it runs every ten minutes and the error is gone.

[roblom]

You can create a parameter and fill it with the IDX of your text device, like below:

Code: Select all

local RainTextIDX = 97

Where "97" is your IDX.
And then keep the code below;

Code: Select all

commandArray[2] = {['UpdateDevice'] = RainTextIDX .. '|0|' .. tostring(RainPredictionText)}

Or replace the complete parameter, like below:

Code: Select all

 commandArray[2] = {['UpdateDevice'] = '97|0|' .. tostring(RainPredictionText)}

Where "97" is your IDX.

Thanks for you answer bus I do something wrong. There is no update of the switch and still mention Hello World.

Update:
When i check the log file i get an error

Error: /home/pi/domoticz/scripts/lua/script_time_regen.lua:11: attempt to call global 'IsItGonnaRain' (a nil value)

Do you use this as a separate script of did you add it to the buienrader script? Bacuase in the script IsItGonnaRain gets calculated.
Buienrader script i use have the name: script_time_rain.lua
And this script: script_time_regen.lua

My Script (script_time_regen.lua) look now like

The code i gave was an addition on the code mentioned by the topic starter...
The complete code:

Code: Select all

----------------------------------------------------------------------------------------------------------------
-- From http://www.domoticz.com/forum/viewtopic.php?uid=1095&f=38&t=5903&start=0
--
-- IsItGonnaRain( int minutesinfuture)
-- returns: int avarage rainfall for the next minutesinfuture
--
-- Function to get rain prediction from Buienradar.nl (dutch)
-- 
-- http://gratisweerdata.buienradar.nl/#Buienradar You may use their free service for non-commercial purposes. 
-- 
-- Written in LUA by Hans van der Heijden (h4nsie @ gmail.com)
-- Spring 2015
-- 28-03-2015 v0.3 bug: quotes around url added.
-- 27-03-2015 v0.2 return value is now average for next time
-- 26-03-2015 v0.1 Initial release
-- todo: some error checking on http and file handling (tmp file)
----------------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------------
-- Domoticz IDX and names of the needed devices
----------------------------------------------------------------------------------------------------------
local RainTextIDX = 239

----------------------------------------------------------------------------------------------------------
-- Script parameters
----------------------------------------------------------------------------------------------------------
lat = '0.000000'
lon = '0.000000'
debug = false
tempfilename = '/var/tmp/rain.tmp' -- can be anywhere writeable
totalrain = 0
rainlines = 0
----------------------------------------------------------------------------------------------------------
-- Lua Functions
----------------------------------------------------------------------------------------------------------
function IsItGonnaRain( minutesinfuture )
	url='http://gps.buienradar.nl/getrr.php?lat='..lat..'&lon='..lon
	if debug then print(url) end
	read = os.execute('curl -s -o '..tempfilename..' "'..url..'"')
	file = io.open(tempfilename, "r")

	-- now analyse the received lines, format is like 000|15:30 per line.
	while true do 
		line = file:read("*line")
		if not line then break end
		if debug then print('Line:'..line) end
		linetime=string.sub(tostring(line), 5, 9)
		if debug then print('Linetime: '..linetime) end

		-- Linetime2 holds the full date calculated from the time on a line
		linetime2 = os.time{year=os.date('%Y'), month=os.date('%m'), day=os.date('%d'), hour=string.sub(linetime,1,2), min=string.sub(linetime,4,5), sec=os.date('%S')}
		difference = os.difftime (linetime2,os.time())

		-- When a line entry has a time in the future AND is in the given range, then totalize the rainfall
		if ((difference > 0) and (difference<=minutesinfuture*60)) then
			if debug then print('Line in time range found') end
			rain=tonumber(string.sub(tostring(line), 0, 3))
			totalrain = totalrain+rain
			rainlines=rainlines+1
			if debug then print('Rain in timerange: '..rain) end
			if debug then print('Total rain now: '..totalrain) end
		end

	end
	file:close()
   
	-- Returned value is average rain fall for next time
	-- 0 is no rain, 255 is very heavy rain
	-- When needed, mm/h is calculated by 10^((value -109)/32) (example: 77 = 0.1 mm/hour)
	averagerain=totalrain/rainlines
	return(averagerain)
end

function round(num, idp)
	local mult = 10^(idp or 0)
	return math.floor(num * mult + 0.5) / mult
end

----------------------------------------------------------------------------------------------------------
-- CommandArray
----------------------------------------------------------------------------------------------------------
commandArray = {}
	minuten=15
	RainPrediction = IsItGonnaRain(minuten)
	RainmmHour=10^((RainPrediction-109)/32)

	if (RainPrediction > 0  ) then
		verw = 3
		RainPredictionText=('Regen verwacht binnen '..minuten..' minuten, met ' ..round(RainmmHour, 1).. ' mm/uur')
	else 
		verw = 2
		RainPredictionText=('Geen regen verwacht binnen '..minuten..' minuten.')
	end
	
	commandArray[2] = {['UpdateDevice'] = RainTextIDX .. '|0|' .. tostring(RainPredictionText)}

	print('-- Regen verwacht(0-255 hoe hoger hoe meer regen): '..RainPrediction..' binnen '..minuten..' minuten.')
	print('-- ' .. RainPredictionText )
return commandArray

Replace
239 → with the IDX of your text device.
lat = '0.000000' → your latitude
lon = '0.000000' → your longitude

[mikeoo]

You can create a parameter and fill it with the IDX of your text device, like below:

Code: Select all

local RainTextIDX = 97

Where "97" is your IDX.
And then keep the code below;

The code i gave was an addition on the code mentioned by the topic starter...

Replace
239 → with the IDX of your text device.
lat = '0.000000' → your latitude
lon = '0.000000' → your longitude

Tnx working fine now

[Hansbit]

Thanks all for using my code
While using it I found out that sometimes I get values of 10 or 15 and these are set back to 0 by Buienrader within a minute (false positives). In my implementation I modified the threshold for 'no rain' to 20, with good results! I noticed it actually rains when my script reports values >20.

20 no rain -- 255 heavy rain.

[tlpeter]

Hi Hans,
So i am not going mad i guess.
I saw this happen once.
I will change my script too.
Thanks.

[DutchHans]

Hi
I am trying this script, but in the logfile I cant see that its triggered.
Any Idea why?

Only thing I did was changing the IDX and locationsettings.

[tlpeter]

What is the name of the script?
Where did you put it?

[IanDury]

Cool!

Created a UserVariable named RainPeriod of type integer. The value you fill in determines the number of forecast minutes after making the following change in the script:

Change:
minuten=15

To:
minuten=uservariables['RainPeriod']

This way you can change the forecast period from the web browser and don't need to edit your script each time.

N.B. I was looking for a virtual device to pass integer values to the script but could not find one that matched.

[remb0]

Very Nice indeed!

Can this + creating virtual device + original script added to the wiki for others?

Cool!

Created a UserVariable named RainPeriod of type integer. The value you fill in determines the number of forecast minutes after making the following change in the script:

Change:
minuten=15

To:
minuten=uservariables['RainPeriod']

This way you can change the forecast period from the web browser and don't need to edit your script each time.

N.B. I was looking for a virtual device to pass integer values to the script but could not find one that matched.

[gizmocuz]

This seems to work only for dutch users

[roblom]

This seems to work only for dutch users

Unless you find a service in your country that does the same....

[Justintime]

Can someone help me to debug this Blocky??? Ok its a very simple one. At least thats what i thought. Just to test it.

Values are coming under the 70 at the moment. But no message from pushover sent out.

[Whatsek]

Can someone help me to debug this Blocky??? Ok its a very simple one. At least thats what i thought. Just to test it.

Values are coming under the 70 at the moment. But no message from pushover sent out.

Blockly doesn't read the variable, so it is not triggered. I think you must use lua to accomplish this.

[Justintime]

Can someone help me to debug this Blocky??? Ok its a very simple one. At least thats what i thought. Just to test it.

Values are coming under the 70 at the moment. But no message from pushover sent out.

Blockly doesn't read the variable, so it is not triggered. I think you must use lua to accomplish this.

Ow so thats why.... that's a shame because writing a lua script on my own is a little bit to high.

Maybe someone could share his sunscreen lua script? Adjustments in devices is no problem.