Grid Paper Maker

[SierraKen]

I've always wanted to make this. It lets you set the size per width of the boxes which calculates how many boxes you will get on the grid. Then you can save it as .bmp to your computer and/or print it on your printer. Your boxes can be from 2 to 200 pixels wide and long. Some of you might have already made something like this, but this is a tool everyone might use someday. It can be used for math or mapping or anything else that needs a grid. The colors are a white background with black lines. I included an example picture below. I suggest putting it in its own directory so your saved images are easy to find.

Code: QB64: [Select]

1. 'Grid Paper Maker - by Sierraken on June 8, 2020.
2. 'This will make a grid on the computer, save it to your computer, and/or print it on your printer.
3. 'It uses a black grid on a white background.
4. 'The user sets the size per square box, between 2 and 200 pixels.
5. 'Thank you to bplus for the rotation printer code to rotate the picture 90 degrees to print the right width.
6. '-----------------------------------------------------------------------------------------------------------
7. start:
8. picture& = _NEWIMAGE(800, 600, 32)
9. CLS
10. PRINT "                              Grid Paper Maker"
11. PRINT: PRINT "                                by Sierraken"
12. PRINT: PRINT: PRINT
13. INPUT "How wide per square in pixels (2-200):"; p
14. CLS
15. start2:
16. s& = _NEWIMAGE(800, 600, 32)
17. SCREEN s&, picture&
18. _TITLE "Press S to save, P to print, Space Bar for more, Esc to quit."
19. PAINT (1, 1), _RGB32(255, 255, 255)
20. FOR x = 1 TO 800 STEP p
21.     FOR y = 1 TO 600 STEP p
22.         LINE (x, y)-(x + p, y + p), _RGB32(0, 0, 0), B
23.     NEXT y
24. NEXT x
25. _PUTIMAGE , s&, picture&
26. IF sav = 1 THEN SaveImage 0, nm$: sav = 0
27. DO
28.     a$ = INKEY$
29.     IF a$ = "s" OR a$ = "S" THEN GOTO saving:
30.     IF a$ = "p" OR a$ = "P" THEN
31.         j& = _COPYIMAGE(0)
32.         _DELAY .25
33.         INPUT "Print on printer (Y/N)?", i$ 'print screen page on printer
34.         CLS
35.         SCREEN j&
36.         _DELAY .25
37.         IF LEFT$(i$, 1) = "y" OR LEFT$(i$, 1) = "Y" THEN
38.             'printer prep (code copied and pasted from bplus Free Calendar Program)
39.             YMAX = _HEIGHT: XMAX = _WIDTH
40.             landscape& = _NEWIMAGE(YMAX, XMAX, 32)
41.             _MAPTRIANGLE (XMAX, 0)-(0, 0)-(0, YMAX), 0 TO(0, 0)-(0, XMAX)-(YMAX, XMAX), landscape&
42.             _MAPTRIANGLE (XMAX, 0)-(XMAX, YMAX)-(0, YMAX), 0 TO(0, 0)-(YMAX, 0)-(YMAX, XMAX), landscape&
43.             _PRINTIMAGE landscape&
44.             _DELAY 2
45.             landscape& = 0
46.             s& = j&
47.         END IF
48.     END IF
49.     IF a$ = " " THEN GOTO start:
50.     IF a$ = CHR$(27) THEN END
51. LOOP
52.  
53. saving:
54. CLS
55. PRINT "                       Saving"
56. PRINT
57. PRINT "         Your bmp file will be saved in the"
58. PRINT "         same directory as this program is."
59. PRINT "         It can be used with almost any"
60. PRINT "         other graphics program or website."
61. PRINT "         It is saved using:"
62. PRINT "         width: 800  height: 600 pixels."
63. PRINT
64. PRINT "         Type a name to save your picture"
65. PRINT "         and press the Enter key. Do not"
66. PRINT "         add .bmp at the end, the program"
67. PRINT "         will do it automatically."
68. PRINT
69. PRINT "         Example: MyPic"
70. PRINT "         Quit and Enter key ends program."
71. PRINT
72. INPUT "         ->"; nm$
73. IF nm$ = "Quit" OR nm$ = "quit" OR nm$ = "QUIT" THEN END
74. nm$ = nm$ + ".bmp"
75. 'Checking to see if the file already exists on your computer.
76. theFileExists = _FILEEXISTS(nm$)
77. IF theFileExists = -1 THEN
78.     PRINT
79.     PRINT "       File Already Exists"
80.     PRINT "       Saving will delete your old"
81.     PRINT "       bmp picture."
82.     PRINT "       Would you like to still do it?"
83.     PRINT "      (Y/N)."
84.     PRINT "      Esc goes to start screen."
85.     llloop:
86.     _LIMIT 100
87.     ag2$ = INKEY$
88.     IF ag2$ = CHR$(27) THEN GOTO start:
89.     IF ag2$ = "" THEN GOTO llloop:
90.     IF ag2$ = "y" OR ag$ = "Y" THEN
91.         SHELL _HIDE "DEL " + nm$
92.         GOTO saving2:
93.     END IF
94.     GOTO llloop:
95. END IF
96. saving2:
97. CLS
98. sav = 1
99. '_PUTIMAGE , s&, picture&
100. 'SaveImage 0, nm$
101. 'nm$ = ""
102. FOR snd = 100 TO 700 STEP 100
103.     SOUND snd, 2
104. NEXT snd
105. GOTO start2:
106.  
107. 'Here is the SUB needed to save the image to BMP.
108. SUB SaveImage (image AS LONG, filename AS STRING)
109.     bytesperpixel& = _PIXELSIZE(image&)
110.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
111.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
112.     x& = _WIDTH(image&)
113.     y& = _HEIGHT(image&)
114.     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)
115.     IF bytesperpixel& = 1 THEN
116.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
117.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
118.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
119.         NEXT
120.     END IF
121.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
122.     lastsource& = _SOURCE
123.     _SOURCE image&
124.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
125.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
126.         r$ = ""
127.         FOR px& = 0 TO x& - 1
128.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
129.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
130.         NEXT px&
131.         d$ = d$ + r$ + padder$
132.     NEXT py&
133.     _SOURCE lastsource&
134.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
135.     b$ = b$ + d$ ' total file data bytes to create file
136.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
137.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
138.     f& = FREEFILE
139.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
140.     OPEN filename$ + ext$ FOR BINARY AS #f&
141.     PUT #f&, , b$
142.     CLOSE #f&
143. END SUB
144.  

[bplus]

In my younger days, I did one of these for Sudoku puzzles, using a light checker color pattern to distinguish the 9 cell blocks. 6 puzzles fit on an 8.5 x 11.

[SierraKen]

At first I was seeing if I could make a random maze generator. I wish I knew how. I did make one last year but all it did really was make open gaps all over the place and sometimes people could solve the maze, sometimes it was impossible. lol I used to have an app that did mazes, I might still. But to make one myself would be an incredible accomplishment.