DarkBASIC's music commands reimplemented

Author

Message

Fluffy Rabbit

User Banned

Posted: 8th Oct 2011 05:49 Edited at: 8th Oct 2011 05:49

function loadmusic(sound$,num)
    if dll exist(3)=0 then load dll "winmm.dll",3
    quote$=chr$(34)
    call dll 3,"mciSendStringA","open " + quote$ + sound$ + quote$ + " type mpegvideo alias snd" + str$(num) + " wait",0,0,0
endfunction

function loopmusic(num)
    call dll 3,"mciSendStringA","play snd" + str$(num) + " from 0 REPEAT",0,0,0
endfunction

function playmusic(num)
    call dll 3,"mciSendStringA","play snd" + str$(num) + " from 0",0,0,0
endfunction

function stopmusic(num)
    call dll 3,"mciSendStringA","stop snd" + str$(num),0,0,0
endfunction

function deletemusic(num)
    call dll 3,"mciSendStringA","close snd" + str$(num) + " wait",0,0,0
endfunction

The above should undo any problems with DarkBASIC's music commands pausing while looping, not being able to load wav files, and all that.

Back to top

Profile

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 10th Oct 2011 18:28

Link

Nice!

Just a couple of notes about using dlls in DBC that may be helpful:

1. Set up global variables to hold the DLL number that you can easily identify. Also load in your dlls ahead of time if you intend on using them
more than once.

For example, in the case of winmm.dll you might create a global variable in the initialization stage of your program like

+ Code Snippet

_setup:
   rem load the dlls
   winmm=3
   load dll "winmm.dll",winmm
   
   rem do other stuff
return

2. Once your globals are set and you dlls are loaded, design your functions with a parameter to pass the dll number to the function. This allows you flexibility in assigning whatever number you want to a dll and doesn't hard code it in the function:

+ Code Snippet

...
otherstuff=2

myfunction(winmm,otherstuff)

end

function myfunction(dllnum,otherstuff)
   value=call dll(dllnum,"Play",otherstuff)
endfunction value

In case you want to expand your library or see some of the problems I ran into when messing around with winmm.dll, check out the following link:

Audio DLL

Enjoy your day.

Back to top

Profile PM

Jocurile copilariei

12

Years of Service

User Offline

Joined: 10th Oct 2011

Location:

Posted: 10th Oct 2011 19:40

Link

hmm ,ya ,really true ,but ..

In timpul liber imi place sa joc multe jocuri cu masini !

Back to top

Profile PM Website

Fluffy Rabbit

User Banned

Posted: 10th Oct 2011 23:10 Edited at: 10th Oct 2011 23:10

Link

@Latch-

Quote: "Nice!"

Thank you.

Quote: "Set up global variables to hold the DLL number that you can easily identify. Also load in your dlls ahead of time if you intend on using them more than once."

People generally only use DLL numbers 1, 2, and whatever the greatest DLL number is. If you look at Sparky's or Multisync, the DLL numbers are hard coded. I wouldn't worry about *problems* (for lack of a better word).

Quote: "In case you want to expand your library or see some of the problems I ran into when messing around with winmm.dll, check out the following link:

--snip--
"

You beat me to it! I just knew someone had already implemented this in DBC somewhere, but I just figured I was trumping the Latch.

I guess not.

Back to top

Profile

Sorry your browser is not supported!

DarkBASIC Discussion / DarkBASIC's music commands reimplemented