如何从SOUND.DRV中提取声音

2016-02-19 17:55 4 1 收藏

生活已是百般艰难,为何不努力一点。下面图老师就给大家分享如何从SOUND.DRV中提取声音,希望可以让热爱学习的朋友们体会到设计的小小的乐趣。

【 tulaoshi.com - 编程语言 】

'-------------------------------------------------------------------
  '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->

来源:http://www.tulaoshi.com/n/20160219/1616370.html

延伸阅读
标签: CorelDRAW
问:Coreldraw中如何提取位图色彩值? 导入一张位图后,想做几个和这个位图上的某点色彩相同的文字,在调色板中找死也没有找到一样的 答: 试试左边的滴管工具吧!如果滴管工具失效,记得要先把位图转成点阵图,因为位图用整形工具编辑后就不是真正意义上的位图了。   如上图,记得打开窗口菜单中泊坞窗口中的色...
来源:网络 作者:Colorcode 本教程的抠出完全不需要任何其它处理,直接把各通道的选区调出后,再复制选区部分的图形,合并后适当调亮即可。这种方法比较适合黑色背景图片。 原图 最终效果 1、打开一张烟花素材,进入通道面板。 2、按住键盘上的Ctrl键不放,用www.Tulaoshi.com鼠标点击红色通道,载入红色选区。 3、回到...
如何提取PPT中的声音文件   首先,我们打开一份已经含有音频文件的PPT演示文稿,单击左上角office按钮,选择另存为选项。 弹出另存为对话框,我们单击保存类型,选择网页html格式,输入保存名称已经保存路径,单击保存按钮。 OK,我们打开刚才保存的路径,看到一个.files文件夹,双击打开它。 进入文件夹之后...
Win7旗舰版系统下从视频中提取音频文件的方法   1、首先打开一个视频文件,然后找到qq影音右下角的的影音工具箱,点击转码项; 2、在打开的转码界面中,我们可以进行输出的设置,可以根据自己的喜好或者事情来进行设置,第一步一定要选择纯音频文件; 3、接着可点击上图的参数设置按钮,在弹出的设置框中选择相关参数即...
标签: windows10
Win10电脑中提取系统图标的方法   说到win10系统改变最大的地方,最显眼的估计是win10的界面了,很多系统图标都改朝换代了,和以往的win7/win8完全不同,有着win10系统新特色。很多老用户想要偷梁换柱,截取win10桌面上的新潮图标,换到老系统中去,这样是不是也能过过嘴瘾,体验下win10的效果。至于提取win10桌面图标的方法,最简单...

经验教程

467

收藏

98
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部