Qbasicnews.com

QBasic => QB Discussion & Programming Help => Topic started by: Karelius on May 24, 2007, 11:36:26 AM



Title: WAVE in Future Library 3.5
Post by: Karelius on May 24, 2007, 11:36:26 AM
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?  :???: