Calendar Maker

[SierraKen]

Today I made the Calendar Maker even better! I added around 4 holidays and also made it so the user can use the right and left arrow keys to go back and forward in months as you see them. That way if someone needs to know a date on the next month or the last month, they can just use the arrow keys. Or if they are wanting to easily print a few months in a row. :)

(Note: Because I was accidentally using code that masked bmp files to jpg, I changed the program to just save as .bmp and posted it on this forum below this post, so please scroll down, thank you.)

Code: QB64: [Select]

1. 'This is my very first calendar making program!
2. 'Thanks to the guys from the QB64.org forum for the help: bplus, SMcNeill, and euklides!
3. 'This is a freeware program like all my other programs and games, only free.
4. 'Feel free to use this code in your own programs.
5. 'Made on Tuesday, August 6, 2019 by Ken G.
6.  
7.  
8. start:
9. _TITLE "Calendar Maker"
10. _LIMIT 1000
11. dd = 0
12. leap = 0
13. m = 0
14. mm = 0
15. y = 0
16. yy = 0
17. w = 0
18. weekday = 0
19. days = 0
20. SCREEN _NEWIMAGE(800, 600, 32)
21. CLS
22. PRINT "                                  Monthly Calendar Maker"
23. PRINT: PRINT: PRINT
24. PRINT "                                        By Ken G."
25. PRINT
26. PRINT "                         With some help from the QB64.org Forum guys!"
27. PRINT: PRINT: PRINT
28. PRINT "          This program will make a calendar for the year and month you want."
29. PRINT "          It will also name some holidays on their days."
30. PRINT "          This uses the Gregorian Calendar which became common practice in"
31. PRINT "          England in 1753 and we still use it today."
32. PRINT
33. PRINT "          First make a calender, then if you want to save it as a .jpg file,"
34. PRINT "          press the 'S' key and it will save it as the month and year for its name."
35. PRINT "          For example, if you made a calendar for January 2020 and wish to save it,"
36. PRINT "          press the 'S' key and it will save it as 1-2020.jpg"
37. PRINT "          If you wish to print your calendar on your printer, press 'P' once."
38. PRINT "          Feel free to print as many times as you wish. They take up 1 page each."
39. PRINT "          If you save the .jpg calendar, it will be put in the same directory as this program."
40. PRINT "          To switch to the last month use the left arrow key, to the next month the right arrow key."
41. PRINT "          To make a different calendar without saving, press the Space Bar."
42. PRINT "          Keyboard commands will be listed on the title bar of the window."
43. again1:
44. PRINT
45. INPUT "          Type the year here (1753-9999): ", y
46. IF y <> INT(y) THEN PRINT "Cannot use decimals, try again.": GOTO again1:
47. IF y < 1753 OR y > 9999 THEN PRINT "The year can only be between 1753 and 9999, try again.": GOTO again1:
48. again2:
49. PRINT
50. INPUT "          Type the month here (1-12): ", m
51. PRINT
52. IF m <> INT(m) THEN PRINT "Cannot use decimals, try again.": GOTO again2:
53. IF m < 1 OR m > 12 THEN PRINT "1-12 only, try again.": GOTO again2:
54.  
55. calculate:
56. 'Get the month name.
57. IF m = 1 THEN month$ = " January"
58. IF m = 2 THEN month$ = "February"
59. IF m = 3 THEN month$ = "  March"
60. IF m = 4 THEN month$ = "  April"
61. IF m = 5 THEN month$ = "  May"
62. IF m = 6 THEN month$ = "  June"
63. IF m = 7 THEN month$ = "  July"
64. IF m = 8 THEN month$ = " August"
65. IF m = 9 THEN month$ = "September"
66. IF m = 10 THEN month$ = " October"
67. IF m = 11 THEN month$ = "November"
68. IF m = 12 THEN month$ = "December"
69.  
70. 'Calculate to see if it's a Leap Year.
71. IF m <> 2 THEN GOTO nex:
72. IF y / 400 = INT(y / 400) THEN leap = 1: GOTO more:
73. IF y / 4 = INT(y / 4) THEN leap = 1
74. IF y / 100 = INT(y / 100) THEN leap = 0
75.  
76. 'Get the number of days for each month.
77. more:
78. IF leap = 1 THEN days = 29
79. IF leap = 0 THEN days = 28
80. GOTO weekday:
81. nex:
82. IF m = 1 THEN days = 31
83. IF m = 3 THEN days = 31
84. IF m = 4 THEN days = 30
85. IF m = 5 THEN days = 31
86. IF m = 6 THEN days = 30
87. IF m = 7 THEN days = 31
88. IF m = 8 THEN days = 31
89. IF m = 9 THEN days = 30
90. IF m = 10 THEN days = 31
91. IF m = 11 THEN days = 30
92. IF m = 12 THEN days = 31
93. weekday:
94.  
95. 'Set the month, year, and weekday variables to start with.
96. mm = m
97. yy = y
98. GetDay mm, dd, y, weekday
99.  
100. 'This section makes the calendar graph.
101. make:
102. SCREEN _NEWIMAGE(800, 600, 32)
103. CLS
104. LINE (0, 0)-(800, 600), _RGB32(255, 255, 255), BF
105. _TITLE "Press 'S' to Save, 'P' to Print, Left and Right Arrow Keys To Switch Months, Space Bar For Different One, or 'Esc' to Quit."
106. COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 255)
107. LOCATE 3, 42: PRINT month$; "  "; yy
108.  
109. FOR x = 20 TO 780 STEP 108
110.     LINE (x, 100)-(x, 580), _RGB32(0, 0, 0)
111. NEXT x
112. FOR z = 100 TO 580 STEP 80
113.     LINE (16, z)-(780, z), _RGB32(0, 0, 0)
114. NEXT z
115.  
116. LOCATE 5, 8: PRINT "SUNDAY"
117. LOCATE 5, 21: PRINT "MONDAY"
118. LOCATE 5, 34: PRINT "TUESDAY"
119. LOCATE 5, 47: PRINT "WEDNESDAY"
120. LOCATE 5, 60: PRINT "THURSDAY"
121. LOCATE 5, 75: PRINT "FRIDAY"
122. LOCATE 5, 87: PRINT "SATURDAY"
123.  
124. 'Finding Date of Easter
125. PQA = yy
126. GOSUB PAQUES
127. 'month = PQM, day = PQJ, year = PQA
128.  
129. 'This section puts the right dates and holidays in the right squares for the calendar.
130. _FONT 16
131. w = (weekday * 108) + 25
132. FOR weeky = 110 TO 570 STEP 80
133.     FOR dayx = w TO 692 STEP 108
134.         _LIMIT 1000
135.         dd = dd + 1
136.         GetDay mm, dd, y, weekday
137.         dd$ = STR$(dd)
138.         _FONT 16
139.         _PRINTSTRING (dayx, weeky), dd$
140.         _FONT 8
141.         IF m = 1 AND dd = 1 THEN _PRINTSTRING (dayx + 10, weeky + 60), "New Years":
142.         IF m = 1 AND weekday = 2 AND dd > 14 AND dd < 22 THEN _PRINTSTRING (dayx + 25, weeky + 60), "MLK Jr."
143.         IF m = 2 AND dd = 2 THEN _PRINTSTRING (dayx + 10, weeky + 60), "Groundhog"
144.         IF m = 2 AND weekday = 2 AND dd > 14 AND dd < 22 THEN _PRINTSTRING (dayx + 10, weeky + 60), "Presidents"
145.         IF m = 2 AND dd = 14 THEN _PRINTSTRING (dayx + 10, weeky + 60), "Valentines"
146.         IF m = 3 AND dd = 17 THEN _PRINTSTRING (dayx + 10, weeky + 60), "St. Patrick"
147.         IF m = PQM AND dd = PQJ THEN _PRINTSTRING (dayx + 25, weeky + 60), "Easter"
148.         IF m = 4 AND dd > 23 AND weekday = 7 THEN _PRINTSTRING (dayx + 25, weeky + 60), "Arbor"
149.         IF m = 5 AND weekday = 0 AND dd > 14 AND dd < 22 THEN _PRINTSTRING (dayx, weeky + 60), "Armed Forces"
150.         IF m = 5 AND weekday = 2 AND dd > 24 THEN _PRINTSTRING (dayx + 15, weeky + 60), "Memorial"
151.         IF m = 6 AND dd = 14 THEN _PRINTSTRING (dayx + 35, weeky + 60), "Flag"
152.         IF m = 7 AND dd = 4 THEN _PRINTSTRING (dayx, weeky + 60), "Independence"
153.         IF m = 9 AND weekday = 2 AND dd < 8 THEN _PRINTSTRING (dayx + 25, weeky + 60), "Labor"
154.         IF m = 10 AND dd > 9 AND dd < 16 AND weekday = 2 THEN _PRINTSTRING (dayx + 15, weeky + 60), "Columbus"
155.         IF m = 10 AND dd = 31 THEN _PRINTSTRING (dayx + 15, weeky + 60), "Halloween"
156.         IF m = 11 AND dd = 11 THEN _PRINTSTRING (dayx + 15, weeky + 60), "Veterans"
157.         IF m = 11 AND dd > 21 AND dd < 29 AND weekday = 5 THEN _PRINTSTRING (dayx, weeky + 60), "Thanksgiving"
158.         IF m = 12 AND dd = 25 THEN _PRINTSTRING (dayx + 15, weeky + 60), "Christmas"
159.  
160.         IF dd = days THEN _FONT 16: GOTO more2:
161.     NEXT dayx
162.     w = 25
163. NEXT weeky
164.  
165. more2:
166. _LIMIT 1000
167. a$ = INKEY$
168. IF a$ = CHR$(27) THEN CLS: PRINT: PRINT: PRINT "Goodbye.": END
169. IF a$ = "s" OR a$ = "S" THEN GOTO saving:
170. IF a$ = " " THEN GOTO start:
171. IF a$ = "p" OR a$ = "P" THEN
172.     'printer prep (code copied and pasted from bplus Free Calendar Program)
173.     YMAX = _HEIGHT: XMAX = _WIDTH
174.     landscape& = _NEWIMAGE(YMAX, XMAX, 32)
175.     _MAPTRIANGLE (XMAX, 0)-(0, 0)-(0, YMAX), 0 TO(0, 0)-(0, XMAX)-(YMAX, XMAX), landscape&
176.     _MAPTRIANGLE (XMAX, 0)-(XMAX, YMAX)-(0, YMAX), 0 TO(0, 0)-(YMAX, 0)-(YMAX, XMAX), landscape&
177.     _PRINTIMAGE landscape&
178. END IF
179.  
180. IF a$ = CHR$(0) + CHR$(77) THEN
181.     m = m + 1
182.     IF m > 12 THEN
183.         m = 1
184.         yy = yy + 1
185.     END IF
186.     y = yy
187.     IF y > 9999 THEN y = 1753
188.     dd = 0
189.     leap = 0
190.     _DELAY .1
191.     CLS
192.     GOTO calculate:
193. END IF
194. IF a$ = CHR$(0) + CHR$(75) THEN
195.     m = m - 1
196.     IF m < 1 THEN
197.         m = 12
198.         yy = yy - 1
199.     END IF
200.     y = yy
201.     IF y < 1753 THEN y = 9999
202.     dd = 0
203.     leap = 0
204.     _DELAY .1
205.     CLS
206.     GOTO calculate:
207. END IF
208.  
209. GOTO more2:
210.  
211.  
212. 'Find the right date for Easter.
213. PAQUES:
214. PQM = INT(PQA / 100): PQ1 = PQA - PQM * 100: PQJ = INT(((PQA / 19 - INT(PQA / 19)) + .001) * 19)
215. PQ2 = INT(PQM / 4): PQ3 = INT(((PQM / 4) - PQ2 + .001) * 4): PQ4 = INT((8 + PQM) / 25)
216. PQ5 = INT((1 + PQM - PQ4 + .001) / 3): PQ4 = (15 + 19 * PQJ + PQM - PQ2 - PQ5 + .001) / 30: PQ4 = PQ4 - INT(PQ4)
217. PQ4 = INT(PQ4 * 30): PQ5 = INT(PQ1 / 4): PQ6 = ((PQ1 / 4) - PQ5) * 4
218. PQ7 = (32 + 2 * PQ3 + 2 * PQ5 - PQ4 - PQ6 + .001) / 7: PQ7 = (PQ7 - INT(PQ7)) * 7: PQ6 = (PQJ + 11 * PQ4 + 22 * PQ7) / 451
219. PQ6 = INT(PQ6): PQ2 = (114 + PQ4 + PQ7 - 7 * PQ6) / 31: PQM = INT(PQ2): PQJ = INT((PQ2 - PQM + .001) * 31 + 1)
220. RETURN
221.  
222.  
223. 'This section saves the calendar to a JPG file along with the SUB at the end of this program.
224. saving:
225. mo$ = STR$(m)
226. mo$ = LTRIM$(RTRIM$(mo$))
227. year$ = STR$(yy)
228. year$ = LTRIM$(RTRIM$(year$))
229. nm$ = mo$ + "-"
230. nm$ = LTRIM$(RTRIM$(nm$))
231. nm$ = nm$ + year$
232. nm$ = LTRIM$(RTRIM$(nm$))
233. SaveImage 0, nm$ 'saves entire program screen,"
234. CLS
235. nm2$ = nm$ + ".jpg"
236. nm2$ = LTRIM$(RTRIM$(nm2$))
237. PRINT: PRINT: PRINT
238. PRINT "                                           Saving"
239. PRINT
240. PRINT "                          "; nm2$; " has been saved to your computer."
241. PRINT
242. PRINT
243. INPUT "                         Do you wish to make another calendar (Y/N)"; ag$
244. IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN GOTO start:
245. PRINT
246. PRINT
247. PRINT "                         Goodbye."
248. END
249.  
250. weekdays:
251.  
252. 'This section gets the right weekday.
253. SUB GetDay (mm, dd, y, weekday) 'use 4 digit year
254.     'From Zeller's congruence: https://en.wikipedia.org/wiki/Zeller%27s_congruence
255.     IF mm < 3 THEN mm = mm + 12: y = y - 1
256.     century = y MOD 100
257.     zerocentury = y \ 100
258.     weekday = (dd + INT(13 * (mm + 1) / 5) + century + INT(century / 4) + INT(zerocentury / 4) + 5 * zerocentury) MOD 7
259. END SUB
260.  
261. 'This section saves the .jpg picture file.
262. SUB SaveImage (image AS LONG, filename AS STRING)
263.     bytesperpixel& = _PIXELSIZE(image&)
264.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
265.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
266.     x& = _WIDTH(image&)
267.     y& = _HEIGHT(image&)
268.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
269.     IF bytesperpixel& = 1 THEN
270.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
271.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
272.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
273.         NEXT
274.     END IF
275.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
276.     lastsource& = _SOURCE
277.     _SOURCE image&
278.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
279.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
280.         r$ = ""
281.         FOR px& = 0 TO x& - 1
282.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
283.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
284.         NEXT px&
285.         d$ = d$ + r$ + padder$
286.     NEXT py&
287.     _SOURCE lastsource&
288.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
289.     b$ = b$ + d$ ' total file data bytes to create file
290.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
291.     IF LCASE$(RIGHT$(filename$, 4)) <> ".jpg" THEN ext$ = ".jpg"
292.     f& = FREEFILE
293.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
294.     OPEN filename$ + ext$ FOR BINARY AS #f&
295.     PUT #f&, , b$
296.     CLOSE #f&
297. END SUB
298.  

[bplus]

Nice simple improvement!

[SierraKen]

Thanks B+! This is one of my favorite programs I've ever made. It can be used any day, any month, any year. lol

[johnno56]

Nice? pfftt... It's brilliant! What would make it perfect? If it came in blue.... Well done, SierraKen. Well done!

J

[SierraKen]

LOL Thanks Johno! You were probably joking on the blue, but I only have a black and white laser printer so I couldn't test different colors on paper. lol

[PauloC]

This program is very useful to learn QB64. Thank you!

[SierraKen]

Welcome PauloC!

[pforpond]

This is really neato! Love that holidays (albeit US ones) are marked on there. Maybe with some work this could become a full-fledged calendar app with events the user can add themselves, though I'd say adding a bit of colour would be a nice addition too :)

[SierraKen]

Thanks pforpond! Yeah I only have a black and white printer so I couldn't test printing colors. I might look into making it an events calendar, not sure yet.

[TempodiBasic]

Hi
Good Application!
IMHO next step is to colorize holydays and sunday

[SierraKen]

Thanks TempodiBasic.

[SierraKen]

SmMcNeill told me that the code I was using was actually .bmp pictures with a .jpg ending, so I changed the code on this program to make the calendars save as .bmp instead. I wondered why the picture files were so large lol. So, here is the fixed version. I also removed my Paint Pixels program off my website, for now anyway. The Calendar Maker's fix has been uploaded to my site.

Code: QB64: [Select]

1. 'This is my very first calendar making program!
2. 'Thanks to the guys from the QB64.org forum for the help: bplus, SMcNeill, and euklides!
3. 'This is a freeware program like all my other programs and games, only free.
4. 'Feel free to use this code in your own programs.
5. 'Made on Tuesday, August 6, 2019 by Ken G.
6.  
7.  
8. start:
9. _TITLE "Calendar Maker"
10. _LIMIT 1000
11. dd = 0
12. leap = 0
13. m = 0
14. mm = 0
15. y = 0
16. yy = 0
17. w = 0
18. weekday = 0
19. days = 0
20. SCREEN _NEWIMAGE(800, 600, 32)
21. CLS
22. PRINT "                                  Monthly Calendar Maker"
23. PRINT: PRINT: PRINT
24. PRINT "                                        By Ken G."
25. PRINT
26. PRINT "                         With some help from the QB64.org Forum guys!"
27. PRINT: PRINT: PRINT
28. PRINT "          This program will make a calendar for the year and month you want."
29. PRINT "          It will also name some holidays on their days."
30. PRINT "          This uses the Gregorian Calendar which became common practice in"
31. PRINT "          England in 1753 and we still use it today."
32. PRINT
33. PRINT "          First make a calendar, then if you want to save it as a .bmp file,"
34. PRINT "          press the 'S' key and it will save it as the month and year for its name."
35. PRINT "          For example, if you made a calendar for January 2020 and wish to save it,"
36. PRINT "          press the 'S' key and it will save it as 1-2020.bmp"
37. PRINT "          If you wish to print your calendar on your printer, press 'P' once."
38. PRINT "          Feel free to print as many times as you wish. They take up 1 page each."
39. PRINT "          If you save the .bmp calendar, it will be put in the same directory as this program."
40. PRINT "          To switch to the last month use the left arrow key, to the next month the right arrow key."
41. PRINT "          To make a different calendar without saving, press the Space Bar."
42. PRINT "          Keyboard commands will be listed on the title bar of the window."
43. again1:
44. PRINT
45. INPUT "          Type the year here (1753-9999): ", y
46. IF y <> INT(y) THEN PRINT "Cannot use decimals, try again.": GOTO again1:
47. IF y < 1753 OR y > 9999 THEN PRINT "The year can only be between 1753 and 9999, try again.": GOTO again1:
48. again2:
49. PRINT
50. INPUT "          Type the month here (1-12): ", m
51. PRINT
52. IF m <> INT(m) THEN PRINT "Cannot use decimals, try again.": GOTO again2:
53. IF m < 1 OR m > 12 THEN PRINT "1-12 only, try again.": GOTO again2:
54.  
55. calculate:
56. 'Get the month name.
57. IF m = 1 THEN month$ = " January"
58. IF m = 2 THEN month$ = "February"
59. IF m = 3 THEN month$ = "  March"
60. IF m = 4 THEN month$ = "  April"
61. IF m = 5 THEN month$ = "  May"
62. IF m = 6 THEN month$ = "  June"
63. IF m = 7 THEN month$ = "  July"
64. IF m = 8 THEN month$ = " August"
65. IF m = 9 THEN month$ = "September"
66. IF m = 10 THEN month$ = " October"
67. IF m = 11 THEN month$ = "November"
68. IF m = 12 THEN month$ = "December"
69.  
70. 'Calculate to see if it's a Leap Year.
71. IF m <> 2 THEN GOTO nex:
72. IF y / 400 = INT(y / 400) THEN leap = 1: GOTO more:
73. IF y / 4 = INT(y / 4) THEN leap = 1
74. IF y / 100 = INT(y / 100) THEN leap = 0
75.  
76. 'Get the number of days for each month.
77. more:
78. IF leap = 1 THEN days = 29
79. IF leap = 0 THEN days = 28
80. GOTO weekday:
81. nex:
82. IF m = 1 THEN days = 31
83. IF m = 3 THEN days = 31
84. IF m = 4 THEN days = 30
85. IF m = 5 THEN days = 31
86. IF m = 6 THEN days = 30
87. IF m = 7 THEN days = 31
88. IF m = 8 THEN days = 31
89. IF m = 9 THEN days = 30
90. IF m = 10 THEN days = 31
91. IF m = 11 THEN days = 30
92. IF m = 12 THEN days = 31
93. weekday:
94.  
95. 'Set the month, year, and weekday variables to start with.
96. mm = m
97. yy = y
98. GetDay mm, dd, y, weekday
99.  
100. 'This section makes the calendar graph.
101. make:
102. SCREEN _NEWIMAGE(800, 600, 32)
103. CLS
104. LINE (0, 0)-(800, 600), _RGB32(255, 255, 255), BF
105. _TITLE "Press 'S' to Save, 'P' to Print, Left and Right Arrow Keys To Switch Months, Space Bar For Different One, or 'Esc' to Quit."
106. COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 255)
107. LOCATE 3, 42: PRINT month$; "  "; yy
108.  
109. FOR x = 20 TO 780 STEP 108
110.     LINE (x, 100)-(x, 580), _RGB32(0, 0, 0)
111. NEXT x
112. FOR z = 100 TO 580 STEP 80
113.     LINE (16, z)-(780, z), _RGB32(0, 0, 0)
114. NEXT z
115.  
116. LOCATE 5, 8: PRINT "SUNDAY"
117. LOCATE 5, 21: PRINT "MONDAY"
118. LOCATE 5, 34: PRINT "TUESDAY"
119. LOCATE 5, 47: PRINT "WEDNESDAY"
120. LOCATE 5, 60: PRINT "THURSDAY"
121. LOCATE 5, 75: PRINT "FRIDAY"
122. LOCATE 5, 87: PRINT "SATURDAY"
123.  
124. 'Finding Date of Easter
125. PQA = yy
126. GOSUB PAQUES
127. 'month = PQM, day = PQJ, year = PQA
128.  
129. 'This section puts the right dates and holidays in the right squares for the calendar.
130. _FONT 16
131. w = (weekday * 108) + 25
132. FOR weeky = 110 TO 570 STEP 80
133.     FOR dayx = w TO 692 STEP 108
134.         _LIMIT 1000
135.         dd = dd + 1
136.         GetDay mm, dd, y, weekday
137.         dd$ = STR$(dd)
138.         _FONT 16
139.         _PRINTSTRING (dayx, weeky), dd$
140.         _FONT 8
141.         IF m = 1 AND dd = 1 THEN _PRINTSTRING (dayx + 10, weeky + 60), "New Years":
142.         IF m = 1 AND weekday = 2 AND dd > 14 AND dd < 22 THEN _PRINTSTRING (dayx + 25, weeky + 60), "MLK Jr."
143.         IF m = 2 AND dd = 2 THEN _PRINTSTRING (dayx + 10, weeky + 60), "Groundhog"
144.         IF m = 2 AND weekday = 2 AND dd > 14 AND dd < 22 THEN _PRINTSTRING (dayx + 10, weeky + 60), "Presidents"
145.         IF m = 2 AND dd = 14 THEN _PRINTSTRING (dayx + 10, weeky + 60), "Valentines"
146.         IF m = 3 AND dd = 17 THEN _PRINTSTRING (dayx + 10, weeky + 60), "St. Patrick"
147.         IF m = PQM AND dd = PQJ THEN _PRINTSTRING (dayx + 25, weeky + 60), "Easter"
148.         IF m = 4 AND dd > 23 AND weekday = 7 THEN _PRINTSTRING (dayx + 25, weeky + 60), "Arbor"
149.         IF m = 5 AND weekday = 0 AND dd > 14 AND dd < 22 THEN _PRINTSTRING (dayx, weeky + 60), "Armed Forces"
150.         IF m = 5 AND weekday = 2 AND dd > 24 THEN _PRINTSTRING (dayx + 15, weeky + 60), "Memorial"
151.         IF m = 6 AND dd = 14 THEN _PRINTSTRING (dayx + 35, weeky + 60), "Flag"
152.         IF m = 7 AND dd = 4 THEN _PRINTSTRING (dayx, weeky + 60), "Independence"
153.         IF m = 9 AND weekday = 2 AND dd < 8 THEN _PRINTSTRING (dayx + 25, weeky + 60), "Labor"
154.         IF m = 10 AND dd > 9 AND dd < 16 AND weekday = 2 THEN _PRINTSTRING (dayx + 15, weeky + 60), "Columbus"
155.         IF m = 10 AND dd = 31 THEN _PRINTSTRING (dayx + 15, weeky + 60), "Halloween"
156.         IF m = 11 AND dd = 11 THEN _PRINTSTRING (dayx + 15, weeky + 60), "Veterans"
157.         IF m = 11 AND dd > 21 AND dd < 29 AND weekday = 5 THEN _PRINTSTRING (dayx, weeky + 60), "Thanksgiving"
158.         IF m = 12 AND dd = 25 THEN _PRINTSTRING (dayx + 15, weeky + 60), "Christmas"
159.  
160.         IF dd = days THEN _FONT 16: GOTO more2:
161.     NEXT dayx
162.     w = 25
163. NEXT weeky
164.  
165. more2:
166. _LIMIT 1000
167. a$ = INKEY$
168. IF a$ = CHR$(27) THEN CLS: PRINT: PRINT: PRINT "Goodbye.": END
169. IF a$ = "s" OR a$ = "S" THEN GOTO saving:
170. IF a$ = " " THEN GOTO start:
171. IF a$ = "p" OR a$ = "P" THEN
172.     'printer prep (code copied and pasted from bplus Free Calendar Program)
173.     YMAX = _HEIGHT: XMAX = _WIDTH
174.     landscape& = _NEWIMAGE(YMAX, XMAX, 32)
175.     _MAPTRIANGLE (XMAX, 0)-(0, 0)-(0, YMAX), 0 TO(0, 0)-(0, XMAX)-(YMAX, XMAX), landscape&
176.     _MAPTRIANGLE (XMAX, 0)-(XMAX, YMAX)-(0, YMAX), 0 TO(0, 0)-(YMAX, 0)-(YMAX, XMAX), landscape&
177.     _PRINTIMAGE landscape&
178. END IF
179.  
180. IF a$ = CHR$(0) + CHR$(77) THEN
181.     m = m + 1
182.     IF m > 12 THEN
183.         m = 1
184.         yy = yy + 1
185.     END IF
186.     y = yy
187.     IF y > 9999 THEN y = 1753
188.     dd = 0
189.     leap = 0
190.     _DELAY .1
191.     CLS
192.     GOTO calculate:
193. END IF
194. IF a$ = CHR$(0) + CHR$(75) THEN
195.     m = m - 1
196.     IF m < 1 THEN
197.         m = 12
198.         yy = yy - 1
199.     END IF
200.     y = yy
201.     IF y < 1753 THEN y = 9999
202.     dd = 0
203.     leap = 0
204.     _DELAY .1
205.     CLS
206.     GOTO calculate:
207. END IF
208.  
209. GOTO more2:
210.  
211.  
212. 'Find the right date for Easter.
213. PAQUES:
214. PQM = INT(PQA / 100): PQ1 = PQA - PQM * 100: PQJ = INT(((PQA / 19 - INT(PQA / 19)) + .001) * 19)
215. PQ2 = INT(PQM / 4): PQ3 = INT(((PQM / 4) - PQ2 + .001) * 4): PQ4 = INT((8 + PQM) / 25)
216. PQ5 = INT((1 + PQM - PQ4 + .001) / 3): PQ4 = (15 + 19 * PQJ + PQM - PQ2 - PQ5 + .001) / 30: PQ4 = PQ4 - INT(PQ4)
217. PQ4 = INT(PQ4 * 30): PQ5 = INT(PQ1 / 4): PQ6 = ((PQ1 / 4) - PQ5) * 4
218. PQ7 = (32 + 2 * PQ3 + 2 * PQ5 - PQ4 - PQ6 + .001) / 7: PQ7 = (PQ7 - INT(PQ7)) * 7: PQ6 = (PQJ + 11 * PQ4 + 22 * PQ7) / 451
219. PQ6 = INT(PQ6): PQ2 = (114 + PQ4 + PQ7 - 7 * PQ6) / 31: PQM = INT(PQ2): PQJ = INT((PQ2 - PQM + .001) * 31 + 1)
220. RETURN
221.  
222.  
223. 'This section saves the calendar to a BMP file along with the SUB at the end of this program.
224. saving:
225. mo$ = STR$(m)
226. mo$ = LTRIM$(RTRIM$(mo$))
227. year$ = STR$(yy)
228. year$ = LTRIM$(RTRIM$(year$))
229. nm$ = mo$ + "-"
230. nm$ = LTRIM$(RTRIM$(nm$))
231. nm$ = nm$ + year$
232. nm$ = LTRIM$(RTRIM$(nm$))
233. SaveImage 0, nm$ 'saves entire program screen,"
234. CLS
235. nm2$ = nm$ + ".bmp"
236. nm2$ = LTRIM$(RTRIM$(nm2$))
237. PRINT: PRINT: PRINT
238. PRINT "                                           Saving"
239. PRINT
240. PRINT "                          "; nm2$; " has been saved to your computer."
241. PRINT
242. PRINT
243. INPUT "                         Do you wish to make another calendar (Y/N)"; ag$
244. IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN GOTO start:
245. PRINT
246. PRINT
247. PRINT "                         Goodbye."
248. END
249.  
250. weekdays:
251.  
252. 'This section gets the right weekday.
253. SUB GetDay (mm, dd, y, weekday) 'use 4 digit year
254.     'From Zeller's congruence: https://en.wikipedia.org/wiki/Zeller%27s_congruence
255.     IF mm < 3 THEN mm = mm + 12: y = y - 1
256.     century = y MOD 100
257.     zerocentury = y \ 100
258.     weekday = (dd + INT(13 * (mm + 1) / 5) + century + INT(century / 4) + INT(zerocentury / 4) + 5 * zerocentury) MOD 7
259. END SUB
260.  
261. 'This section saves the .bmp picture file.
262. SUB SaveImage (image AS LONG, filename AS STRING)
263.     bytesperpixel& = _PIXELSIZE(image&)
264.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
265.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
266.     x& = _WIDTH(image&)
267.     y& = _HEIGHT(image&)
268.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
269.     IF bytesperpixel& = 1 THEN
270.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
271.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
272.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
273.         NEXT
274.     END IF
275.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
276.     lastsource& = _SOURCE
277.     _SOURCE image&
278.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
279.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
280.         r$ = ""
281.         FOR px& = 0 TO x& - 1
282.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
283.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
284.         NEXT px&
285.         d$ = d$ + r$ + padder$
286.     NEXT py&
287.     _SOURCE lastsource&
288.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
289.     b$ = b$ + d$ ' total file data bytes to create file
290.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
291.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
292.     f& = FREEFILE
293.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
294.     OPEN filename$ + ext$ FOR BINARY AS #f&
295.     PUT #f&, , b$
296.     CLOSE #f&
297. END SUB
298.  
299.  

[bplus]

Thanks Ken lines 140-158 came in handy for me updating my calendar maker for holidays.

For Easter I found and modified a little SUB:

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. _TITLE "Test Easter calc 1899 to 2100" 'b+ mod 2019-09-11 checked OK for next decade
3. DIM yr AS INTEGER, rMonth AS INTEGER, rDay AS INTEGER, m$
4. PRINT "Easter by the method of Carter (SmallBASIC):"
5. DO
6.     INPUT "(0 quits, enter year 1900 to 2099 > "; yr
7.     IF yr = 0 THEN PRINT "Goodbye": END
8.     IF yr >= 1900 OR yr <= 2099 THEN
9.         Easter yr, rMonth, rDay
10.         IF rMonth = 3 THEN m$ = "March" ELSE m$ = "April"
11.         PRINT "Easter for year"; yr; "is "; m$; rDay
12.     ELSE
13.         PRINT "1899 < year < 2100": BEEP
14.     END IF
15.     PRINT
16. LOOP
17.  
18. SUB Easter (givenYear AS INTEGER, rtnMonth AS INTEGER, rtnDay AS INTEGER)
19.     ' Easter date calculator by Carter from SmallBASIC FLTK pack 1 of 3 given for Easter
20.     ' This one is restricted to years 1900 to 2099
21.     DIM tb AS INTEGER, td AS INTEGER, te AS INTEGER
22.     tb = 225 - 11 * (givenYear MOD 19)
23.     td = (tb - 21) MOD 30 + 21
24.     te = (givenYear + givenYear \ 4 + td + 1) MOD 7
25.     rtnDay = td + 7 - te
26.     IF rtnDay < 32 THEN
27.         rtnMonth = 3
28.     ELSE
29.         rtnDay = rtnDay - 31
30.         rtnMonth = 4
31.     END IF
32. END SUB
33.  

So in Maker, Easter setup:

Code: QB64: [Select]

1. y = 2020 'free calendar
2. DIM EasterMonth AS INTEGER, EasterDay AS INTEGER
3. Easter y, EasterMonth, EasterDay
4.  

Check and print for Easter:

Code: QB64: [Select]

1.         IF m = EasterMonth AND dd = EasterDay THEN
2.             _PRINTSTRING (col * boxW + sideMar + 5, (row + 1) * boxH + yTopGrid - 5 - CH2), "        Easter"
3.         END IF
4.  

I've also added Mother's Day and Father's Day

Code: QB64: [Select]

1. IF m = 5 AND weekday = 1 AND dd > 7 AND dd < 15 THEN S$ = S$ + " Mother's Day"
2. IF m = 6 AND weekday = 1 AND dd > 14 AND dd < 22 THEN S$ = S$ + " Father's Day"
3.  

and for 2020: Daylight Savings Start and End, and US Election Day

PLUS Birthdays of my family :)

[SierraKen]

Welcome B+! And thank you for the Mother's Day and Father's Day code! I just added it. It already had Easter on mine. That's all I will add I think. I haven't programmed in a couple weeks or so (besides your code here). I just can't think of anything original to make anymore. A lot of my programs are my own versions of stuff that has already been made and I'm like, "If people can find a better version of this somewhere else, why make a lesser version?" But I really like what I've made so far, so maybe sometime soon I'll think of something else. 

[bplus]

Hi Ken,

Sounds like good time to practice basics, arrays, subs and functions. When you don't have a particular app demanding to get working you can experiment with these main tools. A good game to play is take some code and see if you can do the same thing in less lines.

Another thing to work on is your tool box, subs and functions you can use in future apps.