说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何从"SOUND.DRV"中提取声音

HTML文档下载 WORD文档下载 PDF文档下载
VB如何从"SOUND.DRV"中提取声音

'-------------------------------------------------------------------
'Author: Gordon F. MacLeod
'How to extract sounds from the SOUND.DRV library..
' Here are 4 different sound effects that can called
' via API's to the "SOUND.DRV" library. You can modify
' the values to create your own unique sounds.
' Declare these API's:

Declare Function OpenSound% Lib "sound.drv" ()
Declare Function VoiceQueueSize% Lib "sound.drv" (ByVal nVoice%, ByVal nByteS)
Declare Function SetVoiceSound% Lib "sound.drv" (ByVal nSource%, ByVal Freq&,
ByVal nDuration%)
Declare Function StartSound% Lib "sound.drv" ()
Declare Function CloseSound% Lib "sound.drv" ()
Declare Function WaitSoundState% Lib "sound.drv" (ByVal State%)

' Add this routine, to be used with SirenSound1 routine

Sub Sound (ByVal Freq As Long, ByVal Duration As Integer)
Dim S As Integer
' Shift frequency to high byte.
Freq = Freq * 2 ^ 16
S = SetVoiceSound(1, Freq, Duration)
S = StartSound()
While (WaitSoundState(1) <> 0): Wend
End Sub


' Here are the 4 sound routines:

'* Attention Sound #1 *
Sub AttenSound1 ()
Dim Succ, S As Integer
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()

End Sub

'* Click Sound #1 *
Sub ClickSound1 ()
Dim Succ, S As Integer
Succ = OpenSound()
S = SetVoiceSound(1, 200 * 2 ^ 16, 2)
S = StartSound()
While (WaitSoundState(1) <> 0): Wend
Succ = CloseSound()

End Sub

'* Error Sound #1 *
Sub ErrorSound1 ()
Dim Succ, S As Integer
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()
End Sub

'* SirenSound #1 *
Sub SirenSound1 ()
Dim Succ As Integer
Dim J As Long
Succ = OpenSound()
For J = 440 To 1000 Step 5
Call Sound(J, J / 100)
Next J
For J = 1000 To 440 Step -5
Call Sound(J, J / 100)
Next J
Succ = CloseSound()

End Sub
Facebook公布用户数据:美国移动用户占比78% Zynga开源服务器监控工具zPerfmon 上海海事大学王洁:打造物流教学科研应用云平台生态系统 15个步骤创立技术公司,并收获千万用户(二) HTML5发展慢热 开发者热情不减 NimbleBit孪生兄弟创始人:最后悔没有专注和扩大品牌 将对Windows形成挑战:谷歌在Chrome OS中默认支持Office 微软的企业社交大动作:Yammer发布移动SDK 谷歌开源Gumbo:纯C语言实现的HTML5解析库 AMD发布APPML源码,构建clMath库 【观察】3个月,每天增加52台,又一家云企业跻身十万台服务器俱乐部 感受华为IT业务的实力 小米雷军:我为什么做红米? GitHub上线Trending功能,帮你轻松找到有潜力的开源项目 如私人秘书:谷歌搜索将变得更加个性化 微软将于10月17日正式发布Windows 8.1 Google推出在线教育C2C平台Helpouts 技术人员组团参加SDCC 2013的十个理由 继BAT之后 第四大巨头是谁 如果传统IT部门真的消亡,你该何去何从? 闪存突袭,混合储存是否已步入黄昏 Cloudera发布Hadoop开源组件Sentry:提供细粒度基于角色的安全控制 我从其他Shell脚本中学到了什么? 10个调试和排错的小建议 机器学习的时代来临,人类应该做点什么? 云端测试破1500万 Testin已为开发者省2亿 智能腕表inWatch:已发售近3600台 Bingo!微软证实Windows 8.1将捆绑安装Skype IBM宣布收购以色列网络安全公司Trusteer 约10亿美元 如何才能运作好一个开源项目? 为什么JavaScript有能力成为未来企业级编程语言? 如何初始化控件CMSFexGrid 网页被某一搜索引擎收录后是否需要再定期提交? 请教各位javascript高手 怎样提取qrexpr1中的值???????????? 谁有Office XP Style的vcl控件,谢谢大家了,急!!! 请问如何模拟一次单击事件呢?急!急!急!急!请各位老大帮帮忙! 怎样让IIS服务器(2000 server)和域服务器的用同样的验证。 很多windows forms下面的程序都实现了XP或是VS.NET风格的菜单了,Web界面上能实现吗? 两周了,我就是不能给分!!请速解决 我要学flash啊~~,帮帮我啊~~~,那里有免费的flash下载,一定要告诉我啊!!!!!别忘了SN号啊!!!!!!不帮不行啊~~~~`,一定要帮帮我啊!! 保存COOKIE,定义了期限,然后期限内关闭IE,COOKIE仍然存在吗? 很多windows forms下面的程序都实现了XP或是VS.NET风格的菜单了,Web界面上能实现吗 如何打开dat为扩展名的数据库文件? 哪儿有IBM的visual Warehouse Manager? ~~~~~~~~~~~~帮你的程序制作奇形怪状的窗体,显现自己的风格~~~~~~~~~~~ emetrix 的软件注册号是怎样提交的?我想自己邮寄给用户好像不行的哦 烦恼的小问题 ★★★DCOM服务器的CallBack的技术怎样实现?★★★ 大虾们,救救我,十万火急!!!!!!!关于Delphi中FTP的问题 realaudio控件的问题!请高手指教 如何用table组件中canmodify属性 现在什么地方下mp3比较好 条形码阅读问题 有关鼠标单击和双击的问题,详情请进~~~~~~~~(看在偶出了一百分的份上,:-D) 很多windows forms下面的程序都实现了XP或是VS.NET风格的菜单了,Web界面上怎么实现 在实际项目中用InterBase数据库可行吗? 有关打印问题????????? win2000找98奇慢无比 template class的连接问题。请赐教 求拓扑排序的所有可能序列?50分求教 java程序员? 请问有没有介绍五子棋算法的好网站?我要做一个和机器下的程序!大家帮忙 请问在编程中的例程,行程和过程的定义是什么?以及他们的区别。 该怎么使用 action() 与 mouseDrag()?请看我的程序问题在哪? DELPHI6.0中的最小化事件是什么 marry____不只怎么办了 (★如何初始化控件CMSFexGrid★) 各位兄弟,不知哪里可以查到所有常量的值? 怎么把帽号赋给一个变量?thank 为什么WinXP激活后就不能重装? 困惑--判断颜色是否相同??? (急急急)寻找:win2000/xp/nt/9x 的可安装文件开发包(IFS Kit),送大分 如何在DB2(V5.2)下面实现表的ID自动增加功能? 帖子结不了,在送300分~~~~~~~~~~ 请问oracle那些版本以上叫8i,常用的是哪个版本,有WINDOWS下使用的吗? 我看过的TOOLBAR 都是横着的,可是我现在想做一个竖立这的TOOLBAR 我该怎么做啊!我翻遍了 CODEGURU 可是没有一个这样的例子! 谁有什么好例子 多谢了!! error C2065: 'end1' : undeclared identifier 我怎么用CreateDialog 建立一个对话框呢! 谁有代码!!多谢!CreateDialog(hInst,LPCTSTR"ID_",hWnd,DlgProc); 送小分:怎样在一个对话框程序中产生一个HWND视窗? 在Windows 2000 Professional 下可以装VS.net吗? 关于文件上传问题 关于微软自己的控件下载问题!! 以“呼唤和平”为话题的作文? 有人说眼睛是心灵的窗户,写人最好是写眼睛.课文中三次写了外祖母的眼神,找出有关句子,体会人物内心世界 作文《友谊》开头 有关于中国近代历史人物的作文?400字! 在文章里描写作者感受的句子一定要是感受的急 写友谊的作文开头要有题目 求一篇关于我所敬佩的中国近现代历史人物—蔡元培的文章,500字左右.要突出蔡元培所令人敬佩之处. 以“感恩让你在行动中成长”为话题的语文作文不少于八百字,要有真实感情 读诗给我带来的感受! 作文 我最敬佩的近现代历史人物 800字看着写吧 自己写 我需要总分总格式的以成长为话题的作文,最好是范文,作文里最好要有古诗词,记住要是总分总格式的,也就是先题记,然后概括,接着一段一个小标题大约三、四段,最后总结的这种类型越多越好 读了《过零丁洋》这首古诗,体会到什么? 以心为话题的作文新的,题材新颖,要把小事写成大事,不要特俗的,要有事情的,好的+分不要一楼的 我是九零后作文该写什么1000字 读诗的感受 以心为话题的作文怎么写啊如题 不要跟别人一样的 关于成长为话题的作文成长 为话500字 读了滁州西涧这首诗有什么感受快快! 以旅途的微笑为话题的作文 我是90 后作文1000字非诚勿扰 古诗阅读心得300字左右 《我找回了……》的半命题作文.500字以上.可以是:自信、成功、友谊、真心等等.母爱也可以。要新颖,情感真切,富有内涵,让人感动。 根据意思写词语1.遇到事情总拿不定主意()2.激发勉励别人,使其增加信心和勇气.()3.和别人分着享受(根据意思写词语指鸟类停留,休息() 以难题为话题的作文如题 找一篇半命题作文 寻找_____(如:快乐、友谊、家庭的温暖.) 我想找一句名言:我觉得自己想干一件事却没有信心而没有勇气去干.我想找一句关于这样的名言激励自所以,麻烦啦.,不要太多,求一句最称心的 以障碍为话题的作文急用啊…… 我找回了 半命题作文最好是梦想,别的也可以啦,450字左右 请模仿下面这节诗的形式,表现你的理想或友情的感悟.(不可以押韵.) 以感恩为话题的作文 读了20美金的价值的文章后,联系生活实际,谈谈阅读感受一天,爸爸下班回到家已经很晚了,他很累也有点儿烦,他发现五岁的儿子靠在门旁正等着他.“爸,我可以问您一个问题吗 ” ”“爸,您一 请模仿下面这节诗的形式,表达你对“友情”或“理想”的感悟时间时间是夹卷着冰雪的风暴,会染白我们的青春的额头; 以感谢为话题的作文用描写形式来写, 读了《为中华之崛起而读书》这篇文章后,联系生活实际,说说感受.只要一句话! 以面对为话题的作文600字,急 作文:以“面对生活中的困难”为话题记叙文,800字, 以金钱为话题的作文 仿照下面这节诗的形式,表达你对“友情”的感悟.只要友情的!好的给50时间时间是夹卷着冰雪的风暴,会染白我们青春的额头;时间是一道湍急的江流,会淹没我们生命的行舟. 以“困难”为话题的作文200字至300字 作文 金钱 共同面对的话题 仿照理想第一小节写一节诗爱心是......(不能是 爱心是风,卷起浓密的雾; 爱心是云,化作及时的雨; 爱心是雨,滋润久旱的树; 爱心是树,为你撑起绿荫) 以“感恩”为话题的作文2009.10.10——2009.10.12. 以"金钱"为话题的作文急( ⊙ o ⊙ 求 我是90后 1000字左右 急急急急~~跪求一作文~~ 我骄傲,我是90后~~500字左右同上二天之内啊 金钱,共同面对的话题1.你知道最早的钱币是什么样子的吗?2.在漫长的经济发展史中,钱发生了那些变化?3.未来社会中,钱的变化趋势又是怎样的?4.了解货币起源和发展的情况、与之相关的 这就是我 1000字 男 以感激为话题的作文 以"正确对待金钱"为话题的论文如题 是关于《祖国发展,我成长》或《民族精神代代传》或《奉献真情-感恩》的,大约在1000字左右,最好能联系实际! 我急需一篇500百字左右{我是90后}的作文 以“感恩母爱”为话题写一篇600字的作文 家乡的变化初中作文1000字 我是90后作文800字以我来写 求一篇以感恩为题的800字作文一定要800字或800字以上 我收获了友谊 作文 我是90后作文400字不要top864这种的!不像是小学生写的,超过400字! 以呼唤和平为话题的作文 作文 美好的心灵 急求! 描写人物外貌动作语言等人物内心世界可以写拾金不昧的人,助人为乐的叔叔.以小事写,要打动人300字以上 关于友谊的作文的开头
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn