Steve's Task Scheduler

[SMcNeill]

Folks were talking about writing a task scheduler over in the topic here: https://www.qb64.org/forum/index.php?topic=2720.0 , so I figured I'd take a shot of throwing a very simple one together.

Note, this is a work in progress, and at the moment, this does nothing more than show how I'd envision the interface to look for the program.  It's quite compact, and quite full of junk at the moment, but there's still some valuable real estate left on the screen which could be used for additional notes or flags.

What this little program will do, (once it's fleshed out better), is allow us to enter up to 71 events on to the screen to track and schedule.

Information tracked (and this information is generally going to be entered in a left to right style line by line in the program) currently is:

Active -- Is this event actively scheduled to occur or not.
Event -- The path and name of the program which we want to shell out to.
7 Days of the Week -- A quick click selection of which of the days of the week we want to run this event.
Start Time -- When the event should start/launch.
Repeat Time -- How often should we repeat this event. 
Stop Time -- When should we stop running this event.

There's some room currently left on the screen which isn't being used.  Is there anything else which someone might need a task scheduler to track for them?  Speak up now, and I'll add it to the mix.  If what's there seems to handle all our needs, then I'll probably just move the timers further to the right and extend more characters to the path and name for folks.

Anywho....  Take a look, see how the format looks, offer suggestions for things which might be missing, and I'll expand functionality as time and life allows.

Code: QB64: [Select]

1. $COLOR:32
2. TYPE Time_Type
3.     Hour AS _BYTE
4.     Minute AS _BYTE
5.     Second AS _BYTE
6. END TYPE
7.  
8.  
9. TYPE Schedule_type
10.     Active AS _BYTE
11.     Name AS STRING * 100 'if you need more than 100 characters for the name/path, adjust this and make your own scrolling/entry routines.
12.     Days AS _UNSIGNED _BYTE
13.     Start AS Time_Type
14.     Repeat AS Time_Type
15.     Finish AS Time_Type
16. END TYPE
17.  
18. SCREEN _NEWIMAGE(1280, 720, 32)
19. _FONT 8
20.  
21. DIM SHARED Events(0 TO 70) AS Schedule_type
22.  
23. DrawBoard
24. SLEEP
25.  
26.  
27. SUB DrawBoard
28.     COLOR White, 0
29.     FOR i = 0 TO 70
30.         LINE (0, i * 10)-STEP(1279, 10), -1, B
31.         IF Events(i).Active THEN
32.             LINE (1, i * 10 + 1)-STEP(8, 8), Green, BF
33.         ELSE
34.             LINE (1, i * 10 + 1)-STEP(8, 8), Red, BF
35.         END IF
36.         LINE (0, 0)-STEP(10, 709), -1, B
37.         _PRINTSTRING (11, i * 10 + 2), "This is a placeholder for where your event names will go.  As you can see, it can hold many letters."
38.         FOR j = 1 TO 7 'for the 7 days of the week
39.             LINE (800 + 10 * j, i * 10)-STEP(10, 10), -1, B
40.             IF Events(i).Days AND 1 THEN 'sunday is active
41.                 LINE (811, i * 10 + 1)-STEP(8, 8), Green, BF
42.             ELSE
43.                 LINE (811, i * 10 + 1)-STEP(8, 8), Red, BF
44.             END IF
45.             IF Events(i).Days AND 2 THEN 'monday is active
46.                 LINE (821, i * 10 + 1)-STEP(8, 8), Green, BF
47.             ELSE
48.                 LINE (821, i * 10 + 1)-STEP(8, 8), Red, BF
49.             END IF
50.             IF Events(i).Days AND 4 THEN 'tuesday is active
51.                 LINE (831, i * 10 + 1)-STEP(8, 8), Green, BF
52.             ELSE
53.                 LINE (831, i * 10 + 1)-STEP(8, 8), Red, BF
54.             END IF
55.             IF Events(i).Days AND 8 THEN 'wednesday is active
56.                 LINE (841, i * 10 + 1)-STEP(8, 8), Green, BF
57.             ELSE
58.                 LINE (841, i * 10 + 1)-STEP(8, 8), Red, BF
59.             END IF
60.             IF Events(i).Days AND 16 THEN 'thursday is active
61.                 LINE (851, i * 10 + 1)-STEP(8, 8), Green, BF
62.             ELSE
63.                 LINE (851, i * 10 + 1)-STEP(8, 8), Red, BF
64.             END IF
65.             IF Events(i).Days AND 32 THEN 'friday is active
66.                 LINE (861, i * 10 + 1)-STEP(8, 8), Green, BF
67.             ELSE
68.                 LINE (861, i * 10 + 1)-STEP(8, 8), Red, BF
69.             END IF
70.             IF Events(i).Days AND 64 THEN 'saturday is active
71.                 LINE (871, i * 10 + 1)-STEP(8, 8), Green, BF
72.             ELSE
73.                 LINE (871, i * 10 + 1)-STEP(8, 8), Red, BF
74.             END IF
75.             _PRINTSTRING (812, i * 10 + 2), "S"
76.             _PRINTSTRING (822, i * 10 + 2), "M"
77.             _PRINTSTRING (832, i * 10 + 2), "T"
78.             _PRINTSTRING (842, i * 10 + 2), "W"
79.             _PRINTSTRING (852, i * 10 + 2), "T"
80.             _PRINTSTRING (862, i * 10 + 2), "F"
81.             _PRINTSTRING (872, i * 10 + 2), "S"
82.             LINE (881, i * 10)-STEP(70, 10), -1, B
83.             _PRINTSTRING (885, i * 10 + 2), "HH:MM:SS"
84.             LINE (951, i * 10)-STEP(70, 10), -1, B
85.             _PRINTSTRING (955, i * 10 + 2), "HH:MM:SS"
86.             LINE (1021, i * 10)-STEP(70, 10), -1, B
87.             _PRINTSTRING (1025, i * 10 + 2), "HH:MM:SS"
88.         NEXT
89.     NEXT
90. END SUB

Note 2:  I don't imagine the finished version would have all the text spamming wildly across the screen, cluttering it up in such an insane manner.  Most everything would be black space, unless active, so it wouldn't look as cluttered as it currently does.  What you see here is basically just  positional placeholders so I can get everything lined up properly for the next step of development.  (And to see how much space I have left to add or change things on the screen.)