Qbasicnews.com
WAVE in Future Library 3.5 - Printable Version

+- Qbasicnews.com (http://qbasicnews.com/newforum)
+-- Forum: QBasic (http://qbasicnews.com/newforum/forum-4.html)
+--- Forum: QB Discussion & Programming Help (http://qbasicnews.com/newforum/forum-11.html)
+--- Thread: WAVE in Future Library 3.5 (/thread-9985.html)



WAVE in Future Library 3.5 - Karelius - 05-24-2007

I have a problem, the wave file not play...

Code:
DECLARE SUB DmaState (StopGo%)
DECLARE FUNCTION WavDone% ()
DECLARE SUB SetStereo (BYVAL OnOff%)
DECLARE SUB SetSurround (BYVAL OnOff%)
DECLARE SUB LoadWAV (FileName$, SampleRate&)
DECLARE SUB StopAndReset ()
DECLARE SUB SpeakerState (OnOff%)
DECLARE SUB SBSetup (BasePort%, Ldma%, Hdma%, Irq%, SBtype%)
DECLARE FUNCTION Lwavedata% ()
DECLARE FUNCTION Rwavedata% ()
DECLARE FUNCTION GetMasterVolL% ()
DECLARE FUNCTION GetMasterVolR% ()
DECLARE SUB SetMasterVolL (BYVAL Vol%)
DECLARE SUB SetMasterVolR (BYVAL Vol%)
DECLARE FUNCTION GetWaveVolL% ()
DECLARE FUNCTION GetWaveVolR% ()
DECLARE SUB SetWaveVolL (BYVAL Vol%)
DECLARE SUB SetWaveVolR (BYVAL Vol%)
DECLARE SUB SetChannel (ChannelNum%, XMShandle%, WavFile$)
DECLARE SUB PlayChannel (BYVAL ChannelNum%)

I've write:

Code:
'$INCLUDE: 'future.bi'
CALL SBSetup(220, 1, 3, 5, 4)
CALL LoadWAV("c:\windows\media\tada.wav", 4)

The file Wave is a 8 bit 22050Hz Mono; in the code lacks something? :???: