Keys48 - Playable/Recordable instrument program

[Dav]

Here's something I've been working on for about a week.  It's a simple piano program that you can play and save little songs with.  Use the mouse to click on and play the notes.  There's a menu listing the simple commands.  Saved songs have a very small size thanks to the _DEFLATE command.

I've included a few songs I've recorded here.  When you start the program, press "L" and load a sample song like, DAV, or SAMPLE or WALTZ to hear an example of what you can record with it.

Made just for fun - it's not a serious program or anything, just something to code.  Let me know how it runs.  I'll post the code here, but you will need to whole package to compile it...

- Dav

NOTE: You need the attachment to compile this...

Code: QB64: [Select]

1. '==========
2. 'KEYS48.BAS v1.0
3. '==========
4. 'A Playable/Recordable Keyboard instrument
5. 'Coded by Dav for QB64, JAN/2021
6.  
7. 'NOTE: Before compiling, check 'Output EXE to Source'
8.  
9. '-----
10. 'ABOUT
11. '-----
12.  
13. 'KEYS48 is a virtual instrument that you can play and
14. 'and record little piano tunes with.  Use mouse to click on
15. 'and play notes. The program starts in freeplay mode, but
16. 'you can record in real time as you play by pressing R.
17. 'Record over your song several times to add more notes and
18. 'make more complex patterns (called overdubbing).
19.  
20. '--------
21. 'CONTROLS
22. '--------
23.  
24. 'Press M fo a menu list of commands.
25.  
26. 'Press R to record song and to overdub (add) notes to a song.
27. 'Press U to Undo last recording (in case you make a mistake!)
28. 'Press P to playback the recorded song currently in memory.
29. 'Press C to clear (erase) recorded notes currently in memory.
30. 'Press +/- keys to adjust playback and recording speed.
31. '        Current speed value is shown at the top left.
32. 'Press ENTER to go back to default speed of 100.
33.  
34. 'Press ESC to stop recording playback of the song.
35. 'NOTE: You can also play notes during song playback.
36.  
37. 'Press S to Save your recording to .K46 file in songs dir.
38. '        If the file already exists, it will be overwritten.
39. '        If not the program will ask you for a song name.
40. '        The .K48 extension will be added automatically.
41. 'Press L to Load a saved song in the songs dir.
42. 'Press D to Delete currently load song.
43. '
44. '=========================================================
45. '
46. 'PRO TIP: Having trouble playing fast enough with mouse?
47. '         Slow down Speed BEFORE recording, then raise it
48. '         back up when playing song back.
49. '
50. '=========================================================
51. '
52. 'NOTES: The directory 'keys' hold the keyboard sounds.
53. '       The directory 'songs' holds all the .K48 songs.
54. '       Both directories are required to use this program.
55. '       They must be in the current EXE program path.
56. '       Currently loaded song and speed is shown top left.
57. '       Song speed setting is saved with the song file.
58. '       Currently the max song length is about 6 minutes.
59. '       You can change that with the MaxSongLength var.
60. '
61. '=========================================================
62. '
63. 'Things planned in next version: Record speed changes
64. '                                (Add Page Up/Down +/- 5)
65. '                                Turn Overdub ON/Off
66. '                                Add a Metronome click
67. '                                Add render to .WAV file
68. '                                (will ask Petr for help!)
69. '                                Add more keyboard sounds
70. '                                Add Loop song playing
71. '                                pause, record position
72. '                                Seek position in song
73. '
74. '=========================================================
75.  
76. SCREEN _LOADIMAGE("keys48.png", 32)
77. DO: LOOP UNTIL _SCREENEXISTS
78.  
79. _TITLE "Dav's 48 Keys v1.0": _ICON _DISPLAY
80.  
81. 'Make sure keys directory is present first...
82. IF _DIREXISTS("keys") = 0 THEN
83.     DrawBox: LOCATE 15, 37:
84.     PRINT "ERROR: Needed 'keys' directory not found!"
85.     END
86. END IF
87.  
88. 'Make a songs directory if not found
89. IF _DIREXISTS("songs") = 0 THEN MKDIR "songs"
90.  
91. 'share note variable, playing flag, timer for all 48 keys
92. DIM SHARED n01flag, n01timer, n01&, n02flag, n02timer, n02&
93. DIM SHARED n03flag, n03timer, n03&, n04flag, n04timer, n04&
94. DIM SHARED n05flag, n05timer, n05&, n06flag, n06timer, n06&
95. DIM SHARED n07flag, n07timer, n07&, n08flag, n08timer, n08&
96. DIM SHARED n09flag, n09timer, n09&, n10flag, n10timer, n10&
97. DIM SHARED n11flag, n11timer, n11&, n12flag, n12timer, n12&
98. DIM SHARED n13flag, n13timer, n13&, n14flag, n14timer, n14&
99. DIM SHARED n15flag, n15timer, n15&, n16flag, n16timer, n16&
100. DIM SHARED n17flag, n17timer, n17&, n18flag, n18timer, n18&
101. DIM SHARED n19flag, n19timer, n19&, n20flag, n20timer, n20&
102. DIM SHARED n21flag, n21timer, n21&, n22flag, n22timer, n22&
103. DIM SHARED n23flag, n23timer, n23&, n24flag, n24timer, n24&
104. DIM SHARED n25flag, n25timer, n25&, n26flag, n26timer, n26&
105. DIM SHARED n27flag, n27timer, n27&, n28flag, n28timer, n28&
106. DIM SHARED n29flag, n29timer, n29&, n30flag, n30timer, n30&
107. DIM SHARED n31flag, n31timer, n31&, n32flag, n32timer, n32&
108. DIM SHARED n33flag, n33timer, n33&, n34flag, n34timer, n34&
109. DIM SHARED n35flag, n35timer, n35&, n36flag, n36timer, n36&
110. DIM SHARED n37flag, n37timer, n37&, n38flag, n38timer, n38&
111. DIM SHARED n39flag, n39timer, n39&, n40flag, n40timer, n40&
112. DIM SHARED n41flag, n41timer, n41&, n42flag, n42timer, n42&
113. DIM SHARED n43flag, n43timer, n43&, n44flag, n44timer, n44&
114. DIM SHARED n45flag, n45timer, n45&, n46flag, n46timer, n46&
115. DIM SHARED n47flag, n47timer, n47&, n48flag, n48timer, n48&
116.  
117. 'Load/open all keys sound files
118. n01& = _SNDOPEN("keys\01.key"): n02& = _SNDOPEN("keys\02.key")
119. n03& = _SNDOPEN("keys\03.key"): n04& = _SNDOPEN("keys\04.key")
120. n05& = _SNDOPEN("keys\05.key"): n06& = _SNDOPEN("keys\06.key")
121. n07& = _SNDOPEN("keys\07.key"): n08& = _SNDOPEN("keys\08.key")
122. n09& = _SNDOPEN("keys\09.key"): n10& = _SNDOPEN("keys\10.key")
123. n11& = _SNDOPEN("keys\11.key"): n12& = _SNDOPEN("keys\12.key")
124. n13& = _SNDOPEN("keys\13.key"): n14& = _SNDOPEN("keys\14.key")
125. n15& = _SNDOPEN("keys\15.key"): n16& = _SNDOPEN("keys\16.key")
126. n17& = _SNDOPEN("keys\17.key"): n18& = _SNDOPEN("keys\18.key")
127. n19& = _SNDOPEN("keys\19.key"): n20& = _SNDOPEN("keys\20.key")
128. n21& = _SNDOPEN("keys\21.key"): n22& = _SNDOPEN("keys\22.key")
129. n23& = _SNDOPEN("keys\23.key"): n24& = _SNDOPEN("keys\24.key")
130. n25& = _SNDOPEN("keys\25.key"): n26& = _SNDOPEN("keys\26.key")
131. n27& = _SNDOPEN("keys\27.key"): n28& = _SNDOPEN("keys\28.key")
132. n29& = _SNDOPEN("keys\29.key"): n30& = _SNDOPEN("keys\30.key")
133. n31& = _SNDOPEN("keys\31.key"): n32& = _SNDOPEN("keys\32.key")
134. n33& = _SNDOPEN("keys\33.key"): n34& = _SNDOPEN("keys\34.key")
135. n35& = _SNDOPEN("keys\35.key"): n36& = _SNDOPEN("keys\36.key")
136. n37& = _SNDOPEN("keys\37.key"): n38& = _SNDOPEN("keys\38.key")
137. n39& = _SNDOPEN("keys\39.key"): n40& = _SNDOPEN("keys\40.key")
138. n41& = _SNDOPEN("keys\41.key"): n42& = _SNDOPEN("keys\42.key")
139. n43& = _SNDOPEN("keys\43.key"): n44& = _SNDOPEN("keys\44.key")
140. n45& = _SNDOPEN("keys\45.key"): n46& = _SNDOPEN("keys\46.key")
141. n47& = _SNDOPEN("keys\47.key"): n48& = _SNDOPEN("keys\48.key")
142.  
143. 'Share/define these values - used often
144. DIM SHARED WhtOn&, WhtOff&, BlkOn&, BlkOff&, Blk& 'colors
145. DIM SHARED speed, MaxSongLength, release, header$
146. DIM SHARED scr1 AS _MEM, scr2 AS _MEM 'for screen saving
147.  
148. WhtOn& = _RGB(179, 192, 211): WhtOff& = _RGB(246, 255, 255) 'key colors
149. BlkOn& = _RGB(48, 84, 107): BlkOff& = _RGB(43, 56, 63): Blk& = _RGB(23, 23, 23)
150. release = .4 'how long to highlight notes when played
151. MaxSongLength = 500000 'max of 500k of song memory
152. speed = 100 'playback speed defaults to 100%
153.  
154. GOSUB UpdateInfo
155.  
156. '========
157. MainLoop: 'I dont currently call this, but it's here if needed.
158. '========
159.  
160. DO
161.  
162.     GOSUB PlayKeys 'freeplay notes
163.  
164.     'Get user input...
165.     k$ = UCASE$(INKEY$)
166.     IF k$ <> "" THEN
167.  
168.         IF k$ = "R" THEN
169.             GOSUB record: GOSUB UpdateInfo
170.         END IF
171.  
172.         IF k$ = "P" THEN
173.             GOSUB playback: GOSUB UpdateInfo
174.         END IF
175.  
176.         IF k$ = "C" THEN
177.             NoteData$ = "": song$ = ""
178.             GOSUB SaveScreen
179.             DrawBox: LOCATE 15, 37: PRINT " SONG MEMORY IS NOW CLEARED! "
180.             _DELAY 2
181.             GOSUB RestoreScreen: GOSUB UpdateInfo
182.         END IF
183.  
184.         IF k$ = "U" THEN
185.             GOSUB SaveScreen: DrawBox
186.             IF NoteData$ <> "" THEN
187.                 NoteData$ = UndoData$
188.                 LOCATE 15, 37: PRINT "  UNDOING YOUR LAST RECORDING...  ";
189.             ELSE
190.                 LOCATE 15, 37: PRINT "  THERE'S NO RECORDING TO UNDO!";
191.             END IF
192.             _DELAY 2
193.             GOSUB RestoreScreen
194.         END IF
195.  
196.         IF k$ = "S" THEN
197.  
198.             GOSUB SaveScreen: DrawBox
199.  
200.             IF NoteData$ = "" THEN
201.                 LOCATE 15, 37: PRINT "  THERE IS NO SONG TO SAVE!  ";
202.                 _DELAY 2
203.             END IF
204.  
205.             IF song$ <> "" THEN 'song already opened...just update song
206.                 OPEN "songs\" + song$ FOR OUTPUT AS #1
207.                 header$ = CHR$(27) + "K48V100" + CHR$(speed)
208.                 PRINT #1, header$;
209.                 PRINT #1, _DEFLATE$(NoteData$);: CLOSE 1
210.                 LOCATE 15, 37: PRINT UCASE$(song$); " HAS BEEN SAVED!";
211.                 _DELAY 2
212.             END IF
213.  
214.             'notedata here, song$ not made yet, so save new file
215.             IF NoteData$ <> "" AND song$ = "" THEN
216.                 LOCATE 15, 37: INPUT "SONG TO SAVE: ", song$
217.                 IF song$ <> "" THEN
218.                     'strip out any path given (thanks, Steve!)
219.                     song$ = MID$(song$, _INSTRREV(song$, "\") + 1)
220.                     IF INSTR(1, song$, ".") = 0 THEN song$ = song$ + ".k48"
221.                     OPEN "songs\" + song$ FOR OUTPUT AS #1
222.                     header$ = CHR$(27) + "K48V100" + CHR$(speed)
223.                     PRINT #1, header$;
224.                     PRINT #1, _DEFLATE$(NoteData$);: CLOSE 1
225.                     LOCATE 15, 37: PRINT SPACE$(45);
226.                     LOCATE 15, 37: PRINT UCASE$(song$); " HAS BEEN SAVED!";
227.                     _DELAY 2
228.                 END IF
229.             END IF
230.  
231.             GOSUB RestoreScreen
232.             GOSUB UpdateInfo
233.  
234.         END IF
235.  
236.         IF k$ = "L" THEN
237.  
238.             GOSUB SaveScreen: DrawBox
239.  
240.             LOCATE 15, 37: INPUT "SONG TO LOAD: ", tmpsong$
241.             IF tmpsong$ <> "" THEN
242.                 'strip out any path given (thanks, Steve!)
243.                 tmpsong$ = MID$(tmpsong$, _INSTRREV(tmpsong$, "\") + 1)
244.                 IF INSTR(1, tmpsong$, ".") = 0 THEN tmpsong$ = tmpsong$ + ".k48"
245.                 IF _FILEEXISTS("songs\" + tmpsong$) THEN
246.                     OPEN "songs\" + tmpsong$ FOR BINARY AS #1
247.                     IF LOF(1) < 9 THEN
248.                         header$ = "" 'file not big enough
249.                     ELSE
250.                         header$ = INPUT$(9, 1) 'load header
251.                     END IF
252.                     IF MID$(header$, 1, 8) <> CHR$(27) + "K48V100" THEN
253.                         DrawBox: LOCATE 15, 37: PRINT UCASE$(tmpsong$); " FILE NOT VALID!";
254.                     ELSE
255.                         'set saved speed
256.                         speed = ASC(MID$(header$, 9, 1))
257.                         NoteData$ = _INFLATE$(INPUT$(LOF(1) - 9, 1)): CLOSE 1
258.                         DrawBox: LOCATE 15, 37: PRINT UCASE$(tmpsong$); " HAS BEEN LOADED.";
259.                         song$ = tmpsong$
260.                     END IF
261.                 ELSE
262.                     DrawBox: LOCATE 15, 37: PRINT UCASE$(tmpsong$); " SONG FILE NOT FOUND!";
263.                 END IF
264.                 _DELAY 2
265.             END IF
266.  
267.             GOSUB RestoreScreen
268.             GOSUB UpdateInfo
269.  
270.         END IF
271.  
272.         IF k$ = "D" THEN
273.  
274.             GOSUB SaveScreen: DrawBox
275.  
276.             IF song$ <> "" AND _FILEEXISTS("songs\" + song$) THEN
277.                 LOCATE 15, 37: PRINT "DELETE FILE "; UCASE$(song$);
278.                 LOCATE 16, 45: PRINT "ARE YOU SURE? (Y/N)";
279.                 sure$ = UCASE$(INPUT$(1))
280.                 IF sure$ = "Y" THEN
281.                     DrawBox
282.                     KILL "songs\" + song$
283.                     LOCATE 15, 37: PRINT UCASE$(song$); " DELETED!";
284.                     NoteData$ = "": song$ = ""
285.                     _DELAY 2
286.                 END IF
287.             ELSE
288.                 LOCATE 15, 37: PRINT " NO SONG FOUND TO DELETE!  ";
289.                 _DELAY 2
290.             END IF
291.  
292.             GOSUB RestoreScreen
293.             GOSUB UpdateInfo
294.  
295.         END IF
296.  
297.         IF k$ = "M" THEN
298.             GOSUB SaveScreen
299.             menu& = _LOADIMAGE("keys48m.png", 32)
300.             _PUTIMAGE (235, 90), menu&: _FREEIMAGE menu&
301.             SLEEP: _KEYCLEAR
302.             GOSUB RestoreScreen
303.         END IF
304.  
305.         IF k$ = "-" THEN
306.             speed = speed - 1: IF speed < 40 THEN speed = 40
307.             GOSUB UpdateInfo
308.         END IF
309.  
310.         IF k$ = "+" THEN
311.             speed = speed + 1: IF speed > 200 THEN speed = 200
312.             GOSUB UpdateInfo
313.         END IF
314.  
315.         IF k$ = CHR$(13) THEN
316.             speed = 100: GOSUB UpdateInfo
317.         END IF
318.  
319.         _KEYCLEAR
320.  
321.     END IF
322.  
323.     _LIMIT speed * 15 'this is the current delay/speed method....
324.  
325. LOOP
326.  
327. END
328.  
329.  
330. '=========================================================
331. PlayKeys: 'Gets mouse input and plays keyboard
332. '=======
333.  
334. mi = _MOUSEINPUT
335. IF _MOUSEBUTTON(1) = 0 THEN done = 0
336.  
337. IF _MOUSEBUTTON(1) AND done = 0 THEN
338.     mx = _MOUSEX: my = _MOUSEY
339.  
340.     '=== play notes if clicked on one
341.     'bottom row...
342.     IF mx > 4 AND mx < 63 AND my > 432 AND my < 515 THEN DoNote 1
343.     IF mx > 42 AND mx < 76 AND my > 348 AND my < 428 THEN DoNote 2
344.     IF mx > 68 AND mx < 127 AND my > 432 AND my < 515 THEN DoNote 3
345.     IF mx > 112 AND mx < 146 AND my > 348 AND my < 428 THEN DoNote 4
346.     IF mx > 133 AND mx < 189 AND my > 432 AND my < 515 THEN DoNote 5
347.     IF mx > 182 AND mx < 214 AND my > 348 AND my < 428 THEN DoNote 6
348.     IF mx > 196 AND mx < 255 AND my > 432 AND my < 515 THEN DoNote 7
349.     IF mx > 260 AND mx < 319 AND my > 432 AND my < 515 THEN DoNote 8
350.     IF mx > 298 AND mx < 332 AND my > 348 AND my < 428 THEN DoNote 9
351.     IF mx > 324 AND mx < 383 AND my > 432 AND my < 515 THEN DoNote 10
352.     IF mx > 373 AND mx < 409 AND my > 348 AND my < 428 THEN DoNote 11
353.     IF mx > 387 AND mx < 447 AND my > 432 AND my < 515 THEN DoNote 12
354.     IF mx > 451 AND mx < 512 AND my > 432 AND my < 515 THEN DoNote 13
355.     IF mx > 489 AND mx < 526 AND my > 348 AND my < 428 THEN DoNote 14
356.     IF mx > 515 AND mx < 575 AND my > 432 AND my < 515 THEN DoNote 15
357.     IF mx > 557 AND mx < 596 AND my > 348 AND my < 428 THEN DoNote 16
358.     IF mx > 579 AND mx < 639 AND my > 432 AND my < 515 THEN DoNote 17
359.     IF mx > 627 AND mx < 667 AND my > 348 AND my < 428 THEN DoNote 18
360.     IF mx > 643 AND mx < 702 AND my > 432 AND my < 515 THEN DoNote 19
361.     IF mx > 707 AND mx < 767 AND my > 432 AND my < 515 THEN DoNote 20
362.     IF mx > 743 AND mx < 783 AND my > 348 AND my < 428 THEN DoNote 21
363.     IF mx > 771 AND mx < 831 AND my > 432 AND my < 515 THEN DoNote 22
364.     IF mx > 818 AND mx < 858 AND my > 348 AND my < 428 THEN DoNote 23
365.     IF mx > 835 AND mx < 895 AND my > 432 AND my < 515 THEN DoNote 24
366.     'top row...
367.     IF mx > 5 AND mx < 65 AND my > 211 AND my < 294 THEN DoNote 25
368.     IF mx > 42 AND mx < 81 AND my > 124 AND my < 207 THEN DoNote 26
369.     IF mx > 69 AND mx < 129 AND my > 211 AND my < 294 THEN DoNote 27
370.     IF mx > 114 AND mx < 147 AND my > 124 AND my < 207 THEN DoNote 28
371.     IF mx > 133 AND mx < 192 AND my > 211 AND my < 294 THEN DoNote 29
372.     IF mx > 184 AND mx < 215 AND my > 124 AND my < 207 THEN DoNote 30
373.     IF mx > 197 AND mx < 256 AND my > 211 AND my < 294 THEN DoNote 31
374.     IF mx > 261 AND mx < 320 AND my > 211 AND my < 294 THEN DoNote 32
375.     IF mx > 301 AND mx < 332 AND my > 124 AND my < 207 THEN DoNote 33
376.     IF mx > 325 AND mx < 384 AND my > 211 AND my < 294 THEN DoNote 34
377.     IF mx > 376 AND mx < 407 AND my > 124 AND my < 207 THEN DoNote 35
378.     IF mx > 388 AND mx < 448 AND my > 211 AND my < 294 THEN DoNote 36
379.     IF mx > 452 AND mx < 512 AND my > 211 AND my < 294 THEN DoNote 37
380.     IF mx > 493 AND mx < 525 AND my > 124 AND my < 207 THEN DoNote 38
381.     IF mx > 516 AND mx < 576 AND my > 211 AND my < 294 THEN DoNote 39
382.     IF mx > 561 AND mx < 594 AND my > 124 AND my < 207 THEN DoNote 40
383.     IF mx > 580 AND mx < 640 AND my > 211 AND my < 294 THEN DoNote 41
384.     IF mx > 631 AND mx < 664 AND my > 124 AND my < 207 THEN DoNote 42
385.     IF mx > 644 AND mx < 703 AND my > 211 AND my < 294 THEN DoNote 43
386.     IF mx > 708 AND mx < 767 AND my > 211 AND my < 294 THEN DoNote 44
387.     IF mx > 748 AND mx < 780 AND my > 124 AND my < 207 THEN DoNote 45
388.     IF mx > 772 AND mx < 831 AND my > 211 AND my < 294 THEN DoNote 46
389.     IF mx > 823 AND mx < 855 AND my > 124 AND my < 207 THEN DoNote 47
390.     IF mx > 836 AND mx < 895 AND my > 211 AND my < 294 THEN DoNote 48
391.  
392.     done = 1 'make a mouse click flag
393.  
394. END IF
395.  
396. GOSUB NoteDisplay
397.  
398. RETURN
399.  
400.  
401. '=========================================================
402. record:
403. '=======
404.  
405. 'Make copy of NoteData$ for undo purposes
406. UndoData$ = NoteData$
407.  
408. IF NoteData$ = "" THEN NoteData$ = "1" 'song recording marker
409. note = 1
410.  
411. COLOR _RGB(255, 255, 255), _RGB(255, 0, 0)
412. LOCATE 1, 1: PRINT " Now Recording | ESC to Stop ";
413.  
414.  
415. DO
416.  
417.     _LIMIT speed * 15 'this is the current delay/speed method....
418.  
419.     note$ = ""
420.  
421.     'playback any previously recorded notes
422.     SELECT CASE MID$(NoteData$, note, 1)
423.         CASE CHR$(1): DoNote 1
424.         CASE CHR$(2): DoNote 2
425.         CASE CHR$(3): DoNote 3
426.         CASE CHR$(4): DoNote 4
427.         CASE CHR$(5): DoNote 5
428.         CASE CHR$(6): DoNote 6
429.         CASE CHR$(7): DoNote 7
430.         CASE CHR$(8): DoNote 8
431.         CASE CHR$(9): DoNote 9
432.         CASE CHR$(10): DoNote 10
433.         CASE CHR$(11): DoNote 11
434.         CASE CHR$(12): DoNote 12
435.         CASE CHR$(13): DoNote 13
436.         CASE CHR$(14): DoNote 14
437.         CASE CHR$(15): DoNote 15
438.         CASE CHR$(16): DoNote 16
439.         CASE CHR$(17): DoNote 17
440.         CASE CHR$(18): DoNote 18
441.         CASE CHR$(19): DoNote 19
442.         CASE CHR$(20): DoNote 20
443.         CASE CHR$(21): DoNote 21
444.         CASE CHR$(22): DoNote 22
445.         CASE CHR$(23): DoNote 23
446.         CASE CHR$(24): DoNote 24
447.         CASE CHR$(25): DoNote 25
448.         CASE CHR$(26): DoNote 26
449.         CASE CHR$(27): DoNote 27
450.         CASE CHR$(28): DoNote 28
451.         CASE CHR$(29): DoNote 29
452.         CASE CHR$(30): DoNote 30
453.         CASE CHR$(31): DoNote 31
454.         CASE CHR$(32): DoNote 32
455.         CASE CHR$(33): DoNote 33
456.         CASE CHR$(34): DoNote 34
457.         CASE CHR$(35): DoNote 35
458.         CASE CHR$(36): DoNote 36
459.         CASE CHR$(37): DoNote 37
460.         CASE CHR$(38): DoNote 38
461.         CASE CHR$(39): DoNote 39
462.         CASE CHR$(40): DoNote 40
463.         CASE CHR$(41): DoNote 41
464.         CASE CHR$(42): DoNote 42
465.         CASE CHR$(43): DoNote 43
466.         CASE CHR$(44): DoNote 44
467.         CASE CHR$(45): DoNote 45
468.         CASE CHR$(46): DoNote 46
469.         CASE CHR$(47): DoNote 47
470.         CASE CHR$(48): DoNote 48
471.     END SELECT
472.  
473.     mi = _MOUSEINPUT
474.     IF _MOUSEBUTTON(1) = 0 THEN done = 0
475.  
476.     IF _MOUSEBUTTON(1) AND done = 0 THEN
477.         mx = _MOUSEX: my = _MOUSEY
478.  
479.         '=== play notes if clicked on one
480.         'top row...
481.         IF mx > 4 AND mx < 63 AND my > 432 AND my < 515 THEN DoNote 1: note$ = CHR$(1)
482.         IF mx > 42 AND mx < 76 AND my > 348 AND my < 428 THEN DoNote 2: note$ = CHR$(2)
483.         IF mx > 68 AND mx < 127 AND my > 432 AND my < 515 THEN DoNote 3: note$ = CHR$(3)
484.         IF mx > 112 AND mx < 146 AND my > 348 AND my < 428 THEN DoNote 4: note$ = CHR$(4)
485.         IF mx > 133 AND mx < 189 AND my > 432 AND my < 515 THEN DoNote 5: note$ = CHR$(5)
486.         IF mx > 182 AND mx < 214 AND my > 348 AND my < 428 THEN DoNote 6: note$ = CHR$(6)
487.         IF mx > 196 AND mx < 255 AND my > 432 AND my < 515 THEN DoNote 7: note$ = CHR$(7)
488.         IF mx > 260 AND mx < 319 AND my > 432 AND my < 515 THEN DoNote 8: note$ = CHR$(8)
489.         IF mx > 298 AND mx < 332 AND my > 348 AND my < 428 THEN DoNote 9: note$ = CHR$(9)
490.         IF mx > 324 AND mx < 383 AND my > 432 AND my < 515 THEN DoNote 10: note$ = CHR$(10)
491.         IF mx > 373 AND mx < 409 AND my > 348 AND my < 428 THEN DoNote 11: note$ = CHR$(11)
492.         IF mx > 387 AND mx < 447 AND my > 432 AND my < 515 THEN DoNote 12: note$ = CHR$(12)
493.         IF mx > 451 AND mx < 512 AND my > 432 AND my < 515 THEN DoNote 13: note$ = CHR$(13)
494.         IF mx > 489 AND mx < 526 AND my > 348 AND my < 428 THEN DoNote 14: note$ = CHR$(14)
495.         IF mx > 515 AND mx < 575 AND my > 432 AND my < 515 THEN DoNote 15: note$ = CHR$(15)
496.         IF mx > 557 AND mx < 596 AND my > 348 AND my < 428 THEN DoNote 16: note$ = CHR$(16)
497.         IF mx > 579 AND mx < 639 AND my > 432 AND my < 515 THEN DoNote 17: note$ = CHR$(17)
498.         IF mx > 627 AND mx < 667 AND my > 348 AND my < 428 THEN DoNote 18: note$ = CHR$(18)
499.         IF mx > 643 AND mx < 702 AND my > 432 AND my < 515 THEN DoNote 19: note$ = CHR$(19)
500.         IF mx > 707 AND mx < 767 AND my > 432 AND my < 515 THEN DoNote 20: note$ = CHR$(20)
501.         IF mx > 743 AND mx < 783 AND my > 348 AND my < 428 THEN DoNote 21: note$ = CHR$(21)
502.         IF mx > 771 AND mx < 831 AND my > 432 AND my < 515 THEN DoNote 22: note$ = CHR$(22)
503.         IF mx > 818 AND mx < 858 AND my > 348 AND my < 428 THEN DoNote 23: note$ = CHR$(23)
504.         IF mx > 835 AND mx < 895 AND my > 432 AND my < 515 THEN DoNote 24: note$ = CHR$(24)
505.         'bottom row...
506.         IF mx > 5 AND mx < 65 AND my > 211 AND my < 294 THEN DoNote 25: note$ = CHR$(25)
507.         IF mx > 42 AND mx < 81 AND my > 124 AND my < 207 THEN DoNote 26: note$ = CHR$(26)
508.         IF mx > 69 AND mx < 129 AND my > 211 AND my < 294 THEN DoNote 27: note$ = CHR$(27)
509.         IF mx > 114 AND mx < 147 AND my > 124 AND my < 207 THEN DoNote 28: note$ = CHR$(28)
510.         IF mx > 133 AND mx < 192 AND my > 211 AND my < 294 THEN DoNote 29: note$ = CHR$(29)
511.         IF mx > 184 AND mx < 215 AND my > 124 AND my < 207 THEN DoNote 30: note$ = CHR$(30)
512.         IF mx > 197 AND mx < 256 AND my > 211 AND my < 294 THEN DoNote 31: note$ = CHR$(31)
513.         IF mx > 261 AND mx < 320 AND my > 211 AND my < 294 THEN DoNote 32: note$ = CHR$(32)
514.         IF mx > 301 AND mx < 332 AND my > 124 AND my < 207 THEN DoNote 33: note$ = CHR$(33)
515.         IF mx > 325 AND mx < 384 AND my > 211 AND my < 294 THEN DoNote 34: note$ = CHR$(34)
516.         IF mx > 376 AND mx < 407 AND my > 124 AND my < 207 THEN DoNote 35: note$ = CHR$(35)
517.         IF mx > 388 AND mx < 448 AND my > 211 AND my < 294 THEN DoNote 36: note$ = CHR$(36)
518.         IF mx > 452 AND mx < 512 AND my > 211 AND my < 294 THEN DoNote 37: note$ = CHR$(37)
519.         IF mx > 493 AND mx < 525 AND my > 124 AND my < 207 THEN DoNote 38: note$ = CHR$(38)
520.         IF mx > 516 AND mx < 576 AND my > 211 AND my < 294 THEN DoNote 39: note$ = CHR$(39)
521.         IF mx > 561 AND mx < 594 AND my > 124 AND my < 207 THEN DoNote 40: note$ = CHR$(40)
522.         IF mx > 580 AND mx < 640 AND my > 211 AND my < 294 THEN DoNote 41: note$ = CHR$(41)
523.         IF mx > 631 AND mx < 664 AND my > 124 AND my < 207 THEN DoNote 42: note$ = CHR$(42)
524.         IF mx > 644 AND mx < 703 AND my > 211 AND my < 294 THEN DoNote 43: note$ = CHR$(43)
525.         IF mx > 708 AND mx < 767 AND my > 211 AND my < 294 THEN DoNote 44: note$ = CHR$(44)
526.         IF mx > 748 AND mx < 780 AND my > 124 AND my < 207 THEN DoNote 45: note$ = CHR$(45)
527.         IF mx > 772 AND mx < 831 AND my > 211 AND my < 294 THEN DoNote 46: note$ = CHR$(46)
528.         IF mx > 823 AND mx < 855 AND my > 124 AND my < 207 THEN DoNote 47: note$ = CHR$(47)
529.         IF mx > 846 AND mx < 895 AND my > 211 AND my < 294 THEN DoNote 48: note$ = CHR$(48)
530.  
531.         done = 1 'did a mouse click
532.  
533.     END IF
534.  
535.     GOSUB NoteDisplay
536.  
537.     IF note$ <> "" THEN
538.         IF note <= LEN(NoteData$) THEN
539.             MID$(NoteData$, note, 1) = note$ 'add the note
540.         ELSE
541.             NoteData$ = NoteData$ + note$
542.         END IF
543.     ELSE
544.         IF note >= LEN(NoteData$) THEN
545.             NoteData$ = NoteData$ + CHR$(255) 'else add empty space
546.         END IF
547.     END IF
548.  
549.     note = note + 1
550.     IF note >= MaxSongLength THEN EXIT DO
551.  
552. LOOP UNTIL INKEY$ = CHR$(27)
553.  
554. DO: LOOP UNTIL INKEY$ = ""
555.  
556. RETURN
557.  
558. '=========================================================
559. playback:
560. '========
561.  
562. 'If nothing recorded yet, don't try play
563. IF NoteData$ = "" THEN
564.     COLOR _RGB(0, 0, 0), _RGB(255, 255, 0)
565.     LOCATE 1, 1: PRINT " No recorded song in memory! ";
566.     _DELAY 2
567.     DO: LOOP UNTIL INKEY$ = ""
568.     RETURN
569. END IF
570.  
571. COLOR _RGB(0, 0, 0), _RGB(0, 255, 0)
572. LOCATE 1, 1: PRINT " Playing song | ESC to stop  ";
573.  
574. note = 1
575.  
576. DO
577.  
578.     _LIMIT speed * 15 'this is the current delay/speed method....
579.  
580.     SELECT CASE MID$(NoteData$, note, 1)
581.         CASE CHR$(1): DoNote 1
582.         CASE CHR$(2): DoNote 2
583.         CASE CHR$(3): DoNote 3
584.         CASE CHR$(4): DoNote 4
585.         CASE CHR$(5): DoNote 5
586.         CASE CHR$(6): DoNote 6
587.         CASE CHR$(7): DoNote 7
588.         CASE CHR$(8): DoNote 8
589.         CASE CHR$(9): DoNote 9
590.         CASE CHR$(10): DoNote 10
591.         CASE CHR$(11): DoNote 11
592.         CASE CHR$(12): DoNote 12
593.         CASE CHR$(13): DoNote 13
594.         CASE CHR$(14): DoNote 14
595.         CASE CHR$(15): DoNote 15
596.         CASE CHR$(16): DoNote 16
597.         CASE CHR$(17): DoNote 17
598.         CASE CHR$(18): DoNote 18
599.         CASE CHR$(19): DoNote 19
600.         CASE CHR$(20): DoNote 20
601.         CASE CHR$(21): DoNote 21
602.         CASE CHR$(22): DoNote 22
603.         CASE CHR$(23): DoNote 23
604.         CASE CHR$(24): DoNote 24
605.         CASE CHR$(25): DoNote 25
606.         CASE CHR$(26): DoNote 26
607.         CASE CHR$(27): DoNote 27
608.         CASE CHR$(28): DoNote 28
609.         CASE CHR$(29): DoNote 29
610.         CASE CHR$(30): DoNote 30
611.         CASE CHR$(31): DoNote 31
612.         CASE CHR$(32): DoNote 32
613.         CASE CHR$(33): DoNote 33
614.         CASE CHR$(34): DoNote 34
615.         CASE CHR$(35): DoNote 35
616.         CASE CHR$(36): DoNote 36
617.         CASE CHR$(37): DoNote 37
618.         CASE CHR$(38): DoNote 38
619.         CASE CHR$(39): DoNote 39
620.         CASE CHR$(40): DoNote 40
621.         CASE CHR$(41): DoNote 41
622.         CASE CHR$(42): DoNote 42
623.         CASE CHR$(43): DoNote 43
624.         CASE CHR$(44): DoNote 44
625.         CASE CHR$(45): DoNote 45
626.         CASE CHR$(46): DoNote 46
627.         CASE CHR$(47): DoNote 47
628.         CASE CHR$(48): DoNote 48
629.     END SELECT
630.  
631.     note = note + 1
632.  
633.     'if done playing, exit
634.     IF note >= LEN(NoteData$) THEN EXIT DO
635.  
636.     GOSUB PlayKeys 'you can play notes too while song plays
637.  
638.     k$ = INKEY$
639.     IF k$ <> "" THEN
640.         IF k$ = "-" THEN
641.             speed = speed - 1
642.             IF speed < 40 THEN speed = 40
643.             COLOR _RGB(163, 163, 175), _RGB(70, 95, 114)
644.             LOCATE 3, 3: PRINT " Speed ="; speed; "   ";
645.         END IF
646.         IF k$ = "+" THEN
647.             speed = speed + 1
648.             IF speed > 200 THEN speed = 200
649.             COLOR _RGB(163, 163, 175), _RGB(70, 95, 114)
650.             LOCATE 3, 3: PRINT " Speed ="; speed; "   ";
651.         END IF
652.         IF k$ = CHR$(13) THEN
653.             speed = 100
654.             COLOR _RGB(163, 163, 175), _RGB(70, 95, 114)
655.             LOCATE 3, 3: PRINT " Speed ="; speed; "   ";
656.         END IF
657.         _KEYCLEAR
658.     END IF
659.  
660. LOOP UNTIL k$ = CHR$(27)
661.  
662. DO: LOOP UNTIL INKEY$ = ""
663.  
664. RETURN
665.  
666. '=======================================================
667. NoteDisplay:
668. '===========
669. 'if note playing flag is on, check its timer.
670. 'If release time is past, note goes back to normal, flag off
671. IF n01flag = 1 THEN
672.     IF TIMER - n01timer > release THEN 'f1
673.         n01flag = 0
674.         LINE (4, 346)-(40, 434), WhtOff&, BF
675.         LINE (4, 434)-(63, 515), WhtOff&, BF
676.     END IF
677. END IF
678.  
679. IF n02flag = 1 THEN
680.     IF TIMER - n02timer > release THEN '
681.         n02timer = 0: LINE (44, 348)-(76, 429), BlkOff&, BF
682.     END IF
683. END IF
684.  
685. IF n03flag = 1 THEN
686.     IF TIMER - n03timer > release THEN '
687.         n03timer = 0
688.         LINE (81, 346)-(109, 434), WhtOff&, BF
689.         LINE (68, 434)-(127, 515), WhtOff&, BF
690.     END IF
691. END IF
692.  
693. IF n04flag = 1 THEN
694.     IF TIMER - n04timer > release THEN '
695.         n04timer = 0: LINE (113, 348)-(146, 429), BlkOff&, BF
696.     END IF
697. END IF
698.  
699. IF n05flag = 1 THEN
700.     IF TIMER - n05timer > release THEN '
701.         n05timer = 0
702.         LINE (150, 346)-(178, 434), WhtOff&, BF
703.         LINE (132, 434)-(191, 515), WhtOff&, BF
704.     END IF
705. END IF
706.  
707. IF n06flag = 1 THEN
708.     IF TIMER - n06timer > release THEN '
709.         n06timer = 0: LINE (183, 348)-(214, 429), BlkOff&, BF
710.     END IF
711. END IF
712.  
713. IF n07flag = 1 THEN
714.     IF TIMER - n07timer > release THEN '
715.         n07timer = 0
716.         LINE (219, 346)-(255, 434), WhtOff&, BF
717.         LINE (196, 434)-(255, 515), WhtOff&, BF
718.     END IF
719. END IF
720.  
721. IF n08flag = 1 THEN
722.     IF TIMER - n08timer > release THEN '
723.         n08timer = 0
724.         LINE (260, 346)-(295, 434), WhtOff&, BF
725.         LINE (260, 434)-(319, 515), WhtOff&, BF
726.     END IF
727. END IF
728.  
729. IF n09flag = 1 THEN
730.     IF TIMER - n09timer > release THEN '
731.         n09timer = 0: LINE (300, 348)-(332, 429), BlkOff&, BF
732.     END IF
733. END IF
734.  
735. IF n10flag = 1 THEN
736.     IF TIMER - n10timer > release THEN '
737.         n10timer = 0
738.         LINE (337, 346)-(370, 434), WhtOff&, BF
739.         LINE (324, 434)-(383, 515), WhtOff&, BF
740.     END IF
741. END IF
742.  
743. IF n11flag = 1 THEN
744.     IF TIMER - n11timer > release THEN '
745.         n11timer = 0: LINE (375, 348)-(406, 429), BlkOff&, BF
746.     END IF
747. END IF
748.  
749. IF n12flag = 1 THEN
750.     IF TIMER - n12timer > release THEN '
751.         n12timer = 0
752.         LINE (411, 346)-(447, 434), WhtOff&, BF
753.         LINE (387, 434)-(447, 515), WhtOff&, BF
754.     END IF
755. END IF
756.  
757. IF n13flag = 1 THEN
758.     IF TIMER - n13timer > release THEN '
759.         n13timer = 0
760.         LINE (451, 346)-(487, 434), WhtOff&, BF
761.         LINE (451, 434)-(511, 515), WhtOff&, BF
762.     END IF
763. END IF
764.  
765. IF n14flag = 1 THEN
766.     IF TIMER - n14timer > release THEN '
767.         n14timer = 0: LINE (492, 348)-(523, 429), BlkOff&, BF
768.     END IF
769. END IF
770.  
771. IF n15flag = 1 THEN
772.     IF TIMER - n15timer > release THEN '
773.         n15timer = 0
774.         LINE (528, 346)-(556, 434), WhtOff&, BF
775.         LINE (515, 434)-(575, 515), WhtOff&, BF
776.     END IF
777. END IF
778.  
779. IF n16flag = 1 THEN
780.     IF TIMER - n16timer > release THEN '
781.         n16timer = 0: LINE (560, 348)-(593, 429), BlkOff&, BF
782.     END IF
783. END IF
784.  
785. IF n17flag = 1 THEN
786.     IF TIMER - n17timer > release THEN '
787.         n17timer = 0
788.         LINE (598, 346)-(625, 434), WhtOff&, BF
789.         LINE (579, 434)-(639, 515), WhtOff&, BF
790.     END IF
791. END IF
792.  
793. IF n18flag = 1 THEN
794.     IF TIMER - n18timer > release THEN '
795.         n18timer = 0: LINE (630, 348)-(663, 429), BlkOff&, BF
796.     END IF
797. END IF
798.  
799. IF n19flag = 1 THEN
800.     IF TIMER - n19timer > release THEN '
801.         n19timer = 0
802.         LINE (667, 346)-(702, 434), WhtOff&, BF
803.         LINE (643, 434)-(702, 515), WhtOff&, BF
804.     END IF
805. END IF
806.  
807. IF n20flag = 1 THEN
808.     IF TIMER - n20timer > release THEN '
809.         n20timer = 0
810.         LINE (707, 346)-(743, 434), WhtOff&, BF
811.         LINE (707, 434)-(766, 515), WhtOff&, BF
812.     END IF
813. END IF
814.  
815. IF n21flag = 1 THEN
816.     IF TIMER - n21timer > release THEN '
817.         n21timer = 0: LINE (747, 348)-(779, 429), BlkOff&, BF
818.     END IF
819. END IF
820.  
821. IF n22flag = 1 THEN
822.     IF TIMER - n22timer > release THEN '
823.         n22timer = 0
824.         LINE (784, 346)-(817, 434), WhtOff&, BF
825.         LINE (771, 434)-(830, 515), WhtOff&, BF
826.     END IF
827. END IF
828.  
829. IF n23flag = 1 THEN
830.     IF TIMER - n23timer > release THEN '
831.         n23timer = 0: LINE (822, 348)-(854, 429), BlkOff&, BF
832.     END IF
833. END IF
834.  
835. IF n24flag = 1 THEN
836.     IF TIMER - n24timer > release THEN '
837.         n24timer = 0
838.         LINE (858, 346)-(894, 434), WhtOff&, BF
839.         LINE (835, 434)-(894, 515), WhtOff&, BF
840.     END IF
841. END IF
842.  
843. IF n25flag = 1 THEN
844.     IF TIMER - n25timer > release THEN '
845.         n25timer = 0
846.         LINE (5, 123)-(41, 210), WhtOff&, BF
847.         LINE (5, 211)-(64, 292), WhtOff&, BF
848.     END IF
849. END IF
850.  
851. IF n26flag = 1 THEN
852.     IF TIMER - n26timer > release THEN '
853.         n26timer = 0: LINE (45, 125)-(78, 207), BlkOff&, BF
854.     END IF
855. END IF
856.  
857. IF n27flag = 1 THEN
858.     IF TIMER - n27timer > release THEN '
859.         n27timer = 0
860.         LINE (82, 123)-(110, 210), WhtOff&, BF
861.         LINE (69, 211)-(128, 292), WhtOff&, BF
862.     END IF
863. END IF
864.  
865. IF n28flag = 1 THEN
866.     IF TIMER - n28timer > release THEN '
867.         n28timer = 0: LINE (114, 125)-(147, 207), BlkOff&, BF
868.     END IF
869. END IF
870.  
871. IF n29flag = 1 THEN
872.     IF TIMER - n29timer > release THEN '
873.         n29timer = 0
874.         LINE (151, 123)-(179, 210), WhtOff&, BF
875.         LINE (133, 211)-(192, 292), WhtOff&, BF
876.     END IF
877. END IF
878.  
879. IF n30flag = 1 THEN
880.     IF TIMER - n30timer > release THEN '
881.         n30timer = 0: LINE (184, 125)-(215, 207), BlkOff&, BF
882.     END IF
883. END IF
884.  
885. IF n31flag = 1 THEN
886.     IF TIMER - n31timer > release THEN '
887.         n31timer = 0
888.         LINE (220, 123)-(256, 210), WhtOff&, BF
889.         LINE (197, 211)-(256, 292), WhtOff&, BF
890.     END IF
891. END IF
892.  
893. IF n32flag = 1 THEN
894.     IF TIMER - n32timer > release THEN '
895.         n32timer = 0
896.         LINE (261, 123)-(296, 210), WhtOff&, BF
897.         LINE (261, 211)-(320, 292), WhtOff&, BF
898.     END IF
899. END IF
900.  
901. IF n33flag = 1 THEN
902.     IF TIMER - n33timer > release THEN '
903.         n33timer = 0: LINE (301, 125)-(332, 207), BlkOff&, BF
904.     END IF
905. END IF
906.  
907. IF n34flag = 1 THEN
908.     IF TIMER - n34timer > release THEN '
909.         n34timer = 0
910.         LINE (338, 123)-(371, 210), WhtOff&, BF
911.         LINE (325, 211)-(384, 292), WhtOff&, BF
912.     END IF
913. END IF
914.  
915. IF n35flag = 1 THEN
916.     IF TIMER - n35timer > release THEN '
917.         n35timer = 0: LINE (376, 125)-(407, 207), BlkOff&, BF
918.     END IF
919. END IF
920.  
921. IF n36flag = 1 THEN
922.     IF TIMER - n36timer > release THEN '
923.         n36timer = 0
924.         LINE (412, 123)-(448, 210), WhtOff&, BF
925.         LINE (388, 211)-(448, 292), WhtOff&, BF
926.     END IF
927. END IF
928.  
929. IF n37flag = 1 THEN
930.     IF TIMER - n37timer > release THEN '
931.         n37timer = 0
932.         LINE (452, 123)-(488, 210), WhtOff&, BF
933.         LINE (452, 211)-(512, 292), WhtOff&, BF
934.     END IF
935. END IF
936.  
937. IF n38flag = 1 THEN
938.     IF TIMER - n38timer > release THEN '
939.         n38timer = 0: LINE (493, 125)-(525, 207), BlkOff&, BF
940.     END IF
941. END IF
942.  
943. IF n39flag = 1 THEN
944.     IF TIMER - n39timer > release THEN '
945.         n39timer = 0
946.         LINE (529, 123)-(557, 210), WhtOff&, BF
947.         LINE (516, 211)-(576, 292), WhtOff&, BF
948.     END IF
949. END IF
950.  
951. IF n40flag = 1 THEN
952.     IF TIMER - n40timer > release THEN '
953.         n40timer = 0: LINE (561, 125)-(594, 207), BlkOff&, BF
954.     END IF
955. END IF
956.  
957. IF n41flag = 1 THEN
958.     IF TIMER - n41timer > release THEN '
959.         n41timer = 0
960.         LINE (599, 123)-(626, 210), WhtOff&, BF
961.         LINE (580, 211)-(640, 292), WhtOff&, BF
962.     END IF
963. END IF
964.  
965. IF n42flag = 1 THEN
966.     IF TIMER - n42timer > release THEN '
967.         n42timer = 0: LINE (631, 125)-(664, 207), BlkOff&, BF
968.     END IF
969. END IF
970.  
971. IF n43flag = 1 THEN
972.     IF TIMER - n43timer > release THEN '
973.         n43timer = 0
974.         LINE (668, 123)-(703, 210), WhtOff&, BF
975.         LINE (644, 211)-(703, 292), WhtOff&, BF
976.     END IF
977. END IF
978.  
979. IF n44flag = 1 THEN
980.     IF TIMER - n44timer > release THEN '
981.         n44timer = 0
982.         LINE (708, 123)-(744, 210), WhtOff&, BF
983.         LINE (708, 211)-(767, 292), WhtOff&, BF
984.     END IF
985. END IF
986.  
987. IF n45flag = 1 THEN
988.     IF TIMER - n45timer > release THEN '
989.         n45timer = 0: LINE (748, 125)-(780, 207), BlkOff&, BF
990.     END IF
991. END IF
992.  
993. IF n46flag = 1 THEN
994.     IF TIMER - n46timer > release THEN '
995.         n46timer = 0
996.         LINE (785, 123)-(818, 210), WhtOff&, BF
997.         LINE (772, 211)-(831, 292), WhtOff&, BF
998.     END IF
999. END IF
1000.  
1001. IF n47flag = 1 THEN
1002.     IF TIMER - n47timer > release THEN '
1003.         n47timer = 0: LINE (823, 125)-(855, 207), BlkOff&, BF
1004.     END IF
1005. END IF
1006.  
1007. IF n48flag = 1 THEN
1008.     IF TIMER - n48timer > release THEN '
1009.         n48timer = 0
1010.         LINE (859, 123)-(895, 210), WhtOff&, BF
1011.         LINE (836, 211)-(895, 292), WhtOff&, BF
1012.     END IF
1013. END IF
1014.  
1015. RETURN
1016.  
1017. '==========================================================
1018. SaveScreen: 'save current screen image
1019. '=========
1020. scr1 = _MEMIMAGE(0): scr2 = _MEMNEW(scr1.SIZE)
1021. _MEMCOPY scr1, scr1.OFFSET, scr1.SIZE TO scr2, scr2.OFFSET
1022.  
1023. RETURN
1024.  
1025. '==========================================================
1026. RestoreScreen: 'restores screen image saved
1027. '============
1028. _MEMCOPY scr2, scr2.OFFSET, scr2.SIZE TO scr1, scr1.OFFSET
1029. _MEMFREE scr1: _MEMFREE scr2
1030.  
1031. RETURN
1032.  
1033. '==========================================================
1034. UpdateInfo: 'clears area and sets info at the top left
1035. '=============
1036. COLOR _RGB(163, 163, 175), _RGB(70, 95, 114)
1037. LOCATE 1, 1: PRINT SPACE$(32);
1038. LOCATE 2, 1: PRINT SPACE$(32);
1039. IF song$ = "" THEN
1040.     LOCATE 2, 3: PRINT " Song: (none)"
1041. ELSE
1042.     LOCATE 2, 3: PRINT " Song: "; UCASE$(song$);
1043. END IF
1044. LOCATE 3, 3: PRINT " Speed ="; speed; "   ";
1045.  
1046. RETURN
1047.  
1048. '==========================================================
1049.  
1050. SUB DoNote (keynum)
1051.     'Plays the note$ sound, sets playing flag
1052.     SELECT CASE keynum
1053.         CASE 1: _SNDPLAYCOPY n01&
1054.             n01flag = 1: n01timer = TIMER
1055.             LINE (4, 346)-(40, 434), WhtOn&, BF
1056.             LINE (4, 434)-(63, 515), WhtOn&, BF
1057.         CASE 2: _SNDPLAYCOPY n02&
1058.             n02flag = 1: n02timer = TIMER
1059.             LINE (44, 348)-(76, 429), BlkOn&, BF
1060.         CASE 3: _SNDPLAYCOPY n03&
1061.             n03flag = 1: n03timer = TIMER
1062.             LINE (81, 346)-(109, 434), WhtOn&, BF
1063.             LINE (68, 434)-(127, 515), WhtOn&, BF
1064.         CASE 4: _SNDPLAYCOPY n04&
1065.             n04flag = 1: n04timer = TIMER
1066.             LINE (113, 348)-(146, 429), BlkOn&, BF
1067.         CASE 5: _SNDPLAYCOPY n05&
1068.             n05flag = 1: n05timer = TIMER:
1069.             LINE (150, 346)-(178, 434), WhtOn&, BF
1070.             LINE (132, 434)-(191, 515), WhtOn&, BF
1071.         CASE 6: _SNDPLAYCOPY n06&
1072.             n06flag = 1: n06timer = TIMER
1073.             LINE (183, 348)-(214, 429), BlkOn&, BF
1074.         CASE 7: _SNDPLAYCOPY n07&
1075.             n07flag = 1: n07timer = TIMER
1076.             LINE (219, 346)-(255, 434), WhtOn&, BF
1077.             LINE (196, 434)-(255, 515), WhtOn&, BF
1078.         CASE 8: _SNDPLAYCOPY n08&
1079.             n08flag = 1: n08timer = TIMER
1080.             LINE (260, 346)-(295, 434), WhtOn&, BF
1081.             LINE (260, 434)-(319, 515), WhtOn&, BF
1082.         CASE 9: _SNDPLAYCOPY n09&
1083.             n09flag = 1: n09timer = TIMER
1084.             LINE (300, 348)-(332, 429), BlkOn&, BF
1085.         CASE 10: _SNDPLAYCOPY n10&
1086.             n10flag = 1: n10timer = TIMER
1087.             LINE (337, 346)-(370, 434), WhtOn&, BF
1088.             LINE (324, 434)-(383, 515), WhtOn&, BF
1089.         CASE 11: _SNDPLAYCOPY n11&
1090.             n11flag = 1: n11timer = TIMER
1091.             LINE (375, 348)-(406, 429), BlkOn&, BF
1092.         CASE 12: _SNDPLAYCOPY n12&
1093.             n12flag = 1: n12timer = TIMER
1094.             LINE (411, 346)-(447, 434), WhtOn&, BF
1095.             LINE (387, 434)-(447, 515), WhtOn&, BF
1096.         CASE 13: _SNDPLAYCOPY n13&
1097.             n13flag = 1: n13timer = TIMER
1098.             LINE (451, 346)-(487, 434), WhtOn&, BF
1099.             LINE (451, 434)-(511, 515), WhtOn&, BF
1100.         CASE 14: _SNDPLAYCOPY n14&
1101.             n14flag = 1: n14timer = TIMER
1102.             LINE (492, 348)-(523, 429), BlkOn&, BF
1103.         CASE 15: _SNDPLAYCOPY n15&
1104.             n15flag = 1: n15timer = TIMER
1105.             LINE (528, 346)-(556, 434), WhtOn&, BF
1106.             LINE (515, 434)-(575, 515), WhtOn&, BF
1107.         CASE 16: _SNDPLAYCOPY n16&
1108.             n16flag = 1: n16timer = TIMER
1109.             LINE (560, 348)-(593, 429), BlkOn&, BF
1110.         CASE 17: _SNDPLAYCOPY n17&
1111.             n17flag = 1: n17timer = TIMER
1112.             LINE (598, 346)-(625, 434), WhtOn&, BF
1113.             LINE (579, 434)-(639, 515), WhtOn&, BF
1114.         CASE 18: _SNDPLAYCOPY n18&
1115.             n18flag = 1: n18timer = TIMER
1116.             LINE (630, 348)-(663, 429), BlkOn&, BF
1117.         CASE 19: _SNDPLAYCOPY n19&
1118.             n19flag = 1: n19timer = TIMER
1119.             LINE (667, 346)-(702, 434), WhtOn&, BF
1120.             LINE (643, 434)-(702, 515), WhtOn&, BF
1121.         CASE 20: _SNDPLAYCOPY n20&
1122.             n20flag = 1: n20timer = TIMER
1123.             LINE (707, 346)-(743, 434), WhtOn&, BF
1124.             LINE (707, 434)-(766, 515), WhtOn&, BF
1125.         CASE 21: _SNDPLAYCOPY n21&
1126.             n21flag = 1: n21timer = TIMER
1127.             LINE (747, 348)-(779, 429), BlkOn&, BF
1128.         CASE 22: _SNDPLAYCOPY n22&
1129.             n22flag = 1: n22timer = TIMER
1130.             LINE (784, 346)-(817, 434), WhtOn&, BF
1131.             LINE (771, 434)-(830, 515), WhtOn&, BF
1132.         CASE 23: _SNDPLAYCOPY n23&
1133.             n23flag = 1: n23timer = TIMER
1134.             LINE (822, 348)-(854, 429), BlkOn&, BF
1135.         CASE 24: _SNDPLAYCOPY n24&
1136.             n24flag = 1: n24timer = TIMER
1137.             LINE (858, 346)-(894, 434), WhtOn&, BF
1138.             LINE (835, 434)-(894, 515), WhtOn&, BF
1139.         CASE 25: _SNDPLAYCOPY n25&
1140.             n25flag = 1: n25timer = TIMER
1141.             LINE (5, 123)-(41, 210), WhtOn&, BF
1142.             LINE (5, 211)-(64, 292), WhtOn&, BF
1143.         CASE 26: _SNDPLAYCOPY n26&
1144.             n26flag = 1: n26timer = TIMER
1145.             LINE (45, 125)-(78, 207), BlkOn&, BF
1146.         CASE 27: _SNDPLAYCOPY n27&
1147.             n27flag = 1: n27timer = TIMER
1148.             LINE (82, 123)-(110, 210), WhtOn&, BF
1149.             LINE (69, 211)-(128, 292), WhtOn&, BF
1150.         CASE 28: _SNDPLAYCOPY n28&
1151.             n28flag = 1: n28timer = TIMER
1152.             LINE (114, 125)-(147, 207), BlkOn&, BF
1153.         CASE 29: _SNDPLAYCOPY n29&
1154.             n29flag = 1: n29timer = TIMER
1155.             LINE (151, 123)-(179, 210), WhtOn&, BF
1156.             LINE (133, 211)-(192, 292), WhtOn&, BF
1157.         CASE 30: _SNDPLAYCOPY n30&
1158.             n30flag = 1: n30timer = TIMER
1159.             LINE (184, 125)-(215, 207), BlkOn&, BF
1160.         CASE 31: _SNDPLAYCOPY n31&
1161.             n31flag = 1: n31timer = TIMER
1162.             LINE (220, 123)-(256, 210), WhtOn&, BF
1163.             LINE (197, 211)-(256, 292), WhtOn&, BF
1164.         CASE 32: _SNDPLAYCOPY n32&
1165.             n32flag = 1: n32timer = TIMER
1166.             LINE (261, 123)-(296, 210), WhtOn&, BF
1167.             LINE (261, 211)-(320, 292), WhtOn&, BF
1168.         CASE 33: _SNDPLAYCOPY n33&
1169.             n33flag = 1: n33timer = TIMER
1170.             LINE (301, 125)-(332, 207), BlkOn&, BF
1171.         CASE 34: _SNDPLAYCOPY n34&
1172.             n34flag = 1: n34timer = TIMER
1173.             LINE (338, 123)-(371, 210), WhtOn&, BF
1174.             LINE (325, 211)-(384, 292), WhtOn&, BF
1175.         CASE 35: _SNDPLAYCOPY n35&
1176.             n35flag = 1: n35timer = TIMER
1177.             LINE (376, 125)-(407, 207), BlkOn&, BF
1178.         CASE 36: _SNDPLAYCOPY n36&
1179.             n36flag = 1: n36timer = TIMER
1180.             LINE (412, 123)-(448, 210), WhtOn&, BF
1181.             LINE (388, 211)-(448, 292), WhtOn&, BF
1182.         CASE 37: _SNDPLAYCOPY n37&
1183.             n37flag = 1: n37timer = TIMER
1184.             LINE (452, 123)-(488, 210), WhtOn&, BF
1185.             LINE (452, 211)-(512, 292), WhtOn&, BF
1186.         CASE 38: _SNDPLAYCOPY n38&
1187.             n38flag = 1: n38timer = TIMER
1188.             LINE (493, 125)-(525, 207), BlkOn&, BF
1189.         CASE 39: _SNDPLAYCOPY n39&
1190.             n39flag = 1: n39timer = TIMER
1191.             LINE (529, 123)-(557, 210), WhtOn&, BF
1192.             LINE (516, 211)-(576, 292), WhtOn&, BF
1193.         CASE 40: _SNDPLAYCOPY n40&
1194.             n40flag = 1: n40timer = TIMER
1195.             LINE (561, 125)-(594, 207), BlkOn&, BF
1196.         CASE 41: _SNDPLAYCOPY n41&
1197.             n41flag = 1: n41timer = TIMER
1198.             LINE (599, 123)-(626, 210), WhtOn&, BF
1199.             LINE (580, 211)-(640, 292), WhtOn&, BF
1200.         CASE 42: _SNDPLAYCOPY n42&
1201.             n42flag = 1: n42timer = TIMER
1202.             LINE (632, 125)-(664, 207), BlkOn&, BF
1203.         CASE 43: _SNDPLAYCOPY n43&
1204.             n43flag = 1: n43timer = TIMER
1205.             LINE (668, 123)-(703, 210), WhtOn&, BF
1206.             LINE (644, 211)-(703, 292), WhtOn&, BF
1207.         CASE 44: _SNDPLAYCOPY n44&
1208.             n44flag = 1: n44timer = TIMER
1209.             LINE (708, 123)-(744, 210), WhtOn&, BF
1210.             LINE (708, 211)-(767, 292), WhtOn&, BF
1211.         CASE 45: _SNDPLAYCOPY n45&
1212.             n45flag = 1: n45timer = TIMER
1213.             LINE (748, 125)-(780, 207), BlkOn&, BF
1214.         CASE 46: _SNDPLAYCOPY n46&
1215.             n46flag = 1: n46timer = TIMER
1216.             LINE (785, 123)-(818, 210), WhtOn&, BF
1217.             LINE (772, 211)-(831, 292), WhtOn&, BF
1218.         CASE 47: _SNDPLAYCOPY n47&
1219.             n47flag = 1: n47timer = TIMER
1220.             LINE (823, 125)-(855, 207), BlkOn&, BF
1221.         CASE 48: _SNDPLAYCOPY n48&
1222.             n48flag = 1: n48timer = TIMER
1223.             LINE (859, 123)-(895, 210), WhtOn&, BF
1224.             LINE (836, 211)-(895, 292), WhtOn&, BF
1225.  
1226.     END SELECT
1227.  
1228. END SUB
1229.  
1230. '=======================================================
1231.  
1232. SUB DrawBox 'Draws the litte info box.  Used often
1233.     LINE (250, 200)-(650, 270), _RGB(70, 95, 114), BF
1234.     LINE (252, 202)-(648, 268), _RGB(255, 255, 255), B
1235.     COLOR _RGB(255, 255, 255), _RGB(70, 95, 114)
1236. END SUB
1237.  

 

[SpriggsySpriggs]

Wow! That screenshot looks beautiful as does the source code. I'll be sure to give this a try on my home PC.

[bplus]

Yes nice, the way it holds notes seems natural.

Be nice to do several keys/notes at once, time to invent 5 fingered mice or just transform the keyboard.

Not an .ogg in sight! File Explorer has no problem with compressed files.

[SierraKen]

I wonder if you can add a beat sound to it for the background. Lots of possible potential! But this is really cool.

[SierraKen]

I just tried it out... incredible job! You might want to add the ability to drag the mouse with the left mouse button down to be able to slide the piano keys down at one time. Awesome job also on your 3 songs! I have no idea how you made your .key files. :)

[Dav]

Thanks, guys!  It was fun to make.  My wife is glad this is completed, lol.

I just updated the code - I had left out a BF on the LINE statement, which made note 21 look sticky.  You can fix your code without re-downloading - at line# 815, change it to a BF on the end, not a B:

 n21timer = 0: LINE (747, 348)-(779, 429), BlkOff&, BF

I updated the posted code and .zip with the fix.

That's a good idea, @SierraKen - I was thinking on how to do that, maybe press Shift and the mouse will drag over the notes.

- Dav

[SierraKen]

It's line #817 on mine, but I fixed it. :)

This code example I just found on the Wiki might help you Dav. I was also thinking that it would be really cool if you could change the piano so the note it plays could keep going in length the longer you hold down the left mouse button.

Example 2: How to monitor when a button is down or wait until a mouse button is not held down.

Code: QB64: [Select]

1. PRINT "Hold down the left mouse button until you want to quit!"
2. DO
3.     i = _MOUSEINPUT ' read #1
4.     IF _MOUSEBUTTON(1) THEN PRINT "Left button down!": EXIT DO
5. LOOP
6. DO '                                                      need to wait
7.     i = _MOUSEINPUT '  read #2                         until the mouse
8. LOOP UNTIL NOT _MOUSEBUTTON(1) '                       button is released
9.  
10. PRINT "DONE!"  
11.  
12.  

From here: https://qb64.org/wiki/MOUSEBUTTON

[Dav]

Thanks, @SierraKen. I'll play around with it.  i've always been a little clumsy with mouse programming. I think i need to work in some aftertouch code, and figure out how to keep the notes playing. 

- Dav

[Petr]

@Dav   This is really a very nicely done program! I like it!

[OldMoses]

That's one that reminds of my college daze. I took a course in assembly programming and the main grade project was to produce a keyboard that played notes. I never got mine to work and the grade reflected that fact. That was my only brush with assembly.

[SierraKen]

Dav, I tried that code I posted for you and added the SOUND command and also the PLAY command, and couldn't get the timing right myself. So no worries if you can't get it. I know the Sound Card and BASIC has always been 2 different things. But I really like what you got already!

[Dav]

Thanks, @Petr. This was fun to make!

@OldMoses, that sound like a tough first project for assembly.  I would have loved to taken a course in programming in school.   I tried enrolling one year, but was denied taking any kind of computer classes at all.  I didnt have any of the math classes required.  They did me a favor saying no - could have ruined all the fun Ive had learning it on my own.

@SierraKen, i think Ive got the mouse thing worked out, but I need to resample the key  sounds - I'm thinking every key will need two sounds, one to play a long, and when the key is released, the  fade out note sound will take over. 

- Dav

[SierraKen]

Incredible Dav! No rush of course :)

[johnno56]

Dav,

Please excuse my apparent ignorance... Your sample playbacks 'seem' to be polyphonic, how else, except for a tablet-type device or instrument keyboard input, can a single mouse pointer be hopeful of recreating such examples? I am not complaining. Just curious.

By the way... very nicely done....

J

[Dav]

@johnno56: By overdubbing you can add layers of more notes.  Record some notes, then do record again adding more notes on top of that first recording, add so on.  They are merged.  It is tedious, but with one layer at a time you can end up with some complex stuff.

The example songs i recorded at a slow speed, around 50, then when finished i raised it up. I didn't finish the Dav.k48 song, my finger got tired of clicking...

- Dav