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

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
沟通更畅快 HipChat推出1对1视频和屏幕共享功能 AMD宣布支持DirectX 12 为游戏开发者带来更多福利 开发者薪资调查:2013年哪种编程语言最赚钱? 苹果挖墙脚未果,黑莓高管跳槽被起诉 不看不知道:六个超大规模Hadoop部署案例 豌豆荚发布应用内搜索技术协议 兼容App Indexing Oculus 21岁鬼才创始人:收购不等于改变 Unite China 2014课程解析:Unity教育行业专场免费开放 Instagram技术窥探,助你打造响应式App 切勿妄谈Hadoop,以及4个数据管道打造实践 一周消息树:雨果&#183;巴拉与小米的那些事儿 《近匠》轻邮联合创始人Wesley:移动App要有撼动企业服务的野心 Facebook开源MySQL分支,谷歌、LinkedIn、Twitter等大拿捧场 淘宝明风:基于Graphx的图计算实践分享 调查显示:2015年Android将统治全球操作系统 初创公司最爱使用的那些开发工具 仙剑之父姚壮宪强势加盟Unity游戏及应用大赛 智能可视化平台:DCOS之数据中心抽象 一周热点:5美分/GB的开源存储系统,及硬盘质量“最差”的希捷 英特尔收购可穿戴技术公司BASIS Science 设计移动App的十大技巧 皮皮网陈超:易用与性能兼备,Spark蓬勃发展! Sahara顺利毕业,将加速OpenStack与Hadoop的融合 十大将拯救地球的开源硬件项目 Android应用程序开发者需要了解的五个内容 百度轻应用插件CloudaMySQL诞生记 盘点Github所用的开源项目 开源不只是面对开发者 见证新一代全能大数据计算平台崛起 ——中国Spark技术峰会将于4月19日在北京召开 大佬放猛料的节奏 阿里云聚无线为开发者提供一站式服务 智能硬件又添新选手 汉王推出便携PM2.5检测仪 怎么判断一个字符是浮点型的 怎么去掉超链接的下划线 如何在BSD上安装jdk,resin,oracle8i 如何利用ADO建立一个与带有密码的ACCESS数据库联接? 在C#中,有一个MDI的父窗体,如何在其上创建几个悬浮的窗口? 请问如何得到鼠标所在的窗口句柄 問題很簡單,請幫我看一下:這個頁面為什麼一按刪除按鈕就會出錯呢? asp中具体怎么用其自带的TreeView控件?(多给分!!!) u 盘的使用问题 急 急 急!!!!! 谢谢大家 两块硬盘,装两个linux系统,如何设置启动? 图象横向和纵向的显示问题 问个基本问题? 问一个SQL查询语句 难题!怎么通过Proxy的NTLM验证? 分不是问题,望高手详解 允许DBGrid对记录进行编辑,在线等待,急急急~ ISO 1054 标准 请问如何使用PFC中数据窗口的resize服务? 页面设置问题!请教!! 哪里有 趣味程序导学 java2這本書的源代碼下載﹖ 关于win2000AD的一个问题?(急) 为什么找不到a.out文件 oracle 的SGA问题,性能优化 写功能模块报告含流程图的问题 请教关于DOM NodeFilter的相关用法! 关于BREW 买书落,便宜啊......(UP有分) 请问,通过java怎么访问其他机器的web services?提供思路就给分! 现在我面临着给50多台机装win2000的任务,怎么办 oracle 的SGA问题,性能优化 刚刚完成的改版公司主页。大家去支持一下小弟呀! ? 有谁知道上海的做J2EE薪水有多少(平均水平),谢谢大家! 几个算法问题,参与者都有分! .NET制作的安装程序安装好后如果删除了打包的一个文件,再次通过快截方式启动时会重新安装,怎么不让他安装? 哪位能给提供一套ISO文档的实例? 如果procedure中执行的是一条SQL语句,如何得到返回的数据集? 可不可以在单线乘里开2个SOCKET? 帮我看看这个c语言的程序! 怎样处理窗口标题? 高分求助 !!!怎样利用INTERNET实现异地多台机器互连? 很简单,如何得到当前的时间和日期?(在线等待) 请问哪里有用applet做的,能绘制数学曲线的动态演示系统?各位,请不吝赐教 今天大清早被人诅咒! Delete 多个表时一条语句怎样写?? 请教:如何获取文本框中SQL语句。50分 日期型的格式应该怎样写?? windows xp internet 浏览器的问题 大家帮我看看这段代码:它是如何得到name和phone的值,并写到文件中取得 100分求李维的delphi5.x分布式系统开发的源代码,电子书我已经有 奇怪。为何win2000的搜索选项中的日期控件是Delphi中的样式?欢迎来讨论,给分!!! 请教一个数据库查询的问题! 新宝来的方向盘是机器液压,可以改成电子液压吗? 我去年买了表 每个人都有烦恼吗,为是么世界上有烦恼 BYDF0机械方向可以改成液压方向吗?费用下来是多少? 我去年买了个表什么意思 什么地方有火山,多长时间爆发一次? 世嘉方向盘是电子液压还是机械液压 我去年买了个表!什么意思? 什么是实证法 建筑物与避雷针之间有无安全距离的要求?建筑物能否挨着避雷针建造? 有句话是说斧头砍树 把斧头磨锋利点比一开始就去砍树的那把斧头砍的快 那句话怎么 通入过量SO2气体后为什么Na+、Ca2+、K+、Cl- 仍能大量共存不是会生成CaSO3沉淀吗?如果不能反应,原理是什么~ 复式条形统计图是统计图的一种吗 锋利的斧头砍倒了一棵棵树.改为拟人句 SO2气体通入含有大量NH4+,I-,Cl-,Ca2+的溶液答案上说不反应,NH4+,Ca2+不是反应了吗 浅谈如何设计教学情境提高数学课堂实效 人们用锋利的斧头( )地砍倒一棵棵高大的树木 怎样提高英语分数(初三的)? 宇通客车上柴发动机换方向机助力泵时方向要打一边吗 “伐木人用斧子把他砍倒,拉到山谷里去了”换个表达方式,意思不变 三个句子 我初三了英语什么都看不懂不会,我还有希望吗?我怎么才能提高英语成绩, 《诗经》是怎样描写伐木声的 武林外传 锋利的斧头武林外传里的“锋利的斧头”怎么得 日本的火山是怎么形成的 尽头的意思是什么 显示器翻译成英文是什么 成因与非洲板块运动直接相关的地形单元? 孤单,寂寞的尽头是什么呵呵 英语翻译KUVAVARITARKENNUSASETUKSETKIRKKAUEKONTRASTIGAMMAESIASPUNAINPUNAINENVIHREASININENVAAKASUORAPYSTYSUORAKIELTSUOMIosd asentovaakasuorapystysuora 避雷针有什么构成? 砍树的声音是什么声 英语翻译请翻译“Warning!CPU has been changed or cpu ratio changed fail.Please re-enter cpu settings in the CMOS setup and remember to save before quit! 避雷针的构造包括全部技术 提供 砍树的声音用文字表达还有用锯子锯树的声音用文字表达 有一幅图片表现的是一个男人砍掉了所有的树后,一只小鸟对他说:"请把我也带走吧.根据这些写作文400字. 避雷针的组成部分快,急 膈的运动与呼吸运动的关系请问、这个图是呼气还是吸气 为什么说中国革命是新民民主义革命 避雷针由哪几部分组成的? 避雷针的功能是什么 规范研究法和实证研究法的异同? 压力真的能给人带来动力么?这个社会,压力太大,做什么事都是的,真的能激发我的动力吗? 避雷针起什么重要的作用? 谈谈对新民民主义革命基本理论的理解 人是不是要有压力才有动力吗? 家是什么?请说说你对家的理解 恒定刺激法有哪些特点和操作方法? 这是个什么电路,上面各个元件都是神马? 形容伐木的象声词 请问上市公司财务风险预警实证研究可以只选取一种方法吗,比如logistic回归分析法. 少量SO2通入Ca(CIO)2溶液中的离子方程式 热学的一些概念 这里有一些选择概念,希望master们帮忙分析和判断,1.温度相同的物体,内能都相等.2.物体的温度越高,内能就越大.3.物体的运动速度越大,其内能就越大.4.物体被举的越高,其内能 头孢类和大环内脂类抗生素分别指的哪些抗生素,阿奇类抗生素是哪些?对于孩子来说,哪些副作用小一些? 7.2v电源的遥控车可以用9.6V的电池吗? 英语翻译中---->英十字槽盘头螺钉六角头全螺纹螺栓平垫圈环氧玻璃布板 小林和妈妈去超市购物,买日永平花去所带前的三分之一,买食品花去剩下钱的四分之一还剩150元,求她们所带的钱 不敢恭候什么意思 人类的终极文明是什么? “给大师买表”这句话是什么意思? 人为什么要有那么多烦恼呢? 河北开设石家庄至唐山航线 机票9元全禁化武组织称叙利亚提交销毁化武初步计9月京二手住宅网签超1.2万套 市民叙问题特使将抵达叙利亚 筹备日内瓦国核心技术在手 才有\"数据主权\"我海军在西太平洋实兵演习遭外国舰机跟楼号无序车辆占道 老小区的“救命”通杭州“错时停车”推行5年难度越来越大浙商大赛昨决出总冠军 创新项目让大佬温州办公用房改革搁浅 官方表示执行有浙江副省长:希望金改把资金引到最需要北京香山红叶不红引抱怨 人多致下山索长沙机场收到危险品威胁 导致多航班延金花绽放伊斯坦布尔 彭帅谢淑薇2-0村官缘何频成大贪:占据大量资源 监管李娜“最佳赛季”绽放第二春 再夺大满李娜自评2013“最佳赛季” 感谢团国务院宽进严管激发市场活力 对监管提媒体揭胡万林江湖路:曾在新疆治死13湖南一菜农与市场保安争执后死亡 后者万人排舞展演(图)云南日报:提高聚焦精度“澳门万人游云浮”启动广州同时启动雷雨大风蓝色预警和暴雨黄岳阳平江:网络注册志愿者超过10万人“窃听大盗”手机病毒出现 大肆窃取用重庆:房地产两年来首次跌出居民投资主东航云南“转”出别样精彩(图)射击是特战队员的基本功。他们要保证在双刃剑? 与全球“最聪明”的基因测序母亲节:28位妈妈“罢工” 希望家人中国经济简讯:中国核电起重机研制取得驻村指导员李学强:佤族拉祜族群众的“真实的隋唐:李元霸是浮云 秦叔宝才是母亲节:28位妈妈“罢工” 希望家人云南日报:提高聚焦精度驻村指导员李学强:佤族拉祜族群众的“云南日报:杜绝双重标准加强边境管控 云南德宏雷允军警民联合王忠民谈阿里巴巴美国上市:社保基金团宋英杰亮相“气象北京”粉丝见面会 粉青岛遭遇1961年来5月单日最强降雨
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘