QB64.org Forum

Active Forums => Programs => Topic started by: bplus on August 23, 2019, 01:39:04 pm

Title: Tiny Navigator
Post by: bplus on August 23, 2019, 01:39:04 pm

Tiny Navigator fixed and can now go anywhere you are allowed on C:

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. _TITLE "Tiny Navigator mod orig post with perm tmpfile" 'B+
3. ' 2019-08-22 orig post at https://www.qb64.org/forum/index.php?topic=1646.msg108682#msg108682
4. ' 2019-08-23 try fix (to nav all directories) with one place for tmpFile, theory can't write files in some dir's
5. ' For some reason Windows won't write to a fully pathed file in my user folder???
6. ' Try testing if dir exists "C:\temp" exists and making one if not, yes! and I can write my temp files there
7. ' and now I can chDir anywhere!
8.  
9. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
10.  
11. ' Attention!!!  this creates a temp directory "C:\temp", do not run this program if you forbid this.
12.  
13. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
14.  
15.  
16. SCREEN _NEWIMAGE(1200, 600, 32)
17. _SCREENMOVE 100, 50
18.  
19.  
20. IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
21.  
22. DIM mySelection&, done$
23.  
24. DO
25.     PRINT "Current Directory: " + _CWD$
26.     REDIM myFiles(0) AS STRING
27.     loadFA "*.*", myFiles()
28.     mySelection& = getArrayItemNumber&(5, 5, 90, 30, myFiles())
29.     CLS
30.     IF mySelection& <> -1719 THEN
31.         CHDIR myFiles(mySelection&)
32.     ELSE
33.         PRINT "No Directory selected."
34.         INPUT "Press enter to continue navigator, any + enter to quit... "; done$
35.     END IF
36.     _LIMIT 60
37. LOOP UNTIL done$ <> ""
38.  
39. SUB loadFA (spec$, fa() AS STRING)
40.     DIM tmpFile$, Index%, fline$, d$
41.     tmpFile$ = "C:\temp\DIR$INF0.INF"
42.     'PRINT tmpFile$
43.     'END
44.     SHELL _HIDE "DIR /a:d >" + tmpFile$ 'get directories  but have to do a little pruning
45.     'SHELL _HIDE "DIR " + spec$ + " /b > " + TmpFile$
46.     'SHELL _HIDE "DIR " + spec$ + " /b /s /o:gen> " + TmpFile$
47.     OPEN tmpFile$ FOR INPUT AS #1
48.     Index% = -1
49.     DO WHILE NOT EOF(1)
50.         LINE INPUT #1, fline$
51.         IF INSTR(fline$, "<DIR>") THEN
52.             d$ = _TRIM$(rightOf$(fline$, "<DIR>"))
53.             Index% = Index% + 1
54.             REDIM _PRESERVE fa(Index%)
55.             fa(Index%) = d$
56.         END IF
57.     LOOP
58.     CLOSE #1
59.     KILL tmpFile$
60. END SUB
61.  
62. FUNCTION rightOf$ (source$, of$)
63.     IF INSTR(source$, of$) > 0 THEN rightOf$ = MID$(source$, INSTR(source$, of$) + LEN(of$))
64. END FUNCTION
65.  
66. 'attempting use this 4 things (2018-12-30)
67. ' 1. expects HELP sub that uses message and message box but easy to comment out
68. ' 2. expects to be in graphics mode
69. ' 3. chages color of screen
70. ' 4. needs _KEYCLEAR 2 before calling of previous keyhits will interfere!!!
71. '
72. ' Future Help Message Box for the function.
73. ' "*** Mouse and Key Instructions ***"
74. '
75. ' "Mouse, mouse wheel, and arrow keys should work as expected for item selection."
76. ' "Press spacebar to select a highlighted item or just click it."
77. ' "Use number(s) + enter to select an array item by it's index number,"
78. ' "backspace will remove last number pressed, c will clear a number started."
79. ' "Numbers started are shown in bottom right PgDn bar."
80. ' "Enter will also select the highlighted item, if no number has been started."
81. ' "Home starts you at lowest array index, End highlights then highest index."
82. ' "Use PgUp and PgDn keys to flip through pages of array items."
83. '
84. ' "Escape returns -1719 to allow a Cancel function and signal no slection."
85. FUNCTION getArrayItemNumber& (locateRow, locateColumn, boxWidth, boxHeight, arr() AS STRING)
86.     'Notes: locateRow, locateColumn for top right corner of selection box on screen in characters for LOCATE.
87.     'boxWidth and boxHeight are in character units, again for locate and print at correct places.
88.     'All displaying is restricted to inside the box, which has PgUP and PgDn as top and bottom lines in the display.
89.  
90.     DIM curRow AS INTEGER, curCol AS INTEGER, fg AS _UNSIGNED LONG, bg AS _UNSIGNED LONG
91.     DIM maxWidth AS INTEGER, maxHeight AS INTEGER, page AS INTEGER, hlite AS INTEGER, mx AS INTEGER, my AS INTEGER
92.     DIM lastMX AS INTEGER, lastMY AS INTEGER, row AS INTEGER, mb AS INTEGER
93.     DIM lba AS LONG, uba AS LONG, choice AS LONG, kh AS LONG, index AS LONG
94.     DIM clrStr AS STRING, b AS STRING
95.  
96.     'save old settings to restore at end ofsub
97.     curRow = CSRLIN
98.     curCol = POS(0)
99.     fg = _DEFAULTCOLOR
100.     bg = _BACKGROUNDCOLOR
101.     _KEYCLEAR
102.  
103.     maxWidth = boxWidth '       number of characters in box
104.     maxHeight = boxHeight - 2 ' number of lines displayed of array at one time = 1 page
105.     lba = LBOUND(arr)
106.     uba = UBOUND(arr)
107.     page = 0
108.     hlite = 0 '                 line in display ready for selection by spacebar or if no number is started, enter
109.     clrStr$ = SPACE$(maxWidth) 'clearing a display line
110.  
111.     GOSUB update '              show the beginning of the array items for selection
112.  
113.     'signal cancel selection process, exit sub with this unlikely index to signal canel
114.     choice = -1719 'primes 7 and 8, not likely to be a select index of an array
115.  
116.     DO 'until get a selection or demand exit
117.  
118.         'handle the key stuff
119.         kh& = _KEYHIT
120.         IF kh& THEN
121.             IF kh& > 0 AND kh& < 255 THEN
122.                 IF INSTR("0123456789", CHR$(kh&)) > 0 THEN b$ = b$ + CHR$(kh&): GOSUB update
123.                 'IF CHR$(kh&) = "h" THEN HELP: _KEYCLEAR
124.  
125.                 IF CHR$(kh&) = "c" THEN b$ = "": GOSUB update
126.                 IF kh& = 13 THEN 'enter pressed check if number is being entered?
127.                     IF LEN(b$) THEN
128.                         IF VAL(b$) >= lba AND VAL(b$) <= uba THEN 'we have number started
129.                             choice = VAL(b$): EXIT DO
130.                         ELSE 'clear b$ to show some response to enter
131.                             b$ = "": GOSUB update 'clear the value that doesn't work
132.                         END IF
133.                     ELSE
134.                         choice = hlite + page * maxHeight + lba 'must mean to select the highlighted item
135.                     END IF
136.                 END IF
137.                 IF kh& = 27 THEN EXIT DO 'escape clause offered to Cancel selection process
138.                 IF kh& = 32 THEN choice = hlite + page * maxHeight + lba 'best way to choose highlighted selection
139.                 IF kh& = 8 THEN 'backspace to edit number
140.                     IF LEN(b$) THEN b$ = LEFT$(b$, LEN(b$) - 1): GOSUB update
141.                 END IF
142.             ELSE
143.                 SELECT CASE kh& 'choosing sections of array to display and highlighted item
144.                     CASE 20736 'pg dn
145.                         IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
146.                     CASE 18688 'pg up
147.                         IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
148.                     CASE 18432 'up
149.                         IF hlite - 1 < 0 THEN
150.                             IF page > 0 THEN
151.                                 page = page - 1: hlite = maxHeight - 1: GOSUB update
152.                             END IF
153.                         ELSE
154.                             hlite = hlite - 1: GOSUB update
155.                         END IF
156.                     CASE 20480 'down
157.                         IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
158.                             IF hlite + 1 > maxHeight - 1 THEN
159.                                 page = page + 1: hlite = 0: GOSUB update
160.                             ELSE
161.                                 hlite = hlite + 1: GOSUB update
162.                             END IF
163.                         END IF
164.                     CASE 18176 'home
165.                         page = 0: hlite = 0: GOSUB update
166.                     CASE 20224 ' end
167.                         page = INT((uba - lba) / maxHeight): hlite = maxHeight - 1: GOSUB update
168.                 END SELECT
169.             END IF
170.         END IF
171.  
172.         'handle the mouse stuff
173.         WHILE _MOUSEINPUT
174.             IF _MOUSEWHEEL = -1 THEN 'up?
175.                 IF hlite - 1 < 0 THEN
176.                     IF page > 0 THEN
177.                         page = page - 1: hlite = maxHeight - 1: GOSUB update
178.                     END IF
179.                 ELSE
180.                     hlite = hlite - 1: GOSUB update
181.                 END IF
182.             ELSEIF _MOUSEWHEEL = 1 THEN 'down?
183.                 IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
184.                     IF hlite + 1 > maxHeight - 1 THEN
185.                         page = page + 1: hlite = 0: GOSUB update
186.                     ELSE
187.                         hlite = hlite + 1: GOSUB update
188.                     END IF
189.                 END IF
190.             END IF
191.         WEND
192.         mx = INT((_MOUSEX - locateColumn * 8) / 8) + 2: my = INT((_MOUSEY - locateRow * 16) / 16) + 2
193.         IF _MOUSEBUTTON(1) THEN 'click contols or select array item
194.             'clear mouse clicks
195.             mb = _MOUSEBUTTON(1)
196.             IF mb THEN 'clear it
197.                 WHILE mb 'OK!
198.                     IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
199.                     _LIMIT 100
200.                 WEND
201.             END IF
202.  
203.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
204.                 choice = my + page * maxHeight + lba - 1 'select item clicked
205.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = 0 THEN 'page up or exit
206.                 IF my = 0 AND (mx <= maxWidth AND mx >= maxWidth - 2) THEN 'exit sign
207.                     EXIT DO 'escape plan for mouse click top right corner of display box
208.                 ELSE 'PgUp bar clicked
209.                     IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
210.                 END IF
211.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = maxHeight + 1 THEN 'page down bar clicked
212.                 IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
213.             END IF
214.         ELSE '   mouse over highlighting, only if mouse has moved!
215.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
216.                 IF mx <> lastMX OR my <> lastMY THEN
217.                     IF my - 1 <> hlite AND (my - 1 + page * maxHeight + lba <= uba) THEN
218.                         hlite = my - 1
219.                         lastMX = mx: lastMY = my
220.                         GOSUB update
221.                     END IF
222.                 END IF
223.             END IF
224.         END IF
225.         _LIMIT 200
226.     LOOP UNTIL choice >= lba AND choice <= uba
227.     getArrayItemNumber& = choice
228.     COLOR fg, bg
229.     'clear key presses
230.     _KEYCLEAR
231.     LOCATE curRow, curCol
232.     'clear mouse clicks
233.     mb = _MOUSEBUTTON(1)
234.     IF mb THEN 'clear it
235.         WHILE mb 'OK!
236.             IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
237.             _LIMIT 100
238.         WEND
239.     END IF
240.     EXIT SUB
241.  
242.     'display of array sections and controls on screen
243.     update:
244.  
245.     'fix hlite if it has dropped below last array item
246.     WHILE hlite + page * maxHeight + lba > uba
247.         hlite = hlite - 1
248.     WEND
249.  
250.     'main display of array items at page * maxHeight (lines high)
251.     FOR row = 0 TO maxHeight - 1
252.         IF hlite = row THEN COLOR _RGB(200, 200, 255), _RGB32(0, 0, 88) ELSE COLOR _RGB32(0, 0, 88), _RGB(200, 200, 255)
253.         LOCATE locateRow + row, locateColumn: PRINT clrStr$
254.         index = row + page * maxHeight + lba
255.         IF index >= lba AND index <= uba THEN
256.             LOCATE locateRow + row, locateColumn
257.             PRINT LEFT$(LTRIM$(STR$(index)) + ") " + arr(index), maxWidth)
258.         END IF
259.     NEXT
260.  
261.     'make page up and down bars to click, print PgUp / PgDn if available
262.     COLOR _RGB32(200, 200, 255), _RGB32(0, 100, 50)
263.     LOCATE locateRow - 1, locateColumn: PRINT SPACE$(maxWidth)
264.     IF page <> 0 THEN LOCATE locateRow - 1, locateColumn: PRINT LEFT$(" Pg Up" + SPACE$(maxWidth), maxWidth)
265.     LOCATE locateRow + maxHeight, locateColumn: PRINT SPACE$(maxWidth)
266.     IF page <> INT(uba / maxHeight) THEN
267.         LOCATE locateRow + maxHeight, locateColumn: PRINT LEFT$(" Pg Dn" + SPACE$(maxWidth), maxWidth)
268.     END IF
269.     'make exit sign for mouse click
270.     COLOR _RGB32(255, 255, 255), _RGB32(200, 100, 0)
271.     LOCATE locateRow - 1, locateColumn + maxWidth - 3
272.     PRINT " X "
273.  
274.     'if a number selection has been started show it's build = b$
275.     IF LEN(b$) THEN
276.         COLOR _RGB(255, 255, 0), _RGB32(0, 0, 0)
277.         LOCATE locateRow + maxHeight, locateColumn + maxWidth - LEN(b$) - 1
278.         PRINT b$;
279.     END IF
280.     _DISPLAY
281.     _LIMIT 100
282.     RETURN
283. END FUNCTION
284.  

The code is still quite messy and I hope to add a select files box.

Title: Re: Tiny Navigator
Post by: SMcNeill on August 23, 2019, 01:55:50 pm

Try this little two-line demo out:

Code: QB64: [Select]

1. PRINT ENVIRON$("TEMP")
2. PRINT ENVIRON$("TMP")

It should be safe to get the users temp directory, without having to make one of your own.

Title: Re: Tiny Navigator
Post by: bplus on August 23, 2019, 02:36:35 pm

Thanks Steve, looks to be working well.

Title: Re: Tiny Navigator
Post by: SierraKen on August 23, 2019, 07:33:07 pm

This is awesome B+! Thank you! But I did run into 1 big problem, it starts playing the music of that folder but it won't go to the music info screen, until you press Esc for some reason. Esc ends the program but it also shows that music info screen. There's also a Warning saying 1 variable is unused on line 186, which is in your code. Here is the music player so far, maybe you or someone can help me fix this. I added another SCREEN command right before the songs play and music info comes up, but that doesn't seem to help. It must have to do with a conflict between your SCREEN and my SCREEN. Another problem is that there's a Subscript Out of Range in line 176, sometimes. I think when I got too deep in the folders, about 3 in. But this is nice so far. The area where it plays the folder is line 95 at playdir: The area where it changes directory, I just GOSUB to it from line 45. Your code is the last part of this program, which starts at line 146. I commented out your OPTION _EXPLICIT so I wouldn't have to dig through the entire program to make DIM commands for every variable. I'm not sure what that command does myself.
The Subscript Out Of Range on line 176 happens when I click X to shut your window off to go back to my main menu. Maybe we need to DIM myFiles ?

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

Title: Re: Tiny Navigator
Post by: bplus on August 23, 2019, 09:39:14 pm

RE: Navigator in Ken's application

I changed the navigator part to fit your screen, when you click X or escape you are done with navigator so I send you to return to where ever it was called. I used _KEYCLEAR in case that was interfering with other code.

You loose me with all your goto's so that's on to you to get straight.

Here navigator part reworked to fit your screen:

Code: QB64: [Select]

1. changedirectory:
2. 'SCREEN _NEWIMAGE(1200, 600, 32)
3. '_SCREENMOVE 100, 50
4.  
5.  
6. IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
7.  
8. DIM mySelection&, done$
9.  
10. DO
11.     PRINT "Current Directory: " + _CWD$
12.     REDIM myFiles(0) AS STRING
13.     loadFA "*.*", myFiles()
14.     mySelection& = getArrayItemNumber&(5, 2, 48, 20, myFiles())
15.     CLS
16.     IF mySelection& <> -1719 THEN
17.         CHDIR myFiles(mySelection&)
18.     ELSE
19.         _KEYCLEAR
20.         EXIT DO
21.         'PRINT "No Directory selected."
22.         'INPUT "Press enter to continue navigator, any + enter to quit... "; done$
23.     END IF
24.     _LIMIT 60
25. LOOP 'UNTIL done$ <> ""
26.  
27. RETURN
28.  
29.  

The warning just says we didn't use the variable passed to the sub, it's old leftovers code that hasn't been cleaned out yet, not to worry.

QB64 has _CWD$ that will give you the current directory without the library code at the start of your program.

CurrentWorkingDirectory$ = _CWD$

OPTION _EXPLICIT makes you dimension all your variables, it catches typo's, not needed when code is working OK.

Title: Re: Tiny Navigator
Post by: SierraKen on August 23, 2019, 10:58:26 pm

Thanks B+, we are getting closer! But half of it still freezes up after I choose "(3) Play Directory". It still plays the music of the directory, but the screen doesn't CLS to the next page, it just sits there as it plays the music. And it doesn't do this when I don't change the directory first with your directory code. Something really bizarre is going on. Another strange thing is, just to test it, I added an INPUT a$ after it was supposed to do CLS just to see if it got to that point, and it does! So the only logical reasoning would be that the program flies through the rest of the code and goes straight back to the front menu. The only problem is, I also removed all the GOTO's that make it go back to it, and it still does the same thing. LOL But I know it plays the music, which makes some of that area work, just not the CLS or the PRINT or LOCATE statements. I know this sounds almost like a newbie, but I've looked into this a lot and cannot find anything. But I know it has something to do with your code because like I said, if I don't change a directory, it displays everything normally. Here is the code again if you want to take a crack at it. No pressure though, this is just something I do in my spare time so if you want to move on, I understand. I'll just remove your code if you want me to and go with the original. I really wish this would work though. :) Hmm, maybe a SUB is still running in the background on a LOOP even after your menu is X'ed out?

Here is what I have:

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

Title: Re: Tiny Navigator
Post by: bplus on August 23, 2019, 11:33:09 pm

Hi Ken,

For simplicity sake, why not make each menu item that does something a gosub you select a menu item do the sub and you cycle back to the menu which should be in a loop:

Do
    cls
    print menu
    get a choice
    gosub the choice '<<< it returns here to loop back around to show menu again
loop

if the choice is not on menu, it would cycle back automatic.

Now all you have to do is make sure all your GOSUBs are tight and not leaking goto's to goodness knows where...

I will look at code again tomorrow when fresh but right now I suspect one of your goto's is leaking, I am pretty sure the navigator sub does not leak, but I've certainly been wrong before! I have to say, I don't like that library sub routine when you already have _CWD$.

PS when I say leak I mean the execution falls through down to the last code in program, namely my Navigator. Oh say, try putting an END statement before the Gosub label of Navigator, that will catch anything falling through and end program. Oh and put an end before the silly goto that tells execution to gosub the navigator too.

Update: Yes put an end between 39 and 40, because the execution could fall through there but it does look like all bases covered??

Title: Re: Tiny Navigator
Post by: bplus on August 23, 2019, 11:46:12 pm

I have Tiny Navigator working with 2nd Files window for selecting files, just press f when you are in the desired directory, f will also get you the full files report for the directory you can scroll through and browse.

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. _TITLE "Tiny Navigator: press f to window and select a file" 'B+ started 2019-08-22
3. SCREEN _NEWIMAGE(1000, 600, 32)
4. _SCREENMOVE 100, 50
5. ' 2019-08-22 orig post at https://www.qb64.org/forum/index.php?topic=1646.msg108682#msg108682
6. ' 2019-08-23_13-25 try fix (to nav all directories) with one place for tmpFile, theory can't write files in some dir's
7. ' For some reason Windows won't write to a fully pathed file in my user folder???from a SHELL command
8. ' Try testing if dir exists "C:\temp" exists and making one if not, yes! and I can write my temp files there
9. ' and now I can chDir anywhere!!!!
10. ' 2019-08-23_14-25 Take Steve's Advice to use users tmp directory for temp files
11. ' 2019-08-23_23+ Have files window working for file selection
12.  
13. DIM SHARED selectedFile AS STRING
14. DIM SHARED tmpDir AS STRING '  establish a permanent spot for temp files
15. IF ENVIRON$("TEMP") <> "" THEN 'Thanks to Steve McNeill use user temp files directory
16.     tmpDir = ENVIRON$("TEMP")
17. ELSEIF ENVIRON$("TMP") <> "" THEN
18.     tmpDir = ENVIRON$("TMP")
19. ELSE 'Thanks to Steve McNeill this should be very unlikely
20.     IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
21.     tmpDir = "C:\temp"
22. END IF
23.  
24. DIM mySelection&, done$, i, t$
25. DO
26.     COLOR _RGB32(180, 180, 255)
27.     CLS
28.     t$ = "Current Directory: " + _CWD$
29.     LOCATE 2, (_WIDTH / 8 - LEN(t$)) / 2: PRINT t$
30.     REDIM DIRs(0) AS STRING
31.     loadDIR DIRs()
32.     REDIM FILs(0) AS STRING
33.     loadFiles FILs()
34.     FOR i = 0 TO UBOUND(FILs)
35.         IF i < 30 THEN LOCATE i + 4, 60: PRINT FILs(i) ELSE EXIT FOR
36.     NEXT
37.     mySelection& = getArrayItemNumber&(5, 5, 50, 30, DIRs())
38.     CLS
39.     IF selectedFile <> "" THEN
40.         PRINT "You selected a file: "; selectedFile
41.         INPUT "Press enter to continue navigator, any + enter to quit... "; done$
42.         selectedFile = ""
43.     ELSEIF mySelection& <> -1719 THEN
44.         CHDIR DIRs(mySelection&)
45.     ELSE
46.         PRINT "Nothing selected."
47.         INPUT "Press enter to continue navigator, any + enter to quit... "; done$
48.     END IF
49.     _LIMIT 60
50. LOOP UNTIL done$ <> ""
51.  
52. SUB loadDIR (fa() AS STRING)
53.     DIM tmpFile AS STRING, Index%, fline$, d$
54.     tmpFile = tmpDir + "\DIR$INF0.INF" 'aha!, not a fully pathed file to user directory but here is good!
55.     SHELL _HIDE "DIR /a:d >" + tmpFile 'get directories  but have to do a little pruning
56.     OPEN tmpFile FOR INPUT AS #1
57.     Index% = -1
58.     DO WHILE NOT EOF(1)
59.         LINE INPUT #1, fline$
60.         IF INSTR(fline$, "<DIR>") THEN
61.             d$ = _TRIM$(rightOf$(fline$, "<DIR>"))
62.             Index% = Index% + 1
63.             REDIM _PRESERVE fa(Index%)
64.             fa(Index%) = d$
65.         END IF
66.     LOOP
67.     CLOSE #1
68.     KILL tmpFile
69. END SUB
70.  
71. SUB loadFiles (fa() AS STRING)
72.     DIM tmpFile AS STRING, Index%
73.     tmpFile = tmpDir + "\FILE$INF0.INF" 'aha!, not a fully pathed file to user directory but here is good!
74.     SHELL _HIDE "DIR *.* /a:-d /b /o:-gen > " + tmpFile
75.     OPEN tmpFile$ FOR INPUT AS #1
76.     Index% = -1
77.     DO WHILE NOT EOF(1)
78.         Index% = Index% + 1
79.         REDIM _PRESERVE fa(Index%) AS STRING
80.         LINE INPUT #1, fa(Index%)
81.     LOOP
82.     CLOSE #1
83.     KILL tmpFile$
84. END SUB
85.  
86. FUNCTION rightOf$ (source$, of$)
87.     IF INSTR(source$, of$) > 0 THEN rightOf$ = MID$(source$, INSTR(source$, of$) + LEN(of$))
88. END FUNCTION
89.  
90. ' "Escape returns -1719 to allow a Cancel function and signal no slection."
91. FUNCTION getArrayItemNumber& (locateRow, locateColumn, boxWidth, boxHeight, arr() AS STRING)
92.     'Notes: locateRow, locateColumn for top right corner of selection box on screen in characters for LOCATE.
93.     'boxWidth and boxHeight are in character units, again for locate and print at correct places.
94.     'All displaying is restricted to inside the box, which has PgUP and PgDn as top and bottom lines in the display.
95.  
96.     DIM curRow AS INTEGER, curCol AS INTEGER, fg AS _UNSIGNED LONG, bg AS _UNSIGNED LONG
97.     DIM maxWidth AS INTEGER, maxHeight AS INTEGER, page AS INTEGER, hlite AS INTEGER, mx AS INTEGER, my AS INTEGER
98.     DIM lastMX AS INTEGER, lastMY AS INTEGER, row AS INTEGER, mb AS INTEGER
99.     DIM lba AS LONG, uba AS LONG, choice AS LONG, kh AS LONG, index AS LONG
100.     DIM clrStr AS STRING, b AS STRING, selNum&
101.  
102.     'save old settings to restore at end ofsub
103.     curRow = CSRLIN
104.     curCol = POS(0)
105.     fg = _DEFAULTCOLOR
106.     bg = _BACKGROUNDCOLOR
107.     _KEYCLEAR
108.  
109.     maxWidth = boxWidth '       number of characters in box
110.     maxHeight = boxHeight - 2 ' number of lines displayed of array at one time = 1 page
111.     lba = LBOUND(arr)
112.     uba = UBOUND(arr)
113.     page = 0
114.     hlite = 0 '                 line in display ready for selection by spacebar or if no number is started, enter
115.     clrStr$ = SPACE$(maxWidth) 'clearing a display line
116.  
117.     GOSUB update '              show the beginning of the array items for selection
118.  
119.     'signal cancel selection process, exit sub with this unlikely index to signal canel
120.     choice = -1719 'primes 7 and 8, not likely to be a select index of an array
121.  
122.     DO 'until get a selection or demand exit
123.  
124.         'handle the key stuff
125.         kh& = _KEYHIT
126.         IF kh& THEN
127.             IF kh& > 0 AND kh& < 255 THEN
128.                 IF INSTR("0123456789", CHR$(kh&)) > 0 THEN b$ = b$ + CHR$(kh&): GOSUB update
129.                 IF CHR$(kh&) = "f" THEN
130.                     REDIM FILs(0) AS STRING
131.                     loadFiles FILs()
132.                     selNum& = getArrayItemNumber&(5, 60, 60, 30, FILs())
133.                     COLOR _RGB32(180, 180, 255)
134.                     CLS 'need to signal out of file selection
135.                     IF selNum& >= LBOUND(FILs) AND selNum& <= UBOUND(FILs) THEN selectedFile = FILs(selNum&)
136.                     EXIT DO
137.                     'back to directory select
138.                 END IF
139.  
140.                 IF CHR$(kh&) = "c" THEN b$ = "": GOSUB update
141.                 IF kh& = 13 THEN 'enter pressed check if number is being entered?
142.                     IF LEN(b$) THEN
143.                         IF VAL(b$) >= lba AND VAL(b$) <= uba THEN 'we have number started
144.                             choice = VAL(b$): EXIT DO
145.                         ELSE 'clear b$ to show some response to enter
146.                             b$ = "": GOSUB update 'clear the value that doesn't work
147.                         END IF
148.                     ELSE
149.                         choice = hlite + page * maxHeight + lba 'must mean to select the highlighted item
150.                     END IF
151.                 END IF
152.                 IF kh& = 27 THEN EXIT DO 'escape clause offered to Cancel selection process
153.                 IF kh& = 32 THEN choice = hlite + page * maxHeight + lba 'best way to choose highlighted selection
154.                 IF kh& = 8 THEN 'backspace to edit number
155.                     IF LEN(b$) THEN b$ = LEFT$(b$, LEN(b$) - 1): GOSUB update
156.                 END IF
157.             ELSE
158.                 SELECT CASE kh& 'choosing sections of array to display and highlighted item
159.                     CASE 20736 'pg dn
160.                         IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
161.                     CASE 18688 'pg up
162.                         IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
163.                     CASE 18432 'up
164.                         IF hlite - 1 < 0 THEN
165.                             IF page > 0 THEN
166.                                 page = page - 1: hlite = maxHeight - 1: GOSUB update
167.                             END IF
168.                         ELSE
169.                             hlite = hlite - 1: GOSUB update
170.                         END IF
171.                     CASE 20480 'down
172.                         IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
173.                             IF hlite + 1 > maxHeight - 1 THEN
174.                                 page = page + 1: hlite = 0: GOSUB update
175.                             ELSE
176.                                 hlite = hlite + 1: GOSUB update
177.                             END IF
178.                         END IF
179.                     CASE 18176 'home
180.                         page = 0: hlite = 0: GOSUB update
181.                     CASE 20224 ' end
182.                         page = INT((uba - lba) / maxHeight): hlite = maxHeight - 1: GOSUB update
183.                 END SELECT
184.             END IF
185.         END IF
186.  
187.         'handle the mouse stuff
188.         WHILE _MOUSEINPUT
189.             IF _MOUSEWHEEL = -1 THEN 'up?
190.                 IF hlite - 1 < 0 THEN
191.                     IF page > 0 THEN
192.                         page = page - 1: hlite = maxHeight - 1: GOSUB update
193.                     END IF
194.                 ELSE
195.                     hlite = hlite - 1: GOSUB update
196.                 END IF
197.             ELSEIF _MOUSEWHEEL = 1 THEN 'down?
198.                 IF (hlite + 1) + page * maxHeight + lba <= uba THEN 'ok to move up
199.                     IF hlite + 1 > maxHeight - 1 THEN
200.                         page = page + 1: hlite = 0: GOSUB update
201.                     ELSE
202.                         hlite = hlite + 1: GOSUB update
203.                     END IF
204.                 END IF
205.             END IF
206.         WEND
207.         mx = INT((_MOUSEX - locateColumn * 8) / 8) + 2: my = INT((_MOUSEY - locateRow * 16) / 16) + 2
208.         IF _MOUSEBUTTON(1) THEN 'click contols or select array item
209.             'clear mouse clicks
210.             mb = _MOUSEBUTTON(1)
211.             IF mb THEN 'clear it
212.                 WHILE mb 'OK!
213.                     IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
214.                     _LIMIT 100
215.                 WEND
216.             END IF
217.  
218.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
219.                 choice = my + page * maxHeight + lba - 1 'select item clicked
220.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = 0 THEN 'page up or exit
221.                 IF my = 0 AND (mx <= maxWidth AND mx >= maxWidth - 2) THEN 'exit sign
222.                     EXIT DO 'escape plan for mouse click top right corner of display box
223.                 ELSE 'PgUp bar clicked
224.                     IF (page - 1) * maxHeight + lba >= lba THEN page = page - 1: GOSUB update
225.                 END IF
226.             ELSEIF mx >= 1 AND mx <= maxWidth AND my = maxHeight + 1 THEN 'page down bar clicked
227.                 IF (page + 1) * maxHeight + lba <= uba THEN page = page + 1: GOSUB update
228.             END IF
229.         ELSE '   mouse over highlighting, only if mouse has moved!
230.             IF mx >= 1 AND mx <= maxWidth AND my >= 1 AND my <= maxHeight THEN
231.                 IF mx <> lastMX OR my <> lastMY THEN
232.                     IF my - 1 <> hlite AND (my - 1 + page * maxHeight + lba <= uba) THEN
233.                         hlite = my - 1
234.                         lastMX = mx: lastMY = my
235.                         GOSUB update
236.                     END IF
237.                 END IF
238.             END IF
239.         END IF
240.         _LIMIT 200
241.     LOOP UNTIL choice >= lba AND choice <= uba
242.     getArrayItemNumber& = choice
243.     COLOR fg, bg
244.     'clear key presses
245.     _KEYCLEAR
246.     LOCATE curRow, curCol
247.     'clear mouse clicks
248.     mb = _MOUSEBUTTON(1)
249.     IF mb THEN 'clear it
250.         WHILE mb 'OK!
251.             IF _MOUSEINPUT THEN mb = _MOUSEBUTTON(1)
252.             _LIMIT 100
253.         WEND
254.     END IF
255.     EXIT SUB
256.  
257.  
258.     update: '--------------- display of array sections and controls on screen
259.  
260.     'fix hlite if it has dropped below last array item
261.     WHILE hlite + page * maxHeight + lba > uba
262.         hlite = hlite - 1
263.     WEND
264.  
265.     'main display of array items at page * maxHeight (lines high)
266.     FOR row = 0 TO maxHeight - 1
267.         IF hlite = row THEN COLOR _RGB(200, 200, 255), _RGB32(0, 0, 88) ELSE COLOR _RGB32(0, 0, 88), _RGB(200, 200, 255)
268.         LOCATE locateRow + row, locateColumn: PRINT clrStr$
269.         index = row + page * maxHeight + lba
270.         IF index >= lba AND index <= uba THEN
271.             LOCATE locateRow + row, locateColumn
272.             PRINT LEFT$(LTRIM$(STR$(index)) + ") " + arr(index), maxWidth)
273.         END IF
274.     NEXT
275.  
276.     'make page up and down bars to click, print PgUp / PgDn if available
277.     COLOR _RGB32(200, 200, 255), _RGB32(0, 100, 50)
278.     LOCATE locateRow - 1, locateColumn: PRINT SPACE$(maxWidth)
279.     IF page <> 0 THEN LOCATE locateRow - 1, locateColumn: PRINT LEFT$(" Pg Up" + SPACE$(maxWidth), maxWidth)
280.     LOCATE locateRow + maxHeight, locateColumn: PRINT SPACE$(maxWidth)
281.     IF page <> INT(uba / maxHeight) THEN
282.         LOCATE locateRow + maxHeight, locateColumn: PRINT LEFT$(" Pg Dn" + SPACE$(maxWidth), maxWidth)
283.     END IF
284.     'make exit sign for mouse click
285.     COLOR _RGB32(255, 255, 255), _RGB32(200, 100, 0)
286.     LOCATE locateRow - 1, locateColumn + maxWidth - 3
287.     PRINT " X "
288.  
289.     'if a number selection has been started show it's build = b$
290.     IF LEN(b$) THEN
291.         COLOR _RGB(255, 255, 0), _RGB32(0, 0, 0)
292.         LOCATE locateRow + maxHeight, locateColumn + maxWidth - LEN(b$) - 1
293.         PRINT b$;
294.     END IF
295.     _DISPLAY
296.     _LIMIT 100
297.     RETURN
298. END FUNCTION
299.  
300.  

Title: Re: Tiny Navigator
Post by: SierraKen on August 24, 2019, 12:05:49 am

That's cool about the Files one! I'll look into that one after I get the directory one fixed. I changed the code like I said, to use DO/LOOP for the main menu and GOSUB/RETURN for each selection. Still doesn't work. I tried END at the end of the code you gave me (before the RETURN back to the main menu) and it just ends the program after I select a directory. I already know the program can get to the area of the program I want it to be at, and it still plays the music there. But for some reason it doesn't CLS and go to another screen to PRINT things I want people to see about the songs it plays. It just sits there at the main menu playing the songs. lol And like I said, without changing the directory with the change directory code, and just playing the default directory, everything shows up fine as the sounds play. So there must be something in a SUB somewhere freezing up the flow of the program. That's all I can imagine, but you know more than I do. Oh, thanks for telling me about that library, I deleted it. This version should be easier for you to follow:

(Note, a little bit of a better one is after this one.)

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

Title: Re: Tiny Navigator
Post by: bplus on August 24, 2019, 12:12:53 am

RE: Navigator in Ken's application

OK, I have to take dog out and I will check right after that...

Title: Re: Tiny Navigator
Post by: SierraKen on August 24, 2019, 12:26:35 am

I made the program a little better by shortening my temp file name (not yours) and put mine in the same c:\temp directory as yours. That wasn't the problem but I will try anything at this point just about. LOL I also added your name and updated info on the top comments.

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

Title: Re: Tiny Navigator
Post by: bplus on August 24, 2019, 12:54:22 am

RE: Navigator in Ken's application

While walking the dog, I remembered you had allot of things going back to Begin: label, but not Navigator (as I remember) could something need to be reinitialized or zero'd out after change directory?

A thought for you while I go over your latest revision.

This line needs to be done once right at beginning:

Code: QB64: [Select]

1. IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
2.  

just once is enough!

Your main menu loop is beautiful to my eye.

Code: QB64: [Select]

1. IF song$ = "" THEN GOTO begin:

Instead of GOTO begin, RETURN is much better form, should not jump out of GOSUBs with GOTOs always RETURN because the interpreter or compiler needs to see RETURN for closure, like for every ( open parenthesis there should be a ) close parenthesis.

I think RETURNS are put in a stack of goto lines, if return is never reached in one sub, the next return found is likely to return to where the first sub was suppose to return to. You can use GOTO's that stay completely inside a GOSUB like your goto again2: 3 places in GOSUB Song: you are GOTOing to Begin: just RETURN should do it.

Not a biggy but it is nicer form to EXIT DO rather a GOTO jump.

Code: QB64: [Select]

1.     IF INT(oldp) > INT(p) AND INT(p) = 0 THEN GOTO more: '<<<  just EXIT DO
2. LOOP
3. more:

The GOTO Begin: in Song GOSUB could be causing weird results. That's best I could find at this late hour.

Title: Re: Tiny Navigator
Post by: bplus on August 24, 2019, 09:19:59 am

RE: Navigator in Ken's application

Code: QB64: [Select]

1.  
2. changedirectory:
3. 'SCREEN _NEWIMAGE(1200, 600, 32)
4. '_SCREENMOVE 100, 50
5.  
6. 'VVVVVVVVVVVVV Yuck! I have note about this line in comments VVVVVVVVVVVVVVVVVVVV
7.  
8. IF _DIREXISTS("C:\temp") THEN ELSE MKDIR "C:\temp"
9. ' Replace at start of program to do only once then use SHARED variable tmpDir for writing
10. ' temp files in a good spot for user, updated sub that uses tmpDir.
11.  
12. '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
13.  
14.  
15. DIM mySelection&, done$
16.  
17. DO
18.     PRINT "Current Directory: " + _CWD$
19.     REDIM myFiles(0) AS STRING
20.     loadFA "*.*", myFiles()
21.     mySelection& = getArrayItemNumber&(5, 2, 48, 20, myFiles())
22.     IF mySelection& <> -1719 THEN
23.         CLS  '<<<<<<<<<<<<<<   moved from right after mySelection& = getA....
24.         CHDIR myFiles(mySelection&)
25.     ELSE
26.         _KEYCLEAR
27.        ' >>>>>>>>>>>>>>>>>>>>>>>>>> OK now CLS is NOT clearing if eXiting
28. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
29. 'Ken, insert here what ever you want to see the screen display do, that is not happening now.
30. ' It will / should other wise cycle back to your Menu.
31. ' Maybe it should GOSUB Song or GOSUB PlayDirectory before RETURN to Menu???
32. ' This is where the navigator is signaled by escape press or X click in to right corner of screen to eXit
33. ' Perfect place to get screen ready for return to the business of playing music.
34. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
35.  
36.         EXIT DO
37.     END IF
38.     _LIMIT 60
39. LOOP 'UNTIL done$ <> ""
40.  
41. RETURN
42.  
43.  

Ken, the Navigator code is improved (but more to go) since you grabbed roughed out version.
Mainly, the DIM SHARED TmpDir as string, fix Steve suggested would be good to add to start of your program but then the LoadFA code needs to be changed (that would get rid of warning too.)

LoadFA changed to this: ( to use TmpDir and drop the spec$ in call to sub )

Code: QB64: [Select]

1. SUB loadDIR (fa() AS STRING)
2.     DIM tmpFile AS STRING, Index%, fline$, d$
3.     tmpFile = tmpDir + "\DIR$INF0.INF" 'aha!, not a fully pathed file to user directory but here is good!
4.     SHELL _HIDE "DIR /a:d >" + tmpFile 'get directories  but have to do a little pruning
5.     OPEN tmpFile FOR INPUT AS #1
6.     Index% = -1
7.     DO WHILE NOT EOF(1)
8.         LINE INPUT #1, fline$
9.         IF INSTR(fline$, "<DIR>") THEN
10.             d$ = _TRIM$(rightOf$(fline$, "<DIR>"))
11.             Index% = Index% + 1
12.             REDIM _PRESERVE fa(Index%)
13.             fa(Index%) = d$
14.         END IF
15.     LOOP
16.     CLOSE #1
17.     KILL tmpFile
18. END SUB
19.  

Then the call to it in your app should be:

Code: QB64: [Select]

1. DO
2.     PRINT "Current Directory: " + _CWD$
3.     REDIM myFiles(0) AS STRING   ' >>>>>>>>>>>>>> you could change this name to myDIRs(0)
4.  
5.     'loadFA "*.*", myFiles()  ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>
6.     loadDIR myFiles()  ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> myFiles to myDIRS()
7.  
8.     mySelection& = getArrayItemNumber&(5, 2, 48, 20, myFiles())
9.     CLS
10.     IF mySelection& <> -1719 THEN
11.         CHDIR myFiles(mySelection&) ' >>>>>>>>>>>>>>> myFiles(mySelection&) to myDIRS(mySelection&)
12.     ELSE
13.         _KEYCLEAR
14.         EXIT DO
15.     END IF
16.     _LIMIT 60
17. LOOP 'UNTIL done$ <> ""
18.  

Dang! I have 2 sets of changes, one modifies code to updated version of Navigator code involving the tmpDir for temp files, the other moves a CLS and advises where to insert code with the old (current) state of Ken app to play nicely with the music and Ken's vision of the player.

Title: Re: Tiny Navigator
Post by: bplus on August 24, 2019, 10:45:44 am

I guess the next logical step is to turn this into a Modal Dialog for Retrieving File or Directory names. :)

I hope to get the idea of screen state worked in, that I use for mBox and inputBox, maybe put the whole set in a library, maybe change Function getArrayItemNumber to SUB ListBox.

Title: Re: Tiny Navigator
Post by: SierraKen on August 24, 2019, 01:16:13 pm

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?

But thanks for the rest, I changed everything to what you said.

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

Title: Re: Tiny Navigator
Post by: bplus on August 24, 2019, 01:26:34 pm

Quote from: SierraKen on August 24, 2019, 01:16:13 pm

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.

Title: Re: Tiny Navigator
Post by: SierraKen on August 24, 2019, 03:50:41 pm

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.  

Title: Re: Tiny Navigator
Post by: SMcNeill on August 24, 2019, 04:06:15 pm

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

Title: Re: Tiny Navigator
Post by: bplus on August 24, 2019, 04:29:36 pm

Quote from: SMcNeill on August 24, 2019, 04:06:15 pm

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.

Title: Re: Tiny Navigator
Post by: SierraKen on August 24, 2019, 04:36:13 pm

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.  

Title: Re: Tiny Navigator
Post by: SierraKen on August 24, 2019, 05:32:51 pm

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$ (http://www.qb64.org/wiki/DIR$)

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

Title: Re: Tiny Navigator
Post by: bplus on August 24, 2019, 05:50:48 pm

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 ..

Title: Re: Tiny Navigator
Post by: SierraKen on August 24, 2019, 05:55:04 pm

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&)

Title: Re: Tiny Navigator
Post by: SierraKen on August 24, 2019, 05:58:53 pm

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.  

Title: Re: Tiny Navigator
Post by: bplus on August 24, 2019, 06:10:18 pm

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...

Title: Re: Tiny Navigator
Post by: SierraKen on August 24, 2019, 06:19:04 pm

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.

Title: Re: Tiny Navigator
Post by: bplus on August 24, 2019, 07:46:52 pm

Hi Ken, I am not able to replicate your error
  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Title: Re: Tiny Navigator
Post by: SierraKen on August 24, 2019, 08:01:27 pm

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.

Title: Re: Tiny Navigator
Post by: SierraKen on August 24, 2019, 08:26:17 pm

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.

Title: Re: Tiny Navigator
Post by: SierraKen on August 24, 2019, 08:53:00 pm

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.  

Title: Re: Tiny Navigator
Post by: bplus on August 24, 2019, 10:19:04 pm

Quote from: SierraKen on August 24, 2019, 08:01:27 pm

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.

Quote

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?

Not necessary, just trying to call the things DIRs not files.

Quote

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.

YIKES!!! Man! the scroller is best part! Do you have any clippet's of code where the mouse wheel does work?
Maybe we can figure what's off. I assume the arrow keys and PgUp, PgDn keys work?

Title: Re: Tiny Navigator
Post by: bplus on August 24, 2019, 10:24:38 pm

Quote from: SierraKen on August 24, 2019, 08:26:17 pm

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.

_LIMIT just saves your CPU from overheating, it limits a loop to a set amount of loops per second if it is going faster than that. 100 is fast enough to check mouse often enough but saves on fan and CPU if code could run faster, it does nothing if code runs slower per loop.

Title: Re: Tiny Navigator
Post by: SierraKen on August 24, 2019, 10:36:30 pm

Wow the wheel does work, I guess the times I've tried it I didn't have the program focused right and I needed to click the window somewhere, sorry about that. Also, when I was using the wheel, sometimes it would flip to where the mouse is pointed instead, but only you would know about that. In my experience with 64 bit computers is, or even Windows in general, things can happen that we never know why but they just do. lol
By the way, today is the 24th anniversary of Windows 95. lol

Title: Re: Tiny Navigator
Post by: SierraKen on August 24, 2019, 10:42:35 pm

Oh I know why I didn't think the mouse wheel wasn't working, I was used to website scrolling and not the way you did it with selection scrolling instead. Website scrolling scrolls the whole window at once, yours only does that when it gets to the bottom of the list, or the top. :)

Title: Re: Tiny Navigator
Post by: SierraKen on August 24, 2019, 10:52:09 pm

I just noticed one little problem with the wheel. The mouse pointer overtakes any menu selection than the wheel has highlighted. For example, if I am using the mouse wheel to highlight the names and come to one called Prince, and the mouse pointer at the same time is over one called Jeff Beck, and I click the mouse button, it will choose Jeff Beck, and not the highlighted one of Prince. This is probably what confused me about the wheel to begin with.

Title: Re: Tiny Navigator
Post by: bplus on August 24, 2019, 10:56:13 pm

Yeah, if the highlite is on one thing and mouse somewhere else, not moving, press space bar or enter to select highlighted thing.

Text Only | Text with Attachments