Mini MP3 Player

[SierraKen]

Today I decided to try my hands on a mini mp3 player. I tried to see if I can make it play a whole folder but I'm not sure how to do that. I tried SHELL with SORT to make a temp .txt file of the directory. But I would have to figure out how to read that file 1 song at a time. I might try that more another time. But for now, I made this little player that plays 1 song at a time. It also can change directories. It has nothing except play. No stop, FF, rewind, pause, or anything. LOL But it could be used for something to quickly play a song or added to another game or program for a song. I'm sure many people have made stuff like this in the past, but it's my first one. :)

Code: QB64: [Select]

1. _TITLE "Mini MP3 Player"
2. SCREEN _NEWIMAGE(300, 300, 32)
3. begin:
4. CLS
5. PRINT: PRINT: PRINT
6. PRINT "           Mini MP3 Player"
7. PRINT: PRINT: PRINT
8. PRINT "              By Ken G."
9. PRINT: PRINT: PRINT
10. PRINT "        (1) Change Directory"
11. PRINT "        (2) Play Song"
12. PRINT "        (3) Quit"
13. PRINT
14. INPUT "->", a
15. IF a = 1 THEN GOTO directory:
16. IF a = 2 THEN GOTO song:
17. IF a = 3 THEN END
18. IF a > 3 OR a < 1 OR a <> INT(a) THEN GOTO begin:
19. directory:
20. CLS
21. PRINT: PRINT: PRINT
22. INPUT "Directory: ", d$
23. CHDIR d$
24. PRINT "New Directory is: "; d$
25. PRINT
26. INPUT "Press enter to go to menu.", a$
27. GOTO begin:
28. song:
29. CLS
30. FILES "*.mp3"
31. PRINT
32. INPUT "Song: ", song$
33. s& = _SNDOPEN(song$)
34. IF s& = 0 THEN BEEP ELSE _SNDPLAY s&
35. GOTO begin:
36.  

[Petr]

I tried to see if I can make it play a whole folder but I'm not sure how to do that. I tried SHELL with SORT to make a temp .txt file of the directory. But I would have to figure out how to read that file 1 song at a time.

Hi Ken. Try this example, for more clearity see also to created file MyFiles.txt.
Run this in folder with some MP3 sound files.

Code: QB64: [Select]

1. REDIM file(0) AS STRING 'create empty text array. 0 is record nr. 1!
2. SHELL "dir *.mp3 /B > MyFiles.txt" 'create mp3 files list to file MyFiles.txt
3.  
4. 'now - load this files. I show you how do it.
5. 'first for you program show for you files, which are found in current directory:
6.  
7. OPEN "MyFiles.txt" FOR INPUT AS #1
8. WHILE NOT EOF(1)
9.     LINE INPUT #1, file$
10.     PRINT file$; " is record nr."; record; "in file. I add it also to array 'file' also with this number" 'you see which MP3 file is on which position in file list MyFiles.txt
11.     PRINT "press any key"
12.     SLEEP
13.     file(record) = file$ 'so we add to record 0 first file, because variable record here is zero
14.     record = record + 1 'for next loop we needed array higher up to one
15.     REDIM _PRESERVE file(record) AS STRING 'this do array bigger without deleting content
16. WEND
17.  
18. 'so now file(0) is first file from disk. file(3) is 4th file from disk. Try it:
19. ready:
20. PRINT "Input music file for playing (maximal value is"; UBOUND(file) -1; ")"
21. INPUT rec
22. IF rec > UBOUND(file) -1 OR rec < LBOUND(rec) THEN PRINT "Invalid record number!": GOTO ready
23. _SNDPLAYFILE (file(rec)) 'run REC nr. record
24.  

I'm one of those who wrote own player. It was posted on the old [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there] forum. The source code is still with me if you are interested. It is 63 kilobits of source code. There was a problem with sound file names that were written with unicode characters.


Then, if you need control, if some music is now played or not, use function _SNDPLAYING for it.

If you need using all sound files in one step, use DIR *.* /B > filelist.txt. Then open this file and read last 4 characters (RIGHT$). If this are .MP3 or .WAV or .OGG, write this files to array as in my example. Is possible also playing .MID files if you use external library.

[SierraKen]

Thanks Petr, I understand a lot of what you did there and put it in my program. I'm going to see if I can find a way to play the whole folder though without having to type any numbers. Or maybe make it have random play on that folder. There's probably a command that says when a song is over, I will look into that. Thanks again!

[SierraKen]

Thanks to Petr's help, I was able to finish this player tonight. :) It doesn't have all the bells and whistles, but it does say the Position of the song while playing (using INT to not show so many numbers flying by LOL). You also can skip to the next song in the folder while it's playing the whole folder. The menu lets you play just 1 song or a whole directory. It also lets you change the directory to whatever you want. Although I don't suggest trying to change to the Windows 10 built-in Music folder. I know QB64 has code for that somewhere I think, but I didn't add it because I don't use that directory. If it's pretty simple I might look into it later. But please check this out. You have to know the directory name to change to, it's just 1 INPUT line that asks for the directory name. Like I said above, this is my first mp3 player I ever made. Thank you to QB64 for letting us make these.

(Note: A better version than this is below.)

Code: QB64: [Select]

1. 'This program was made on August 21, 2019 by Ken G. with some help by Petr from the QB64.org forum.
2. 'This program will make a temporary file called MyMusicFiles-Temp000.temp
3. 'which is just a text file and can be opened by Notepad. It shows a list of
4. 'the mp3 songs in that directory. The file is deleted once the music starts.
5.  
6. _TITLE "Mini MP3 Player"
7. SCREEN _NEWIMAGE(400, 400, 32)
8. begin:
9. DIM f$(100000)
10. record = 0
11. rec = 0
12. oldp = 0
13. p = 0
14. CLS
15. PRINT: PRINT: PRINT
16. PRINT "                Mini MP3 Player"
17. PRINT: PRINT: PRINT
18. PRINT "                  By Ken G."
19. PRINT: PRINT: PRINT
20. PRINT "            (1) Change Directory"
21. PRINT "            (2) Play Song"
22. PRINT "            (3) Play Directory"
23. PRINT "            (4) Quit"
24. PRINT
25. PRINT
26. INPUT "      ->", a
27. IF a = 1 THEN GOTO directory:
28. IF a = 2 THEN GOTO song:
29. IF a = 3 THEN GOTO playdir:
30. IF a = 4 THEN END
31. IF a > 4 OR a < 1 OR a <> INT(a) THEN GOTO begin:
32. directory:
33. CLS
34. again:
35. PRINT: PRINT: PRINT
36. INPUT "Directory: ", d$
37. r% = _DIREXISTS(d$)
38. IF r% <> -1 THEN PRINT "Directory doesn't exist, try again.": GOTO again:
39. CHDIR d$
40. PRINT "New Directory is: "; d$
41. PRINT
42. INPUT "Press enter to go to menu.", a$
43. GOTO begin:
44. song:
45. CLS
46. FILES "*.mp3"
47. again2:
48. PRINT
49. INPUT "Song: ", song$
50. fe% = _FILEEXISTS(song$)
51. IF fe% <> -1 THEN PRINT "Filename doesn't exist, try again.": GOTO again2:
52. s& = _SNDOPEN(song$)
53. IF s& = 0 THEN BEEP ELSE _SNDPLAY s&
54. LOCATE 1, 1: PRINT song$
55. LOCATE 5, 1: PRINT "Space Bar = Pause (P)lay (S)top"
56. DO
57.     a$ = INKEY$
58.     IF a$ = CHR$(27) THEN END
59.     IF a$ = " " THEN _SNDPAUSE s&
60.     IF a$ = "S" OR a$ = "s" THEN _SNDSTOP s&
61.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
62.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: GOTO begin:
63.     oldp = p
64.     p = _SNDGETPOS(s&)
65.     LOCATE 3, 1: PRINT "Position: "; INT(p)
66.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN GOTO begin:
67. LOOP
68. GOTO begin:
69. playdir:
70. CLS
71. REDIM file(0) AS STRING 'create empty text array. 0 is record nr. 1!
72. SHELL _HIDE "dir *.mp3 /B > MyMusicFiles-Temp000.temp" 'create mp3 files list.
73. OPEN "MyMusicFiles-Temp000.temp" FOR INPUT AS #1
74. IF EOF(1) THEN
75.     CLOSE #1
76.     SHELL _HIDE "DEL MyMusicFiles-Temp000.temp"
77.     CLS
78.     PRINT "No mp3 songs on this folder."
79.     PRINT
80.     INPUT "Press Enter to go back to Menu.", menu$
81.     GOTO begin:
82. END IF
83. WHILE NOT EOF(1)
84.     LINE INPUT #1, file$
85.     file(record) = file$ 'so we add to record 0 first file, because variable record here is zero
86.     f$(record) = file$
87.     PRINT f$(record)
88.     record = record + 1 'for next loop we needed array higher up to one
89.     REDIM _PRESERVE file(record) AS STRING 'this do array bigger without deleting content
90. WEND
91. CLOSE #1
92. SHELL _HIDE "DEL MyMusicFiles-Temp000.temp"
93. 'so now file(0) is first file from disk. file(3) is 4th file from disk. Try it:
94. ready:
95. s& = _SNDOPEN(file(rec))
96. CLS
97. _SNDPLAY (s&)
98. LOCATE 1, 1: PRINT f$(rec)
99. LOCATE 5, 1: PRINT "Space Bar = Pause (P)lay (N)ext Song (M)enu"
100. DO
101.     a$ = INKEY$
102.     IF a$ = CHR$(27) THEN END
103.     IF a$ = " " THEN _SNDPAUSE s&
104.     IF a$ = "N" OR a$ = "n" THEN _SNDSTOP s&
105.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
106.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: rec = 0: GOTO begin:
107.     oldp = p
108.     p = _SNDGETPOS(s&)
109.     LOCATE 3, 1: PRINT "Position: "; INT(p)
110.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN GOTO more:
111. LOOP
112. more:
113. IF rec = record - 1 THEN GOTO begin:
114. rec = rec + 1
115. GOTO ready:
116.  

[SierraKen]

Deleted by original poster. - Not sure why this copy of the last post is here, probably on accident.

[SierraKen]

I added the length of the song to compare it with the position, and also the sound rate. Plus I made it faster to switch folders by using Wiki code to automatically display what folder you are on, on the front menu page. When you change folders, you don't have to press Enter again, it just goes straight back to the Menu and shows the new folder. :) This is a pretty fun program to play with. Of course I don't need this program (I use Foobar2000 to play my music), but it feels nice to know that I finally made something that plays songs.
Here is the newest update:

Code: QB64: [Select]

1. 'This program was made on August 21, 2019 by Ken G. with some help by Petr from the QB64.org forum.
2. 'This program will make a temporary file called MyMusicFiles-Temp000.temp
3. 'which is just a text file and can be opened by Notepad. It shows a list of
4. 'the mp3 songs in that directory. The file is deleted once the music starts.
5.  
6. DECLARE LIBRARY 'Directory Information using KERNEL32 provided by Dav
7.     FUNCTION CURDirectory ALIAS GetCurrentDirectoryA (BYVAL nBufferLen AS LONG, lpBuffer AS STRING)
8. END DECLARE
9.  
10.  
11. _TITLE "Mini MP3 Player"
12. SCREEN _NEWIMAGE(400, 400, 32)
13. begin:
14. DIM f$(100000)
15. record = 0
16. rec = 0
17. oldp = 0
18. p = 0
19. CLS
20. PRINT: PRINT: PRINT
21. PRINT "                Mini MP3 Player"
22. PRINT: PRINT: PRINT
23. PRINT "                  By Ken G."
24. PRINT
25. '=== SHOW CURRENT DIRECTORY
26. CurDir$ = SPACE$(255)
27. Result = CURDirectory(LEN(CurDir$), CurDir$)
28. IF Result THEN LOCATE 11, 1: PRINT "Directory: "; LEFT$(CurDir$, Result)
29. PRINT: PRINT
30. PRINT "            (1) Change Directory"
31. PRINT "            (2) Play Song"
32. PRINT "            (3) Play Directory"
33. PRINT "            (4) Quit"
34. PRINT
35. PRINT
36. INPUT "      ->", a
37. IF a = 1 THEN GOTO directory:
38. IF a = 2 THEN GOTO song:
39. IF a = 3 THEN GOTO playdir:
40. IF a = 4 THEN END
41. IF a > 4 OR a < 1 OR a <> INT(a) THEN GOTO begin:
42. directory:
43. CLS
44. again:
45. PRINT: PRINT: PRINT
46. INPUT "Directory: ", d$
47. IF d$ = "" THEN GOTO begin:
48. r% = _DIREXISTS(d$)
49. IF r% <> -1 THEN
50.     PRINT "Directory doesn't exist."
51.     PRINT "Try again, or Enter for Menu."
52.     GOTO again:
53. END IF
54. CHDIR d$
55. GOTO begin:
56. song:
57. CLS
58. FILES "*.mp3"
59. again2:
60. PRINT
61. INPUT "Song: ", song$
62. IF song$ = "" THEN GOTO begin:
63. fe% = _FILEEXISTS(song$)
64. IF fe% <> -1 THEN
65.     PRINT "Filename doesn't exist."
66.     PRINT "Try again, or Enter for Menu."
67.     GOTO again2:
68. END IF
69. CLS
70. s& = _SNDOPEN(song$)
71. IF s& = 0 THEN BEEP ELSE _SNDPLAY s&
72. LOCATE 1, 1: PRINT song$
73. LOCATE 2, 1: PRINT "Sound Rate: "; _SNDRATE
74. LOCATE 4, 1: PRINT "Length: "; INT(_SNDLEN(s&))
75. LOCATE 6, 1: PRINT "Space Bar = Pause (P)lay (S)top (M)enu"
76.  
77. DO
78.     a$ = INKEY$
79.     IF a$ = CHR$(27) THEN _SNDSTOP s&: END
80.     IF a$ = " " THEN _SNDPAUSE s&
81.     IF a$ = "S" OR a$ = "s" THEN _SNDSTOP s&
82.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
83.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: GOTO begin:
84.     oldp = p
85.     p = _SNDGETPOS(s&)
86.     LOCATE 3, 1: PRINT "Position: "; INT(p)
87.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN GOTO begin:
88. LOOP
89. GOTO begin:
90. playdir:
91. CLS
92. REDIM file(0) AS STRING 'create empty text array. 0 is record nr. 1!
93. SHELL _HIDE "dir *.mp3 /B > MyMusicFiles-Temp000.temp" 'create mp3 files list.
94. OPEN "MyMusicFiles-Temp000.temp" FOR INPUT AS #1
95. IF EOF(1) THEN
96.     CLOSE #1
97.     SHELL _HIDE "DEL MyMusicFiles-Temp000.temp"
98.     CLS
99.     PRINT "No mp3 songs on this folder."
100.     PRINT
101.     INPUT "Press Enter to go back to Menu.", menu$
102.     GOTO begin:
103. END IF
104. WHILE NOT EOF(1)
105.     LINE INPUT #1, file$
106.     file(record) = file$
107.     f$(record) = file$
108.     PRINT f$(record)
109.     record = record + 1 'for next loop we needed array higher up to one
110.     REDIM _PRESERVE file(record) AS STRING 'this do array bigger without deleting content
111. WEND
112. CLOSE #1
113. SHELL _HIDE "DEL MyMusicFiles-Temp000.temp"
114. 'so now file(0) is first file from disk. file(3) is 4th file from disk. Try it:
115. ready:
116. s& = _SNDOPEN(file(rec))
117. CLS
118. _SNDPLAY (s&)
119. LOCATE 1, 1: PRINT f$(rec)
120. LOCATE 2, 1: PRINT "Sound Rate: "; _SNDRATE
121. LOCATE 4, 1: PRINT "Length: "; INT(_SNDLEN(s&))
122. LOCATE 6, 1: PRINT "Space Bar = Pause (P)lay (N)ext Song (M)enu"
123.  
124. DO
125.     a$ = INKEY$
126.     IF a$ = CHR$(27) THEN _SNDSTOP s&: END
127.     IF a$ = " " THEN _SNDPAUSE s&
128.     IF a$ = "N" OR a$ = "n" THEN _SNDSTOP s&
129.     IF a$ = "P" OR a$ = "p" THEN _SNDPLAY s&
130.     IF a$ = "M" OR a$ = "m" THEN _SNDSTOP s&: rec = 0: GOTO begin:
131.     oldp = p
132.     p = _SNDGETPOS(s&)
133.     LOCATE 3, 1: PRINT "Position: "; INT(p)
134.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN GOTO more:
135. LOOP
136. more:
137. IF rec = record - 1 THEN GOTO begin:
138. rec = rec + 1
139. GOTO ready:
140.  
141.  

[SierraKen]

Here is a much better version using B+'s folder menu when you want to play a whole folder. You choose one to change to with the mouse and then press X or Esc out to go back to the main menu and select to play the directory. Thanks B+ and Steve and Petr for all the help!

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.  
138.  
139. 'Change Directory Here
140.  
141.  
142. changedirectory:
143.  
144.  
145. DIM mySelection&
146.  
147. DO
148.     PRINT "Current Directory: " + _CWD$
149.     REDIM myFiles(0) AS STRING
150.  
151.     loadDIR myFiles()
152.  
153.     mySelection& = getArrayItemNumber&(5, 2, 48, 20, myFiles())
154.     CLS
155.     IF mySelection& <> -1719 THEN
156.         CHDIR myFiles(mySelection&)
157.     ELSE
158.         _KEYCLEAR
159.         EXIT DO
160.     END IF
161.     _LIMIT 60
162. LOOP
163.  
164. _AUTODISPLAY
165. RETURN
166.  
167.  
168. SUB loadDIR (fa() AS STRING)
169.     DIM tmpFile AS STRING, Index%, fline$, d$
170.     tmpFile = tmpDir + "\DIR$INF0.INF" 'aha!, not a fully pathed file to user directory but here is good!
171.     SHELL _HIDE "DIR /a:d >" + tmpFile 'get directories  but have to do a little pruning
172.     OPEN tmpFile FOR INPUT AS #1
173.     Index% = -1
174.     DO WHILE NOT EOF(1)
175.         LINE INPUT #1, fline$
176.         IF INSTR(fline$, "<DIR>") THEN
177.             d$ = _TRIM$(rightOf$(fline$, "<DIR>"))
178.             Index% = Index% + 1
179.             REDIM _PRESERVE fa(Index%)
180.             fa(Index%) = d$
181.         END IF
182.     LOOP
183.     CLOSE #1
184.     KILL tmpFile
185. END SUB
186.  
187. FUNCTION rightOf$ (source$, of$)
188.     IF INSTR(source$, of$) > 0 THEN rightOf$ = MID$(source$, INSTR(source$, of$) + LEN(of$))
189. END FUNCTION
190.  
191.  
192. FUNCTION getArrayItemNumber& (locateRow, locateColumn, boxWidth, boxHeight, arr() AS STRING)
193.  
194.     DIM curRow AS INTEGER, curCol AS INTEGER, fg AS _UNSIGNED LONG, bg AS _UNSIGNED LONG
195.     DIM maxWidth AS INTEGER, maxHeight AS INTEGER, page AS INTEGER, hlite AS INTEGER, mx AS INTEGER, my AS INTEGER
196.     DIM lastMX AS INTEGER, lastMY AS INTEGER, row AS INTEGER, mb AS INTEGER
197.     DIM lba AS LONG, uba AS LONG, choice AS LONG, kh AS LONG, index AS LONG
198.     DIM clrStr AS STRING, b AS STRING
199.  
200.     'save old settings to restore at end ofsub
201.     curRow = CSRLIN
202.     curCol = POS(0)
203.     fg = _DEFAULTCOLOR
204.     bg = _BACKGROUNDCOLOR
205.     _KEYCLEAR
206.  
207.     maxWidth = boxWidth '       number of characters in box
208.     maxHeight = boxHeight - 2 ' number of lines displayed of array at one time = 1 page
209.     lba = LBOUND(arr)
210.     uba = UBOUND(arr)
211.     page = 0
212.     hlite = 0 '                 line in display ready for selection by spacebar or if no number is started, enter
213.     clrStr$ = SPACE$(maxWidth) 'clearing a display line
214.  
215.     GOSUB update '              show the beginning of the array items for selection
216.  
217.     'signal cancel selection process, exit sub with this unlikely index to signal canel
218.     choice = -1719 'primes 7 and 8, not likely to be a select index of an array
219.  
220.     DO 'until get a selection or demand exit
221.  
222.         'handle the key stuff
223.         kh& = _KEYHIT
224.         IF kh& THEN
225.             IF kh& > 0 AND kh& < 255 THEN
226.                 IF INSTR("0123456789", CHR$(kh&)) > 0 THEN b$ = b$ + CHR$(kh&): GOSUB update
227.                 'IF CHR$(kh&) = "h" THEN HELP: _KEYCLEAR
228.  
229.                 IF CHR$(kh&) = "c" THEN b$ = "": GOSUB update
230.                 IF kh& = 13 THEN 'enter pressed check if number is being entered?
231.                     IF LEN(b$) THEN
232.                         IF VAL(b$) >= lba AND VAL(b$) <= uba THEN 'we have number started
233.                             choice = VAL(b$): EXIT DO
234.                         ELSE 'clear b$ to show some response to enter
235.                             b$ = "": GOSUB update 'clear the value that doesn't work
236.                         END IF
237.                     ELSE
238.                         choice = hlite + page * maxHeight + lba 'must mean to select the highlighted item
239.                     END IF
240.                 END IF
241.                 IF kh& = 27 THEN EXIT DO 'escape clause offered to Cancel selection process
242.                 IF kh& = 32 THEN choice = hlite + page * maxHeight + lba 'best way to choose highlighted selection
243.                 IF kh& = 8 THEN 'backspace to edit number
244.                     IF LEN(b$) THEN b$ = LEFT$(b$, LEN(b$) - 1): GOSUB update
245.                 END IF
246.             ELSE
247.                 SELECT CASE kh& 'choosing sections of array to display and highlighted item
248.                     CASE 20736 'pg dn
249.                         IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
250.                     CASE 18688 'pg up
251.                         IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
252.                     CASE 18432 'up
253.                         IF hlite - 1 < 0 THEN
254.                             IF page > 0 THEN
255.                                 page = page - 1: hlite = maxHeight - 1: GOSUB update
256.                             END IF
257.                         ELSE
258.                             hlite = hlite - 1: GOSUB update
259.                         END IF
260.                     CASE 20480 'down
261.                         IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
262.                             IF hlite + 1 > maxHeight - 1 THEN
263.                                 page = page + 1: hlite = 0: GOSUB update
264.                             ELSE
265.                                 hlite = hlite + 1: GOSUB update
266.                             END IF
267.                         END IF
268.                     CASE 18176 'home
269.                         page = 0: hlite = 0: GOSUB update
270.                     CASE 20224 ' end
271.                         page = INT((uba - lba) / maxHeight): hlite = maxHeight - 1: GOSUB update
272.                 END SELECT
273.             END IF
274.         END IF
275.  
276.         'handle the mouse stuff
277.         WHILE _MOUSEINPUT
278.             IF _MOUSEWHEEL = -1 THEN 'up?
279.                 IF hlite - 1 < 0 THEN
280.                     IF page > 0 THEN
281.                         page = page - 1: hlite = maxHeight - 1: GOSUB update
282.                     END IF
283.                 ELSE
284.                     hlite = hlite - 1: GOSUB update
285.                 END IF
286.             ELSEIF _MOUSEWHEEL = 1 THEN 'down?
287.                 IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
288.                     IF hlite + 1 > maxHeight - 1 THEN
289.                         page = page + 1: hlite = 0: GOSUB update
290.                     ELSE
291.                         hlite = hlite + 1: GOSUB update
292.                     END IF
293.                 END IF
294.             END IF
295.         WEND
296.         mx = INT((_MOUSEX - locateColumn * 8) / 8) + 2: my = INT((_MOUSEY - locateRow * 16) / 16) + 2
297.         IF _MOUSEBUTTON(1) THEN 'click contols or select array item
298.             'clear mouse clicks
299.             mb = _MOUSEBUTTON(1)
300.             IF mb THEN 'clear it
301.                 WHILE mb 'OK!
302.                     IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
303.                     _LIMIT 100
304.                 WEND
305.             END IF
306.  
307.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
308.                 choice = my + page * maxHeight + lba - 1 'select item clicked
309.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = 0 THEN 'page up or exit
310.                 IF my = 0 AND (mx <= maxWidth AND mx >= maxWidth - 2) THEN 'exit sign
311.                     EXIT DO 'escape plan for mouse click top right corner of display box
312.                 ELSE 'PgUp bar clicked
313.                     IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
314.                 END IF
315.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = maxHeight + 1 THEN 'page down bar clicked
316.                 IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
317.             END IF
318.         ELSE '   mouse over highlighting, only if mouse has moved!
319.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
320.                 IF mx <> lastMX OR my <> lastMY THEN
321.                     IF my - 1 <> hlite AND (my - 1 + page * maxHeight + lba <= uba) THEN
322.                         hlite = my - 1
323.                         lastMX = mx: lastMY = my
324.                         GOSUB update
325.                     END IF
326.                 END IF
327.             END IF
328.         END IF
329.         _LIMIT 200
330.     LOOP UNTIL choice >= lba AND choice <= uba
331.     getArrayItemNumber& = choice
332.     COLOR fg, bg
333.     'clear key presses
334.     _KEYCLEAR
335.     LOCATE curRow, curCol
336.     'clear mouse clicks
337.     mb = _MOUSEBUTTON(1)
338.     IF mb THEN 'clear it
339.         WHILE mb 'OK!
340.             IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
341.             _LIMIT 100
342.         WEND
343.     END IF
344.     EXIT SUB
345.  
346.     'display of array sections and controls on screen
347.     update:
348.  
349.     'fix hlite if it has dropped below last array item
350.     WHILE hlite + page * maxHeight + lba > uba
351.         hlite = hlite - 1
352.     WEND
353.  
354.     'main display of array items at page * maxHeight (lines high)
355.     FOR row = 0 TO maxHeight - 1
356.         IF hlite = row THEN COLOR _RGB(200, 200, 255), _RGB32(0, 0, 88) ELSE COLOR _RGB32(0, 0, 88), _RGB(200, 200, 255)
357.         LOCATE locateRow + row, locateColumn: PRINT clrStr$
358.         index = row + page * maxHeight + lba
359.         IF index >= lba AND index <= uba THEN
360.             LOCATE locateRow + row, locateColumn
361.             PRINT LEFT$(LTRIM$(STR$(index)) + ") " + arr(index), maxWidth)
362.         END IF
363.     NEXT
364.  
365.     'make page up and down bars to click, print PgUp / PgDn if available
366.     COLOR _RGB32(200, 200, 255), _RGB32(0, 100, 50)
367.     LOCATE locateRow - 1, locateColumn: PRINT SPACE$(maxWidth)
368.     IF page <> 0 THEN LOCATE locateRow - 1, locateColumn: PRINT LEFT$(" Pg Up" + SPACE$(maxWidth), maxWidth)
369.     LOCATE locateRow + maxHeight, locateColumn: PRINT SPACE$(maxWidth)
370.     IF page <> INT(uba / maxHeight) THEN
371.         LOCATE locateRow + maxHeight, locateColumn: PRINT LEFT$(" Pg Dn" + SPACE$(maxWidth), maxWidth)
372.     END IF
373.     'make exit sign for mouse click
374.     COLOR _RGB32(255, 255, 255), _RGB32(200, 100, 0)
375.     LOCATE locateRow - 1, locateColumn + maxWidth - 3
376.     PRINT " X "
377.  
378.     'if a number selection has been started show it's build = b$
379.     IF LEN(b$) THEN
380.         COLOR _RGB(255, 255, 0), _RGB32(0, 0, 0)
381.         LOCATE locateRow + maxHeight, locateColumn + maxWidth - LEN(b$) - 1
382.         PRINT b$;
383.     END IF
384.     _DISPLAY
385.     _LIMIT 100
386.     RETURN
387. END FUNCTION
388.  

[SierraKen]

This version seems stable and runs good. This starts out in the Windows Default Music Folder. And you can use B+'s menu to pick a folder of songs you wish 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.  

[bplus]

Hi Ken,

Glad you cleared all the comments in changedDirectory GOSUB.

When I tested code, I could not read the files names that had squiggles in middle, so I don't know what to type.

We could set up the code to use same array display for files as we did for Directories so you just find the directory then press f to select file from it, no typing out file name needed, the code is in the best answer for Tiny Navigator!

I was shocked to learn your mouse scroll wheel was not working!

[SierraKen]

That sounds great! Would be awesome to add the file scrolling as well.
Yeah, as I say in the other thread, the wheel does work, just differently than what I'm used to. Sorry about that.

[SierraKen]

I do see one problem with the wheel, I'll put it in the other thread.