如何从SOUND.DRV中提取声音

'-------------------------------------------------------------------
　　'Author:GordonF.MacLeod
　　'HowtoextractsoundsfromtheSOUND.DRVlibrary..
　　'Hereare4differentsoundeffectsthatcancalled
　　'viaAPI'stothe"SOUND.DRV"library.Youcanmodify
　　'thevaluestocreateyourownuniquesounds.
　　'DeclaretheseAPI's:
　　
　　DeclareFunctionOpenSoundLib"sound.drv"()
　　DeclareFunctionVoiceQueueSizeLib"sound.drv"(ByValnVoice,ByValnByteS)
　　DeclareFunctionSetVoiceSoundLib"sound.drv"(ByValnSource,ByValFreq&,
　　ByValnDuration)
　　DeclareFunctionStartSoundLib"sound.drv"()
　　DeclareFunctionCloseSoundLib"sound.drv"()
　　DeclareFunctionWaitSoundStateLib"sound.drv"(ByValState)
　　
　　'Addthisroutine,tobeusedwithSirenSound1routine
　　
　　SubSound(ByValFreqAsLong,ByValDurationAsInteger)
　　DimSAsInteger
　　'Shiftfrequencytohighbyte.
　　Freq=Freq*2^16
　　S=SetVoiceSound(1,Freq,Duration)
　　S=StartSound()
　　While(WaitSoundState(1)<>0):Wend
　　EndSub
　　
　　
　　'Herearethe4soundroutines:
　　
　　'*AttentionSound#1*
　　SubAttenSound1()
　　DimSucc,SAsInteger
　　Succ=OpenSound()
　　S=SetVoiceSound(1,1500*2^16,50)
　　S=SetVoiceSound(1,1000*2^16,50)
　　S=SetVoiceSound(1,1500*2^16,100)
　　S=SetVoiceSound(1,1000*2^16,100)
　　S=SetVoiceSound(1,800*2^16,40)
　　
　　S=StartSound()
　　While(WaitSoundState(1)<>0):Wend
　　Succ=CloseSound()
　　
　　EndSub
　　
　　'*ClickSound#1*
　　SubClickSound1()
　　DimSucc,SAsInteger
　　Succ=OpenSound()
　　S=SetVoiceSound(1,200*2^16,2)
　　S=StartSound()
　　While(WaitSoundState(1)<>0):Wend
　　Succ=CloseSound()
　　
　　EndSub
　　
　　'*ErrorSound#1*
　　SubErrorSound1()
　　DimSucc,SAsInteger
　　Succ=OpenSound()
　　S=SetVoiceSound(1,200*2^16,150)
　　S=SetVoiceSound(1,100*2^16,100)
　　S=SetVoiceSound(1,80*2^16,90)
　　S=StartSound()
　　While(WaitSoundState(1)<>0):Wend
　　Succ=CloseSound()
　　EndSub
　　
　　'*SirenSound#1*
　　SubSirenSound1()
　　DimSuccAsInteger
　　DimJAsLong
　　Succ=OpenSound()
　　ForJ=440To1000Step5
　　CallSound(J,J/100)
　　NextJ
　　ForJ=1000To440Step-5
　　CallSound(J,J/100)
　　NextJ
　　Succ=CloseSound()
　　
　　EndSub->