QB64.org Forum

Active Forums => Programs => Topic started by: DivineHolinessjr on May 22, 2020, 01:29:58 pm

Title: School Project: Melody Maker
Post by: DivineHolinessjr on May 22, 2020, 01:29:58 pm

So, I take Foundations of Programming at my highschool and the final project was to make anything you wanted as long as it did certain things. Here's the thing. Just wanted to see people's opinion on it and how to fix some things (for example, the play command makes music play three times despite being called once, and clicking on the save and load buttons seems to make the prompt show up three times as well. I assume this is because before it goes to the prompt, the if statement gets executed 3 times or something along those lines). Also looking for cool ideas because it would be nice to add more stuff to this and to give myself a reason to work on a project some more.

Code: QB64: [Select]

1. SCREEN 12
2. DIM song(100, 100)
3. DIM octave(1000)
4. DIM notes$(12)
5. DIM NLS(3)
6. FOR a = 1 TO 100
7.     FOR b = 1 TO 100
8.         song(a, b) = 0
9.     NEXT b
10. NEXT a
11. FOR i = 1 TO 50
12.     octave(i) = 2
13. NEXT i
14. FOR i = 1 TO 3
15.     NLS(i) = 0
16. NEXT i
17. NLS(2) = 1
18.  
19. 'assigning notes
20. notes$(1) = "C"
21. notes$(2) = "C#"
22. notes$(3) = "D"
23. notes$(4) = "D#"
24. notes$(5) = "E"
25. notes$(6) = "F"
26. notes$(7) = "F#"
27. notes$(8) = "G"
28. notes$(9) = "G#"
29. notes$(10) = "A"
30. notes$(11) = "A#"
31. notes$(12) = "B"
32. 'mouse on window
33. _MOUSEMOVE 100, 100
34.  
35. 'menu
36. menu:
37. CLS
38. PRINT
39. PRINT
40. PRINT
41. PRINT
42. PRINT
43. PRINT TAB(36); "Melody"
44. PRINT
45. PRINT
46. PRINT
47. PRINT TAB(36); "Creator"
48. PRINT
49. PRINT
50. PRINT
51. PRINT
52. PRINT
53. PRINT "  Editor"
54. PRINT
55. PRINT
56. PRINT "  Help"
57. PRINT
58. PRINT
59. PRINT "  Quit"
60. PRINT
61. PRINT
62. CIRCLE (305, 120), 24, 15
63. CIRCLE (305, 120), 23, 15
64. LINE (328, 120)-(329, 20), 15, BF
65. CIRCLE (400, 300), 20, 15
66. CIRCLE (500, 275), 20, 15
67. LINE (420, 300)-(420, 200), 15
68. LINE (520, 275)-(520, 175), 15
69. LINE -(420, 200), 15
70. LINE (420, 220)-(520, 195), 15
71. CIRCLE (100, 100), 20, 15
72. LINE (120, 100)-(120, 25), 15
73. DO
74.     IF _MOUSEINPUT THEN
75.         mx = _MOUSEX
76.         my = _MOUSEY
77.         mx = INT(mx / 8) + 1
78.         my = INT(my / 16) + 1
79.         IF _MOUSEBUTTON(1) AND my = 16 AND (mx >= 3 AND mx <= 8) THEN
80.             GOTO editor
81.         ELSEIF _MOUSEBUTTON(1) AND my = 19 AND (mx >= 3 AND mx <= 6) THEN
82.             GOTO help
83.         ELSEIF _MOUSEBUTTON(1) AND my = 22 AND (mx >= 3 AND mx <= 6) THEN
84.             END
85.         END IF
86.     END IF
87. LOOP
88.  
89. help:
90. CLS
91. PRINT
92. PRINT
93. PRINT "Welcome to the Melody Creator! This a program where you can create melodies."
94. PRINT "To start, click on the 'Editor' button, or click 'Quit' to exit the program."
95. PRINT "Within the editor you can click the -'s and #'s to toggle notes on and off."
96. PRINT "A - means a note is off, and a # means a note is on."
97. PRINT "Down at the bottom there's a section labled 'Oct.' This stands for octave."
98. PRINT "Click the arrows at the top and bottom to increase or decrease the octave."
99. PRINT "Below the octave section is 's N l.'"
100. PRINT "This stands for stacatto, normal note length, and legatto."
101. PRINT "These buttons change the length of notes."
102. PRINT "Finally is the play button, click this button to play the melody."
103. PRINT "There is also the Save and Load buttons which can save, and load, melodies."
104. PRINT "Simply give them the path towards a place to save, or load, a melody."
105. PRINT
106. PRINT
107. PRINT
108. PRINT "Back to Main Menu"
109. DO
110.     IF _MOUSEINPUT THEN
111.         mx = _MOUSEX
112.         my = _MOUSEY
113.         mx = INT(mx / 8) + 1
114.         my = INT(my / 16) + 1
115.         IF _MOUSEBUTTON(1) AND my = 18 AND (mx >= 1 AND mx <= 18) THEN
116.             GOTO menu
117.         END IF
118.     END IF
119. LOOP
120.  
121. ' UI
122. editor:
123. CLS
124. PRINT "              11111111112222222222333333333344444444445"
125. PRINT "     12345678901234567890123456789012345678901234567890"
126. PRINT "________________________________________________________"
127. PRINT " C | --------------------------------------------------|"
128. PRINT " C#| --------------------------------------------------|"
129. PRINT " D | --------------------------------------------------|"
130. PRINT " D#| --------------------------------------------------|"
131. PRINT " E | --------------------------------------------------|"
132. PRINT " F | --------------------------------------------------|"
133. PRINT " F#| --------------------------------------------------|"
134. PRINT " G | --------------------------------------------------|"
135. PRINT " G#| --------------------------------------------------|"
136. PRINT " A | --------------------------------------------------|"
137. PRINT " A#| --------------------------------------------------|"
138. PRINT " B | --------------------------------------------------|"
139. PRINT "_______________________________________________________|"
140. PRINT "Oct| |"
141. PRINT "   | 22222222222222222222222222222222222222222222222222|"
142. PRINT "   | |"
143. PRINT "________________________________________________________"
144. PRINT " s N l"
145. PRINT " Play"
146. PRINT " Save"
147. PRINT " Load"
148. PRINT
149. PRINT "Back to Main Menu"
150. FOR i = 1 TO 50
151.     FOR j = 1 TO 12
152.         IF song(i, j) = 1 THEN
153.             LOCATE j + 3, 5 + i
154.             PRINT "#"
155.         END IF
156.     NEXT j
157. NEXT i
158. FOR i = 1 TO 50
159.     LOCATE 18, 5 + i
160.     PRINT RIGHT$(STR$(octave(i)), 1)
161. NEXT i
162. IF NLS(1) = 1 THEN
163.     LOCATE 21, 2
164.     PRINT "S n l"
165. ELSEIF NLS(2) = 1 THEN
166.     LOCATE 21, 2
167.     PRINT "s N l"
168. ELSEIF NLS(3) = 1 THEN
169.     LOCATE 21, 2
170.     PRINT "s n L"
171. END IF
172. DO
173.     'mouse tracking
174.     IF _MOUSEINPUT THEN
175.         mx = _MOUSEX
176.         my = _MOUSEY
177.         mx = INT(mx / 8) + 1
178.         my = INT(my / 16) + 1
179.         'LOCATE 25, 1
180.         'PRINT mx, my
181.         'LOCATE 26
182.         'PRINT octave(1), octave(2), octave(3)
183.         'PRINT octave(23), octave(24), octave(25)
184.         'Note Chooser
185.         IF _MOUSEBUTTON(1) AND (my > 3 AND my < 16) AND (mx > 5 AND mx < 56) THEN
186.             IF song(mx - 5, my - 3) = 0 THEN
187.                 LOCATE my, mx
188.                 PRINT "#"
189.                 song(mx - 5, my - 3) = 1
190.             ELSEIF song(mx - 5, my - 3) = 1 THEN
191.                 LOCATE my, mx
192.                 PRINT "-"
193.                 song(mx - 5, my - 3) = 0
194.             END IF
195.             'octave up
196.         ELSEIF _MOUSEBUTTON(1) AND my = 17 AND (mx > 5 AND mx < 56) AND timerlast <> TIMER THEN
197.             IF octave(mx - 5) < 6 THEN
198.                 octave(mx - 5) = octave(mx - 5) + 1
199.                 LOCATE 18, mx
200.                 PRINT RIGHT$(STR$(octave(mx - 5)), 1)
201.                 timerlast = TIMER
202.             END IF
203.             'octave down
204.         ELSEIF _MOUSEBUTTON(1) AND my = 19 AND (mx > 5 AND mx < 56) AND timerlast <> TIMER THEN
205.             IF octave(mx - 5) > 0 THEN
206.                 octave(mx - 5) = octave(mx - 5) - 1
207.                 LOCATE 18, mx
208.                 PRINT RIGHT$(STR$(octave(mx - 5)), 1)
209.                 timerlast = TIMER
210.             END IF
211.         ELSEIF _MOUSEBUTTON(1) AND my = 21 THEN
212.             'Staccato
213.             IF mx = 2 THEN
214.                 FOR i = 1 TO 3
215.                     NLS(i) = 0
216.                 NEXT i
217.                 NLS(1) = 1
218.                 LOCATE 21, 2
219.                 PRINT "S n l"
220.                 'Normal
221.             ELSEIF mx = 4 THEN
222.                 FOR i = 1 TO 3
223.                     NLS(i) = 0
224.                 NEXT i
225.                 NLS(2) = 1
226.                 LOCATE 21, 2
227.                 PRINT "s N l"
228.                 'Legato
229.             ELSEIF mx = 6 THEN
230.                 FOR i = 1 TO 3
231.                     NLS(i) = 0
232.                 NEXT i
233.                 NLS(3) = 1
234.                 LOCATE 21, 2
235.                 PRINT "s n L"
236.             END IF
237.             'play song
238.         ELSEIF _MOUSEBUTTON(1) AND my = 22 AND (mx >= 2 AND mx <= 5) THEN
239.             'LOCATE 30, 1
240.             'PRINT "test"
241.             symbols$ = stringy$ + "V25 MB "
242.             'Note Length
243.             IF NLS(1) = 1 THEN
244.                 symbols$ = symbols$ + " MS"
245.             ELSEIF NLS(2) = 1 THEN
246.             ELSEIF NLS(3) = 1 THEN
247.                 symbols$ = symbols$ + " ML"
248.             END IF
249.             total = 0
250.             FOR i = 1 TO 50
251.                 symbols$ = symbols$ + " O" + RIGHT$(STR$(octave(i)), 1) + " "
252.                 'LOCATE 24, i
253.                 ' PRINT RIGHT$(STR$(octave(i)), 1)
254.                 FOR j = 1 TO 12
255.                     IF song(i, j) = 1 AND thing = 1 THEN
256.                         symbols$ = symbols$ + ", " + notes$(j)
257.                     ELSEIF song(i, j) = 1 AND thing = 0 THEN
258.                         symbols$ = symbols$ + " " + notes$(j)
259.                         thing = 1
260.                     ELSE
261.                         total = total + 1
262.                     END IF
263.                 NEXT j
264.                 IF total / 12 = 1 THEN
265.                     symbols$ = symbols$ + " P4"
266.                 END IF
267.                 total = 0
268.                 thing = 0
269.             NEXT i
270.             PLAY symbols$
271.             ' LOCATE 29, 1
272.             'PRINT symbols$
273.             'PRINT stringy$
274.             'PRINT octave
275.  
276.             'save
277.         ELSEIF _MOUSEBUTTON(1) AND my = 23 AND (mx >= 2 AND mx <= 5) AND NOT toiming = TIMER THEN
278.             toiming = TIMER
279.             GOTO save
280.             'load
281.         ELSEIF _MOUSEBUTTON(1) AND my = 24 AND (mx >= 2 AND mx <= 5) AND NOT toiming = TIMER THEN
282.             toiming = TIMER
283.             GOTO load
284.             'back to menu
285.         ELSEIF _MOUSEBUTTON(1) AND my = 26 AND (mx >= 1 AND mx <= 18) THEN
286.             GOTO menu
287.         END IF
288.     END IF
289. LOOP
290.  
291. save:
292. CLS
293. PRINT
294. PRINT
295. PRINT
296. PRINT " ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
297. PRINT " ³ Enter A Path To Save The File Or Type 'Cancel' 3x To Go Back:            ³"
298. PRINT " ³                                                                          ³"
299. PRINT " ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
300. LOCATE 6, 4
301. INPUT "", path$
302. IF LCASE$(path$) = "cancel" THEN
303.     GOTO editor
304. ELSEIF NOT (RIGHT$(path$, 4) = ".txt" OR RIGHT$(path$, 4) = ".dat") THEN
305.     CLS
306.     PRINT "Please enter a valid path. "
307.     PRINT "You should be pointing to a valid folder, and then end with a valid file."
308.     PRINT "A valid file ends with .dat or .txt."
309.     PRINT
310.     PRINT "Press Any Key To Continue"
311.     WHILE INKEY$ = ""
312.     WEND
313.     GOTO save
314. END IF
315. OPEN path$ FOR OUTPUT AS #1
316. FOR i = 1 TO 50
317.     FOR j = 1 TO 12
318.         PRINT #1, song(i, j);
319.     NEXT j
320.     PRINT #1, ,
321. NEXT i
322. FOR i = 1 TO 50
323.     PRINT #1, octave(i);
324. NEXT i
325. PRINT #1, ,
326. FOR i = 1 TO 3
327.     PRINT #1, NLS(i);
328. NEXT i
329. CLOSE #1
330. GOTO editor
331.  
332. load:
333. CLS
334. PRINT
335. PRINT
336. PRINT
337. PRINT " ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
338. PRINT " ³ Enter A Path To Load The File Or Type 'Cancel' 3x To Go Back:            ³"
339. PRINT " ³                                                                          ³"
340. PRINT " ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
341. LOCATE 6, 4
342. INPUT "", path$
343. IF LCASE$(path$) = "cancel" THEN
344.     GOTO editor
345. ELSEIF NOT (RIGHT$(path$, 4) = ".txt" OR RIGHT$(path$, 4) = ".dat") THEN
346.     CLS
347.     PRINT "Please enter a valid path. "
348.     PRINT "You should be pointing to a valid folder, and then end with a valid file."
349.     PRINT "A valid file ends with .dat or .txt."
350.     PRINT
351.     PRINT "Press Any Key To Continue"
352.     WHILE INKEY$ = ""
353.     WEND
354.     GOTO save
355. END IF
356. OPEN path$ FOR INPUT AS #1
357. FOR i = 1 TO 50
358.     FOR j = 1 TO 12
359.         INPUT #1, song(i, j)
360.     NEXT j
361. NEXT i
362. FOR i = 1 TO 50
363.     INPUT #1, octave(i)
364. NEXT i
365. FOR i = 1 TO 3
366.     INPUT #1, NLS(i)
367. NEXT i
368. CLOSE #1
369. GOTO editor
370.  

Also feel free to rate my mediocre documentation.

Title: Re: School Project: Melody Maker
Post by: FellippeHeitor on May 22, 2020, 01:38:36 pm

Awesome forum debut, welcome DivineHolinessjr!

Title: Re: School Project: Melody Maker
Post by: DivineHolinessjr on May 22, 2020, 01:40:46 pm

Thanks! Surprised to already have gotten a reply, and from a member of the team themselves. Been lurking here for a few days and only just thought to upload the project once I finished it.

Title: Re: School Project: Melody Maker
Post by: Petr on May 22, 2020, 03:25:17 pm

Welcome to the forum DivineHolinessjr,

Small upgrade for mouse calling can repairing your 3x reactions:

Code: QB64: [Select]

1. SCREEN 12
2. DIM song(100, 100)
3. DIM octave(1000)
4. DIM notes$(12)
5. DIM NLS(3)
6. FOR a = 1 TO 100
7.     FOR b = 1 TO 100
8.         song(a, b) = 0
9.     NEXT b
10. NEXT a
11. FOR i = 1 TO 50
12.     octave(i) = 2
13. NEXT i
14. FOR i = 1 TO 3
15.     NLS(i) = 0
16. NEXT i
17. NLS(2) = 1
18.  
19. 'assigning notes
20. notes$(1) = "C"
21. notes$(2) = "C#"
22. notes$(3) = "D"
23. notes$(4) = "D#"
24. notes$(5) = "E"
25. notes$(6) = "F"
26. notes$(7) = "F#"
27. notes$(8) = "G"
28. notes$(9) = "G#"
29. notes$(10) = "A"
30. notes$(11) = "A#"
31. notes$(12) = "B"
32. 'mouse on window
33. _MOUSEMOVE 100, 100
34.  
35. 'menu
36. menu:
37. CLS
38. PRINT
39. PRINT
40. PRINT
41. PRINT
42. PRINT
43. PRINT TAB(36); "Melody"
44. PRINT
45. PRINT
46. PRINT
47. PRINT TAB(36); "Creator"
48. PRINT
49. PRINT
50. PRINT
51. PRINT
52. PRINT
53. PRINT "  Editor"
54. PRINT
55. PRINT
56. PRINT "  Help"
57. PRINT
58. PRINT
59. PRINT "  Quit"
60. PRINT
61. PRINT
62. CIRCLE (305, 120), 24, 15
63. CIRCLE (305, 120), 23, 15
64. LINE (328, 120)-(329, 20), 15, BF
65. CIRCLE (400, 300), 20, 15
66. CIRCLE (500, 275), 20, 15
67. LINE (420, 300)-(420, 200), 15
68. LINE (520, 275)-(520, 175), 15
69. LINE -(420, 200), 15
70. LINE (420, 220)-(520, 195), 15
71. CIRCLE (100, 100), 20, 15
72. LINE (120, 100)-(120, 25), 15
73. DO
74.     IF _MOUSEINPUT THEN
75.         mx = _MOUSEX
76.         my = _MOUSEY
77.         mx = INT(mx / 8) + 1
78.         my = INT(my / 16) + 1
79.         IF _MOUSEBUTTON(1) AND my = 16 AND (mx >= 3 AND mx <= 8) THEN
80.             GOTO editor
81.         ELSEIF _MOUSEBUTTON(1) AND my = 19 AND (mx >= 3 AND mx <= 6) THEN
82.             GOTO help
83.         ELSEIF _MOUSEBUTTON(1) AND my = 22 AND (mx >= 3 AND mx <= 6) THEN
84.             END
85.         END IF
86.     END IF
87. LOOP
88.  
89. help:
90. CLS
91. PRINT
92. PRINT
93. PRINT "Welcome to the Melody Creator! This a program where you can create melodies."
94. PRINT "To start, click on the 'Editor' button, or click 'Quit' to exit the program."
95. PRINT "Within the editor you can click the -'s and #'s to toggle notes on and off."
96. PRINT "A - means a note is off, and a # means a note is on."
97. PRINT "Down at the bottom there's a section labled 'Oct.' This stands for octave."
98. PRINT "Click the arrows at the top and bottom to increase or decrease the octave."
99. PRINT "Below the octave section is 's N l.'"
100. PRINT "This stands for stacatto, normal note length, and legatto."
101. PRINT "These buttons change the length of notes."
102. PRINT "Finally is the play button, click this button to play the melody."
103. PRINT "There is also the Save and Load buttons which can save, and load, melodies."
104. PRINT "Simply give them the path towards a place to save, or load, a melody."
105. PRINT
106. PRINT
107. PRINT
108. PRINT "Back to Main Menu"
109. DO
110.     IF _MOUSEINPUT THEN
111.         mx = _MOUSEX
112.         my = _MOUSEY
113.         mx = INT(mx / 8) + 1
114.         my = INT(my / 16) + 1
115.         IF _MOUSEBUTTON(1) AND my = 18 AND (mx >= 1 AND mx <= 18) THEN
116.             GOTO menu
117.         END IF
118.     END IF
119. LOOP
120.  
121. ' UI
122. editor:
123. CLS
124. PRINT "              11111111112222222222333333333344444444445"
125. PRINT "     12345678901234567890123456789012345678901234567890"
126. PRINT "________________________________________________________"
127. PRINT " C | --------------------------------------------------|"
128. PRINT " C#| --------------------------------------------------|"
129. PRINT " D | --------------------------------------------------|"
130. PRINT " D#| --------------------------------------------------|"
131. PRINT " E | --------------------------------------------------|"
132. PRINT " F | --------------------------------------------------|"
133. PRINT " F#| --------------------------------------------------|"
134. PRINT " G | --------------------------------------------------|"
135. PRINT " G#| --------------------------------------------------|"
136. PRINT " A | --------------------------------------------------|"
137. PRINT " A#| --------------------------------------------------|"
138. PRINT " B | --------------------------------------------------|"
139. PRINT "_______________________________________________________|"
140. PRINT "Oct| |"
141. PRINT "   | 22222222222222222222222222222222222222222222222222|"
142. PRINT "   | |"
143. PRINT "________________________________________________________"
144. PRINT " s N l"
145. PRINT " Play"
146. PRINT " Save"
147. PRINT " Load"
148. PRINT
149. PRINT "Back to Main Menu"
150. FOR i = 1 TO 50
151.     FOR j = 1 TO 12
152.         IF song(i, j) = 1 THEN
153.             LOCATE j + 3, 5 + i
154.             PRINT "#"
155.         END IF
156.     NEXT j
157. NEXT i
158. FOR i = 1 TO 50
159.     LOCATE 18, 5 + i
160.     PRINT RIGHT$(STR$(octave(i)), 1)
161. NEXT i
162. IF NLS(1) = 1 THEN
163.     LOCATE 21, 2
164.     PRINT "S n l"
165. ELSEIF NLS(2) = 1 THEN
166.     LOCATE 21, 2
167.     PRINT "s N l"
168. ELSEIF NLS(3) = 1 THEN
169.     LOCATE 21, 2
170.     PRINT "s n L"
171. END IF
172. DO
173.     'mouse tracking
174.     WHILE _MOUSEINPUT: WEND
175.     mx = _MOUSEX
176.     my = _MOUSEY
177.     MB1 = _MOUSEBUTTON(1)
178.     mx = INT(mx / 8) + 1
179.     my = INT(my / 16) + 1
180.     'LOCATE 25, 1
181.     'PRINT mx, my
182.     'LOCATE 26
183.     'PRINT octave(1), octave(2), octave(3)
184.     'PRINT octave(23), octave(24), octave(25)
185.     'Note Chooser
186.     IF _MOUSEBUTTON(1) AND (my > 3 AND my < 16) AND (mx > 5 AND mx < 56) THEN
187.         IF song(mx - 5, my - 3) = 0 THEN
188.             LOCATE my, mx
189.             PRINT "#"
190.             song(mx - 5, my - 3) = 1
191.         ELSEIF song(mx - 5, my - 3) = 1 THEN
192.             LOCATE my, mx
193.             PRINT "-"
194.             song(mx - 5, my - 3) = 0
195.         END IF
196.         'octave up
197.     ELSEIF MB1 AND my = 17 AND (mx > 5 AND mx < 56) AND timerlast <> TIMER THEN
198.         IF octave(mx - 5) < 6 THEN
199.             octave(mx - 5) = octave(mx - 5) + 1
200.             LOCATE 18, mx
201.             PRINT RIGHT$(STR$(octave(mx - 5)), 1)
202.             timerlast = TIMER
203.         END IF
204.         'octave down
205.     ELSEIF MB1 AND my = 19 AND (mx > 5 AND mx < 56) AND timerlast <> TIMER THEN
206.         IF octave(mx - 5) > 0 THEN
207.             octave(mx - 5) = octave(mx - 5) - 1
208.             LOCATE 18, mx
209.             PRINT RIGHT$(STR$(octave(mx - 5)), 1)
210.             timerlast = TIMER
211.         END IF
212.     ELSEIF MB1 AND my = 21 THEN
213.         'Staccato
214.         IF mx = 2 THEN
215.             FOR i = 1 TO 3
216.                 NLS(i) = 0
217.             NEXT i
218.             NLS(1) = 1
219.             LOCATE 21, 2
220.             PRINT "S n l"
221.             'Normal
222.         ELSEIF mx = 4 THEN
223.             FOR i = 1 TO 3
224.                 NLS(i) = 0
225.             NEXT i
226.             NLS(2) = 1
227.             LOCATE 21, 2
228.             PRINT "s N l"
229.             'Legato
230.         ELSEIF mx = 6 THEN
231.             FOR i = 1 TO 3
232.                 NLS(i) = 0
233.             NEXT i
234.             NLS(3) = 1
235.             LOCATE 21, 2
236.             PRINT "s n L"
237.         END IF
238.         'play song
239.     ELSEIF MB1 AND my = 22 AND (mx >= 2 AND mx <= 5) THEN
240.         'LOCATE 30, 1
241.         'PRINT "test"
242.         symbol$ = ""
243.         symbols$ = stringy$ + "V25 MB "
244.         'Note Length
245.         IF NLS(1) = 1 THEN
246.             symbols$ = symbols$ + " MS"
247.         ELSEIF NLS(2) = 1 THEN
248.         ELSEIF NLS(3) = 1 THEN
249.             symbols$ = symbols$ + " ML"
250.         END IF
251.         total = 0
252.         FOR i = 1 TO 50
253.             symbols$ = symbols$ + " O" + RIGHT$(STR$(octave(i)), 1) + " "
254.             'LOCATE 24, i
255.             ' PRINT RIGHT$(STR$(octave(i)), 1)
256.             FOR j = 1 TO 12
257.                 IF song(i, j) = 1 AND thing = 1 THEN
258.                     symbols$ = symbols$ + ", " + notes$(j)
259.                 ELSEIF song(i, j) = 1 AND thing = 0 THEN
260.                     symbols$ = symbols$ + " " + notes$(j)
261.                     thing = 1
262.                 ELSE
263.                     total = total + 1
264.                 END IF
265.             NEXT j
266.             IF total / 12 = 1 THEN
267.                 symbols$ = symbols$ + " P4"
268.             END IF
269.             total = 0
270.             thing = 0
271.         NEXT i
272.         '    CLS
273.         '    R = R + 1 'number of runnings
274.         '    PRINT R
275.  
276.  
277.         PLAY symbols$
278.         ' LOCATE 29, 1
279.         'PRINT symbols$
280.         'PRINT stringy$
281.         'PRINT octave
282.  
283.         'save
284.     ELSEIF MB1 AND my = 23 AND (mx >= 2 AND mx <= 5) AND NOT toiming = TIMER THEN
285.         toiming = TIMER
286.         GOTO save
287.         'load
288.     ELSEIF MB1 AND my = 24 AND (mx >= 2 AND mx <= 5) AND NOT toiming = TIMER THEN
289.         toiming = TIMER
290.         GOTO load
291.         'back to menu
292.     ELSEIF MB1 AND my = 26 AND (mx >= 1 AND mx <= 18) THEN
293.         GOTO menu
294.     END IF
295.     _LIMIT 15
296. LOOP
297.  
298. save:
299. CLS
300. PRINT
301. PRINT
302. PRINT
303. PRINT " ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ?"
304. PRINT " 3 Enter A Path To Save The File Or Type 'Cancel' 3x To Go Back:            3"
305. PRINT " 3                                                                          3"
306. PRINT " AÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄU"
307. LOCATE 6, 4
308. INPUT "", path$
309. IF LCASE$(path$) = "cancel" THEN
310.     GOTO editor
311. ELSEIF NOT (RIGHT$(path$, 4) = ".txt" OR RIGHT$(path$, 4) = ".dat") THEN
312.     CLS
313.     PRINT "Please enter a valid path. "
314.     PRINT "You should be pointing to a valid folder, and then end with a valid file."
315.     PRINT "A valid file ends with .dat or .txt."
316.     PRINT
317.     PRINT "Press Any Key To Continue"
318.     WHILE INKEY$ = ""
319.     WEND
320.     GOTO save
321. END IF
322. OPEN path$ FOR OUTPUT AS #1
323. FOR i = 1 TO 50
324.     FOR j = 1 TO 12
325.         PRINT #1, song(i, j);
326.     NEXT j
327.     PRINT #1, ,
328. NEXT i
329. FOR i = 1 TO 50
330.     PRINT #1, octave(i);
331. NEXT i
332. PRINT #1, ,
333. FOR i = 1 TO 3
334.     PRINT #1, NLS(i);
335. NEXT i
336. CLOSE #1
337. GOTO editor
338.  
339. load:
340. CLS
341. PRINT
342. PRINT
343. PRINT
344. PRINT " ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ?"
345. PRINT " 3 Enter A Path To Load The File Or Type 'Cancel' 3x To Go Back:            3"
346. PRINT " 3                                                                          3"
347. PRINT " AÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄU"
348. LOCATE 6, 4
349. INPUT "", path$
350. IF LCASE$(path$) = "cancel" THEN
351.     GOTO editor
352. ELSEIF NOT (RIGHT$(path$, 4) = ".txt" OR RIGHT$(path$, 4) = ".dat") THEN
353.     CLS
354.     PRINT "Please enter a valid path. "
355.     PRINT "You should be pointing to a valid folder, and then end with a valid file."
356.     PRINT "A valid file ends with .dat or .txt."
357.     PRINT
358.     PRINT "Press Any Key To Continue"
359.     WHILE INKEY$ = ""
360.     WEND
361.     GOTO save
362. END IF
363. OPEN path$ FOR INPUT AS #1
364. FOR i = 1 TO 50
365.     FOR j = 1 TO 12
366.         INPUT #1, song(i, j)
367.     NEXT j
368. NEXT i
369. FOR i = 1 TO 50
370.     INPUT #1, octave(i)
371. NEXT i
372. FOR i = 1 TO 3
373.     INPUT #1, NLS(i)
374. NEXT i
375. CLOSE #1
376. GOTO editor
377.  

And here is small example, how program can repairing bad filename on input:

Code: QB64: [Select]

1. FOR test = 1 TO 3
2.     givemename:
3.     INPUT "Input filename for save:"; savename$
4.     IF LEN(savename$) = 0 THEN GOTO givemename
5.     IF INSTR(1, savename$, ".txt") THEN
6.         PRINT "Extension supported, saved as "; savename$
7.     ELSEIF INSTR(1, savename$, ".") THEN
8.         newname$ = MID$(savename$, 1, INSTR(1, savename$, ".")) + "txt"
9.         PRINT "Renamed as: "; newname$
10.     ELSE newname$ = savename$ + ".txt"
11.         PRINT "added extension as: "; newname$
12.     END IF
13.  
14. NEXT
15.  

 

Title: Re: School Project: Melody Maker
Post by: FellippeHeitor on May 22, 2020, 03:26:59 pm

I wish I could recover my program that drew the note events from a PLAY string onto a "piano roll" of sorts, but I couldn't find it anywhere. It'd be an interesting merger with this program.

It may have been lost forever in the corrupted realms of [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]...

Title: Re: School Project: Melody Maker
Post by: SpriggsySpriggs on May 22, 2020, 03:49:35 pm

That is impressive! I wasn't making programs like this in high school! I was just doing stuff to help me with my math homework haha. Of course, I'm pretty sure I was using the old SDL version anyways and wasn't really trying to make anything super complex. It wasn't until I saw Fellippe's library, InForm, that I really got back into QB64. Now I spend most of my free time doing it. Looking forward to seeing more from you! You could maybe even convert your program to using InForm by making custom piano-key shaped buttons!

Title: Re: School Project: Melody Maker
Post by: DivineHolinessjr on May 22, 2020, 04:28:46 pm

Quote from: SpriggsySpriggs on May 22, 2020, 03:49:35 pm

That is impressive! I wasn't making programs like this in high school! I was just doing stuff to help me with my math homework haha. Of course, I'm pretty sure I was using the old SDL version anyways and wasn't really trying to make anything super complex. It wasn't until I saw Fellippe's library, InForm, that I really got back into QB64. Now I spend most of my free time doing it. Looking forward to seeing more from you! You could maybe even convert your program to using InForm by making custom piano-key shaped buttons!

Sounds like a good idea. I've had InForm on my computer for a while but couldn't really figure out how to use it with code. I'll probably start playing with it and looking stuff up now and try to convert it into an InForm interface now though.

Quote from: Petr on May 22, 2020, 03:25:17 pm

Welcome to the forum DivineHolinessjr,

Small upgrade for mouse calling can repairing your 3x reactions:

 

I'll go ahead and take use of that, would've never thought of that fix personally. I'll try and keep that in mind for any future programs I decide to make.

Edit: Right after I posted I noticed that instead of future I put feature. How do I keep replacing words while typing.

Title: Re: School Project: Melody Maker
Post by: FellippeHeitor on May 23, 2020, 01:02:05 am

I found my old PLAY string parser/visualizer. If it's any useful to you, feel free to use it (or parts of it): https://www.qb64.org/forum/index.php?topic=2625.msg118429#msg118429

Text Only | Text with Attachments