Moderator: leecollings
Thx... I think it's cool and functional.krizzz wrote:Cool project and Thanks for sharing! What were the costs for this whole project?
Thx for the heads upStanHD wrote:Of course some of your neighbours think it's overkill. That's just because they haven't done it or can't do it
Nice project, well done
the range is too far from my house so it only gets the signal 50% of the time.
Code: Select all
Packettype = UNDECODED RF Message
UNDECODED LACROSSE:1BA7BFF2C0
------------------------------------------------
Packettype = UNDECODED RF Message
UNDECODED OREGON3:37FCFFFFFFFFFF7F Code: Select all
Packettype = TEMP_HUM
subtype = TH12 - Imagintronix
channel 2
Sequence nbr = 14
ID = 2
Temperature = 25 °C
Humidity = 5
Status = Dry
Signal level = 8
Battery = OKCode: Select all
Packettype = UNDECODED RF Message
UNDECODED LACROSSE:12BFE740 
Code: Select all
--[[
script_time_irrigation.lua
@author: Siewert Lameijer
@since: 2015-06-24
@version: 1.0
Garden Irrigation script
Variable to create:
- VarMayFollowProgram (type=integer, value=0)
--]]
commandArray = {}
time = os.date("*t")
week = tonumber(os.date("%V"));
week = tonumber(os.date("%m"));
dayno = tonumber(os.date("%d"));
dayofweekno = tonumber(os.date("%w"));
day = tostring(os.date("%a"));
hour = tonumber(os.date("%H"));
min = tonumber(os.date("%M"));
--
-- **********************************************************
-- Settings Begin
-- **********************************************************
--
-- Lua script interval check, change the number 1 to every desired number in minutes
if((time.min % 1)==0)then
-- Logging: 0 = Off, 1 = On
local logging = 1
--
-- Weatherstation
-- Name of your Weatherstation widget which contains humidity,uv,temp and pressure
local weatherstation = 'Barometer'
-- Name of your Weatherstation Wind widget
local wind = 'Wind'
-- Name of your Weatherstation Wind widget
local rain = 'Regenmeter'
-- Name of your Weatherstation Wind widget
local uv = 'UV'
--
-- Moist Sensors
-- Name of your Moist Sensor device 1
local moistsensor1 = 'Vocht Sensor (border 1)'
-- Name of your Moist Sensor device 2
local moistsensor2 = 'Vocht Sensor (border 1)'
--
-- Switches and Virtual Switches
-- Name of your manual override virtual switch
local manoverride = 'Irrigatie Manual Override'
--
-- User Variables
-- Maximum amount of cycles your irrigation can be on
local VarMaxRun = '12'
-- Your target soil humidity percentage
local VarTarHum = '85'
-- Your Minumum soil temperature
local VarTarTempMin = '14'
-- Your Maximum soil temperature
local VarTarTempMax = '30'
-- Name of your User Variable for counting clear days: (type integer, Input 0)
local VarDays = 'Dagen'
-- Set your desired irrigation day, leave blank for no irrigation, set Mo, Tue, Wed, Thu, Fri, Sat or Sun
local VarDay1 = 'Mo'
local VarDay2 = 'Tue'
local VarDay3 = 'Wed'
local VarDay4 = 'Thu'
local VarDay5 = 'Fri'
local VarDay6 = 'Sat'
local VarDay7 = 'Sun'
-- Set your desired irrigation month, leave blank for no irrigation, set a number like 1 for January or 5 for May
local VarMonth1 = '1'
local VarMonth2 = '2'
local VarMonth3 = '3'
local VarMonth4 = '4'
local VarMonth5 = '5'
local VarMonth6 = '6'
local VarMonth7 = '7'
local VarMonth8 = '8'
local VarMonth9 = '9'
local VarMonth10 = '10'
local VarMonth11 = '11'
local VarMonth12 = '12'
--
-- Weather Variables
-- Set your prefered max rain fall
local RainCurrent = '0'
-- Set your prefered maximum temperature for irrigation (Higher doesn't trigger irrigation)
local WeatherTempMin = '15'
-- Set your prefered maximum temperature for irrigation (Higher doesn't trigger irrigation)
local WeatherTempMax = '27'
-- Set your prefered maximum UV for irrigation (Higher doesn't trigger irrigation)
local UV = '6'
-- Set your prefered max windspeed km/h (higher doesn't trigger irrigation)
local WindSpeed = '50'
-- Set your prefered max windgust km/h (higher doesn't trigger irrigation)
local WindGust = '150'
--
-- **********************************************************
-- Settings END
-- **********************************************************
--
--[[
--> Don't edit anything below this line or you could break the script!
--]]
--
-- **********************************************************
-- Scrapping Weather Data from WeatherUnderground
-- **********************************************************
--
--
-- Weatherstation data:
--
sWeatherTemp, sWeatherHumidity, sWeatherUV, sWeatherPressure, sWeatherUV2 = otherdevices_svalues[weatherstation]:match("([^;]+);([^;]+);([^;]+);([^;]+);([^;]+)")
sWeatherTemp = tonumber(sWeatherTemp);
sWeatherHumidity = tonumber(sWeatherHumidity);
sWeatherUV = tonumber(sWeatherUV);
sWeatherPressure = tonumber(sWeatherPressure);
sWeatherUV2 = tonumber(sWeatherUV2);
if logging >= 1 then
print("Irrigation [INFO]");
print("Irrigation [Weather station] ==> Temperature is " .. sWeatherTemp .. " ");
print("Irrigation [Weather station] ==> Humidity is " .. sWeatherHumidity .. " ");
print("Irrigation [Weather station] ==> UV is " .. sWeatherUV .. " ");
print("Irrigation [Weather station] ==> Pressure is " .. sWeatherPressure .. " ");
print("Irrigation [Weather station] ==> UV2 is " .. sWeatherUV2 .. " ");
end
--
-- 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);
if logging >= 1 then
print("Irrigation [Windmeter] ==> Winddirection (in degrees) is: " .. sWindDirectionDegrees .. " ");
print("Irrigation [Windmeter] ==> Winddirection is: " .. sWindDirection .. " ");
print("Irrigation [Windmeter] ==> Windspeed is: " .. sWindSpeed .. " ");
print("Irrigation [Windmeter] ==> Windgust is: " .. sWindGust .. " ");
print("Irrigation [Windmeter] ==> Windtemperature is: " .. sWindTemperature .. " ");
print("Irrigation [Windmeter] ==> Windfeel is: " .. sWindFeel .. " ");
end
--
-- Rainmeter data:
--
sRainmeterCurrent, sRainmeterTotal = otherdevices_svalues[rain]:match("([^;]+);([^;]+)")
sRainmeterCurrent = tonumber(sRainmeterCurrent);
sRainmeterTotal = tonumber(sRainmeterTotal);
if logging >= 1 then
print("Irrigation [Rainmeter] ==> Actual rain is: " .. sRainmeterCurrent .. " ");
print("Irrigation [Rainmeter] ==> Total rain is: " .. sRainmeterTotal .. " ");
end
--
-- UV data:
--
sUV, sSolar = otherdevices_svalues[uv]:match("([^;]+);([^;]+)")
sUV = tonumber(sUV);
sSolar = tonumber(sSolar);
if logging >= 1 then
print("Irrigation [UV] ==> UV Strength is: " .. sUV .." ");
print("Irrigation [UV] ==> Solar radiation is: " .. sSolar .." ");
end
--
-- **********************************************************
-- Scrapping Temparature and moist humidity from moist sensor
-- **********************************************************
--
--
-- Moist Sensor 1 data:
--
smoistsensorTemp, smoistsensorHumidity = otherdevices_svalues[moistsensor1]:match("([^;]+);([^;]+);([^;]+)")
smoistsensorTemp = tonumber(smoistsensorTemp);
smoistsensorHumidity = tonumber(smoistsensorHumidity);
if logging >= 1 then
print("Irrigation [MoistSensor 1] ==> Moist Temperature: " .. smoistsensorTemp .. " ");
print("Irrigation [MoistSensor 1] ==> Moist Humidity: " .. smoistsensorHumidity .. " ");
end
--
-- Moist Sensor 2 data:
--
smoistsensor2Temp, smoistsensor2Humidity = otherdevices_svalues[moistsensor2]:match("([^;]+);([^;]+);([^;]+)")
smoistsensor2Temp = tonumber(smoistsensor2Temp);
smoistsensor2Humidity = tonumber(smoistsensor2Humidity);
if logging >= 1 then
print("Irrigation [MoistSensor 2] ==> Moist Temperature: " .. smoistsensor2Temp .. " ");
print("Irrigation [MoistSensor 2] ==> Moist Humidity: " .. smoistsensor2Humidity .. " ");
end
--
-- **********************************************************
-- Moist Sensor online check
-- **********************************************************
--
--
-- Moist Sensor 1:
--
-- check if the moist sensor 1 is online
if (smoistsensorTemp == 0 or smoistsensorTemp == nil) then
print('Moist Sensor 1 reports Temp is 0 or nil. Skipping Irrigation')
commandArray[manoverride]='On'
return commandArray
end
if (smoistsensorHumidity == 0 or smoistsensorHumidity == nil) then
print('Moist Sensor 1 reports Humidity is 0 or nil. Skipping Irrigation')
commandArray[manoverride]='On'
return commandArray
end
--
-- Moist Sensor 2:
--
-- check if the moist sensor 2 is online
if (smoistsensor2Temp == 0 or smoistsensor2Temp == nil) then
print('Moist Sensor 2 reports Temp is 0 or nil. Skipping Irrigation')
commandArray[manoverride]='On'
return commandArray
end
if (smoistsensor2Humidity == 0 or smoistsensor2Humidity == nil) then
print('Moist Sensor 2 reports Humidity is 0 or nil. Skipping Irrigation')
commandArray[manoverride]='On'
return commandArray
end
--
-- **********************************************************
-- checking weather conditions so irrigation may proceed
-- **********************************************************
--
if day == VarDay1 or day == VarDay2 or day == VarDay3 or day == VarDay4 or day == VarDay5 or day == VarDay6 or day == VarDay7 or
month == VarMonth1 or month == VarMonth2 or month == VarMonth3 or month == VarMonth4 or month == VarMonth5 or month == VarMonth6 or month == VarMonth7 or month == VarMonth8 or month == VarMonth9 or month == VarMonth10 or month == VarMonth11 or month == VarMonth12
and smoistsensorTemp >= tonumber (VarTarTempMin)
--and smoistsensorTemp <= tonumber (VarTarTempMax)
--and smoistsensorHumidity <= tonumber (VarTarHum)
--and sRainmeterCurrent == tonumber (RainCurrent)
--and sWeatherTemp >= tonumber (WeatherTempMin)
--and sWeatherTemp <= tonumber (WeatherTempMax)
--and sUV <= tonumber (UV)
--and sWindSpeed <= tonumber (WindSpeed)
--and sWindGust <= tonumber (WindGust)
then
if logging >= 1 then
print("Irrigation [Program] ==> May continue");
end
if(uservariables['VarMayFollowProgram'] == 0) then
--if ( uservariables["VarMayFollowProgram"] == "0" ) then
print("Irrigation [Program Value] ==> Updated");
commandArray['Variable:VarMayFollowProgram']= '1'
end
else
if logging >= 1 then
print("Irrigation [Program] ==> May NOT continue");
end
if(uservariables['VarMayFollowProgram'] == 1) then
print("Irrigation [Program Value] ==> Updated");
commandArray['Variable:VarMayFollowProgram']= '0'
end
end
end
return commandArrayCode: Select all
--[[
script_time_irrigation.lua
@author: Siewert Lameijer
@since: 2015-06-24
@version: 1.0
Garden Irrigation script
User Variable to create:
- VarManOverride (type=integer, value=0)
- VarTimeCon (type=integer, value=0)
- VarWeatherCon (type=integer, value=0)
- VarTimeOfDayCurrent (type=integer, value=0)
- VarMayFollowProgram (type=integer, value=0)
- VarFollowsProgram (type=integer, value=0)
- VarMaxRun (type=integer, value=0)
- VarMoistCon (type=integer, value=0)
--]]
commandArray = {}
time = os.date("*t")
week = tonumber(os.date("%V"));
week = tonumber(os.date("%m"));
dayno = tonumber(os.date("%d"));
dayofweekno = tonumber(os.date("%w"));
day = tostring(os.date("%a"));
hour = tonumber(os.date("%H"));
min = tonumber(os.date("%M"));
--
-- **********************************************************
-- Settings Begin
-- **********************************************************
--
-- Lua script interval check, change the number 1 to every desired number in minutes
if((time.min % 1)==0)then
-- Logging: 0 = Off, 1 = On
local logging = 1
--
-- Weatherstation
-- Name of your Weatherstation widget which contains humidity,uv,temp and pressure
local weatherstation = 'Barometer'
-- Name of your Weatherstation Wind widget
local wind = 'Wind'
-- Name of your Weatherstation Wind widget
local rain = 'Regenmeter'
-- Name of your Weatherstation Wind widget
local uv = 'UV'
--
-- Moist Sensors
-- Name of your Moist Sensor device 1
local moistsensor1 = 'Vocht Sensor (border 1)'
-- Name of your Moist Sensor device 2
local moistsensor2 = 'Vocht Sensor (border 1)'
--
-- Switches and Virtual Switches
-- Name of your manual override virtual switch
local manoverride = 'Irrigatie Manual Override'
--
-- User Variables
-- Maximum amount of cycles your irrigation can be on
local VarMaxRun = '12'
-- Your target soil humidity percentage
local VarTarHum = '85'
-- Your Minumum soil temperature, Lower won't trigger irrigation
local VarTarTempMin = '14'
-- Your Maximum soil temperature, Higher won't trigger irrigation
local VarTarTempMax = '30'
-- Set your desired TimeOfDay for irrigation (Morning=0, Afternoon=1, Evening=2 or Night=3)
local VarTimeOfDay = '2'
-- Set your desired irrigation day, leave blank for no irrigation, set Mon, Tue, Wed, Thu, Fri, Sat or Sun
local VarDay1 = 'Mon'
local VarDay2 = ''
local VarDay3 = 'Wed'
local VarDay4 = 'Thu'
local VarDay5 = 'Fri'
local VarDay6 = ''
local VarDay7 = 'Sun'
-- Set your desired irrigation month, leave blank for no irrigation, set a number like 1 for January or 5 for May
local VarMonth1 = ''
local VarMonth2 = ''
local VarMonth3 = ''
local VarMonth4 = '4'
local VarMonth5 = '5'
local VarMonth6 = '6'
local VarMonth7 = '7'
local VarMonth8 = '8'
local VarMonth9 = '9'
local VarMonth10 = ''
local VarMonth11 = ''
local VarMonth12 = ''
--
-- Weather Variables
-- Set your prefered max rain fall, higher won't trigger irrigation
local RainCurrent = '0'
-- Set your prefered minimum outside temperature for irrigation, Lower won't trigger irrigation
local WeatherTempMin = '15'
-- Set your prefered maximum outside temperature for irrigation, Higher won't trigger irrigation
local WeatherTempMax = '27'
-- Set your prefered maximum UV for irrigation, Higher won't trigger irrigation
local UV = '6'
-- Set your prefered max windspeed km/h, higher won't trigger irrigation
local WindSpeed = '50'
-- Set your prefered max windgust km/h, higher won't trigger irrigation
local WindGust = '150'
--
-- **********************************************************
-- Settings END
-- **********************************************************
--
--[[
--> Don't edit anything below this line or you could break the script!
--]]
--
-- **********************************************************
-- Scrapping Weather Data from WeatherUnderground
-- **********************************************************
--
--
-- Weatherstation data:
--
sWeatherTemp, sWeatherHumidity, sWeatherUV, sWeatherPressure, sWeatherUV2 = otherdevices_svalues[weatherstation]:match("([^;]+);([^;]+);([^;]+);([^;]+);([^;]+)")
sWeatherTemp = tonumber(sWeatherTemp);
sWeatherHumidity = tonumber(sWeatherHumidity);
sWeatherUV = tonumber(sWeatherUV);
sWeatherPressure = tonumber(sWeatherPressure);
sWeatherUV2 = tonumber(sWeatherUV2);
if logging >= 1 then
print("--------------------------------------------------------------------------------------")
print("Irrigation [INFO]");
print("-- [Weather station] ==> Temperature is " .. sWeatherTemp .. " ");
print("-- [Weather station] ==> Humidity is " .. sWeatherHumidity .. " ");
print("-- [Weather station] ==> UV is " .. sWeatherUV .. " ");
print("-- [Weather station] ==> Pressure is " .. sWeatherPressure .. " ");
print("-- [Weather station] ==> UV2 is " .. sWeatherUV2 .. " ");
print("--------------------------------------------------------------------------------------")
end
--
-- 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);
if logging >= 1 then
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("--------------------------------------------------------------------------------------")
end
--
-- Rainmeter data:
--
sRainmeterCurrent, sRainmeterTotal = otherdevices_svalues[rain]:match("([^;]+);([^;]+)")
sRainmeterCurrent = tonumber(sRainmeterCurrent);
sRainmeterTotal = tonumber(sRainmeterTotal);
if logging >= 1 then
print("-- [Rainmeter] ==> Actual rain is: " .. sRainmeterCurrent .. " ");
print("-- [Rainmeter] ==> Total rain is: " .. sRainmeterTotal .. " ");
print("--------------------------------------------------------------------------------------")
end
--
-- UV data:
--
sUV, sSolar = otherdevices_svalues[uv]:match("([^;]+);([^;]+)")
sUV = tonumber(sUV);
sSolar = tonumber(sSolar);
if logging >= 1 then
print("-- [UV] ==> UV Strength is: " .. sUV .." ");
print("-- [UV] ==> Solar radiation is: " .. sSolar .." ");
print("--------------------------------------------------------------------------------------")
end
--
-- **********************************************************
-- Scrapping Temparature and moist humidity from moist sensor
-- **********************************************************
--
--
-- Moist Sensor 1 data:
--
smoistsensorTemp, smoistsensorHumidity = otherdevices_svalues[moistsensor1]:match("([^;]+);([^;]+);([^;]+)")
smoistsensorTemp = tonumber(smoistsensorTemp);
smoistsensorHumidity = tonumber(smoistsensorHumidity);
if logging >= 1 then
print("-- [MoistSensor 1] ==> Moist Temperature: " .. smoistsensorTemp .. " ");
print("-- [MoistSensor 1] ==> Moist Humidity: " .. smoistsensorHumidity .. " ");
end
--
-- Moist Sensor 2 data:
--
smoistsensor2Temp, smoistsensor2Humidity = otherdevices_svalues[moistsensor2]:match("([^;]+);([^;]+);([^;]+)")
smoistsensor2Temp = tonumber(smoistsensor2Temp);
smoistsensor2Humidity = tonumber(smoistsensor2Humidity);
if logging >= 1 then
print("-- [MoistSensor 2] ==> Moist Temperature: " .. smoistsensor2Temp .. " ");
print("-- [MoistSensor 2] ==> Moist Humidity: " .. smoistsensor2Humidity .. " ");
print("--------------------------------------------------------------------------------------")
end
--
-- **********************************************************
-- Moist Sensor online check
-- **********************************************************
--
--
-- Moist Sensor 1:
--
-- check if the moist sensor 1 is online
if (smoistsensorTemp == 0 or smoistsensorTemp == nil) then
print('Irrigation [MoistSensor 1 ERROR] ==> Moist Sensor 1 reports Temp is 0 or nil. Skipping Irrigation')
if(uservariables['VarMoistCon'] == 1) then
commandArray['Variable:VarMoistCon']= '0'
end
return commandArray
else
if logging >= 1 then
print("-- Irrigation [Program] ==> Moist temperature sensor (1) is Online");
end
if(uservariables['VarMoistCon'] == 0) then
commandArray['Variable:VarMoistCon']= '1'
end
end
if (smoistsensorHumidity == 0 or smoistsensorHumidity == nil) then
print('Irrigation [MoistSensor 1 ERROR] ==> Moist Sensor 1 reports Humidity is 0 or nil. Skipping Irrigation')
if(uservariables['VarMoistCon'] == 1) then
commandArray['Variable:VarMoistCon']= '0'
end
return commandArray
else
if logging >= 1 then
print("-- Irrigation [Program] ==> Moist humidity sensor (1) is Online");
end
if(uservariables['VarMoistCon'] == 0) then
commandArray['Variable:VarMoistCon']= '1'
end
end
--
-- Moist Sensor 2:
--
-- check if the moist sensor 2 is online
if (smoistsensor2Temp == 0 or smoistsensor2Temp == nil) then
print('Irrigation [MoistSensor 2 ERROR] ==> Moist Sensor 2 reports Temp is 0 or nil. Skipping Irrigation')
if(uservariables['VarMoistCon'] == 1) then
commandArray['Variable:VarMoistCon']= '0'
end
return commandArray
else
if logging >= 1 then
print("-- Irrigation [Program] ==> Moist temperature sensor (2) is Online");
end
if(uservariables['VarMoistCon'] == 0) then
commandArray['Variable:VarMoistCon']= '1'
end
end
if (smoistsensor2Humidity == 0 or smoistsensor2Humidity == nil) then
print('Irrigation [MoistSensor 2 ERROR] ==> Moist Sensor 2 reports Humidity is 0 or nil. Skipping Irrigation')
if(uservariables['VarMoistCon'] == 1) then
commandArray['Variable:VarMoistCon']= '0'
end
return commandArray
else
if logging >= 1 then
print("-- Irrigation [Program] ==> Moist humidity sensor (2) is Online");
end
if(uservariables['VarMoistCon'] == 0) then
commandArray['Variable:VarMoistCon']= '1'
end
end
--
-- **********************************************************
-- checking weather conditions so irrigation may proceed
-- **********************************************************
--
if day == VarDay1 or day == VarDay2 or day == VarDay3 or day == VarDay4 or day == VarDay5 or day == VarDay6 or day == VarDay7 or
month == VarMonth1 or month == VarMonth2 or month == VarMonth3 or month == VarMonth4 or month == VarMonth5 or month == VarMonth6 or month == VarMonth7 or month == VarMonth8 or month == VarMonth9 or month == VarMonth10 or month == VarMonth11 or month == VarMonth12
and smoistsensorTemp >= tonumber (VarTarTempMin)
--and smoistsensorTemp <= tonumber (VarTarTempMax)
--and smoistsensorHumidity <= tonumber (VarTarHum)
--and sRainmeterCurrent == tonumber (RainCurrent)
--and sWeatherTemp >= tonumber (WeatherTempMin)
--and sWeatherTemp <= tonumber (WeatherTempMax)
--and sUV <= tonumber (UV)
--and sWindSpeed <= tonumber (WindSpeed)
--and sWindGust <= tonumber (WindGust)
then
if logging >= 1 then
print("-- Irrigation [Program] ==> Weather condition are looking good");
end
if(uservariables['VarWeatherCon'] == 0) then
if logging >= 1 then
print("-- Irrigation [Program] ==> Weather condition set Okay");
end
commandArray['Variable:VarWeatherCon']= '1'
end
else
if logging >= 1 then
print("-- Irrigation [Program] ==> Weather condition aren't looking good");
end
if(uservariables['VarWeatherCon'] == 1) then
if logging >= 1 then
print("-- Irrigation [Program] ==> Weather condition set False");
end
commandArray['Variable:VarWeatherCon']= '0'
end
end
--
-- **********************************************************
-- checking time of the day so irrigation may proceed
-- **********************************************************
--
if (timeofday['Sunrise']) and (uservariables['VarTimeOfDayCurrent'] ~= 0) then
commandArray['Variable:VarTimeOfDayCurrent']= '0'
if logging >= 1 then
print("-- Irrigation [Program] ==> Time set to Morning")
end
end
if (time.hour >= 12) and (time.hour <= 17) and (uservariables['VarTimeOfDayCurrent'] ~= 1) then
commandArray['Variable:VarTimeOfDayCurrent']= '1'
if logging >= 1 then
print("-- Irrigation [Program] ==> Time set to Afternoon")
end
end
if (time.hour >= 17) and (time.hour <= 20) and (uservariables['VarTimeOfDayCurrent'] ~= 2) then
commandArray['Variable:VarTimeOfDayCurrent']= '2'
if logging >= 1 then
print("-- Irrigation [Program] ==> Time set to Evening")
end
end
if (time.hour >= 20) and (uservariables['VarTimeOfDayCurrent'] ~= 3) then
commandArray['Variable:VarTimeOfDayCurrent']= '3'
if logging >= 1 then
print("-- Irrigation [Program] ==> Time set to Night")
end
end
if (uservariables['VarTimeOfDayCurrent']) == tonumber (VarTimeOfDay) then
if logging >= 1 then
print("-- Irrigation [Program] ==> Timeframe okay")
if (uservariables['VarTimeCon']) == 0 then
commandArray['Variable:VarTimeCon']= '1'
end
end
else
if logging >= 1 then
print("-- Irrigation [Program] ==> Awaiting for the right Timeframe")
end
if (uservariables['VarTimeCon']) == 1 then
commandArray['Variable:VarTimeCon']= '0'
end
end
--
-- **********************************************************
-- Processing data into a usable yes or nogo for irrigation
-- **********************************************************
--
if (uservariables['VarTimeCon']) == 1
and (uservariables['VarWeatherCon']) == 1
and (uservariables['VarMoistCon']) == 1
--and (uservariables['VarMayFollowProgram']) == 0
and (uservariables['VarFollowsProgram']) == 0
and (uservariables['VarManOverride']) == 0
then
if logging >= 1 then
print("-- Irrigation [Program] ==> All okay, Irrigation may follow program")
print("--------------------------------------------------------------------------------------")
end
if (uservariables['VarMayFollowProgram']) == 0 then
commandArray['Variable:VarMayFollowProgram']= '1'
end
else
if logging >= 1 then
print("-- Irrigation [Program] ==> All ain't okay, Irrigation may not follow program")
print("--------------------------------------------------------------------------------------")
end
if (uservariables['VarMayFollowProgram']) == 1 then
commandArray['Variable:VarMayFollowProgram']= '0'
end
end
if (uservariables['VarManOverride']) == 1
then
if logging >= 1 then
print("-- Irrigation [Program] ==> Irrigation set to manual, programm stopped")
print("--------------------------------------------------------------------------------------")
end
if (uservariables['VarMayFollowProgram']) == 1 then
commandArray['Variable:VarMayFollowProgram']= '0'
end
if (uservariables['VarFollowsProgram']) == 1 then
commandArray['Variable:VarFollowsProgram']= '0'
end
endScript aint ready yet so i can not test it yet.ThinkPad wrote:Nice project
How long does the water keeps flowing if activated by the script? I don't know if those washing machine valves can handle being turned on for an hour or so. I think they will get quite warm.
Normally in a washing machine they are only operated for 2 minutes or so.
Code: Select all
--[[
script_time_irrigation.lua
@author: Siewert Lameijer
@since: 2015-06-24
@version: 1.0
Garden Irrigation script
User Variable to create:
- VarManOverride (type=integer, value=0)
- VarTimeCon (type=integer, value=0)
- VarWeatherCon (type=integer, value=0)
- VarTimeOfDayCurrent (type=integer, value=0)
- VarMayFollowProgram (type=integer, value=0)
- VarFollowsProgram (type=integer, value=0)
- VarMaxRunTime (type=integer, value=0)
- VarMoistOnline (type=integer, value=0)
- VarMoistOnlineHum (type=integer, value=0)
- VarMoistConTemp (type=integer, value=0)
- VarMoistConHum (type=integer, value=0)
- VarProgramOverride (type=integer, value=0)
- VarProgramRun (type=integer, value=0)
- VarTimeFrame (type=integer, value=0)
- VarManOverrideCon (type=integer, value=0)
Virtual Switches
- Manual Override
Hardware:
1x Moist Sensor which measures Temperature and Humdity
1x WeatherUnderground
1x Switch for wireless controled WaterPump for irrigation
--]]
time = os.date("*t")
commandArray = {}
--
-- **********************************************************
-- Settings Begin
-- **********************************************************
--
-- Lua script interval check, change the number 1 to every desired number in minutes
--if((time.min % 1)==0)then
-- Logging: 0 = Off, 1 = On
local logging = 1
--
-- **********************************************************
-- WeatherUnderGround Variables
-- **********************************************************
--
-- Name of your Weatherstation widget which contains humidity,uv,temp and pressure
local weatherstation = 'Barometer'
-- Name of your Weatherstation Wind widget
local wind = 'Wind'
-- Name of your Weatherstation Rain widget
local rain = 'Regenmeter'
-- Name of your Weatherstation UV widget
local uv = 'UV'
--
-- **********************************************************
-- Switches and Virtual Switches Variables
-- **********************************************************
--
-- Name of your manual override virtual switch
local VitManOverride = 'Irrigatie Manual Override'
-- Name of your irrigation switch for water valve 1
local VarPump = 'Irrigatie 1 Check'
--
-- **********************************************************
-- Moist Sensor Variables
-- **********************************************************
--
-- Name of your Moist Sensor device
local MoistSensor = 'Vocht Sensor (border 1)'
-- Your target soil humidity percentage
local VarTarHum = '85'
-- Your Minumum soil temperature, Lower won't trigger irrigation
local VarTarTempMin = '12'
-- Your Maximum soil temperature, Higher won't trigger irrigation
local VarTarTempMax = '30'
-- Amount of minuten/times we want to switch OFF irrigation after the program has started.
local VarMaxRunTime_off = 5
--
-- **********************************************************
-- Day, Month and Time Variables
-- **********************************************************
--
-- Set your desired TimeOfDay for irrigation (Morning=0, Afternoon=1, Evening=2 or Night=3)
local VarTimeOfDay = '0'
-- Set your desired irrigation day, leave blank for no irrigation, set Mon, Tue, Wed, Thu, Fri, Sat or Sun
local VarDay1 = 'Mon'
local VarDay2 = ''
local VarDay3 = 'Wed'
local VarDay4 = ''
local VarDay5 = 'Fri'
local VarDay6 = ''
local VarDay7 = 'Sun'
-- Set your desired irrigation month, leave blank for no irrigation, set a number like 1 for January or 5 for May
local VarMonth1 = ''
local VarMonth2 = ''
local VarMonth3 = ''
local VarMonth4 = '4'
local VarMonth5 = '5'
local VarMonth6 = '6'
local VarMonth7 = '7'
local VarMonth8 = '8'
local VarMonth9 = '9'
local VarMonth10 = ''
local VarMonth11 = ''
local VarMonth12 = ''
--
-- **********************************************************
-- Weather Variables
-- **********************************************************
--
-- Set your prefered max rain fall, higher won't trigger irrigation
local RainCurrent = '0'
-- Set your prefered minimum outside temperature for irrigation, Lower won't trigger irrigation
local WeatherTempMin = '13'
-- Set your prefered maximum outside temperature for irrigation, Higher won't trigger irrigation
local WeatherTempMax = '25'
-- Set your prefered maximum UV for irrigation, Higher won't trigger irrigation
local UVMax = '6'
-- Set your prefered max windspeed km/h, higher won't trigger irrigation
local WindSpeed = '50'
-- Set your prefered max windgust km/h, higher won't trigger irrigation
local WindGust = '150'
--
-- **********************************************************
-- Settings END
-- **********************************************************
--
--[[
--> Don't edit anything below this line or you could break the script!
--]]
week = tonumber(os.date("%V"));
month = tonumber(os.date("%m"));
dayno = tonumber(os.date("%d"));
dayofweekno = tonumber(os.date("%w"));
day = tostring(os.date("%a"));
hour = tonumber(os.date("%H"));
min = tonumber(os.date("%M"));
--
-- **********************************************************
-- Scrapping Weather Data from WeatherUnderground
-- **********************************************************
--
--
-- Weatherstation data:
--
sWeatherTemp, sWeatherHumidity, sWeatherUV, sWeatherPressure, sWeatherUV2 = otherdevices_svalues[weatherstation]:match("([^;]+);([^;]+);([^;]+);([^;]+);([^;]+)")
sWeatherTemp = tonumber(sWeatherTemp);
sWeatherHumidity = tonumber(sWeatherHumidity);
sWeatherUV = tonumber(sWeatherUV);
sWeatherPressure = tonumber(sWeatherPressure);
sWeatherUV2 = tonumber(sWeatherUV2);
if logging >= 1 then
print("--------------------------------------------------------------------------------------")
print("Irrigation [PROGRAM - Weather Conditions]");
print("-- Irrigation ==> [WeatherStation] - Temperature is " .. sWeatherTemp .. " ");
print("-- Irrigation ==> [WeatherStation] - Humidity is " .. sWeatherHumidity .. " ");
print("-- Irrigation ==> [WeatherStation] - UV is " .. sWeatherUV .. " ");
print("-- Irrigation ==> [WeatherStation] - Pressure is " .. sWeatherPressure .. " ");
print("-- Irrigation ==> [WeatherStation] - UV2 is " .. sWeatherUV2 .. " ");
end
--
-- 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);
if logging >= 1 then
print("-- Irrigation ==> [Windmeter] - Winddirection (in degrees) is: " .. sWindDirectionDegrees .. " ");
print("-- Irrigation ==> [Windmeter] - Winddirection is: " .. sWindDirection .. " ");
print("-- Irrigation ==> [Windmeter] - Windspeed is: " .. sWindSpeed .. " ");
print("-- Irrigation ==> [Windmeter] - Windgust is: " .. sWindGust .. " ");
print("-- Irrigation ==> [Windmeter] - Windtemperature is: " .. sWindTemperature .. " ");
print("-- Irrigation ==> [Windmeter] - Windfeel is: " .. sWindFeel .. " ");
end
--
-- Rainmeter data:
--
sRainmeterCurrent, sRainmeterTotal = otherdevices_svalues[rain]:match("([^;]+);([^;]+)")
sRainmeterCurrent = tonumber(sRainmeterCurrent);
sRainmeterTotal = tonumber(sRainmeterTotal);
if logging >= 1 then
print("-- Irrigation ==> [Rainmeter] - Actual rain is: " .. sRainmeterCurrent .. " ");
print("-- Irrigation ==> [Rainmeter] - Total rain is: " .. sRainmeterTotal .. " ");
end
--
-- UV data:
--
sUV, sSolar = otherdevices_svalues[uv]:match("([^;]+);([^;]+)")
sUV = tonumber(sUV);
sSolar = tonumber(sSolar);
if logging >= 1 then
print("-- Irrigation ==> [UV] - UV Strength is: " .. sUV .." ");
print("-- Irrigation ==> [UV] - Solar radiation is: " .. sSolar .." ");
end
if sRainmeterCurrent >= tonumber (RainCurrent)
and sWeatherTemp >= tonumber (WeatherTempMin)
and sWeatherTemp <= tonumber (WeatherTempMax)
and sUV <= tonumber (UVMax)
and sWindSpeed <= tonumber (WindSpeed)
and sWindGust <= tonumber (WindGust)
then
if logging >= 1 then
print("-- Irrigation ==> [Weather] - Weather conditions are looking good and ready for irrigation");
end
if(uservariables['VarWeatherCon'] == 0) then
commandArray['Variable:VarWeatherCon']= '1'
end
else
if logging >= 1 then
print("-- Irrigation [Info] ==> Weather conditions aren't looking good");
end
if(uservariables['VarWeatherCon'] == 1) then
commandArray['Variable:VarWeatherCon']= '0'
end
end
if logging >= 1 then
print("--------------------------------------------------------------------------------------")
end
--
-- **********************************************************
-- Scrapping Temparature and moist humidity from moist sensor
-- **********************************************************
--
--
-- Moist Sensor data:
--
smoistsensorTemp, smoistsensorHumidity = otherdevices_svalues[MoistSensor]:match("([^;]+);([^;]+);([^;]+)")
smoistsensorTemp = tonumber(smoistsensorTemp);
smoistsensorHumidity = tonumber(smoistsensorHumidity);
if logging >= 1 then
print("Irrigation [PROGRAM - Moist Sensor and Moist Conditions]");
print("-- Irrigation ==> [MoistSensor] - Moist Temperature: " .. smoistsensorTemp .. " ");
print("-- Irrigation ==> [MoistSensor] - Moist Humidity: " .. smoistsensorHumidity .. " ");
end
--
-- **********************************************************
-- Moist Sensor online check
-- **********************************************************
--
if (smoistsensorTemp == 0 or smoistsensorTemp == nil) then
print('-- Irrigation ==> [MoistSensor] - [ERROR] Moist Sensor reports Temp is 0 or nil. Skipping Irrigation')
if(uservariables['VarMoistOnline'] == 1) then
commandArray['Variable:VarMoistOnline']= '0'
end
else
if(uservariables['VarMoistOnline'] == 0) then
commandArray['Variable:VarMoistOnline']= '1'
end
end
if (smoistsensorHumidity <= 6 or smoistsensorHumidity >= 99 or smoistsensorHumidity == nil) then
print('-- Irrigation ==> [MoistSensor] - [Error] ==> Moist Sensor reports wrong Humidity values. Skipping Irrigation')
if(uservariables['VarMoistOnlineHum'] == 1) then
commandArray['Variable:VarMoistOnlineHum']= '0'
end
else
if(uservariables['VarMoistOnlineHum'] == 0) then
commandArray['Variable:VarMoistOnlineHum']= '1'
end
end
--
-- **********************************************************
-- checking moist conditions
-- **********************************************************
--
if smoistsensorTemp >= tonumber (VarTarTempMin)
and smoistsensorTemp <= tonumber (VarTarTempMax)
then
if logging >= 1 then
print("-- Irrigation ==> [MoistSensor] - Moist Temp conditions are fine for irrigation");
end
if(uservariables['VarMoistConTemp'] == 0) then
commandArray['Variable:VarMoistConTemp']= '1'
end
else
if logging >= 1 then
print("-- Irrigation ==> [MoistSensor] - Moist Temp conditions aren't good enough for irrigation");
end
if(uservariables['VarMoistConTemp'] == 1) then
commandArray['Variable:VarMoistConTemp']= '0'
end
end
if smoistsensorHumidity <= tonumber (VarTarHum)
then
if logging >= 1 then
print("-- Irrigation ==> [MoistSensor] - Moist humidity conditions are fine for irrigation");
end
if(uservariables['VarMoistConHum'] == 0) then
commandArray['Variable:VarMoistConHum']= '1'
end
else
if logging >= 1 then
print("-- Irrigation ==> [MoistSensor] - Moist humidity conditions aren to high, no irrigation required");
end
if(uservariables['VarMoistConHum'] == 1) then
commandArray['Variable:VarMoistConHum']= '0'
end
end
if logging >= 1 then
print("--------------------------------------------------------------------------------------")
end
--
-- **********************************************************
-- Checking Time Frame
-- **********************************************************
--
if logging >= 1 then
print("Irrigation [PROGRAM - TimeFrame]");
end
if day == VarDay1 or day == VarDay2 or day == VarDay3 or day == VarDay4 or day == VarDay5 or day == VarDay6 or day == VarDay7 or
month == VarMonth1 or month == VarMonth2 or month == VarMonth3 or month == VarMonth4 or month == VarMonth5 or month == VarMonth6 or month == VarMonth7 or month == VarMonth8 or month == VarMonth9 or month == VarMonth10 or month == VarMonth11 or month == VarMonth12
then
if logging >= 1 then
print("-- Irrigation ==> [TimeFrame] - TimeFrame does match your desired TimeFrame");
end
if(uservariables['VarTimeFrame'] == 0) then
commandArray['Variable:VarTimeFrame']= '1'
end
else
if logging >= 1 then
print("-- Irrigation ==> [TimeFrame] - TimeFrame doesn't match your desired TimeFrame");
end
if(uservariables['VarTimeFrame'] == 1) then
commandArray['Variable:VarTimeFrame']= '0'
end
end
--
-- **********************************************************
-- checking time of the day so irrigation may proceed
-- **********************************************************
--
if (time.hour >= 7) and (time.hour <= 11) then
if (uservariables['VarTimeOfDayCurrent'] ~= 0) then
commandArray['Variable:VarTimeOfDayCurrent']= '0'
end
end
if (time.hour >= 12) and (time.hour <= 18) then
if (uservariables['VarTimeOfDayCurrent'] ~= 1) then
commandArray['Variable:VarTimeOfDayCurrent']= '1'
end
end
if (time.hour >= 19) and (time.hour <= 22) then
if (uservariables['VarTimeOfDayCurrent'] ~= 2) then
commandArray['Variable:VarTimeOfDayCurrent']= '2'
end
end
if (time.hour >= 23) then
if (uservariables['VarTimeOfDayCurrent'] ~= 3) then
commandArray['Variable:VarTimeOfDayCurrent']= '3'
end
end
if (uservariables['VarTimeOfDayCurrent']) == tonumber (VarTimeOfDay) then
if logging >= 1 then
print("-- Irrigation ==> [TimeOfTheDay] - Time of the Day matches your desired irrigation value")
end
if (uservariables['VarTimeCon']) == 0 then
commandArray['Variable:VarTimeCon']= '1'
end
end
if (uservariables['VarTimeOfDayCurrent']) ~= tonumber (VarTimeOfDay) then
if logging >= 1 then
print("-- Irrigation ==> [TimeOfTheDay] - Time of the Day doesnt match your criteria, Awaiting for the right Time of the Day")
end
if (uservariables['VarTimeCon']) == 1 then
commandArray['Variable:VarTimeCon']= '0'
end
end
if logging >= 1 then
print("--------------------------------------------------------------------------------------")
end
if logging >= 1 then
print("Irrigation [Program]");
end
--
-- **********************************************************
-- Giving the irrigation program a Go or NoGo
-- **********************************************************
--
if (uservariables['VarTimeCon']) == 1
and (uservariables['VarTimeFrame']) == 1
and (uservariables['VarWeatherCon']) == 1
and (uservariables['VarMoistOnline']) == 1
and (uservariables['VarMoistOnlineHum']) == 1
and (uservariables['VarMoistConTemp']) == 1
and (uservariables['VarMoistOnlineHum']) == 1
then
if logging >= 1 then
print("-- Irrigation [Conditions] ==> All conditions seems to be okay, Irrigation may continue program")
end
if (uservariables['VarMayFollowProgram']) == 0
then
commandArray['Variable:VarMayFollowProgram']= '1'
end
else
if logging >= 1 then
print("-- Irrigation [Conditions] ==> Not all conditions seems to be okay, Irrigation may NOT continue program")
end
if (uservariables['VarMayFollowProgram']) == 1
then
commandArray['Variable:VarMayFollowProgram']= '0'
end
end
--
-- **********************************************************
-- New irrigation reactivated
-- **********************************************************
--
if (uservariables['VarMayFollowProgram']) == 1
and (uservariables['VarProgramRun']) == 0
and (uservariables['VarProgramOverride']) == 0
and (uservariables['VarManOverrideCon']) == 0
then
if (uservariables['VarFollowsProgram']) == 0 then
commandArray['Variable:VarFollowsProgram']= '1'
end
if logging >= 1 then
print("-- Irrigation [Program] ==> Irrigation Program Activated...")
print("--------------------------------------------------------------------------------------")
end
end
--
-- **********************************************************
-- Irrigation stopped after a full run cycle
-- **********************************************************
--
if (uservariables['VarProgramRun']) == 1
and (uservariables['VarProgramOverride']) == 1
then
if logging >= 1 then
print("-- Irrigation [Program] ==> Irrigation Stopped, Maximum RunTime Exceeded...")
print("-- Irrigation [Program] ==> Awaiting new TimeFrame...")
print("--------------------------------------------------------------------------------------")
end
end
--
-- **********************************************************
-- New timeframe so irrigation reactivated
-- **********************************************************
--
if (uservariables['VarTimeCon']) == 0
and (uservariables['VarProgramRun']) == 1
and (uservariables['VarProgramOverride']) == 1
then
if (uservariables['VarProgramOverride']) == 1 then
commandArray['Variable:VarProgramOverride']= '0'
commandArray['Variable:VarProgramRun']= '0'
end
if logging >= 1 then
print("-- Irrigation [Program] ==> Irrigation Program Reactivated...")
print("--------------------------------------------------------------------------------------")
end
end
--
-- **********************************************************
-- Irrigation stoppen as the moist humidity exceed your desired value
-- **********************************************************
--
if smoistsensorHumidity >= tonumber (VarTarHum)
and (uservariables['VarProgramRun']) == 1
then
if (uservariables['VarProgramOverride']) == 0 then
commandArray['Variable:VarProgramOverride']= '1'
commandArray['Variable:VarMaxRunTime']= '-1000'
commandArray['Variable:VarProgramRun']= '0'
commandArray[VarPump]='Off'
end
if logging >= 1 then
print("-- Irrigation [Program] ==> Irrigation Program Stopped, Moist Humidity exceeded your desired value...")
print("--------------------------------------------------------------------------------------")
end
end
--
-- **********************************************************
-- Irrigation stoppen, Manual Override
-- **********************************************************
--
if otherdevices[VitManOverride] == 'On'
and (uservariables['VarManOverrideCon']) == 0
then
if (uservariables['VarProgramOverride']) == 0 then
commandArray['Variable:VarProgramOverride']= '1'
commandArray['Variable:VarMaxRunTime']= '-1000'
commandArray['Variable:VarProgramRun']= '0'
commandArray[VarPump]='Off'
commandArray['Variable:VarManOverrideCon']= '1'
end
end
if otherdevices[VitManOverride] == 'On'
and (uservariables['VarManOverrideCon']) == 1
then
if logging >= 1 then
print("-- Irrigation [Program] ==> Irrigation Program Stopped, Manual Override")
print("--------------------------------------------------------------------------------------")
end
end
if otherdevices[VitManOverride] == 'Off'
and (uservariables['VarManOverrideCon']) == 1
then
if (uservariables['VarProgramOverride']) == 1 then
commandArray['Variable:VarProgramOverride']= '0'
commandArray['Variable:VarMaxRunTime']= '-1000'
commandArray['Variable:VarProgramRun']= '0'
commandArray['Variable:VarFollowsProgram']= '0'
commandArray['Variable:VarManOverrideCon']= '0'
commandArray[VarPump]='Off'
print("-- Irrigation [Program] ==> Irrigation Program Reactivated, Manual Override OFF")
print("--------------------------------------------------------------------------------------")
end
end
--
-- **********************************************************
-- Irrigation Counter MaxRunTime and validate check
-- **********************************************************
--
--
-- Debug logging.
--
function debug(msg)
if logging >= 1 then
print('-- Irrigation [DEBUG] ==> ' .. msg)
end
end
--
-- Info logging.
--
function info(msg)
if logging >= 1 then
print('-- Irrigation [Program] ==> ' .. msg)
end
end
--
-- Error logging.
--
function error(msg)
print('-- Irrigation [ERROR] ==> ' .. msg)
end
--
-- Validates the configuration
--
function validate()
result = true
if not (uservariables['VarMaxRunTime']) then
error('User Variable [' .. VarMaxRunTime .. '] doesnt exist.')
result = false
end
if not otherdevices[VarPump] then
error('Device [' .. VarPump .. '] doesnt exist.')
result = false
end
if not (uservariables['VarFollowsProgram']) then
error('User Variable [' .. VarFollowsProgram .. '] doesnt exist.')
result = false
end
return result
end
--
-- Tests if irrigation may start.
--
function may_update(VarIsPump)
counter = (uservariables['VarMaxRunTime'])
current_counter = counter
-- set the counter.
if VarIsPump and counter >= 0 then
counter = math.min(1, counter + 1)
elseif not VarIsPump and counter <= 0 then
counter = math.max(VarMaxRunTime_off * -1, counter - 1)
else
counter = 0
end
if counter ~= current_counter then
commandArray['Variable:VarMaxRunTime']= tostring(counter)
end
result = false
if VarIsPump and counter >= 1 then
result = true
elseif not VarIsPump and math.abs(counter) >= VarMaxRunTime_off then
result = true
end
return result
end
--
-- Start irrigation
--
function on_off(VarIsPump)
update_allowed = may_update(VarIsPump)
info('Irrigation Pump = [' .. otherdevices[VarPump] .. ']')
if update_allowed then
if otherdevices[VarPump] == 'Off' and VarIsPump then
commandArray[VarPump]='On'
commandArray['Variable:VarFollowsProgram']= '0'
commandArray['Variable:VarProgramRun']= '1'
elseif (otherdevices[VarPump] == 'On' and not VarIsPump) then
commandArray[VarPump]='Off'
commandArray['Variable:VarProgramOverride']= '1'
end
end
end
--
-- Is Irrigation On.
--
function is_VarFollowsProgram_aan()
result = false
result = (uservariables['VarFollowsProgram'] == 1)
return result
end
--
-- **********************************************************
-- Starting Irrigation
-- **********************************************************
--
if validate() then
on_off(is_VarFollowsProgram_aan())
end
if logging >= 1 then
print("--------------------------------------------------------------------------------------")
end
return commandArray
Code: Select all
--[[
script_time_irrigation.lua
@author: Siewert Lameijer
@since: 2015-06-24
@version: 1.0
Garden Irrigation script
User Variable to create:
- VarManOverride (type=integer, value=0)
- VarTimeCon (type=integer, value=0)
- VarWeatherCon (type=integer, value=0)
- VarTimeOfDayCurrent (type=integer, value=0)
- VarMayFollowProgram (type=integer, value=0)
- VarFollowsProgram (type=integer, value=0)
- VarMaxRunTime (type=integer, value=0)
- VarMoistOnline (type=integer, value=0)
- VarMoistOnlineHum (type=integer, value=0)
- VarMoistConTemp (type=integer, value=0)
- VarMoistConHum (type=integer, value=0)
- VarProgramOverride (type=integer, value=0)
- VarProgramRun (type=integer, value=0)
- VarTimeFrame (type=integer, value=0)
- VarManOverrideCon (type=integer, value=0)
- VarBuienRadarCon (type=integer, value=0)
Virtual Switches
- Manual Override
Hardware:
1x Moist Sensor which measures Temperature and Humdity
1x WeatherUnderground
1x Switch for wireless controled WaterPump for irrigation
--]]
time = os.date("*t")
commandArray = {}
--
-- **********************************************************
-- Settings Begin
-- **********************************************************
--
-- Lua script interval check, change the number 1 to every desired number in minutes
--if((time.min % 1)==0)then
-- Logging: 0 = Off, 1 = On
local logging = 1
--
-- **********************************************************
-- Location and minimum Rain Fall Variables For BuienRadar
-- **********************************************************
--
-- Set your location by adding Lat/Lon
local lat = '53.338023'
local lon = '6.303114'
-- Set your minimum rain fall for in a periode of 24hr
local VarMaxRainFall = '10'
--
-- **********************************************************
-- WeatherUnderGround Variables
-- **********************************************************
--
-- Name of your Weatherstation widget which contains humidity,uv,temp and pressure
local weatherstation = 'Barometer'
-- Name of your Weatherstation Wind widget
local wind = 'Wind'
-- Name of your Weatherstation Rain widget
local rain = 'Regenmeter'
-- Name of your Weatherstation UV widget
local uv = 'UV'
--
-- **********************************************************
-- Switches and Virtual Switches Variables
-- **********************************************************
--
-- Name of your manual override virtual switch
local VitManOverride = 'Irrigatie Manual Override'
-- Name of your irrigation switch for water valve 1
local VarPump = 'Irrigatie 1 Check'
--
-- **********************************************************
-- Moist Sensor Variables
-- **********************************************************
--
-- Name of your Moist Sensor device
local MoistSensor = 'Vocht Sensor (border 1)'
-- Your target soil humidity percentage
local VarTarHum = '80'
-- Your minumim moist humidity percentage from which the irrigation will start
local VarMinHum = '55'
-- Your Minumum soil temperature, Lower won't trigger irrigation
local VarTarTempMin = '12'
-- Your Maximum soil temperature, Higher won't trigger irrigation
local VarTarTempMax = '25'
-- Amount of minuten/times we want to switch OFF irrigation after the program has started.
local VarMaxRunTime_off = 60
--
-- **********************************************************
-- Day, Month and Time Variables
-- **********************************************************
--
-- Set your desired TimeOfDay for irrigation (Morning=0, Afternoon=1, Evening=2 or Night=3)
local VarTimeOfDay = '2'
-- Set your desired irrigation day, leave blank for no irrigation, set Mon, Tue, Wed, Thu, Fri, Sat or Sun
local VarDay1 = 'Mon'
local VarDay2 = ''
local VarDay3 = 'Wed'
local VarDay4 = ''
local VarDay5 = 'Fri'
local VarDay6 = ''
local VarDay7 = 'Sun'
-- Set your desired irrigation month, leave blank for no irrigation, set a number like 1 for January or 5 for May
local VarMonth1 = ''
local VarMonth2 = ''
local VarMonth3 = ''
local VarMonth4 = '4'
local VarMonth5 = '5'
local VarMonth6 = '6'
local VarMonth7 = '7'
local VarMonth8 = '8'
local VarMonth9 = '9'
local VarMonth10 = ''
local VarMonth11 = ''
local VarMonth12 = ''
--
-- **********************************************************
-- Weather Variables
-- **********************************************************
--
-- Set your prefered max rain fall, higher won't trigger irrigation
local RainCurrent = '0'
-- Set your prefered minimum outside temperature for irrigation, Lower won't trigger irrigation
local WeatherTempMin = '13'
-- Set your prefered maximum outside temperature for irrigation, Higher won't trigger irrigation
local WeatherTempMax = '25'
-- Set your prefered maximum UV for irrigation, Higher won't trigger irrigation
local UVMax = '6'
-- Set your prefered max windspeed km/h, higher won't trigger irrigation
local WindSpeed = '50'
-- Set your prefered max windgust km/h, higher won't trigger irrigation
local WindGust = '150'
--
-- **********************************************************
-- Settings END
-- **********************************************************
--
--[[
--> Don't edit anything below this line or you could break the script!
--]]
week = tonumber(os.date("%V"));
month = tonumber(os.date("%m"));
dayno = tonumber(os.date("%d"));
dayofweekno = tonumber(os.date("%w"));
day = tostring(os.date("%a"));
hour = tonumber(os.date("%H"));
min = tonumber(os.date("%M"));
--
-- **********************************************************
-- Scrapping Weather Data from WeatherUnderground
-- **********************************************************
--
--
-- Weatherstation data:
--
sWeatherTemp, sWeatherHumidity, sWeatherUV, sWeatherPressure, sWeatherUV2 = otherdevices_svalues[weatherstation]:match("([^;]+);([^;]+);([^;]+);([^;]+);([^;]+)")
sWeatherTemp = tonumber(sWeatherTemp);
sWeatherHumidity = tonumber(sWeatherHumidity);
sWeatherUV = tonumber(sWeatherUV);
sWeatherPressure = tonumber(sWeatherPressure);
sWeatherUV2 = tonumber(sWeatherUV2);
if logging >= 1 then
print("--------------------------------------------------------------------------------------")
print("Irrigation [PROGRAM - Weather Conditions]");
print("-- Irrigation ==> [WeatherStation] - Temperature is " .. sWeatherTemp .. " ");
print("-- Irrigation ==> [WeatherStation] - Humidity is " .. sWeatherHumidity .. " ");
print("-- Irrigation ==> [WeatherStation] - UV is " .. sWeatherUV .. " ");
print("-- Irrigation ==> [WeatherStation] - Pressure is " .. sWeatherPressure .. " ");
print("-- Irrigation ==> [WeatherStation] - UV2 is " .. sWeatherUV2 .. " ");
end
--
-- 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);
if logging >= 1 then
print("-- Irrigation ==> [Windmeter] - Winddirection (in degrees) is: " .. sWindDirectionDegrees .. " ");
print("-- Irrigation ==> [Windmeter] - Winddirection is: " .. sWindDirection .. " ");
print("-- Irrigation ==> [Windmeter] - Windspeed is: " .. sWindSpeed .. " ");
print("-- Irrigation ==> [Windmeter] - Windgust is: " .. sWindGust .. " ");
print("-- Irrigation ==> [Windmeter] - Windtemperature is: " .. sWindTemperature .. " ");
print("-- Irrigation ==> [Windmeter] - Windfeel is: " .. sWindFeel .. " ");
end
--
-- Rainmeter data:
--
sRainmeterCurrent, sRainmeterTotal = otherdevices_svalues[rain]:match("([^;]+);([^;]+)")
sRainmeterCurrent = tonumber(sRainmeterCurrent);
sRainmeterTotal = tonumber(sRainmeterTotal);
if logging >= 1 then
print("-- Irrigation ==> [Rainmeter] - Actual rain is: " .. sRainmeterCurrent .. " ");
print("-- Irrigation ==> [Rainmeter] - Total rain is: " .. sRainmeterTotal .. " ");
end
--
-- UV data:
--
sUV, sSolar = otherdevices_svalues[uv]:match("([^;]+);([^;]+)")
sUV = tonumber(sUV);
sSolar = tonumber(sSolar);
if logging >= 1 then
print("-- Irrigation ==> [UV] - UV Strength is: " .. sUV .." ");
print("-- Irrigation ==> [UV] - Solar radiation is: " .. sSolar .." ");
end
if sRainmeterCurrent >= tonumber (RainCurrent)
and sWeatherTemp >= tonumber (WeatherTempMin)
and sWeatherTemp <= tonumber (WeatherTempMax)
and sUV <= tonumber (UVMax)
and sWindSpeed <= tonumber (WindSpeed)
and sWindGust <= tonumber (WindGust)
then
if logging >= 1 then
print("-- Irrigation ==> [Weather] - Weather conditions are looking good and ready for irrigation");
end
if(uservariables['VarWeatherCon'] == 0) then
commandArray['Variable:VarWeatherCon']= '1'
end
else
if logging >= 1 then
print("-- Irrigation [Info] ==> Weather conditions aren't looking good");
end
if(uservariables['VarWeatherCon'] == 1) then
commandArray['Variable:VarWeatherCon']= '0'
end
end
if logging >= 1 then
print("--------------------------------------------------------------------------------------")
end
--
-- **********************************************************
-- Scrapping Temparature and moist humidity from moist sensor
-- **********************************************************
--
--
-- Moist Sensor data:
--
smoistsensorTemp, smoistsensorHumidity = otherdevices_svalues[MoistSensor]:match("([^;]+);([^;]+);([^;]+)")
smoistsensorTemp = tonumber(smoistsensorTemp);
smoistsensorHumidity = tonumber(smoistsensorHumidity);
if logging >= 1 then
print("Irrigation [PROGRAM - Moist Sensor and Moist Conditions]");
print("-- Irrigation ==> [MoistSensor] - Moist Temperature: " .. smoistsensorTemp .. " ");
print("-- Irrigation ==> [MoistSensor] - Moist Humidity: " .. smoistsensorHumidity .. " ");
end
--
-- **********************************************************
-- Moist Sensor online check
-- **********************************************************
--
if (smoistsensorTemp == 0 or smoistsensorTemp == nil) then
print('-- Irrigation ==> [MoistSensor] - [ERROR] Moist Sensor reports Temp is 0 or nil. Skipping Irrigation')
if(uservariables['VarMoistOnline'] == 1) then
commandArray['Variable:VarMoistOnline']= '0'
end
else
if(uservariables['VarMoistOnline'] == 0) then
commandArray['Variable:VarMoistOnline']= '1'
end
end
if (smoistsensorHumidity <= 6 or smoistsensorHumidity >= 99 or smoistsensorHumidity == nil) then
print('-- Irrigation ==> [MoistSensor] - [Error] ==> Moist Sensor reports wrong Humidity values. Skipping Irrigation')
if(uservariables['VarMoistOnlineHum'] == 1) then
commandArray['Variable:VarMoistOnlineHum']= '0'
end
else
if(uservariables['VarMoistOnlineHum'] == 0) then
commandArray['Variable:VarMoistOnlineHum']= '1'
end
end
--
-- **********************************************************
-- checking moist conditions
-- **********************************************************
--
if smoistsensorTemp >= tonumber (VarTarTempMin)
and smoistsensorTemp <= tonumber (VarTarTempMax)
then
if logging >= 1 then
print("-- Irrigation ==> [MoistSensor] - Moist Temp conditions are fine for irrigation");
end
if(uservariables['VarMoistConTemp'] == 0) then
commandArray['Variable:VarMoistConTemp']= '1'
end
else
if logging >= 1 then
print("-- Irrigation ==> [MoistSensor] - Moist Temp conditions aren't good enough for irrigation");
end
if(uservariables['VarMoistConTemp'] == 1) then
commandArray['Variable:VarMoistConTemp']= '0'
end
end
if smoistsensorHumidity <= tonumber (VarMinHum) or smoistsensorHumidity == tonumber (VarMinHum)
then
if logging >= 1 then
print("-- Irrigation ==> [MoistSensor] - Your Soil is dry and needs irrigation");
end
if(uservariables['VarMoistConHum'] == 0) then
commandArray['Variable:VarMoistConHum']= '1'
end
else
if logging >= 1 then
print("-- Irrigation ==> [MoistSensor] - Soil humidity is fine, no irrigation required");
end
if(uservariables['VarMoistConHum'] == 1) then
commandArray['Variable:VarMoistConHum']= '0'
end
end
if logging >= 1 then
print("--------------------------------------------------------------------------------------")
end
--
-- **********************************************************
-- Checking Buienradar
-- **********************************************************
--
if logging >= 1 then
print("Irrigation [PROGRAM - Buienradar]");
end
tempfilename = '/var/tmp/rain.tmp'
totalrain = 0
rainlines = 0
function IsItGonnaRain( minutesinfuture )
url='http://gps.buienradar.nl/getrr.php?lat='..lat..'&lon='..lon
read = os.execute('curl -s -o '..tempfilename..' "'..url..'"')
file = io.open(tempfilename, "r")
while true do
line = file:read("*line")
if not line then break end
linetime=string.sub(tostring(line), 5, 9)
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())
if ((difference > 0) and (difference<=minutesinfuture*60)) then
rain=tonumber(string.sub(tostring(line), 0, 3))
totalrain = totalrain+rain
rainlines=rainlines+1
end
end
file:close()
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
--
-- **********************************************************
-- Is it gonna rain for the upcoming 24hr YES/NO
-- **********************************************************
--
minutes=1440
RainPrediction = IsItGonnaRain(minutes)
RainmmHour=10^((RainPrediction-109)/32)
if RainPrediction >= tonumber (VarMaxRainFall) then
verw = 3
if (uservariables['VarBuienRadarCon']) == 1 then
commandArray['Variable:VarBuienRadarCon']= '0'
end
if logging >= 1 then
print('-- Irrigation ==> [RAIN] - Expected '..RainPrediction..' within 24 hours.')
end
else
verw = 2
if (uservariables['VarBuienRadarCon']) == 0 then
commandArray['Variable:VarBuienRadarCon']= '1'
end
if logging >= 1 then
print('-- Irrigation ==> [RAIN] - No rain or little rain expected within 24 hours.')
end
end
if logging >= 1 then
print("--------------------------------------------------------------------------------------")
end
--
-- **********************************************************
-- Checking Time Frame
-- **********************************************************
--
if logging >= 1 then
print("Irrigation [PROGRAM - TimeFrame]");
end
if day == VarDay1 or day == VarDay2 or day == VarDay3 or day == VarDay4 or day == VarDay5 or day == VarDay6 or day == VarDay7 or
month == VarMonth1 or month == VarMonth2 or month == VarMonth3 or month == VarMonth4 or month == VarMonth5 or month == VarMonth6 or month == VarMonth7 or month == VarMonth8 or month == VarMonth9 or month == VarMonth10 or month == VarMonth11 or month == VarMonth12
then
if logging >= 1 then
print("-- Irrigation ==> [TimeFrame] - TimeFrame does match your desired TimeFrame");
end
if(uservariables['VarTimeFrame'] == 0) then
commandArray['Variable:VarTimeFrame']= '1'
end
else
if logging >= 1 then
print("-- Irrigation ==> [TimeFrame] - TimeFrame doesn't match your desired TimeFrame");
end
if(uservariables['VarTimeFrame'] == 1) then
commandArray['Variable:VarTimeFrame']= '0'
end
end
--
-- **********************************************************
-- checking time of the day so irrigation may proceed
-- **********************************************************
--
if (time.hour >= 7) and (time.hour <= 11) then
if (uservariables['VarTimeOfDayCurrent'] ~= 0) then
commandArray['Variable:VarTimeOfDayCurrent']= '0'
end
end
if (time.hour >= 12) and (time.hour <= 18) then
if (uservariables['VarTimeOfDayCurrent'] ~= 1) then
commandArray['Variable:VarTimeOfDayCurrent']= '1'
end
end
if (time.hour >= 19) and (time.hour <= 22) then
if (uservariables['VarTimeOfDayCurrent'] ~= 2) then
commandArray['Variable:VarTimeOfDayCurrent']= '2'
end
end
if (time.hour >= 23) then
if (uservariables['VarTimeOfDayCurrent'] ~= 3) then
commandArray['Variable:VarTimeOfDayCurrent']= '3'
end
end
if (uservariables['VarTimeOfDayCurrent']) == tonumber (VarTimeOfDay) then
if logging >= 1 then
print("-- Irrigation ==> [TimeFrame] - Time of the Day matches your desired irrigation value")
end
if (uservariables['VarTimeCon']) == 0 then
commandArray['Variable:VarTimeCon']= '1'
end
end
if (uservariables['VarTimeOfDayCurrent']) ~= tonumber (VarTimeOfDay) then
if logging >= 1 then
print("-- Irrigation ==> [TimeFrame] - Time of the Day doesnt match your criteria, Awaiting for the right Time of the Day")
end
if (uservariables['VarTimeCon']) == 1 then
commandArray['Variable:VarTimeCon']= '0'
end
end
if logging >= 1 then
print("--------------------------------------------------------------------------------------")
end
if logging >= 1 then
print("Irrigation [Program]");
end
--
-- **********************************************************
-- Giving the irrigation program a Go or NoGo
-- **********************************************************
--
if (uservariables['VarTimeCon']) == 1
and (uservariables['VarTimeFrame']) == 1
and (uservariables['VarWeatherCon']) == 1
and (uservariables['VarMoistOnline']) == 1
and (uservariables['VarMoistOnlineHum']) == 1
and (uservariables['VarMoistConTemp']) == 1
and (uservariables['VarMoistOnlineHum']) == 1
and (uservariables['VarBuienRadarCon']) == 1
then
if logging >= 1 then
print("-- Irrigation [Conditions] ==> All conditions seems to be okay, Irrigation may continue program")
end
if (uservariables['VarMayFollowProgram']) == 0
then
commandArray['Variable:VarMayFollowProgram']= '1'
end
else
if logging >= 1 then
print("-- Irrigation [Conditions] ==> Not all conditions seems to be okay, Irrigation may NOT continue program")
end
if (uservariables['VarMayFollowProgram']) == 1
then
commandArray['Variable:VarMayFollowProgram']= '0'
end
end
--
-- **********************************************************
-- New irrigation reactivated
-- **********************************************************
--
if (uservariables['VarMayFollowProgram']) == 1
and (uservariables['VarProgramRun']) == 0
and (uservariables['VarProgramOverride']) == 0
and (uservariables['VarManOverrideCon']) == 0
then
if (uservariables['VarFollowsProgram']) == 0 then
commandArray['Variable:VarFollowsProgram']= '1'
end
if logging >= 1 then
print("-- Irrigation [Program] ==> Irrigation Program Activated...")
print("--------------------------------------------------------------------------------------")
end
end
--
-- **********************************************************
-- Irrigation stopped after a full run cycle
-- **********************************************************
--
if (uservariables['VarProgramRun']) == 1
and (uservariables['VarProgramOverride']) == 1
then
if logging >= 1 then
print("-- Irrigation [Program] ==> Irrigation Stopped, Maximum RunTime Exceeded...")
print("-- Irrigation [Program] ==> Awaiting new TimeFrame...")
print("--------------------------------------------------------------------------------------")
end
end
--
-- **********************************************************
-- New timeframe so irrigation reactivated
-- **********************************************************
--
if (uservariables['VarTimeCon']) == 0
and (uservariables['VarMayFollowProgram']) == 0
and (uservariables['VarProgramOverride']) == 1
then
if (uservariables['VarProgramOverride']) == 1 then
commandArray['Variable:VarProgramOverride']= '0'
commandArray['Variable:VarProgramRun']= '0'
end
if logging >= 1 then
print("-- Irrigation [Program] ==> Irrigation Program Reactivated...")
print("--------------------------------------------------------------------------------------")
end
end
--
-- **********************************************************
-- Irrigation stopped as the moist humidity exceed your desired value
-- **********************************************************
--
if smoistsensorHumidity >= tonumber (VarTarHum)
and (uservariables['VarProgramRun']) == 1
then
if (uservariables['VarProgramOverride']) == 0 then
commandArray['Variable:VarProgramOverride']= '1'
commandArray['Variable:VarMaxRunTime']= '-1000'
commandArray['Variable:VarProgramRun']= '0'
commandArray[VarPump]='Off'
end
if logging >= 1 then
print("-- Irrigation [Program] ==> Irrigation Program Stopped, Moist Humidity exceeded your desired value...")
print("--------------------------------------------------------------------------------------")
end
end
--
-- **********************************************************
-- Irrigation stoppen, Manual Override
-- **********************************************************
--
if otherdevices[VitManOverride] == 'On'
and (uservariables['VarManOverrideCon']) == 0
then
if (uservariables['VarProgramOverride']) == 0 then
commandArray['Variable:VarProgramOverride']= '1'
commandArray['Variable:VarMaxRunTime']= '-1000'
commandArray['Variable:VarProgramRun']= '0'
commandArray[VarPump]='Off'
commandArray['Variable:VarManOverrideCon']= '1'
end
end
--
-- **********************************************************
-- Irrigation stoppen, Rain Expected
-- **********************************************************
--
if (uservariables['VarBuienRadarCon']) == 0 and (uservariables['VarProgramRun']) == 1
then
if (uservariables['VarProgramOverride']) == 0 then
commandArray['Variable:VarProgramOverride']= '1'
commandArray['Variable:VarMaxRunTime']= '-1000'
commandArray['Variable:VarProgramRun']= '0'
commandArray[VarPump]='Off'
if logging >= 1 then
print("-- Irrigation [Program] ==> Irrigation Program Stopped, Rain Expected...")
print("--------------------------------------------------------------------------------------")
end
end
end
if (uservariables['VarBuienRadarCon']) == 1
then
if (uservariables['VarProgramOverride']) == 1 then
commandArray['Variable:VarProgramOverride']= '1'
commandArray['Variable:VarMaxRunTime']= '-1000'
commandArray['Variable:VarProgramRun']= '0'
commandArray[VarPump]='Off'
if logging >= 1 then
print("-- Irrigation [Program] ==> Irrigation Program Reactivated, No More Rain Expected...")
print("--------------------------------------------------------------------------------------")
end
end
end
--
-- **********************************************************
-- Irrigation stoppen, Manual Override
-- **********************************************************
--
if otherdevices[VitManOverride] == 'On'
and (uservariables['VarManOverrideCon']) == 1
then
if logging >= 1 then
print("-- Irrigation [Program] ==> Irrigation Program Stopped, Manual Override")
print("--------------------------------------------------------------------------------------")
end
end
if otherdevices[VitManOverride] == 'Off'
and (uservariables['VarManOverrideCon']) == 1
then
if (uservariables['VarProgramOverride']) == 1 then
commandArray['Variable:VarProgramOverride']= '0'
commandArray['Variable:VarMaxRunTime']= '-1000'
commandArray['Variable:VarProgramRun']= '0'
commandArray['Variable:VarFollowsProgram']= '0'
commandArray['Variable:VarManOverrideCon']= '0'
commandArray[VarPump]='Off'
print("-- Irrigation [Program] ==> Irrigation Program Reactivated, Manual Override OFF")
print("--------------------------------------------------------------------------------------")
end
end
--
-- **********************************************************
-- Irrigation Counter MaxRunTime and validate check
-- **********************************************************
--
--
-- Debug logging.
--
function debug(msg)
if logging >= 1 then
print('-- Irrigation [DEBUG] ==> ' .. msg)
end
end
--
-- Info logging.
--
function info(msg)
if logging >= 1 then
print('-- Irrigation [Program] ==> ' .. msg)
end
end
--
-- Error logging.
--
function error(msg)
print('-- Irrigation [ERROR] ==> ' .. msg)
end
--
-- Validates the configuration
--
function validate()
result = true
if not (uservariables['VarMaxRunTime']) then
error('User Variable [' .. VarMaxRunTime .. '] doesnt exist.')
result = false
end
if not otherdevices[VarPump] then
error('Device [' .. VarPump .. '] doesnt exist.')
result = false
end
if not (uservariables['VarFollowsProgram']) then
error('User Variable [' .. VarFollowsProgram .. '] doesnt exist.')
result = false
end
return result
end
--
-- Tests if irrigation may start.
--
function may_update(VarIsPump)
counter = (uservariables['VarMaxRunTime'])
current_counter = counter
-- set the counter.
if VarIsPump and counter >= 0 then
counter = math.min(1, counter + 1)
elseif not VarIsPump and counter <= 0 then
counter = math.max(VarMaxRunTime_off * -1, counter - 1)
else
counter = 0
end
if counter ~= current_counter then
commandArray['Variable:VarMaxRunTime']= tostring(counter)
end
result = false
if VarIsPump and counter >= 1 then
result = true
elseif not VarIsPump and math.abs(counter) >= VarMaxRunTime_off then
result = true
end
return result
end
--
-- Start irrigation
--
function on_off(VarIsPump)
update_allowed = may_update(VarIsPump)
info('Irrigation Pump = [' .. otherdevices[VarPump] .. ']')
if update_allowed then
if otherdevices[VarPump] == 'Off' and VarIsPump then
commandArray[VarPump]='On'
commandArray['Variable:VarFollowsProgram']= '0'
commandArray['Variable:VarProgramRun']= '1'
elseif (otherdevices[VarPump] == 'On' and not VarIsPump) then
commandArray[VarPump]='Off'
commandArray['Variable:VarProgramOverride']= '1'
end
end
end
--
-- Is Irrigation On.
--
function is_VarFollowsProgram_aan()
result = false
result = (uservariables['VarFollowsProgram'] == 1)
return result
end
--
-- **********************************************************
-- Starting Irrigation
-- **********************************************************
--
if validate() then
on_off(is_VarFollowsProgram_aan())
end
if logging >= 1 and (uservariables['VarMayFollowProgram']) == 0
and (uservariables['VarFollowsProgram']) == 0
and (uservariables['VarProgramOverride']) == 0
then
print("-- Irrigation [Standby] ==> Irrigation Program on Standby")
end
if logging >= 1 and (uservariables['VarMayFollowProgram']) == 1
and (uservariables['VarFollowsProgram']) == 0
and (uservariables['VarProgramOverride']) == 1
then
print("-- Irrigation [Standby] ==> Already Irrigated, Irrigation Program on Standby and awaiting new cycle")
end
if logging >= 1 then
print("--------------------------------------------------------------------------------------")
end
return commandArray
Yep, thats what i ment.blackdog65 wrote:Do you mean this?
http://www.ebay.co.uk/itm/360771645775? ... EBIDX%3AIT
I'm not sure which type it is but I have problems with low pressure as I use rain water + pump. The drippler hose was pretty poor with low pressure so I tried this today
http://www.amazon.co.uk/Green-Porous-So ... ation+hose
and it works brilliantly!
Users browsing this forum: No registered users and 1 guest