Pie Chart Maker 2 - With Up To 500 Pieces (Slices)

[SierraKen]

This morning I worked hard and made Pie Chart Maker 2. It lets you make many slices of the pie using random colors. I also added printer support to be able to print it on the printer. It uses bplus's graphic rotation to be able to print the screen vertically instead of the default landscape. Thanks! You can add up to 500 slices but I doubt anyone will make that many. lol
Thank you everyone for your support, it helps a lot because I don't have any forums or email or anything on my website that tells me people are using my programs.
Oh also, this program will tell you if you have gone past the 100% mark and ask you to type it in again, after the first slice.
As with the other one, it lets you save to a .bmp file as well to be used with other programs. 

(There is an updated version after this post.)

Code: QB64: [Select]

1. 'One Piece Pie Chart Maker by Ken G. on Oct. 31. 2019.
2. 'Thank you to bplus for the graphic rotation for printer support.
3. 'Thank you also to everyone on the QB64.org forum for your support!
4. 'Freeware
5. _TITLE "One Piece Pie Chart Maker"
6. again:
7. SCREEN _NEWIMAGE(800, 600, 32)
8. CLS
9. PAINT (1, 1), _RGB32(255, 255, 255)
10. COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 255)
11. INPUT "How many slices for your chart (1-500):"; amount
12. IF amount < 1 OR amount > 500 THEN GOTO again:
13. p = 0
14. pc = 100
15. seconds = 0
16. sec = 0
17. FOR slice = 1 TO amount
18.     RANDOMIZE TIMER
19.     c2 = INT(RND * 154) + 100
20.     c3 = INT(RND * 154) + 100
21.     c = INT(RND * 154) + 100
22.     CIRCLE (400, 300), 180, _RGB32(255, 0, 0)
23.     DO
24.         _LIMIT 1000
25.         pc = pc - p
26.         again2:
27.         LOCATE 1, 1: PRINT "                                                                                      "
28.         LOCATE 1, 1: PRINT amount - slice + 1; ". Type Percentage Here (0 -"; pc; "):";
29.         INPUT p
30.         IF p > pc THEN LOCATE 1, 1: INPUT "That is over 100%. Press Enter and try again.", tg$: GOTO again2:
31.         IF p > 100 THEN p = 100
32.         IF p < 0 THEN p = 0
33.         seconds = sec
34.         sec = (p * .6) + seconds
35.         DO
36.             seconds = seconds + .0001
37.             s = (60 - seconds) * 6 + 180
38.             x = INT(SIN(s / 180 * _PI) * 180) + 400
39.             y = INT(COS(s / 180 * _PI) * 180) + 300
40.             c = c + .000125
41.             IF seconds > sec THEN LINE (400, 300)-(x, y), _RGB32(c, c2, c3)
42.             IF seconds > sec THEN GOTO two:
43.             LINE (400, 300)-(x, y), _RGB32(c, c2, c3)
44.         LOOP
45.     LOOP
46.     two:
47. NEXT slice
48. 'Erase the input line
49. LINE (0, 0)-(800, 15), _RGB32(255, 255, 255), BF
50. 'Hole Filler
51. FOR xx = 0 TO 800
52.     FOR yy = 20 TO 600
53.         IF POINT(xx, yy) = _RGB32(255, 255, 255) AND POINT(xx - 1, yy) <> _RGB32(255, 255, 255) AND POINT(xx + 1, yy) <> _RGB32(255, 255, 255) THEN
54.             cl& = POINT(xx + 1, yy)
55.             PSET (xx, yy), cl&
56.         END IF
57.     NEXT yy
58. NEXT xx
59. _TITLE "(T)ext, (P)rint, (S)ave, (D)elete, Esc to Quit"
60. DO
61.     a$ = INKEY$
62.     IF a$ = CHR$(27) THEN END
63.     IF a$ = "t" OR a$ = "T" THEN GOSUB Text:
64.     IF a$ = "s" OR a$ = "S" THEN GOTO saving:
65.     IF a$ = "d" OR a$ = "D" THEN GOTO again:
66.     IF a$ = "p" OR a$ = "P" THEN GOSUB printing:
67. LOOP
68. 'Print to your printer.
69. printing:
70. LOCATE 1, 1: INPUT "Are you sure you want to print to your printer (Y/N):"; yn$
71. IF LEFT$(yn$, 1) = "y" OR LEFT$(yn$, 1) = "Y" THEN GOTO printing2:
72. RETURN
73. printing2:
74. LINE (0, 0)-(800, 15), _RGB32(255, 255, 255), BF
75. j& = _COPYIMAGE(0)
76. _DELAY .25
77. CLS
78. SCREEN j&
79. _DELAY .25
80. 'printer prep (code copied and pasted from bplus Free Calendar Program)
81. YMAX = _HEIGHT: XMAX = _WIDTH
82. landscape& = _NEWIMAGE(YMAX, XMAX, 32)
83. _MAPTRIANGLE (XMAX, 0)-(0, 0)-(0, YMAX), 0 TO(0, 0)-(0, XMAX)-(YMAX, XMAX), landscape&
84. _MAPTRIANGLE (XMAX, 0)-(XMAX, YMAX)-(0, YMAX), 0 TO(0, 0)-(YMAX, 0)-(YMAX, XMAX), landscape&
85. _PRINTIMAGE landscape&
86. _DELAY 2
87. landscape& = 0
88. j& = 0
89. RETURN
90. 'Add text to the picture.
91. Text:
92. _TITLE "TEXT MODE - Use Mouse To Click Where You Want To Place Text Then Type Text And Press Enter To Finish."
93. DO
94.     _LIMIT 500
95.     DO WHILE _MOUSEINPUT
96.         mouseX = _MOUSEX
97.         mouseY = _MOUSEY
98.         mouseLeftButton = _MOUSEBUTTON(1)
99.     LOOP
100.     IF mouseLeftButton = -1 THEN
101.         clr& = POINT(mouseX, mouseY)
102.         IF clr& <> _RGB32(255, 255, 255) THEN COLOR _RGB32(255, 255, 255), clr&
103.         IF clr& = _RGB32(255, 255, 255) THEN COLOR _RGB32(0, 100, 0), clr&
104.         LOCATE mouseY / 16, mouseX / 8
105.         INPUT "", txt$
106.         _TITLE "(T)ext, (S)ave, (D)elete, Esc to Quit"
107.         RETURN
108.     END IF
109. LOOP
110. 'Save .bmp picture file to your computer.
111. saving:
112. _LIMIT 1000
113. 'Now we call up the SUB to save the image to BMP.
114. SaveImage 0, "temp.bmp"
115. _DELAY .25
116. CLS
117. LINE (0, 0)-(800, 600), _RGB32(0, 0, 0), BF
118. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
119. PRINT "                               Saving"
120. PRINT
121. PRINT "                  Your BMP file will be saved in the"
122. PRINT "                  same directory as this program is."
123. PRINT "                  It can be used with almost any"
124. PRINT "                  other graphics program or website."
125. PRINT "                  It is saved using:"
126. PRINT "                  width: 800  height: 600 pixels."
127. PRINT
128. PRINT "                  Type a name to save your picture"
129. PRINT "                  and press the Enter key. Do not"
130. PRINT "                  add .bmp at the end, the program"
131. PRINT "                  will do it automatically."
132. PRINT
133. PRINT "                  Also do not use the name temp"
134. PRINT "                  because the program uses that name"
135. PRINT "                  and it would be erased the next time"
136. PRINT "                  you save a picture."
137. PRINT "                  Example: MyPic"
138. PRINT "                  Q and Enter goes to main screen."
139. PRINT
140. INPUT "                  ->"; nm$
141. IF nm$ = "Q" OR nm$ = "q" THEN GOTO again:
142. nm$ = nm$ + ".bmp"
143. 'Checking to see if the file already exists on your computer.
144. theFileExists = _FILEEXISTS(nm$)
145. IF theFileExists = -1 THEN
146.     PRINT
147.     PRINT "             File Already Exists"
148.     PRINT "             Saving will delete your old"
149.     PRINT "             bmp picture."
150.     PRINT "             Would you like to still do it?"
151.     PRINT "             (Y/N)."
152.     PRINT "             Esc goes to start screen."
153.     llloop:
154.     _LIMIT 100
155.     ag2$ = INKEY$
156.     IF ag2$ = CHR$(27) THEN GOTO again:
157.     IF ag2$ = "" THEN GOTO llloop:
158.     IF ag2$ = "y" OR ag$ = "Y" THEN
159.         SHELL _HIDE "DEL " + nm$
160.         GOTO saving2:
161.     END IF
162.     GOTO llloop:
163. END IF
164. saving2:
165. 'Rename temp.bmp to your chosen name.
166. SHELL _HIDE "REN " + "temp.bmp" + " " + nm$
167. nm$ = ""
168. FOR snd = 100 TO 500 STEP 100
169.     SOUND snd, 2
170. NEXT snd
171. CLS
172. INPUT "Do you wish to make another pie chart (Y/N):"; yesno$
173. IF LEFT$(yesno$, 1) = "y" OR LEFT$(yesno$, 1) = "Y" THEN GOTO again:
174. END
175.  
176. SUB SaveImage (image AS LONG, filename AS STRING)
177.     bytesperpixel& = _PIXELSIZE(image&)
178.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
179.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
180.     x& = _WIDTH(image&)
181.     y& = _HEIGHT(image&)
182.     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)
183.     IF bytesperpixel& = 1 THEN
184.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
185.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
186.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
187.         NEXT
188.     END IF
189.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
190.     lastsource& = _SOURCE
191.     _SOURCE image&
192.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
193.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
194.         r$ = ""
195.         FOR px& = 0 TO x& - 1
196.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
197.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
198.         NEXT px&
199.         d$ = d$ + r$ + padder$
200.     NEXT py&
201.     _SOURCE lastsource&
202.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
203.     b$ = b$ + d$ ' total file data bytes to create file
204.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
205.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
206.     f& = FREEFILE
207.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
208.     OPEN filename$ + ext$ FOR BINARY AS #f&
209.     PUT #f&, , b$
210.     CLOSE #f&
211. END SUB
212.  

[SierraKen]

LOL of course I left something out. I forgot that I use random colors so instead of using white text inside the pie, I am just going with black text everywhere because it stands out better.

Code: QB64: [Select]

1. 'One Piece Pie Chart Maker by Ken G. on Oct. 31. 2019.
2. 'Thank you to bplus for the graphic rotation for printer support.
3. 'Thank you also to everyone on the QB64.org forum for your support!
4. 'Freeware
5. _TITLE "One Piece Pie Chart Maker"
6. again:
7. SCREEN _NEWIMAGE(800, 600, 32)
8. CLS
9. PAINT (1, 1), _RGB32(255, 255, 255)
10. COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 255)
11. INPUT "How many slices for your chart (1-500):"; amount
12. IF amount < 1 OR amount > 500 THEN GOTO again:
13. p = 0
14. pc = 100
15. seconds = 0
16. sec = 0
17. FOR slice = 1 TO amount
18.     RANDOMIZE TIMER
19.     c2 = INT(RND * 154) + 100
20.     c3 = INT(RND * 154) + 100
21.     c = INT(RND * 154) + 100
22.     CIRCLE (400, 300), 180, _RGB32(255, 0, 0)
23.     DO
24.         _LIMIT 1000
25.         pc = pc - p
26.         again2:
27.         LOCATE 1, 1: PRINT "                                                                                      "
28.         LOCATE 1, 1: PRINT amount - slice + 1; ". Type Percentage Here (0 -"; pc; "):";
29.         INPUT p
30.         IF p > pc THEN LOCATE 1, 1: INPUT "That is over 100%. Press Enter and try again.", tg$: GOTO again2:
31.         IF p > 100 THEN p = 100
32.         IF p < 0 THEN p = 0
33.         seconds = sec
34.         sec = (p * .6) + seconds
35.         DO
36.             seconds = seconds + .0001
37.             s = (60 - seconds) * 6 + 180
38.             x = INT(SIN(s / 180 * _PI) * 180) + 400
39.             y = INT(COS(s / 180 * _PI) * 180) + 300
40.             c = c + .000125
41.             IF seconds > sec THEN LINE (400, 300)-(x, y), _RGB32(c, c2, c3)
42.             IF seconds > sec THEN GOTO two:
43.             LINE (400, 300)-(x, y), _RGB32(c, c2, c3)
44.         LOOP
45.     LOOP
46.     two:
47. NEXT slice
48. 'Erase the input line
49. LINE (0, 0)-(800, 15), _RGB32(255, 255, 255), BF
50. 'Hole Filler
51. FOR xx = 0 TO 800
52.     FOR yy = 20 TO 600
53.         IF POINT(xx, yy) = _RGB32(255, 255, 255) AND POINT(xx - 1, yy) <> _RGB32(255, 255, 255) AND POINT(xx + 1, yy) <> _RGB32(255, 255, 255) THEN
54.             cl& = POINT(xx + 1, yy)
55.             PSET (xx, yy), cl&
56.         END IF
57.     NEXT yy
58. NEXT xx
59. _TITLE "(T)ext, (P)rint, (S)ave, (D)elete, Esc to Quit"
60. DO
61.     a$ = INKEY$
62.     IF a$ = CHR$(27) THEN END
63.     IF a$ = "t" OR a$ = "T" THEN GOSUB Text:
64.     IF a$ = "s" OR a$ = "S" THEN GOTO saving:
65.     IF a$ = "d" OR a$ = "D" THEN GOTO again:
66.     IF a$ = "p" OR a$ = "P" THEN GOSUB printing:
67. LOOP
68. 'Print to your printer.
69. printing:
70. LOCATE 1, 1: INPUT "Are you sure you want to print to your printer (Y/N):"; yn$
71. IF LEFT$(yn$, 1) = "y" OR LEFT$(yn$, 1) = "Y" THEN GOTO printing2:
72. RETURN
73. printing2:
74. LINE (0, 0)-(800, 15), _RGB32(255, 255, 255), BF
75. j& = _COPYIMAGE(0)
76. _DELAY .25
77. CLS
78. SCREEN j&
79. _DELAY .25
80. 'printer prep (code copied and pasted from bplus Free Calendar Program)
81. YMAX = _HEIGHT: XMAX = _WIDTH
82. landscape& = _NEWIMAGE(YMAX, XMAX, 32)
83. _MAPTRIANGLE (XMAX, 0)-(0, 0)-(0, YMAX), 0 TO(0, 0)-(0, XMAX)-(YMAX, XMAX), landscape&
84. _MAPTRIANGLE (XMAX, 0)-(XMAX, YMAX)-(0, YMAX), 0 TO(0, 0)-(YMAX, 0)-(YMAX, XMAX), landscape&
85. _PRINTIMAGE landscape&
86. _DELAY 2
87. landscape& = 0
88. j& = 0
89. RETURN
90. 'Add text to the picture.
91. Text:
92. _TITLE "TEXT MODE - Use Mouse To Click Where You Want To Place Text Then Type Text And Press Enter To Finish."
93. DO
94.     _LIMIT 500
95.     DO WHILE _MOUSEINPUT
96.         mouseX = _MOUSEX
97.         mouseY = _MOUSEY
98.         mouseLeftButton = _MOUSEBUTTON(1)
99.     LOOP
100.     IF mouseLeftButton = -1 THEN
101.         clr& = POINT(mouseX, mouseY)
102.         COLOR _RGB32(0, 100, 0), clr&
103.         LOCATE mouseY / 16, mouseX / 8
104.         INPUT "", txt$
105.         _TITLE "(T)ext, (S)ave, (D)elete, Esc to Quit"
106.         RETURN
107.     END IF
108. LOOP
109. 'Save .bmp picture file to your computer.
110. saving:
111. _LIMIT 1000
112. 'Now we call up the SUB to save the image to BMP.
113. SaveImage 0, "temp.bmp"
114. _DELAY .25
115. CLS
116. LINE (0, 0)-(800, 600), _RGB32(0, 0, 0), BF
117. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
118. PRINT "                               Saving"
119. PRINT
120. PRINT "                  Your BMP file will be saved in the"
121. PRINT "                  same directory as this program is."
122. PRINT "                  It can be used with almost any"
123. PRINT "                  other graphics program or website."
124. PRINT "                  It is saved using:"
125. PRINT "                  width: 800  height: 600 pixels."
126. PRINT
127. PRINT "                  Type a name to save your picture"
128. PRINT "                  and press the Enter key. Do not"
129. PRINT "                  add .bmp at the end, the program"
130. PRINT "                  will do it automatically."
131. PRINT
132. PRINT "                  Also do not use the name temp"
133. PRINT "                  because the program uses that name"
134. PRINT "                  and it would be erased the next time"
135. PRINT "                  you save a picture."
136. PRINT "                  Example: MyPic"
137. PRINT "                  Q and Enter goes to main screen."
138. PRINT
139. INPUT "                  ->"; nm$
140. IF nm$ = "Q" OR nm$ = "q" THEN GOTO again:
141. nm$ = nm$ + ".bmp"
142. 'Checking to see if the file already exists on your computer.
143. theFileExists = _FILEEXISTS(nm$)
144. IF theFileExists = -1 THEN
145.     PRINT
146.     PRINT "             File Already Exists"
147.     PRINT "             Saving will delete your old"
148.     PRINT "             bmp picture."
149.     PRINT "             Would you like to still do it?"
150.     PRINT "             (Y/N)."
151.     PRINT "             Esc goes to start screen."
152.     llloop:
153.     _LIMIT 100
154.     ag2$ = INKEY$
155.     IF ag2$ = CHR$(27) THEN GOTO again:
156.     IF ag2$ = "" THEN GOTO llloop:
157.     IF ag2$ = "y" OR ag$ = "Y" THEN
158.         SHELL _HIDE "DEL " + nm$
159.         GOTO saving2:
160.     END IF
161.     GOTO llloop:
162. END IF
163. saving2:
164. 'Rename temp.bmp to your chosen name.
165. SHELL _HIDE "REN " + "temp.bmp" + " " + nm$
166. nm$ = ""
167. FOR snd = 100 TO 500 STEP 100
168.     SOUND snd, 2
169. NEXT snd
170. CLS
171. INPUT "Do you wish to make another pie chart (Y/N):"; yesno$
172. IF LEFT$(yesno$, 1) = "y" OR LEFT$(yesno$, 1) = "Y" THEN GOTO again:
173. END
174.  
175. SUB SaveImage (image AS LONG, filename AS STRING)
176.     bytesperpixel& = _PIXELSIZE(image&)
177.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
178.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
179.     x& = _WIDTH(image&)
180.     y& = _HEIGHT(image&)
181.     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)
182.     IF bytesperpixel& = 1 THEN
183.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
184.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
185.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
186.         NEXT
187.     END IF
188.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
189.     lastsource& = _SOURCE
190.     _SOURCE image&
191.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
192.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
193.         r$ = ""
194.         FOR px& = 0 TO x& - 1
195.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
196.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
197.         NEXT px&
198.         d$ = d$ + r$ + padder$
199.     NEXT py&
200.     _SOURCE lastsource&
201.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
202.     b$ = b$ + d$ ' total file data bytes to create file
203.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
204.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
205.     f& = FREEFILE
206.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
207.     OPEN filename$ + ext$ FOR BINARY AS #f&
208.     PUT #f&, , b$
209.     CLOSE #f&
210. END SUB
211.