Tiny Navigator

[bplus]

Your SUB has an error that won't make it work, on this line:
tmpFile = tmpDir + "\DIR$INF0.INF" 'aha!, not a fully pathed file to user directory but here is good!   

The error says: Cannot convert number to string.

Do I need any of Steve's code for this windows temp directory?

QB64 thinks it's a number because we didn't DIM SHARED  tmpDir at start and then set it at start also.
So, you need this clip for starting program, sorry:

Code: QB64: [Select]

1. DIM SHARED tmpDir AS STRING '  establish a permanent spot for temp files
2. IF ENVIRON$("TEMP") <> "" THEN 'Thanks to Steve McNeill use user temp files directory
3.     tmpDir = ENVIRON$("TEMP")
4. ELSEIF ENVIRON$("TMP") <> "" THEN
5.     tmpDir = ENVIRON$("TMP")
6. ELSE 'Thanks to Steve McNeill this should be very unlikely
7.     IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
8.     tmpDir = "C:\temp"
9. END IF
10.  

ENVIRON$ is a function that returns values for various variables Windows uses for settings and Paths.

[SierraKen]

Thanks, but we are now back where we started. Maybe you misunderstood me about the problem. Your menu exits out back to my main menu fine. There's no problem with that at all, that I know of. The problem is when after I use your menu, and go back to my main menu and choose "Play Directory", it just sits there, but it also plays the songs. So it DOES go to the playdir section, but for some crazy reason it doesn't CLS and PRINT the sound information that it's playing. Another funny thing is that I can still use the space bar to Pause and P to keep playing, etc., that's in the playdir section. Another strange thing is that if I do not use your code to change the directory and just open the program and choose Play Directory, everything displays fine. So in other words, half of my code is working and the other half is not, on the same section (playdir). Try it out if you want to see what it's doing. But like I said before, no pressure. You mentioned to put whatever I want in that area in the changedir area, I might play around with putting the playdir code inside that and just make 1 section both a change directory and a play directory at the same time. Maybe that will work. I'll try it out. For now, this is what I have. I do appreciate the help. Actually, since your menu exits out fine back to my main menu good, I'm not going to mess with combining them yet.

Edit: I also just added the right temp directory to all the code.

Code: QB64: [Select]

1. 'This program was made on August 23, 2019 by Ken G. with lots of help by B+ and Petr from the QB64.org forum.
2. 'This program makes 2 temporary files called MyMusicFiles.temp and DIR$INF0.INF in a directory called c:\temp
3. 'If for some reason these files exist after this program is shut down, you are free to delete them.
4.  
5. _TITLE "Mini MP3 Player"
6. SCREEN _NEWIMAGE(400, 400, 32)
7. DIM SHARED tmpDir AS STRING '  establish a permanent spot for temp files
8. IF ENVIRON$("TEMP") <> "" THEN 'Thanks to Steve McNeill use user temp files directory
9.     tmpDir = ENVIRON$("TEMP")
10. ELSEIF ENVIRON$("TMP") <> "" THEN
11.     tmpDir = ENVIRON$("TMP")
12. ELSE 'Thanks to Steve McNeill this should be very unlikely
13.     IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
14.     tmpDir = "C:\temp"
15. END IF
16.  
17. begin:
18. DO
19.     DIM f$(10000)
20.     record = 0
21.     rec = 0
22.     oldp = 0
23.     p = 0
24.     CLS
25.     PRINT: PRINT: PRINT
26.     PRINT "                Mini MP3 Player"
27.     PRINT: PRINT: PRINT
28.     PRINT "                  By Ken G."
29.     PRINT
30.     LOCATE 11, 1: PRINT "Directory: "; _CWD$
31.     PRINT: PRINT
32.     PRINT "            (1) Change Directory"
33.     PRINT "            (2) Play Song"
34.     PRINT "            (3) Play Directory"
35.     PRINT "            (4) Quit"
36.     PRINT
37.     PRINT
38.     INPUT "      ->", a
39.     IF a = 1 THEN GOSUB changedirectory:
40.     IF a = 2 THEN GOSUB song:
41.     IF a = 3 THEN GOSUB playdir:
42.     IF a = 4 THEN END
43. LOOP
44.  
45. 'Play One Song Here
46.  
47. song:
48. CLS
49. FILES "*.mp3"
50. again2:
51. PRINT
52. INPUT "Song: ", song$
53. IF song$ = "" THEN RETURN
54. fe% = _FILEEXISTS(song$)
55. IF fe% <> -1 THEN
56.     PRINT "Filename doesn't exist."
57.     PRINT "Try again, or Enter for Menu."
58.     GOTO again2:
59. END IF
60. CLS
61. s& = _SNDOPEN(song$)
62. IF s& = 0 THEN BEEP ELSE _SNDPLAY s&
63. LOCATE 1, 1: PRINT song$
64. LOCATE 2, 1: PRINT "Sound Rate: "; _SNDRATE
65. LOCATE 4, 1: PRINT "Length: "; INT(_SNDLEN(s&))
66. LOCATE 6, 1: PRINT "Space Bar = Pause (P)lay (S)top (M)enu"
67.  
68. DO
69.     a$ = INKEY$
70.     IF a$ = CHR$(27) THEN _SNDSTOP s&: END
71.     IF a$ = " " THEN _SNDPAUSE s&
72.     IF a$ = "S" OR a$ = "s" THEN _SNDSTOP s&
73.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
74.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: RETURN
75.     oldp = p
76.     p = _SNDGETPOS(s&)
77.     LOCATE 3, 1: PRINT "Position: "; INT(p)
78.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN RETURN
79. LOOP
80. RETURN
81.  
82. 'Play Directory Here
83.  
84. playdir:
85. CLS
86. record = 0
87. rec = 0
88. REDIM file(0) AS STRING 'create empty text array. 0 is record nr. 1!
89. SHELL _HIDE "dir *.mp3 /B > " + tmpDir + "\MyMusicFiles.temp" 'create mp3 files list.
90. OPEN tmpDir + "\MyMusicFiles.temp" FOR INPUT AS #1
91. IF EOF(1) THEN
92.     CLOSE #1
93.     SHELL _HIDE "DEL " + tmpDir + "\MyMusicFiles.temp"
94.     CLS
95.     PRINT "No mp3 songs on this folder."
96.     PRINT
97.     INPUT "Press Enter to go back to Menu.", menu$
98.     RETURN
99. END IF
100. WHILE NOT EOF(1)
101.     LINE INPUT #1, file$
102.     file(record) = file$
103.     f$(record) = file$
104.     PRINT f$(record)
105.     record = record + 1 'for next loop we needed array higher up to one
106.     REDIM _PRESERVE file(record) AS STRING 'this do array bigger without deleting content
107. WEND
108. CLOSE #1
109. SHELL _HIDE "DEL " + tmpDir + "\MyMusicFiles.temp"
110. 'so now file(0) is first file from disk. file(3) is 4th file from disk. Try it:
111. ready:
112. a$ = ""
113. p = 0
114. oldp = 0
115. s& = _SNDOPEN(file(rec))
116. _SNDPLAY (s&)
117. LOCATE 1, 1: PRINT f$(rec)
118. LOCATE 2, 1: PRINT "Sound Rate: "; _SNDRATE
119. LOCATE 4, 1: PRINT "Length: "; INT(_SNDLEN(s&))
120. LOCATE 6, 1: PRINT "Space Bar = Pause (P)lay (N)ext Song (M)enu"
121. DO
122.     a$ = INKEY$
123.     IF a$ = CHR$(27) THEN _SNDSTOP s&: END
124.     IF a$ = " " THEN _SNDPAUSE s&
125.     IF a$ = "N" OR a$ = "n" THEN _SNDSTOP s&
126.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
127.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: rec = 0: RETURN
128.     oldp = p
129.     p = _SNDGETPOS(s&)
130.     LOCATE 3, 1: PRINT "Position: "; INT(p)
131.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN EXIT DO
132. LOOP
133. more:
134. IF rec = record - 1 THEN RETURN
135. rec = rec + 1
136. GOTO ready:
137. 'OPTION _EXPLICIT
138. '_TITLE "Tiny Navigator mod orig post with perm tmpfile" 'B+
139. ' 2019-08-22 orig post at https://www.qb64.org/forum/index.php?topic=1646.msg108682#msg108682
140. ' 2019-08-23 try fix (to nav all directories) with one place for tmpFile, theory can't write files in some dir's
141. ' For some reason Windows won't write to a fully pathed file in my user folder???
142. ' Try testing if dir exists "C:\temp" exists and making one if not, yes! and I can write my temp files there
143. ' and now I can chDir anywhere!
144.  
145. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
146.  
147. ' Attention!!!  this creates a temp directory "C:\temp", do not run this program if you forbid this.
148.  
149. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
150.  
151. 'Change Directory Here
152.  
153.  
154. changedirectory:
155. 'SCREEN _NEWIMAGE(1200, 600, 32)
156. '_SCREENMOVE 100, 50
157.  
158.  
159. DIM mySelection&, done$
160.  
161. DO
162.     PRINT "Current Directory: " + _CWD$
163.     REDIM myFiles(0) AS STRING ' >>>>>>>>>>>>>> you could change this name to myDIRs(0)
164.  
165.     'loadFA "*.*", myFiles()  ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>
166.     loadDIR myFiles() ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> myFiles to myDIRS()
167.  
168.     mySelection& = getArrayItemNumber&(5, 2, 48, 20, myFiles())
169.     CLS
170.     IF mySelection& <> -1719 THEN
171.         CHDIR myFiles(mySelection&) ' >>>>>>>>>>>>>>> myFiles(mySelection&) to myDIRS(mySelection&)
172.     ELSE
173.         _KEYCLEAR
174.         EXIT DO
175.     END IF
176.     _LIMIT 60
177. LOOP 'UNTIL done$ <> ""
178.  
179.  
180. RETURN
181.  
182.  
183. SUB loadDIR (fa() AS STRING)
184.     DIM tmpFile AS STRING, Index%, fline$, d$
185.     tmpFile = tmpDir + "\DIR$INF0.INF" 'aha!, not a fully pathed file to user directory but here is good!
186.     SHELL _HIDE "DIR /a:d >" + tmpFile 'get directories  but have to do a little pruning
187.     OPEN tmpFile FOR INPUT AS #1
188.     Index% = -1
189.     DO WHILE NOT EOF(1)
190.         LINE INPUT #1, fline$
191.         IF INSTR(fline$, "<DIR>") THEN
192.             d$ = _TRIM$(rightOf$(fline$, "<DIR>"))
193.             Index% = Index% + 1
194.             REDIM _PRESERVE fa(Index%)
195.             fa(Index%) = d$
196.         END IF
197.     LOOP
198.     CLOSE #1
199.     KILL tmpFile
200. END SUB
201.  
202. FUNCTION rightOf$ (source$, of$)
203.     IF INSTR(source$, of$) > 0 THEN rightOf$ = MID$(source$, INSTR(source$, of$) + LEN(of$))
204. END FUNCTION
205.  
206. 'attempting use this 4 things (2018-12-30)
207. ' 1. expects HELP sub that uses message and message box but easy to comment out
208. ' 2. expects to be in graphics mode
209. ' 3. chages color of screen
210. ' 4. needs _KEYCLEAR 2 before calling of previous keyhits will interfere!!!
211. '
212. ' Future Help Message Box for the function.
213. ' "*** Mouse and Key Instructions ***"
214. '
215. ' "Mouse, mouse wheel, and arrow keys should work as expected for item selection."
216. ' "Press spacebar to select a highlighted item or just click it."
217. ' "Use number(s) + enter to select an array item by it's index number,"
218. ' "backspace will remove last number pressed, c will clear a number started."
219. ' "Numbers started are shown in bottom right PgDn bar."
220. ' "Enter will also select the highlighted item, if no number has been started."
221. ' "Home starts you at lowest array index, End highlights then highest index."
222. ' "Use PgUp and PgDn keys to flip through pages of array items."
223. '
224. ' "Escape returns -1719 to allow a Cancel function and signal no slection."
225. FUNCTION getArrayItemNumber& (locateRow, locateColumn, boxWidth, boxHeight, arr() AS STRING)
226.     'Notes: locateRow, locateColumn for top right corner of selection box on screen in characters for LOCATE.
227.     'boxWidth and boxHeight are in character units, again for locate and print at correct places.
228.     'All displaying is restricted to inside the box, which has PgUP and PgDn as top and bottom lines in the display.
229.  
230.     DIM curRow AS INTEGER, curCol AS INTEGER, fg AS _UNSIGNED LONG, bg AS _UNSIGNED LONG
231.     DIM maxWidth AS INTEGER, maxHeight AS INTEGER, page AS INTEGER, hlite AS INTEGER, mx AS INTEGER, my AS INTEGER
232.     DIM lastMX AS INTEGER, lastMY AS INTEGER, row AS INTEGER, mb AS INTEGER
233.     DIM lba AS LONG, uba AS LONG, choice AS LONG, kh AS LONG, index AS LONG
234.     DIM clrStr AS STRING, b AS STRING
235.  
236.     'save old settings to restore at end ofsub
237.     curRow = CSRLIN
238.     curCol = POS(0)
239.     fg = _DEFAULTCOLOR
240.     bg = _BACKGROUNDCOLOR
241.     _KEYCLEAR
242.  
243.     maxWidth = boxWidth '       number of characters in box
244.     maxHeight = boxHeight - 2 ' number of lines displayed of array at one time = 1 page
245.     lba = LBOUND(arr)
246.     uba = UBOUND(arr)
247.     page = 0
248.     hlite = 0 '                 line in display ready for selection by spacebar or if no number is started, enter
249.     clrStr$ = SPACE$(maxWidth) 'clearing a display line
250.  
251.     GOSUB update '              show the beginning of the array items for selection
252.  
253.     'signal cancel selection process, exit sub with this unlikely index to signal canel
254.     choice = -1719 'primes 7 and 8, not likely to be a select index of an array
255.  
256.     DO 'until get a selection or demand exit
257.  
258.         'handle the key stuff
259.         kh& = _KEYHIT
260.         IF kh& THEN
261.             IF kh& > 0 AND kh& < 255 THEN
262.                 IF INSTR("0123456789", CHR$(kh&)) > 0 THEN b$ = b$ + CHR$(kh&): GOSUB update
263.                 'IF CHR$(kh&) = "h" THEN HELP: _KEYCLEAR
264.  
265.                 IF CHR$(kh&) = "c" THEN b$ = "": GOSUB update
266.                 IF kh& = 13 THEN 'enter pressed check if number is being entered?
267.                     IF LEN(b$) THEN
268.                         IF VAL(b$) >= lba AND VAL(b$) <= uba THEN 'we have number started
269.                             choice = VAL(b$): EXIT DO
270.                         ELSE 'clear b$ to show some response to enter
271.                             b$ = "": GOSUB update 'clear the value that doesn't work
272.                         END IF
273.                     ELSE
274.                         choice = hlite + page * maxHeight + lba 'must mean to select the highlighted item
275.                     END IF
276.                 END IF
277.                 IF kh& = 27 THEN EXIT DO 'escape clause offered to Cancel selection process
278.                 IF kh& = 32 THEN choice = hlite + page * maxHeight + lba 'best way to choose highlighted selection
279.                 IF kh& = 8 THEN 'backspace to edit number
280.                     IF LEN(b$) THEN b$ = LEFT$(b$, LEN(b$) - 1): GOSUB update
281.                 END IF
282.             ELSE
283.                 SELECT CASE kh& 'choosing sections of array to display and highlighted item
284.                     CASE 20736 'pg dn
285.                         IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
286.                     CASE 18688 'pg up
287.                         IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
288.                     CASE 18432 'up
289.                         IF hlite - 1 < 0 THEN
290.                             IF page > 0 THEN
291.                                 page = page - 1: hlite = maxHeight - 1: GOSUB update
292.                             END IF
293.                         ELSE
294.                             hlite = hlite - 1: GOSUB update
295.                         END IF
296.                     CASE 20480 'down
297.                         IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
298.                             IF hlite + 1 > maxHeight - 1 THEN
299.                                 page = page + 1: hlite = 0: GOSUB update
300.                             ELSE
301.                                 hlite = hlite + 1: GOSUB update
302.                             END IF
303.                         END IF
304.                     CASE 18176 'home
305.                         page = 0: hlite = 0: GOSUB update
306.                     CASE 20224 ' end
307.                         page = INT((uba - lba) / maxHeight): hlite = maxHeight - 1: GOSUB update
308.                 END SELECT
309.             END IF
310.         END IF
311.  
312.         'handle the mouse stuff
313.         WHILE _MOUSEINPUT
314.             IF _MOUSEWHEEL = -1 THEN 'up?
315.                 IF hlite - 1 < 0 THEN
316.                     IF page > 0 THEN
317.                         page = page - 1: hlite = maxHeight - 1: GOSUB update
318.                     END IF
319.                 ELSE
320.                     hlite = hlite - 1: GOSUB update
321.                 END IF
322.             ELSEIF _MOUSEWHEEL = 1 THEN 'down?
323.                 IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
324.                     IF hlite + 1 > maxHeight - 1 THEN
325.                         page = page + 1: hlite = 0: GOSUB update
326.                     ELSE
327.                         hlite = hlite + 1: GOSUB update
328.                     END IF
329.                 END IF
330.             END IF
331.         WEND
332.         mx = INT((_MOUSEX - locateColumn * 8) / 8) + 2: my = INT((_MOUSEY - locateRow * 16) / 16) + 2
333.         IF _MOUSEBUTTON(1) THEN 'click contols or select array item
334.             'clear mouse clicks
335.             mb = _MOUSEBUTTON(1)
336.             IF mb THEN 'clear it
337.                 WHILE mb 'OK!
338.                     IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
339.                     _LIMIT 100
340.                 WEND
341.             END IF
342.  
343.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
344.                 choice = my + page * maxHeight + lba - 1 'select item clicked
345.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = 0 THEN 'page up or exit
346.                 IF my = 0 AND (mx <= maxWidth AND mx >= maxWidth - 2) THEN 'exit sign
347.                     EXIT DO 'escape plan for mouse click top right corner of display box
348.                 ELSE 'PgUp bar clicked
349.                     IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
350.                 END IF
351.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = maxHeight + 1 THEN 'page down bar clicked
352.                 IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
353.             END IF
354.         ELSE '   mouse over highlighting, only if mouse has moved!
355.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
356.                 IF mx <> lastMX OR my <> lastMY THEN
357.                     IF my - 1 <> hlite AND (my - 1 + page * maxHeight + lba <= uba) THEN
358.                         hlite = my - 1
359.                         lastMX = mx: lastMY = my
360.                         GOSUB update
361.                     END IF
362.                 END IF
363.             END IF
364.         END IF
365.         _LIMIT 200
366.     LOOP UNTIL choice >= lba AND choice <= uba
367.     getArrayItemNumber& = choice
368.     COLOR fg, bg
369.     'clear key presses
370.     _KEYCLEAR
371.     LOCATE curRow, curCol
372.     'clear mouse clicks
373.     mb = _MOUSEBUTTON(1)
374.     IF mb THEN 'clear it
375.         WHILE mb 'OK!
376.             IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
377.             _LIMIT 100
378.         WEND
379.     END IF
380.     EXIT SUB
381.  
382.     'display of array sections and controls on screen
383.     update:
384.  
385.     'fix hlite if it has dropped below last array item
386.     WHILE hlite + page * maxHeight + lba > uba
387.         hlite = hlite - 1
388.     WEND
389.  
390.     'main display of array items at page * maxHeight (lines high)
391.     FOR row = 0 TO maxHeight - 1
392.         IF hlite = row THEN COLOR _RGB(200, 200, 255), _RGB32(0, 0, 88) ELSE COLOR _RGB32(0, 0, 88), _RGB(200, 200, 255)
393.         LOCATE locateRow + row, locateColumn: PRINT clrStr$
394.         index = row + page * maxHeight + lba
395.         IF index >= lba AND index <= uba THEN
396.             LOCATE locateRow + row, locateColumn
397.             PRINT LEFT$(LTRIM$(STR$(index)) + ") " + arr(index), maxWidth)
398.         END IF
399.     NEXT
400.  
401.     'make page up and down bars to click, print PgUp / PgDn if available
402.     COLOR _RGB32(200, 200, 255), _RGB32(0, 100, 50)
403.     LOCATE locateRow - 1, locateColumn: PRINT SPACE$(maxWidth)
404.     IF page <> 0 THEN LOCATE locateRow - 1, locateColumn: PRINT LEFT$(" Pg Up" + SPACE$(maxWidth), maxWidth)
405.     LOCATE locateRow + maxHeight, locateColumn: PRINT SPACE$(maxWidth)
406.     IF page <> INT(uba / maxHeight) THEN
407.         LOCATE locateRow + maxHeight, locateColumn: PRINT LEFT$(" Pg Dn" + SPACE$(maxWidth), maxWidth)
408.     END IF
409.     'make exit sign for mouse click
410.     COLOR _RGB32(255, 255, 255), _RGB32(200, 100, 0)
411.     LOCATE locateRow - 1, locateColumn + maxWidth - 3
412.     PRINT " X "
413.  
414.     'if a number selection has been started show it's build = b$
415.     IF LEN(b$) THEN
416.         COLOR _RGB(255, 255, 0), _RGB32(0, 0, 0)
417.         LOCATE locateRow + maxHeight, locateColumn + maxWidth - LEN(b$) - 1
418.         PRINT b$;
419.     END IF
420.     _DISPLAY
421.     _LIMIT 100
422.     RETURN
423. END FUNCTION
424.  

[SMcNeill]

Sounds like a sub is setting _DISPLAY internally, while the program expects _AUTODISPLAY to be in use.

[bplus]

Sounds like a sub is setting _DISPLAY internally, while the program expects _AUTODISPLAY to be in use.

Aha! could be it! but isn't the menu showing OK, but that waits for INPUT... hmm...

I need to get that array display code updated with the Screen State saver sub!

Ken try _AUTODISPLAY in that insert section of changedDirectory GOSUB line 174 and then exit do.

Update: Yep! that fixed it! I just found out I have an MP3 file in QB64 Directory that plays fireworks, maybe you guys do too? It is just as Ken said, info displays fine until run the Change directory code and then nothing shows until there is an input line. And _AUTODISPLAY at line 174 fixed it.

Thanks Steve! saved me some time reworking code.

[SierraKen]

ROFL WE DID IT!!!!!!!!!!!!!!! LOLOLOL Thanks Steve and B+! I added it right before it RETURN's back to the main menu and it's perfect now. I was almost getting to the point like on the Star Trek II Wrath of Khan when he talks about Kirk (who is this program to me): Khan Noonien Singh: He tasks me. He tasks me, and I shall have him. I'll chase him round the Moons of Nibia and round the Antares Maelstrom and round Perdition's flames before I give him up!

(Edit: I just added one CLS line so it would erase the name of the older song.)

Thanks guys.

Here is the code that works:

Code: QB64: [Select]

1. 'This program was made on August 23, 2019 by Ken G. with lots of help by B+,  SMcneill, and Petr from the QB64.org forum.
2. 'This program makes 2 temporary files called MyMusicFiles.temp and DIR$INF0.INF in your default temp directory.
3. 'If for some reason these files exist after this program is shut down, you are free to delete them.
4.  
5. _TITLE "Mini MP3 Player"
6. SCREEN _NEWIMAGE(400, 400, 32)
7. DIM SHARED tmpDir AS STRING '  establish a permanent spot for temp files
8. IF ENVIRON$("TEMP") <> "" THEN 'Thanks to Steve McNeill use user temp files directory
9.     tmpDir = ENVIRON$("TEMP")
10. ELSEIF ENVIRON$("TMP") <> "" THEN
11.     tmpDir = ENVIRON$("TMP")
12. ELSE 'Thanks to Steve McNeill this should be very unlikely
13.     IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
14.     tmpDir = "C:\temp"
15. END IF
16.  
17. begin:
18. DO
19.     DIM f$(10000)
20.     record = 0
21.     rec = 0
22.     oldp = 0
23.     p = 0
24.     CLS
25.     PRINT: PRINT: PRINT
26.     PRINT "                Mini MP3 Player"
27.     PRINT: PRINT: PRINT
28.     PRINT "                  By Ken G."
29.     PRINT
30.     LOCATE 11, 1: PRINT "Directory: "; _CWD$
31.     PRINT: PRINT
32.     PRINT "            (1) Change Directory"
33.     PRINT "            (2) Play Song"
34.     PRINT "            (3) Play Directory"
35.     PRINT "            (4) Quit"
36.     PRINT
37.     PRINT
38.     INPUT "      ->", a
39.     IF a = 1 THEN GOSUB changedirectory:
40.     IF a = 2 THEN GOSUB song:
41.     IF a = 3 THEN GOSUB playdir:
42.     IF a = 4 THEN END
43. LOOP
44.  
45. 'Play One Song Here
46.  
47. song:
48. CLS
49. FILES "*.mp3"
50. again2:
51. PRINT
52. INPUT "Song: ", song$
53. IF song$ = "" THEN RETURN
54. fe% = _FILEEXISTS(song$)
55. IF fe% <> -1 THEN
56.     PRINT "Filename doesn't exist."
57.     PRINT "Try again, or Enter for Menu."
58.     GOTO again2:
59. END IF
60. CLS
61. s& = _SNDOPEN(song$)
62. IF s& = 0 THEN BEEP ELSE _SNDPLAY s&
63. LOCATE 1, 1: PRINT song$
64. LOCATE 2, 1: PRINT "Sound Rate: "; _SNDRATE
65. LOCATE 4, 1: PRINT "Length: "; INT(_SNDLEN(s&))
66. LOCATE 6, 1: PRINT "Space Bar = Pause (P)lay (S)top (M)enu"
67.  
68. DO
69.     a$ = INKEY$
70.     IF a$ = CHR$(27) THEN _SNDSTOP s&: END
71.     IF a$ = " " THEN _SNDPAUSE s&
72.     IF a$ = "S" OR a$ = "s" THEN _SNDSTOP s&
73.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
74.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: RETURN
75.     oldp = p
76.     p = _SNDGETPOS(s&)
77.     LOCATE 3, 1: PRINT "Position: "; INT(p)
78.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN RETURN
79. LOOP
80. RETURN
81.  
82. 'Play Directory Here
83.  
84. playdir:
85. CLS
86. record = 0
87. rec = 0
88. REDIM file(0) AS STRING 'create empty text array. 0 is record nr. 1!
89. SHELL _HIDE "dir *.mp3 /B > " + tmpDir + "\MyMusicFiles.temp" 'create mp3 files list.
90. OPEN tmpDir + "\MyMusicFiles.temp" FOR INPUT AS #1
91. IF EOF(1) THEN
92.     CLOSE #1
93.     SHELL _HIDE "DEL " + tmpDir + "\MyMusicFiles.temp"
94.     CLS
95.     PRINT "No mp3 songs on this folder."
96.     PRINT
97.     INPUT "Press Enter to go back to Menu.", menu$
98.     RETURN
99. END IF
100. WHILE NOT EOF(1)
101.     LINE INPUT #1, file$
102.     file(record) = file$
103.     f$(record) = file$
104.     record = record + 1 'for next loop we needed array higher up to one
105.     REDIM _PRESERVE file(record) AS STRING 'this do array bigger without deleting content
106. WEND
107. CLOSE #1
108. SHELL _HIDE "DEL " + tmpDir + "\MyMusicFiles.temp"
109. 'so now file(0) is first file from disk. file(3) is 4th file from disk. Try it:
110. ready:
111. CLS
112. a$ = ""
113. p = 0
114. oldp = 0
115. s& = _SNDOPEN(file(rec))
116. _SNDPLAY (s&)
117. LOCATE 1, 1: PRINT f$(rec)
118. LOCATE 2, 1: PRINT "Sound Rate: "; _SNDRATE
119. LOCATE 4, 1: PRINT "Length: "; INT(_SNDLEN(s&))
120. LOCATE 6, 1: PRINT "Space Bar = Pause (P)lay (N)ext Song (M)enu"
121. DO
122.     a$ = INKEY$
123.     IF a$ = CHR$(27) THEN _SNDSTOP s&: END
124.     IF a$ = " " THEN _SNDPAUSE s&
125.     IF a$ = "N" OR a$ = "n" THEN _SNDSTOP s&
126.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
127.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: rec = 0: RETURN
128.     oldp = p
129.     p = _SNDGETPOS(s&)
130.     LOCATE 3, 1: PRINT "Position: "; INT(p)
131.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN EXIT DO
132. LOOP
133. more:
134. IF rec = record - 1 THEN RETURN
135. rec = rec + 1
136. GOTO ready:
137. 'OPTION _EXPLICIT
138. '_TITLE "Tiny Navigator mod orig post with perm tmpfile" 'B+
139. ' 2019-08-22 orig post at https://www.qb64.org/forum/index.php?topic=1646.msg108682#msg108682
140. ' 2019-08-23 try fix (to nav all directories) with one place for tmpFile, theory can't write files in some dir's
141. ' For some reason Windows won't write to a fully pathed file in my user folder???
142. ' Try testing if dir exists "C:\temp" exists and making one if not, yes! and I can write my temp files there
143. ' and now I can chDir anywhere!
144.  
145. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
146.  
147. ' Attention!!!  this creates a temp directory "C:\temp", do not run this program if you forbid this.
148.  
149. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
150.  
151. 'Change Directory Here
152.  
153.  
154. changedirectory:
155. 'SCREEN _NEWIMAGE(1200, 600, 32)
156. '_SCREENMOVE 100, 50
157.  
158.  
159. DIM mySelection&, done$
160.  
161. DO
162.     PRINT "Current Directory: " + _CWD$
163.     REDIM myFiles(0) AS STRING ' >>>>>>>>>>>>>> you could change this name to myDIRs(0)
164.  
165.     'loadFA "*.*", myFiles()  ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>
166.     loadDIR myFiles() ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> myFiles to myDIRS()
167.  
168.     mySelection& = getArrayItemNumber&(5, 2, 48, 20, myFiles())
169.     CLS
170.     IF mySelection& <> -1719 THEN
171.         CHDIR myFiles(mySelection&) ' >>>>>>>>>>>>>>> myFiles(mySelection&) to myDIRS(mySelection&)
172.     ELSE
173.         _KEYCLEAR
174.         EXIT DO
175.     END IF
176.     _LIMIT 60
177. LOOP 'UNTIL done$ <> ""
178.  
179. _AUTODISPLAY
180. RETURN
181.  
182.  
183. SUB loadDIR (fa() AS STRING)
184.     DIM tmpFile AS STRING, Index%, fline$, d$
185.     tmpFile = tmpDir + "\DIR$INF0.INF" 'aha!, not a fully pathed file to user directory but here is good!
186.     SHELL _HIDE "DIR /a:d >" + tmpFile 'get directories  but have to do a little pruning
187.     OPEN tmpFile FOR INPUT AS #1
188.     Index% = -1
189.     DO WHILE NOT EOF(1)
190.         LINE INPUT #1, fline$
191.         IF INSTR(fline$, "<DIR>") THEN
192.             d$ = _TRIM$(rightOf$(fline$, "<DIR>"))
193.             Index% = Index% + 1
194.             REDIM _PRESERVE fa(Index%)
195.             fa(Index%) = d$
196.         END IF
197.     LOOP
198.     CLOSE #1
199.     KILL tmpFile
200. END SUB
201.  
202. FUNCTION rightOf$ (source$, of$)
203.     IF INSTR(source$, of$) > 0 THEN rightOf$ = MID$(source$, INSTR(source$, of$) + LEN(of$))
204. END FUNCTION
205.  
206. 'attempting use this 4 things (2018-12-30)
207. ' 1. expects HELP sub that uses message and message box but easy to comment out
208. ' 2. expects to be in graphics mode
209. ' 3. chages color of screen
210. ' 4. needs _KEYCLEAR 2 before calling of previous keyhits will interfere!!!
211. '
212. ' Future Help Message Box for the function.
213. ' "*** Mouse and Key Instructions ***"
214. '
215. ' "Mouse, mouse wheel, and arrow keys should work as expected for item selection."
216. ' "Press spacebar to select a highlighted item or just click it."
217. ' "Use number(s) + enter to select an array item by it's index number,"
218. ' "backspace will remove last number pressed, c will clear a number started."
219. ' "Numbers started are shown in bottom right PgDn bar."
220. ' "Enter will also select the highlighted item, if no number has been started."
221. ' "Home starts you at lowest array index, End highlights then highest index."
222. ' "Use PgUp and PgDn keys to flip through pages of array items."
223. '
224. ' "Escape returns -1719 to allow a Cancel function and signal no slection."
225. FUNCTION getArrayItemNumber& (locateRow, locateColumn, boxWidth, boxHeight, arr() AS STRING)
226.     'Notes: locateRow, locateColumn for top right corner of selection box on screen in characters for LOCATE.
227.     'boxWidth and boxHeight are in character units, again for locate and print at correct places.
228.     'All displaying is restricted to inside the box, which has PgUP and PgDn as top and bottom lines in the display.
229.  
230.     DIM curRow AS INTEGER, curCol AS INTEGER, fg AS _UNSIGNED LONG, bg AS _UNSIGNED LONG
231.     DIM maxWidth AS INTEGER, maxHeight AS INTEGER, page AS INTEGER, hlite AS INTEGER, mx AS INTEGER, my AS INTEGER
232.     DIM lastMX AS INTEGER, lastMY AS INTEGER, row AS INTEGER, mb AS INTEGER
233.     DIM lba AS LONG, uba AS LONG, choice AS LONG, kh AS LONG, index AS LONG
234.     DIM clrStr AS STRING, b AS STRING
235.  
236.     'save old settings to restore at end ofsub
237.     curRow = CSRLIN
238.     curCol = POS(0)
239.     fg = _DEFAULTCOLOR
240.     bg = _BACKGROUNDCOLOR
241.     _KEYCLEAR
242.  
243.     maxWidth = boxWidth '       number of characters in box
244.     maxHeight = boxHeight - 2 ' number of lines displayed of array at one time = 1 page
245.     lba = LBOUND(arr)
246.     uba = UBOUND(arr)
247.     page = 0
248.     hlite = 0 '                 line in display ready for selection by spacebar or if no number is started, enter
249.     clrStr$ = SPACE$(maxWidth) 'clearing a display line
250.  
251.     GOSUB update '              show the beginning of the array items for selection
252.  
253.     'signal cancel selection process, exit sub with this unlikely index to signal canel
254.     choice = -1719 'primes 7 and 8, not likely to be a select index of an array
255.  
256.     DO 'until get a selection or demand exit
257.  
258.         'handle the key stuff
259.         kh& = _KEYHIT
260.         IF kh& THEN
261.             IF kh& > 0 AND kh& < 255 THEN
262.                 IF INSTR("0123456789", CHR$(kh&)) > 0 THEN b$ = b$ + CHR$(kh&): GOSUB update
263.                 'IF CHR$(kh&) = "h" THEN HELP: _KEYCLEAR
264.  
265.                 IF CHR$(kh&) = "c" THEN b$ = "": GOSUB update
266.                 IF kh& = 13 THEN 'enter pressed check if number is being entered?
267.                     IF LEN(b$) THEN
268.                         IF VAL(b$) >= lba AND VAL(b$) <= uba THEN 'we have number started
269.                             choice = VAL(b$): EXIT DO
270.                         ELSE 'clear b$ to show some response to enter
271.                             b$ = "": GOSUB update 'clear the value that doesn't work
272.                         END IF
273.                     ELSE
274.                         choice = hlite + page * maxHeight + lba 'must mean to select the highlighted item
275.                     END IF
276.                 END IF
277.                 IF kh& = 27 THEN EXIT DO 'escape clause offered to Cancel selection process
278.                 IF kh& = 32 THEN choice = hlite + page * maxHeight + lba 'best way to choose highlighted selection
279.                 IF kh& = 8 THEN 'backspace to edit number
280.                     IF LEN(b$) THEN b$ = LEFT$(b$, LEN(b$) - 1): GOSUB update
281.                 END IF
282.             ELSE
283.                 SELECT CASE kh& 'choosing sections of array to display and highlighted item
284.                     CASE 20736 'pg dn
285.                         IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
286.                     CASE 18688 'pg up
287.                         IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
288.                     CASE 18432 'up
289.                         IF hlite - 1 < 0 THEN
290.                             IF page > 0 THEN
291.                                 page = page - 1: hlite = maxHeight - 1: GOSUB update
292.                             END IF
293.                         ELSE
294.                             hlite = hlite - 1: GOSUB update
295.                         END IF
296.                     CASE 20480 'down
297.                         IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
298.                             IF hlite + 1 > maxHeight - 1 THEN
299.                                 page = page + 1: hlite = 0: GOSUB update
300.                             ELSE
301.                                 hlite = hlite + 1: GOSUB update
302.                             END IF
303.                         END IF
304.                     CASE 18176 'home
305.                         page = 0: hlite = 0: GOSUB update
306.                     CASE 20224 ' end
307.                         page = INT((uba - lba) / maxHeight): hlite = maxHeight - 1: GOSUB update
308.                 END SELECT
309.             END IF
310.         END IF
311.  
312.         'handle the mouse stuff
313.         WHILE _MOUSEINPUT
314.             IF _MOUSEWHEEL = -1 THEN 'up?
315.                 IF hlite - 1 < 0 THEN
316.                     IF page > 0 THEN
317.                         page = page - 1: hlite = maxHeight - 1: GOSUB update
318.                     END IF
319.                 ELSE
320.                     hlite = hlite - 1: GOSUB update
321.                 END IF
322.             ELSEIF _MOUSEWHEEL = 1 THEN 'down?
323.                 IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
324.                     IF hlite + 1 > maxHeight - 1 THEN
325.                         page = page + 1: hlite = 0: GOSUB update
326.                     ELSE
327.                         hlite = hlite + 1: GOSUB update
328.                     END IF
329.                 END IF
330.             END IF
331.         WEND
332.         mx = INT((_MOUSEX - locateColumn * 8) / 8) + 2: my = INT((_MOUSEY - locateRow * 16) / 16) + 2
333.         IF _MOUSEBUTTON(1) THEN 'click contols or select array item
334.             'clear mouse clicks
335.             mb = _MOUSEBUTTON(1)
336.             IF mb THEN 'clear it
337.                 WHILE mb 'OK!
338.                     IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
339.                     _LIMIT 100
340.                 WEND
341.             END IF
342.  
343.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
344.                 choice = my + page * maxHeight + lba - 1 'select item clicked
345.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = 0 THEN 'page up or exit
346.                 IF my = 0 AND (mx <= maxWidth AND mx >= maxWidth - 2) THEN 'exit sign
347.                     EXIT DO 'escape plan for mouse click top right corner of display box
348.                 ELSE 'PgUp bar clicked
349.                     IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
350.                 END IF
351.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = maxHeight + 1 THEN 'page down bar clicked
352.                 IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
353.             END IF
354.         ELSE '   mouse over highlighting, only if mouse has moved!
355.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
356.                 IF mx <> lastMX OR my <> lastMY THEN
357.                     IF my - 1 <> hlite AND (my - 1 + page * maxHeight + lba <= uba) THEN
358.                         hlite = my - 1
359.                         lastMX = mx: lastMY = my
360.                         GOSUB update
361.                     END IF
362.                 END IF
363.             END IF
364.         END IF
365.         _LIMIT 200
366.     LOOP UNTIL choice >= lba AND choice <= uba
367.     getArrayItemNumber& = choice
368.     COLOR fg, bg
369.     'clear key presses
370.     _KEYCLEAR
371.     LOCATE curRow, curCol
372.     'clear mouse clicks
373.     mb = _MOUSEBUTTON(1)
374.     IF mb THEN 'clear it
375.         WHILE mb 'OK!
376.             IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
377.             _LIMIT 100
378.         WEND
379.     END IF
380.     EXIT SUB
381.  
382.     'display of array sections and controls on screen
383.     update:
384.  
385.     'fix hlite if it has dropped below last array item
386.     WHILE hlite + page * maxHeight + lba > uba
387.         hlite = hlite - 1
388.     WEND
389.  
390.     'main display of array items at page * maxHeight (lines high)
391.     FOR row = 0 TO maxHeight - 1
392.         IF hlite = row THEN COLOR _RGB(200, 200, 255), _RGB32(0, 0, 88) ELSE COLOR _RGB32(0, 0, 88), _RGB(200, 200, 255)
393.         LOCATE locateRow + row, locateColumn: PRINT clrStr$
394.         index = row + page * maxHeight + lba
395.         IF index >= lba AND index <= uba THEN
396.             LOCATE locateRow + row, locateColumn
397.             PRINT LEFT$(LTRIM$(STR$(index)) + ") " + arr(index), maxWidth)
398.         END IF
399.     NEXT
400.  
401.     'make page up and down bars to click, print PgUp / PgDn if available
402.     COLOR _RGB32(200, 200, 255), _RGB32(0, 100, 50)
403.     LOCATE locateRow - 1, locateColumn: PRINT SPACE$(maxWidth)
404.     IF page <> 0 THEN LOCATE locateRow - 1, locateColumn: PRINT LEFT$(" Pg Up" + SPACE$(maxWidth), maxWidth)
405.     LOCATE locateRow + maxHeight, locateColumn: PRINT SPACE$(maxWidth)
406.     IF page <> INT(uba / maxHeight) THEN
407.         LOCATE locateRow + maxHeight, locateColumn: PRINT LEFT$(" Pg Dn" + SPACE$(maxWidth), maxWidth)
408.     END IF
409.     'make exit sign for mouse click
410.     COLOR _RGB32(255, 255, 255), _RGB32(200, 100, 0)
411.     LOCATE locateRow - 1, locateColumn + maxWidth - 3
412.     PRINT " X "
413.  
414.     'if a number selection has been started show it's build = b$
415.     IF LEN(b$) THEN
416.         COLOR _RGB(255, 255, 0), _RGB32(0, 0, 0)
417.         LOCATE locateRow + maxHeight, locateColumn + maxWidth - LEN(b$) - 1
418.         PRINT b$;
419.     END IF
420.     _DISPLAY
421.     _LIMIT 100
422.     RETURN
423. END FUNCTION
424.  

[SierraKen]

It's too bad we can't use the Windows Default Music Directory with this. I tried adding it just now to my music program just with a couple lines to switch to it, which it did. But I then used the selection to change it again with your folder menu to go deeper to play music in it, but the subscript was out of range. I found out how to switch to it from a Wiki example. I have no idea why it wouldn't work with your folder changer once you are in it. I don't use the Windows Default Music Directory myself but just thought it would be good for people that did.
Here is the Wiki example:
http://www.qb64.org/wiki/DIR$

The subscript is out of range on this line:
 CHDIR myFiles(mySelection&)

[bplus]

Nice find Ken! I did not know of this command.

Try chdir to that directory first in the start of your code, the navigator code has to be in the directory to get more directory info to move around from where it is.

BTW I found a spot in my hard drive that has neither a dot directory nor a .. go up directory, hp is hole navigator can fall into and not be able to get out, no ..

[SierraKen]

Yes, that's what I did. I made Default Music Directory part of my main menu. So I went there first, then after it changed to the Default Music Directory, it automatically went back to the main menu so then I went to your directory changing selection to go deeper inside of it. When I did it, it showed the deeper folder, and I went to it, but  when I closed it with your X, is when I got that error and the program closed. The error is this:
The subscript is out of range on this line:
 CHDIR myFiles(mySelection&)

[SierraKen]

The code is very simple to change to the Default Music Directory. It's just this:

Code: QB64: [Select]

1.  
2. defaultdir:
3. CHDIR _DIR$("music")
4. RETURN
5.  
6.  

[bplus]

Hi Ken,

Short on time I just put this line:
CHDIR _DIR$("music") 

Right after, we set tmpDir, and it seems OK to me, a quick test exiting by clicking X. I will test more after supper...

[SierraKen]

It works fine when you don't click any folders inside your menu. Put a test folder inside of your default music folder and click that. Then click the X and see if you are getting the same error I am.

[bplus]

Hi Ken, I am not able to replicate your error
 

[SierraKen]

Did you click the X or press Esc? Pressing Esc seems to work for some odd reason.
This also brings me back to something you offered me to change earlier, which I didn't do. You said to change myFiles to myFolders right? I didn't do it though but I wonder if that makes any difference? The reason I didn't do it is because it was already fixed by the time I saw your advice on the code.
Also, just so you know, the mouse's wheel never worked on the menu, I always have to press the top or bottom to scroll up or down. I don't know if you ever got that working yet.

[SierraKen]

WOW! I fixed it! LOL! I will test it a couple more times but I think I found the problem. Every computer uses _LIMIT 100 probably a tiny bit differently. I commented out _LIMIT 100 on 2 of yours toward the bottom of your code (and the program). In my experience of working with the _LIMIT command is that when my computers gets around 100, the program slows down dramatically. Sometimes it takes to _LIMIT 50. But this is why I try to not keep it under _LIMIT 200 unless I need something to run very slow. So far I've tested my program and so far it's fixed! Thank you again for the help B+! :)
Now to decide if I want to move my tons of music from its own folder to the Windows Default Music folder lol. I probably should also make that the starting folder of the program as well. I think I will.

[SierraKen]

Here is my Music Player code that's fixed. I also had to fix the 1 song selection, it had an error when there were no .mp3 files in the directory. So I just changed it to FILES and not FILES *.mp3
I might change that section sometime but as for today, this is my finished version. :)
This version starts out in the Windows Default Music Folder and lets you use B+'s directory selector to choose which one you want to listen to. It also lets you come back to the Windows Default Music Folder if you leave it.

Code: QB64: [Select]

1. 'This program was made on August 23, 2019 by Ken G. with lots of help by B+, SMcneill, and Petr from the QB64.org forum.
2. 'This program makes 2 temporary files called MyMusicFiles.temp and DIR$INF0.INF in your default temp directory.
3. 'If for some reason these files exist after this program is shut down, you are free to delete them.
4.  
5. _TITLE "Mini MP3 Player"
6. SCREEN _NEWIMAGE(400, 400, 32)
7. DIM SHARED tmpDir AS STRING '  establish a permanent spot for temp files
8. IF ENVIRON$("TEMP") <> "" THEN 'Thanks to Steve McNeill use user temp files directory
9.     tmpDir = ENVIRON$("TEMP")
10. ELSEIF ENVIRON$("TMP") <> "" THEN
11.     tmpDir = ENVIRON$("TMP")
12. ELSE 'Thanks to Steve McNeill this should be very unlikely
13.     IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
14.     tmpDir = "C:\temp"
15. END IF
16.  
17. GOSUB defaultdir: 'Set default folder to Windows Music Default Folder
18.  
19. begin:
20. DO
21.     DIM f$(10000)
22.     record = 0
23.     rec = 0
24.     oldp = 0
25.     p = 0
26.     CLS
27.     PRINT: PRINT: PRINT
28.     PRINT "                Mini MP3 Player"
29.     PRINT: PRINT: PRINT
30.     PRINT "                  By Ken G."
31.     PRINT
32.     LOCATE 11, 1: PRINT "Directory: "; _CWD$
33.     PRINT: PRINT
34.     PRINT "(1) Change Directory"
35.     PRINT "(2) Change Back To Windows Default Music Directory"
36.     PRINT "(3) Play Entire Directory"
37.     PRINT "(4) Play One Song"
38.     PRINT "(5) Quit"
39.     PRINT
40.     PRINT
41.     INPUT "->", a
42.     IF a = 1 THEN GOSUB changedirectory:
43.     IF a = 2 THEN GOSUB defaultdir:
44.     IF a = 3 THEN GOSUB playdir:
45.     IF a = 4 THEN GOSUB song:
46.     IF a = 5 THEN END
47. LOOP
48.  
49. defaultdir:
50. CHDIR _DIR$("music")
51. RETURN
52.  
53. 'Play One Song Here
54.  
55. song:
56. CLS
57. FILES
58. again2:
59. PRINT
60. PRINT "Press only Enter to go back to Menu."
61. PRINT
62. INPUT "Song Name: ", song$
63. IF song$ = "" THEN RETURN
64. fe% = _FILEEXISTS(song$)
65. IF fe% <> -1 THEN
66.     PRINT "Filename doesn't exist."
67.     PRINT "Try again, or Enter for Menu."
68.     GOTO again2:
69. END IF
70. CLS
71. s& = _SNDOPEN(song$)
72. IF s& = 0 THEN BEEP ELSE _SNDPLAY s&
73. LOCATE 1, 1: PRINT song$
74. LOCATE 2, 1: PRINT "Sound Rate: "; _SNDRATE
75. LOCATE 4, 1: PRINT "Length: "; INT(_SNDLEN(s&))
76. LOCATE 6, 1: PRINT "Space Bar = Pause (P)lay (S)top (M)enu"
77.  
78. DO
79.     a$ = INKEY$
80.     IF a$ = CHR$(27) THEN _SNDSTOP s&: END
81.     IF a$ = " " THEN _SNDPAUSE s&
82.     IF a$ = "S" OR a$ = "s" THEN _SNDSTOP s&
83.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
84.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: RETURN
85.     oldp = p
86.     p = _SNDGETPOS(s&)
87.     LOCATE 3, 1: PRINT "Position: "; INT(p)
88.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN RETURN
89. LOOP
90. RETURN
91.  
92. 'Play Directory Here
93.  
94. playdir:
95. CLS
96. record = 0
97. rec = 0
98. REDIM file(0) AS STRING 'create empty text array. 0 is record nr. 1!
99. SHELL _HIDE "dir *.mp3 /B > " + tmpDir + "\MyMusicFiles.temp" 'create mp3 files list.
100. OPEN tmpDir + "\MyMusicFiles.temp" FOR INPUT AS #1
101. IF EOF(1) THEN
102.     CLOSE #1
103.     SHELL _HIDE "DEL " + tmpDir + "\MyMusicFiles.temp"
104.     CLS
105.     PRINT "No mp3 songs on this folder."
106.     PRINT
107.     INPUT "Press Enter to go back to Menu.", menu$
108.     RETURN
109. END IF
110. WHILE NOT EOF(1)
111.     LINE INPUT #1, file$
112.     file(record) = file$
113.     f$(record) = file$
114.     record = record + 1 'for next loop we needed array higher up to one
115.     REDIM _PRESERVE file(record) AS STRING 'this do array bigger without deleting content
116. WEND
117. CLOSE #1
118. SHELL _HIDE "DEL " + tmpDir + "\MyMusicFiles.temp"
119. 'so now file(0) is first file from disk. file(3) is 4th file from disk. Try it:
120. ready:
121. CLS
122. a$ = ""
123. p = 0
124. oldp = 0
125. s& = _SNDOPEN(file(rec))
126. _SNDPLAY (s&)
127. LOCATE 1, 1: PRINT f$(rec)
128. LOCATE 2, 1: PRINT "Sound Rate: "; _SNDRATE
129. LOCATE 4, 1: PRINT "Length: "; INT(_SNDLEN(s&))
130. LOCATE 6, 1: PRINT "Space Bar = Pause (P)lay (N)ext Song (M)enu"
131. DO
132.     a$ = INKEY$
133.     IF a$ = CHR$(27) THEN _SNDSTOP s&: END
134.     IF a$ = " " THEN _SNDPAUSE s&
135.     IF a$ = "N" OR a$ = "n" THEN _SNDSTOP s&
136.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
137.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: rec = 0: RETURN
138.     oldp = p
139.     p = _SNDGETPOS(s&)
140.     LOCATE 3, 1: PRINT "Position: "; INT(p)
141.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN EXIT DO
142. LOOP
143. more:
144. IF rec = record - 1 THEN RETURN
145. rec = rec + 1
146. GOTO ready:
147.  
148.  
149. 'Change Directory Here
150.  
151.  
152. changedirectory:
153.  
154.  
155. DIM mySelection&
156.  
157.  
158. DO
159.     PRINT "Current Directory: " + _CWD$
160.     REDIM myFiles(0) AS STRING
161.  
162.     loadDIR myFiles()
163.  
164.     mySelection& = getArrayItemNumber&(5, 2, 48, 20, myFiles())
165.     CLS
166.     IF mySelection& <> -1719 THEN
167.         CHDIR myFiles(mySelection&)
168.     ELSE
169.         _KEYCLEAR
170.         EXIT DO
171.     END IF
172.     _LIMIT 60
173. LOOP
174.  
175. _AUTODISPLAY
176. RETURN
177.  
178.  
179. SUB loadDIR (fa() AS STRING)
180.     DIM tmpFile AS STRING, Index%, fline$, d$
181.     tmpFile = tmpDir + "\DIR$INF0.INF" 'aha!, not a fully pathed file to user directory but here is good!
182.     SHELL _HIDE "DIR /a:d >" + tmpFile 'get directories  but have to do a little pruning
183.     OPEN tmpFile FOR INPUT AS #1
184.     Index% = -1
185.     DO WHILE NOT EOF(1)
186.         LINE INPUT #1, fline$
187.         IF INSTR(fline$, "<DIR>") THEN
188.             d$ = _TRIM$(rightOf$(fline$, "<DIR>"))
189.             Index% = Index% + 1
190.             REDIM _PRESERVE fa(Index%)
191.             fa(Index%) = d$
192.         END IF
193.     LOOP
194.     CLOSE #1
195.     KILL tmpFile
196. END SUB
197.  
198. FUNCTION rightOf$ (source$, of$)
199.     IF INSTR(source$, of$) > 0 THEN rightOf$ = MID$(source$, INSTR(source$, of$) + LEN(of$))
200. END FUNCTION
201.  
202.  
203. FUNCTION getArrayItemNumber& (locateRow, locateColumn, boxWidth, boxHeight, arr() AS STRING)
204.  
205.     DIM curRow AS INTEGER, curCol AS INTEGER, fg AS _UNSIGNED LONG, bg AS _UNSIGNED LONG
206.     DIM maxWidth AS INTEGER, maxHeight AS INTEGER, page AS INTEGER, hlite AS INTEGER, mx AS INTEGER, my AS INTEGER
207.     DIM lastMX AS INTEGER, lastMY AS INTEGER, row AS INTEGER, mb AS INTEGER
208.     DIM lba AS LONG, uba AS LONG, choice AS LONG, kh AS LONG, index AS LONG
209.     DIM clrStr AS STRING, b AS STRING
210.  
211.     'save old settings to restore at end ofsub
212.     curRow = CSRLIN
213.     curCol = POS(0)
214.     fg = _DEFAULTCOLOR
215.     bg = _BACKGROUNDCOLOR
216.     _KEYCLEAR
217.  
218.     maxWidth = boxWidth '       number of characters in box
219.     maxHeight = boxHeight - 2 ' number of lines displayed of array at one time = 1 page
220.     lba = LBOUND(arr)
221.     uba = UBOUND(arr)
222.     page = 0
223.     hlite = 0 '                 line in display ready for selection by spacebar or if no number is started, enter
224.     clrStr$ = SPACE$(maxWidth) 'clearing a display line
225.  
226.     GOSUB update '              show the beginning of the array items for selection
227.  
228.     'signal cancel selection process, exit sub with this unlikely index to signal canel
229.     choice = -1719 'primes 7 and 8, not likely to be a select index of an array
230.  
231.     DO 'until get a selection or demand exit
232.  
233.         'handle the key stuff
234.         kh& = _KEYHIT
235.         IF kh& THEN
236.             IF kh& > 0 AND kh& < 255 THEN
237.                 IF INSTR("0123456789", CHR$(kh&)) > 0 THEN b$ = b$ + CHR$(kh&): GOSUB update
238.                 'IF CHR$(kh&) = "h" THEN HELP: _KEYCLEAR
239.  
240.                 IF CHR$(kh&) = "c" THEN b$ = "": GOSUB update
241.                 IF kh& = 13 THEN 'enter pressed check if number is being entered?
242.                     IF LEN(b$) THEN
243.                         IF VAL(b$) >= lba AND VAL(b$) <= uba THEN 'we have number started
244.                             choice = VAL(b$): EXIT DO
245.                         ELSE 'clear b$ to show some response to enter
246.                             b$ = "": GOSUB update 'clear the value that doesn't work
247.                         END IF
248.                     ELSE
249.                         choice = hlite + page * maxHeight + lba 'must mean to select the highlighted item
250.                     END IF
251.                 END IF
252.                 IF kh& = 27 THEN EXIT DO 'escape clause offered to Cancel selection process
253.                 IF kh& = 32 THEN choice = hlite + page * maxHeight + lba 'best way to choose highlighted selection
254.                 IF kh& = 8 THEN 'backspace to edit number
255.                     IF LEN(b$) THEN b$ = LEFT$(b$, LEN(b$) - 1): GOSUB update
256.                 END IF
257.             ELSE
258.                 SELECT CASE kh& 'choosing sections of array to display and highlighted item
259.                     CASE 20736 'pg dn
260.                         IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
261.                     CASE 18688 'pg up
262.                         IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
263.                     CASE 18432 'up
264.                         IF hlite - 1 < 0 THEN
265.                             IF page > 0 THEN
266.                                 page = page - 1: hlite = maxHeight - 1: GOSUB update
267.                             END IF
268.                         ELSE
269.                             hlite = hlite - 1: GOSUB update
270.                         END IF
271.                     CASE 20480 'down
272.                         IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
273.                             IF hlite + 1 > maxHeight - 1 THEN
274.                                 page = page + 1: hlite = 0: GOSUB update
275.                             ELSE
276.                                 hlite = hlite + 1: GOSUB update
277.                             END IF
278.                         END IF
279.                     CASE 18176 'home
280.                         page = 0: hlite = 0: GOSUB update
281.                     CASE 20224 ' end
282.                         page = INT((uba - lba) / maxHeight): hlite = maxHeight - 1: GOSUB update
283.                 END SELECT
284.             END IF
285.         END IF
286.  
287.         'handle the mouse stuff
288.         WHILE _MOUSEINPUT
289.             IF _MOUSEWHEEL = -1 THEN 'up?
290.                 IF hlite - 1 < 0 THEN
291.                     IF page > 0 THEN
292.                         page = page - 1: hlite = maxHeight - 1: GOSUB update
293.                     END IF
294.                 ELSE
295.                     hlite = hlite - 1: GOSUB update
296.                 END IF
297.             ELSEIF _MOUSEWHEEL = 1 THEN 'down?
298.                 IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
299.                     IF hlite + 1 > maxHeight - 1 THEN
300.                         page = page + 1: hlite = 0: GOSUB update
301.                     ELSE
302.                         hlite = hlite + 1: GOSUB update
303.                     END IF
304.                 END IF
305.             END IF
306.         WEND
307.         mx = INT((_MOUSEX - locateColumn * 8) / 8) + 2: my = INT((_MOUSEY - locateRow * 16) / 16) + 2
308.         IF _MOUSEBUTTON(1) THEN 'click contols or select array item
309.             'clear mouse clicks
310.             mb = _MOUSEBUTTON(1)
311.             IF mb THEN 'clear it
312.                 WHILE mb 'OK!
313.                     IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
314.                     _LIMIT 100
315.                 WEND
316.             END IF
317.  
318.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
319.                 choice = my + page * maxHeight + lba - 1 'select item clicked
320.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = 0 THEN 'page up or exit
321.                 IF my = 0 AND (mx <= maxWidth AND mx >= maxWidth - 2) THEN 'exit sign
322.                     EXIT DO 'escape plan for mouse click top right corner of display box
323.                 ELSE 'PgUp bar clicked
324.                     IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
325.                 END IF
326.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = maxHeight + 1 THEN 'page down bar clicked
327.                 IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
328.             END IF
329.         ELSE '   mouse over highlighting, only if mouse has moved!
330.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
331.                 IF mx <> lastMX OR my <> lastMY THEN
332.                     IF my - 1 <> hlite AND (my - 1 + page * maxHeight + lba <= uba) THEN
333.                         hlite = my - 1
334.                         lastMX = mx: lastMY = my
335.                         GOSUB update
336.                     END IF
337.                 END IF
338.             END IF
339.         END IF
340.         _LIMIT 200
341.     LOOP UNTIL choice >= lba AND choice <= uba
342.     getArrayItemNumber& = choice
343.     COLOR fg, bg
344.     'clear key presses
345.     _KEYCLEAR
346.     LOCATE curRow, curCol
347.     'clear mouse clicks
348.     mb = _MOUSEBUTTON(1)
349.     IF mb THEN 'clear it
350.         WHILE mb 'OK!
351.             IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
352.             '_LIMIT 100
353.         WEND
354.     END IF
355.     EXIT SUB
356.  
357.     'display of array sections and controls on screen
358.     update:
359.  
360.     'fix hlite if it has dropped below last array item
361.     WHILE hlite + page * maxHeight + lba > uba
362.         hlite = hlite - 1
363.     WEND
364.  
365.     'main display of array items at page * maxHeight (lines high)
366.     FOR row = 0 TO maxHeight - 1
367.         IF hlite = row THEN COLOR _RGB(200, 200, 255), _RGB32(0, 0, 88) ELSE COLOR _RGB32(0, 0, 88), _RGB(200, 200, 255)
368.         LOCATE locateRow + row, locateColumn: PRINT clrStr$
369.         index = row + page * maxHeight + lba
370.         IF index >= lba AND index <= uba THEN
371.             LOCATE locateRow + row, locateColumn
372.             PRINT LEFT$(LTRIM$(STR$(index)) + ") " + arr(index), maxWidth)
373.         END IF
374.     NEXT
375.  
376.     'make page up and down bars to click, print PgUp / PgDn if available
377.     COLOR _RGB32(200, 200, 255), _RGB32(0, 100, 50)
378.     LOCATE locateRow - 1, locateColumn: PRINT SPACE$(maxWidth)
379.     IF page <> 0 THEN LOCATE locateRow - 1, locateColumn: PRINT LEFT$(" Pg Up" + SPACE$(maxWidth), maxWidth)
380.     LOCATE locateRow + maxHeight, locateColumn: PRINT SPACE$(maxWidth)
381.     IF page <> INT(uba / maxHeight) THEN
382.         LOCATE locateRow + maxHeight, locateColumn: PRINT LEFT$(" Pg Dn" + SPACE$(maxWidth), maxWidth)
383.     END IF
384.     'make exit sign for mouse click
385.     COLOR _RGB32(255, 255, 255), _RGB32(200, 100, 0)
386.     LOCATE locateRow - 1, locateColumn + maxWidth - 3
387.     PRINT " X "
388.  
389.     'if a number selection has been started show it's build = b$
390.     IF LEN(b$) THEN
391.         COLOR _RGB(255, 255, 0), _RGB32(0, 0, 0)
392.         LOCATE locateRow + maxHeight, locateColumn + maxWidth - LEN(b$) - 1
393.         PRINT b$;
394.     END IF
395.     _DISPLAY
396.     '_LIMIT 100
397.     RETURN
398. END FUNCTION
399.