ISY-99i Generic Calendar Using Programs and Variables: Difference between revisions
No edit summary
No edit summary
|Line 506:||Line 506:|
Forum thread: [http://forum.universal-devices.com/viewtopic.php?f=7&t=
Forum thread: [http://forum.universal-devices.com/viewtopic.php?f=7&t=]
Revision as of 18:29, 20 September 2011
The Basic Idea of this Series of Programs
ISY’s date function is a bit limited. As the firmware currently supports, there is no direct way to use it for recurring events except related to day of the week. For example, you can have something happen every Monday, or every Monday and Tuesday, but you can’t set up something to run on the third Tuesday of every month, or every 3 rd day, or on even days of the month, or every July 4th, I think you get the idea.
Working outside the built-in firmware, a series of programs using the variable function can solve this problem. The following series of programs starts off with a single program that triggers at midnight and then cascades through a series of additional programs using “run if”, “run then”, and “run else” commands to update a set of variables each day at midnight to report the current day, day of month, day of year, month, year, and week of month. In addition, there are counters which follow an every other, every third, every fourth, and every fifth schedule. Also, there is a program that sets a variable according to whether it is an even day or an odd day. Finally, a series of programs sets a variable to 1 on several US holidays. Some of these programs can be expanded upon such as the holiday series or the ever x number of days or weeks programs to suit your needs.
There are a number of variables that need to be created by the user. By convention, variables that have an “i” to start the name are integer variables and an “s” indicates a state variable.
- iDay.of.Year starts with 1 on Jan1 and counts to 365 (or 366 on leap year). This variable is a less used variable that is mostly included for completeness as it is rare that someone needs to know what day of the year it is.
- iDay.of.Month is how many days into the month we are (i.e. the 5th of the month).
- iYear is simply the current year.
- iLeap.Year counts 0,1,2,3,0,1,2,3,etc where 3 means that we are in a leap year. This is primarily a variable used to keep the other variables in check since rarely do people have cause to include this directly in a program.
- iDay.of.Week starts with 1 on Monday and counts through to 7 on Sunday. This variable is used to cross check the status of the variables against ISY’s internal day of week function so as to alert you if it gets out of sync. You do not need this variable since ISY has this function built-in but you can choose to use it instead of the ISY’s built-in day function and get the same result.
- iMonth is simply the current month starting with 1 for Jan.
- iDay.Counter gets one number higher everyday without regard to the start of a new month or year. The primary purpose of this variable is to serve as a basis for the every x number of days/weeks programs since those programs require a reference that always increases by one each day. I have arbitrarily used MS Excel’s system of setting Jan 1, 1900 equal to day one and then counting from there. This offered an opportunity to test these programs well into the future and have a reference to check the values against.
- iEver.xxx.Counter starts with 0 and counts up to x-1. For example, iEvery.Fourth.Day.Counter cycles through 0,1,2,3,0,1,2,3,etc. If today the variable was equal to 1 and you wanted to start watering your lawn tomorrow continuing every 4th day after that, set your program to water when the variable is 2.
- iWeek.of.Month starts with 1 on the first day of the month and increases by 1 every 7 days until the next month starts. So if you wanted something to happen on the second Tuesday of each month, set it to occur on Tuesdays when iWeek.of.Month is equal to 2.
- iWeek.Counter counts the number of weeks since Jan 1, 1900. The purpose of this variable is to calculate the every x weeks programs as there is likely no value in knowing how many weeks have passed since Jan 1, 1900. This value is produced by dividing iDay.Counter by 7.
- i.Every.xxx.Week programs start at 0 and count to x-1. This works the same as the iEvery.xxx.Day.Counter programs except it is for weeks.
- iOdd.Even.Day sets to 0 on even days and 1 on odd days of the month. This is useful in communities with watering restrictions limit certain addresses to water on even or odd days of the month. This differs from iEvery.Other.Day.Counter when a month with an odd number of days comes to a close.
- iHoliday sets to 1 on the listed holidays and 0 on all other days. Feel free to add your own holidays. I use this value to shut down wake-up alarms.
- iSync is a variable whose purpose is to test the status of this set of programs against the ISY’s internal day of week function. An email is triggered if the two are out of sync.
- The sVariables are simply the same value of the corresponding iVariables copied over to the state variable side. The purpose of this is so that you can use them as program “triggers”. You can certainly add more to the list as you see fit. The difference between a “state” variable and an “integer” variable is discussed elsewhere in the wiki.
Setting Up The Programs
- Setup the variables. This is not automatic. You must enter the listed variables into ISY AT THE SAME ID LOCATION AS SHOWN. ISY programs refrence the id location NUMBER, not the name. The name you enter in the name column is shown in the program for convenience only. Because I wrote these programs and then worked on some other programs, and then came back to these programs, there are some intervening variables which you need not concern yourself with, except to know that they must be skipped over until you get back to the correct ID number location. If you have already used some of the variable locations for other programs, you must either redirect you current program to another ID location or redirect the appropriate programs from these programs to new ID locations. You are free to change the names if you like so long as you understand what it represents.
- Import the programs or undertake the task of manually entering the programs. Please observe the screen captures to see how I set up the folder architecture. You are certainly free to do it differently, but keeping the programs organized this way is helpful.
- Set the start values. You must set the current date including day of month, day of year, month, day of week, year, and leap year (3 for a leap year, 0 for the year after a leap year, etc.) variables to the correct values. If you would like to stay true to the day counter starting with 1 on Jan 1, 1900 then you need to cross reference that number to MS Excel. This is an arbitrary decision on your part as any number would actually work. All of the other variables are calculated from those values and will settle in when the programs run at midnight. The “init” values need not be set as they will automatically populate at the midnight run time (unless you reboot your ISY prior to that time in which case all of the values will be lost). Please look elsewhere in the wiki to learn about how the “init” value works.
- Go to the Configuration Tab, System sub tab, System box and Uncheck the box next to “Catch up Schedules at Restart”. Not doing so will cause your ISY to run these programs every time the ISY is rebooted pushing it one day into the future which in most cases will be an error. Missed schedule grace period should be left at 15 minutes.
- Setup the email at ID location number 1 to whom you want the email to be sent and what you would like the content to be in the event that the ISY’s day of week becomes out of sync with the day of week calculated by these programs. It is assumed that if this variable is accurate, all of the others will be as well. Furthermore, it is the only thing that is possible for ISY to test on its own.
The primary reason for a fault is a power failure or otherwise taking the ISY offline. If the ISY is continuously not operating between 12 midnight and 12:15 am the programs will fall one day behind. To manually push the programs one day forward, right click on “Advance Day” program and click “run then”. You can do this repeatedly to advance several days forward. The ISY was tested by me to function properly through the year 2015. I did not actually run the program any further out than that but I have no reason to believe it should fail. It is designed to run correctly for several hundred years before the leap year issue no longer is accurate. I trust that will not cause you any inconvenience. At the time of this writing, these programs have been up and running real time for about 4 months without error. Based on this and my tests running these programs through to 2015 in “fake time” I suspect there are no errors. If you think you have found a bug, please let me know. Username: apostolakisl.
Advance Day: This program is the "trigger". Meaning that the "if" clause contains the only trigger event starting the entire cascade of programs. If you manually initiate a "run then" of this program, all of the programs will run and it will push the entire series of programs one day into the future.
If Time is 12:00:00AM Then Run Program 'Day of Month Advance' (If) Else - No Actions - (To add one, press 'Action')
Day of Month Advance: This program advances the day of month forward one day making sure to move back to "1" at the start of a new month. It also is the main trigger for many of the other programs.
If ( $iDay.of.Month < 31 And ( $iMonth is 1 Or $iMonth is 3 Or $iMonth is 5 Or $iMonth is 7 Or $iMonth is 8 Or $iMonth is 10 Or $iMonth is 12 ) ) Or ( $iDay.of.Month < 30 And ( $iMonth is 4 Or $iMonth is 6 Or $iMonth is 9 Or $iMonth is 11 ) ) Or ( $iDay.of.Month < 29 And $iMonth is 2 And $iLeap.Year is 0 ) Or ( $iDay.of.Month < 28 And $iMonth is 2 And $iLeap.Year > 0 ) Then $iDay.of.Month += 1 $iDay.of.Month Init To $iDay.of.Month $sDay.of.Month Init To $iDay.of.Month $sDay.of.Month = $iDay.of.Month Run Program 'Day of Week' (If) Run Program 'Month Advance' (If) Run Program 'Month Reset' (If) Run Program 'Week of Month' (Then Path) Run Program 'Ever X Weeks' (Then Path) Run Program 'Odd Even Day' (Then Path) Run Program 'Holiday reset' (Then Path) Else $iDay.of.Month = 1 $iDay.of.Month Init To 1 $sDay.of.Month Init To $iDay.of.Month $sDay.of.Month = $iDay.of.Month Run Program 'Day of Week' (If) Run Program 'Month Advance' (If) Run Program 'Month Reset' (If) Run Program 'Week of Month' (Then Path) Run Program 'Ever X Weeks' (Then Path) Run Program 'Odd Even Day' (Then Path) Run Program 'Holiday reset' (Then Path)
Odd Even Day: This program sets a variable to 0 or 1 based on the odd or even nature of the current day of month.
If - No Conditions - (To add one, press 'Schedule' or 'Condition') Then $iOdd.Even.Day = $iDay.of.Month $iOdd.Even.Day %= 2 $iOdd.Even.Day Init To $iOdd.Even.Day Else - No Actions - (To add one, press 'Action')
Day of Week
If $iDay.of.Week < 7 Then $iDay.of.Week += 1 $iDay.of.Week Init To $iDay.of.Week $sDay.of.Week Init To $iDay.of.Week $sDay.of.Week = $iDay.of.Week Run Program 'Day of year Advance' (If) Else $iDay.of.Week = 1 $iDay.of.Week Init To 1 $sDay.of.Week Init To $iDay.of.Week $sDay.of.Week = $iDay.of.Week Run Program 'Day of year Advance' (If)
Day of Year Advance: This program counts from 1 to 365 (or 366) as the year progresses.
If ( $iDay.of.Year < 365 And $iLeap.Year > 0 ) Or ( $iDay.of.Year < 366 And $iLeap.Year is 0 ) Then $iDay.of.Year += 1 $iDay.of.Year Init To $iDay.of.Year $sDay.of.Year Init To $iDay.of.Year $sDay.of.Year = $iDay.of.Year Run Program 'Every x Day Counter' (Then Path) Run Program 'Year' (If) Else $iDay.of.Year = 1 $iDay.of.Year Init To 1 $sDay.of.Year = $iDay.of.Year $sDay.of.Year Init To $iDay.of.Year Run Program 'Every x Day Counter' (Then Path) Run Program 'Year' (If)
Every X Day Counter: This program divides the day counter value (this value increases by one every day without ever resetting) by either 2,3,4, or 5 and then sets the remainder as the value of the variable. You could easily add additional lines to this program for any other count of repeating days.
If - No Conditions - (To add one, press 'Schedule' or 'Condition') Then $iDay.Counter += 1 $iEvery.Other.Day.Counter = $iDay.Counter $iEvery.Thrid.Day.Counter = $iDay.Counter $iEvery.Fourth.Day.Counter = $iDay.Counter $iEvery.Fifth.Day.Counter = $iDay.Counter $iEvery.Other.Day.Counter %= 2 $iEvery.Thrid.Day.Counter %= 3 $iEvery.Fourth.Day.Counter %= 4 $iEvery.Fifth.Day.Counter %= 5 $iDay.Counter Init To $iDay.Counter $iEvery.Other.Day.Counter Init To $iEvery.Other.Day.Counter $iEvery.Thrid.Day.Counter Init To $iEvery.Thrid.Day.Counter $iEvery.Fourth.Day.Counter Init To $iEvery.Fourth.Day.Counter $iEvery.Fifth.Day.Counter Init To $iEvery.Fifth.Day.Counter Else - No Actions - (To add one, press 'Action')
Christmas: This and the following holiday programs set a variable to 1 on the given holiday and back to zero for any other day. New programs should be added by the user for other holidays that they may want to include. Or you could write additional programs that are structured the same but set a different variable depending on the type of holiday. These are national holidays that most people have off of work which would have a very direct impact on how you would want your programs to function. Other holidays might be different. Or, you may live in Canada.
If $iMonth is 12 And $iDay.of.Month is 25 Then $iHoliday = 1 Else - No Actions - (To add one, press 'Action')
Holiday Reset: This sets the holiday variable to 0, then triggers the programs that would set it to 1 on a holiday. Make sure to add any new holiday programs you write to the "then" section.
If - No Conditions - (To add one, press 'Schedule' or 'Condition') Then $iHoliday = 0 Run Program 'Christmas' (If) Run Program 'Labor Day' (If) Run Program 'Memorial Day' (If) Run Program 'New Years Day' (If) Run Program 'Thanksgiving' (If) Else - No Actions - (To add one, press 'Action')
If $iDay.of.Week is 1 And $iWeek.of.Month is 1 And $iMonth is 9 Then $iHoliday = 1 Else - No Actions - (To add one, press 'Action')
If $iDay.of.Week is 1 And $iMonth is 5 And ( ( $iWeek.of.Month is 4 And $iDay.of.Month > 24 ) Or ( $iWeek.of.Month is 5 And $iDay.of.Month > 24 ) ) Then $iHoliday = 1 Else - No Actions - (To add one, press 'Action')
New Years Day
If $iDay.of.Month is 1 And $iMonth is 1 Then $iHoliday = 1 Else - No Actions - (To add one, press 'Action')
If ( $iDay.of.Week is 4 Or $iDay.of.Week is 5 ) And $iWeek.of.Month is 4 And $iMonth is 11 Then $iHoliday = 1 Else - No Actions - (To add one, press 'Action')
Leap Year Calculator: This rolls a varialbe from 0 through 3 depnding on where we are in the leap year cycle. 0 is a leap year. The year 2100 is a special year in that it is not a leap year despite being at that point in the 4 year cycle. The next year like this isn't for several hundred years.
If $iDay.of.Year is 1 And $iYear is not 2100 Then $iLeap.Year = $iYear $iLeap.Year %= 4 $iLeap.Year Init To $iLeap.Year Else - No Actions - (To add one, press 'Action')
If $iDay.of.Month is 1 And $iMonth < 12 Then $iMonth += 1 $iMonth Init To $iMonth $sMonth Init To $iMonth $sMonth = $iMonth Else - No Actions - (To add one, press 'Action')
If $iDay.of.Month is 1 And $iMonth is 12 Then $iMonth = 1 $iMonth Init To 1 $sMonth = 1 $sMonth Init To 1 Else - No Actions - (To add one, press 'Action')
Friday: This and the following day programs check the current day of week as calculated by these programs against the day of week by ISY's internal calender and reports any issues.
If On Fri Time is 1:00:00AM Then $iSync = 5 Run Program 'Sync email alert' (If) Else - No Actions - (To add one, press 'Action')
If On Mon Time is 1:00:00AM Then $iSync = 1 Run Program 'Sync email alert' (If) Else - No Actions - (To add one, press 'Action')
If On Sat Time is 1:00:00AM Then $iSync = 6 Run Program 'Sync email alert' (If) Else - No Actions - (To add one, press 'Action')
If On Sun Time is 1:00:00AM Then $iSync = 7 Run Program 'Sync email alert' (If) Else - No Actions - (To add one, press 'Action')
Sync email alert
If $iSync is not $iDay.of.Week Then Send Notification to 'dr-apo' content 'Out of Sync' Else - No Actions - (To add one, press 'Action')
If On Thu Time is 1:00:00AM Then $iSync = 4 Run Program 'Sync email alert' (If) Else - No Actions - (To add one, press 'Action')
If On Tue Time is 1:00:00AM Then $iSync = 2 Run Program 'Sync email alert' (If) Else - No Actions - (To add one, press 'Action')
If On Wed Time is 1:00:00AM Then $iSync = 3 Run Program 'Sync email alert' (If) Else - No Actions - (To add one, press 'Action')
Ever X Weeks: This works the same as the every so x days programs but counts weeks instead of days.
If - No Conditions - (To add one, press 'Schedule' or 'Condition') Then $iWeek.Counter = $iDay.Counter $iWeek.Counter /= 7 $iEvery.Other.Week = $iWeek.Counter $iEvery.Other.Week %= 2 $iEvery.Thrid.Week = $iWeek.Counter $iEvery.Thrid.Week %= 3 $iEvery.Fourth.Week = $iWeek.Counter $iEvery.Fourth.Week %= 4 $iEvery.Fourth.Week Init To $iEvery.Fourth.Week $iEvery.Thrid.Week Init To $iEvery.Thrid.Week $iEvery.Other.Week Init To $iEvery.Other.Week $iWeek.Counter Init To $iWeek.Counter Else - No Actions - (To add one, press 'Action')
Week of Month
If - No Conditions - (To add one, press 'Schedule' or 'Condition') Then $iWeek.of.Month = $iDay.of.Month $iWeek.of.Month -= 1 $iWeek.of.Month /= 7 $iWeek.of.Month += 1 $sWeek.of.Month = $iWeek.of.Month $sWeek.of.Month Init To $iWeek.of.Month $iWeek.of.Month Init To $iWeek.of.Month Else - No Actions - (To add one, press 'Action')
If $iDay.of.Year is 1 Then $iYear += 1 $iYear Init To $iYear $sYear = $iYear $sYear Init To $iYear Run Program 'Leap year calculator' (If) Else - No Actions - (To add one, press 'Action')
Screen Captures to Help You Get The Variables Setup at The Proper ID Location
Forum thread: