TheGameCreators - CodeBase - MP3 file select

Return to the CodeBase listing

Category: File Control

Version: 1.13

Information

Uploaded: 24th Nov 2004 22:03

Modified: 23rd Oct 2005 11:42

Author: ZoneMaster

Summary

Select MP3 files from a list.

Full Description

Select MP3 files from a list. Put all MP3 files in the current folder (same as source code .DBA). Make sure Windows Media Player is the default media player for MP3 files.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem *** by David Scouten ***

rem assign 100 element array for file names

dim f_name$(100)

rem view the files list (use goto viewList)

viewList:

rem set font and text size

set text font "Arial" : set text size 15

rem clear screen and text white

cls : ink rgb(255,255,0),1

rem display a list caption

center text 310,10,"[Available MP3 list]"

rem do loop start

rem perform the list check

perform checklist for files

find first

rem get the file names for the list

f_name$(0) = get file name$()

rem set some initial variables

zp=35 : selected=0 : loaded=0 : fcount=0

rem build the file list

for a=1 to checklist quantity()-1

find next

f_name$(a) = get file name$()

if right$(f_name$(a),4)=".mp3"

if selectfile(320,zp,"["+str$(a)+"] - ["+f_name$(a)+"]")>0 then selected=1

rem file was selected

if selected=1

loaded=1

goto dumploop

endif

zp=zp+15

inc fcount

rem only displays the first 25 files

if fcount>=25 then goto getout

else

endif

next a

rem cancel file select

getout:

xp=zp

ink rgb(0,255,255),1

center text 320,zp,"Use the mouse to select a file, or press the F1 to cancel."

center text 320,zp+15,"NOTE: Windows Media Player MUST be associated with MP3 files."

if scancode()=59

loaded=0

goto dumploop

endif

rem sync screen and end loop

sync : loop

dumploop:

rem *** put your file handling code here ***

if loaded=1 then load music f_name$(a),1

if loaded=1 then play music 1

suspend for key

rem end program

if loaded=1 then delete music 1

undim f_name$()

end

rem select file function

function selectfile(x,y,infname$)

selected=0

ink rgb(0,0,255),0

myx=mousex() : myy=mousey()

if myx>x-100 and myx<x+100

if myy>y-8 and myy<y+8

selected=1

endif

if selected=1 then ink rgb(0,255,255),0

set text size 15 : center text x,y-8,infname$

if mouseclick()=0 then selected=0

endfunction selected

Download

Please login to download

Comments

No comments yet.

Author Name:	ZoneMaster
CodeBase Entries:	3

CodeBase - MP3 file select

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments