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

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
云计算发展越快,中小IDC发展机遇越好 前富士康CEO程天纵:创客与资本间并无矛盾 【开源专访】Java高效开发框架Nutz:是SSH的轮子?还是新神器? 仿Google Now和Siri?微软WP8.1将推语音助手Cortana NodeJS无所不能:细数10个令人惊讶的NodeJS开源项目 【快讯】18-19日,亚马逊AWS负责人Andy Jassy会在北京说什么,做什么? 数据库未来的5大预测 华为王丰谈华为一体机三大优势 FusionCube SQL Server针对Windows集群加速 浏览器基准测试:IE11成绩惊人 移动开发工具访谈《近匠》第02期:梆梆安全——APP安全之道 罗永浩:ROM创业,锤子科技A轮融资7000万 独立开发者的自白:Objective-C最糟糕的13件事 回顾Google这一年——Android篇 百度手机卫士正式发布 “防吸费”功能全球首创 2013年平板电脑市场竞争回顾 Apple太阳能数据中心进展顺利,但却在税负减免上备受争议 一名开发者的年度回顾 智能手表Pebble明年初推应用商店 开发者今日起可提交应用 够快科技推出企业级云存储服务“够快云库” 项目开发中,质量和速度哪个更重要? 亚马逊AWS落地中国,云计算产业圈集体发力 Node.js 2013年大事记 【开源推荐】ThinkPHP:大道至简,让Web开发更简单 IE11中的WebGL探秘:渲染速度超Chrome 数据驱动智能:百度在计算广告学领域的技术突破 UX设计师和软件开发者,谁将是2014年的老大? 爸爸去哪儿:开发知名题材手游压力山大 多平台同步 谈IE11全新功能 高通副总裁沈劲:移动是产生变革的强大原动力 高性能、高流量Java Web站点打造的22条建议 云巅:第三代虚拟技术+搜索引擎+乐高理念打造分布式桌面云 在FAQ里见到这样一句,不明白什么意思 怎么我用vc 的 odbc 做数据库时,工程名为try ,在工程工作区的“class view”面板里没有tryview类的? 不能使用xmldocfile() 文档对象的问题 关于键盘纪录,高手 如何使用IPAddress控件? 初学者问:怎么用UpdateAllViews()? 无法创建asp.net应用程序 大家帮帮我吧,我都快崩溃了 中文乱码的问题 !!谁在VMWare 3.2里装过RedHat 9.0和RedFlag 3.0,请看看这些问题(100分)!! 如何使在输入框选中的文字在提交后仍然显示在输入框中? 无法创建asp.net应用程序 高手在上,请问怎么样在win2k中实现关闭程序和绘图[内详] 初学者问:如何在listview中查找其中一行? 怎样在调试窗口中看到变量值? 郁闷中,狂散分。。。。。。 DCOM怎么使用? 想做一个地区门户一般要包含那些栏目?? 线程 怎么能让DELPHI编出来的程序最小化以后进入到系统托盘? C++问题,请进来帮忙! help me ~!!! 以下行为究竟是关闭端口还是使用端口 callzjy(【剑客西门吹雪原来是仁者帮帮主...】) 怎么翻了这么多老帖子出来了??? 求原代码下载 大家都在干什么? 有什么东东大家可以一起研究研究? 初学者问:如何在listview中查找其中一行? fortran语言的高手请进,分数不够再加 我是一个刚刚步入JAVA世界的小鸟 恳请得到大家的帮助 。。 ActiveForm发布问题。 怎么能让DELPHI编出的程序像QQ一样可以自动隐藏? 一个关于dll的例子,运行不了,请帮忙看一下。 程序打包 BCB产生调试符号的问题 为什么要4张1寸的,1张2寸的照片?要这么多干什么/ 请问怎么样用C#遍厉注册表? 请问大家如何做一个实时的屏幕抓取的程序啊,是实时 各位大哥大姐帮帮小弟,先谢谢了!!! 用Delphi开发的WebService能否在NT4的IIS上面运行? 键盘纪录问题 一个窗体有多个按钮,怎样让一个按钮成为默认按钮? 关于MYSQL_CONNECT(),有点疑问 ASP.net好像也不能替代JavaScript吧? 网络游戏外挂之我所见(7) 键盘纪录问题 键盘记录问题 我为谁哭泣.. sql小问题 大家快帮帮我吧,我快崩溃了 谁知道VisualAge for Java 3.5的help打不开该怎么办?(能解决问题必给分) 参加翻译成 英文 要所有的 英语翻译原句是 死亡如影相随 房间是4.8米乘以2.5米,该拿多少平方地毯我想要一些这样算实际拿地毯的公式.该怎么裁.求大侠们帮忙.地毯是4米宽度的。 我要参加【翻译成英文】 如影相随是不是成语?大师们帮帮忙! 在△ABC中,AB=AC,∠BAC=∠108°,当∠CAD=72°时,△ABD与△ACD是等腰三角形吗?为什么?只有ab=ac 不等于cd 把“正在参加”翻译成英文 在雨中 看图作文.一共有四副图.要求::①仔细观察下面的图画,并根据这三幅图的内容,想象第二幅图的内容.(不必画出来)②把看到的和想到的内容连起来,围绕中心,写一篇450字以上的记 Rt△ABC中角BAC=90°,AB=AC=2,以AC为一边,在△ABC外部做等腰三角形ACD,则BD=? 万一他不参加 你还参加么?怎么翻译成英文 图上画了些什么?小朋友正在干什么?他是什么表情 10a乘10a等于 Could you___the baby laugh?--Could you____the baby laugh?--Certainly.It's easy.A.ask B.am C.are D.were 一天吃几根香蕉最好? (5a方b方+10a方b的立方)除以多少等于a+2b can't 现在那种红外感应开关是只要感应范围里有人 就会一直亮 还是会延时亮十几秒灭了再亮啊? 一天吃几根香蕉最合适? 小学人教版五上课堂作业本《落花生》最后一题(告诉我题目,我本子忘带了. 不延时的红外感应或者光电开关有吗?我需要一种不延时的红外感应开关或者光电开关,要求当手放入探测范围时,开关立即打开或者关闭,请问是否存在这种开关,价格约是多少? 一天最多吃几根香蕉? 本木倒致是什么意思 Don't leave, i can't spare you the world has. 是什么意思 黄河最早固定下来的河道是 到底是本木倒置还是本末倒置啊? 一天吃几根香蕉比较合适啊?吃两三根会不会太多啊? 为什么黄河的河道是呈几字型的啊?途中遇到了哪几座大山啊?水是顺着地势低的地方流的.那朋友你能不能帮我分析一下黄河途中所经的各大地型.希望越详细越好,别说中国西高东低.这太概括. 本木倒置用英语怎么说 香蕉可以提高记忆力吗?一天吃几根香蕉最好了? 黄河长江河道是天然还是人工的? 函数的导数表达式包含函数本身⋯ y'=-y^2-1 只知道自变量x=0时y=1 求y表达式 一天吃几根香蕉为极限?香蕉促消化我是知道的,但吃了一根后,由于它特别新鲜我就又吃2根,但我不敢吃多,怕吃多了对身体有害.到现在还想再吃一根呢.听他们说吃多了会拉稀呀?一天吃几根是 谁知道黄河河道内的滩涂地属于哪里?,我们那儿建旅游区地都被占了,五六十岁的老人们找不到工作又闲不下来所以想在河道内开点荒种点菜,每亩地每年1000实在是不够开销啊,可是原本属于我 baby、we can fly fly away .. 艾滋病是由什么引起的 煤灰砖还是水泥砖用于建房好 2*0.3m 平方线材导体多少根 艾滋病是什么引起的 已知砖的密度为1.5*10^3kg/m^3,用长25cm,宽12cm,厚6cm的砖块砌房子的墙,若房子外墙的面积为720m^2,墙的厚度为25cm,则修建此房约需砖___块,如果汽车一次能装载4t,则最少要拉___次才能将 线材:导体截面积怎样计算 快要读二级了,孩子的看图写画很差,怎么样才能让她提高水平,请高手指教, 如影随心什么意思 导体材料的问题二氧化硅(玻璃)在纳米尺寸时能导电,如果把纳米二氧化硅连接制成导线后,还能不能保持导电性? 1.南方古猿、能人、直立人、智人这四个人类可进化的阶段中那一阶段人类最先开始直立行走?2.克隆羊多利具有生殖能力吗?骡子具有生殖能力吗? 是非难解虚如影 是什么意思? 英语翻译在纽约一座漂亮的房子里,凯瑟琳斯洛珀跟父亲和姨妈一起过着平静的生活.父亲去世后,她将会继承一大笔钱.一天,凯瑟琳遇到一位英俊的小伙子,名叫莫里斯汤森.不久,他便称自己爱 进化的阶段 特征 古猿 南方猿 能人 直立人 智人 古猿 特征:人类和类人猿祖先,开始向不同方向进化 我想问下我家的卧室地面长4.1米,宽是3.5米 没装潢 高是3.2米 请问下我房间的面积是多少,应该买多大P数的 什么材料能作为导体为什么?那个电线电缆采用的是铜?而非铝或是别的导体? 看图写画我是用吸管和废衣架做桥的弯曲的一段,用泡沫做他的平面,下面奠了纸板,同时牙签作为护栏,废弃的饰品中的小花小草做绿化,体现出一种环保的概念,用桥来显示出宁波是我们美好的 一直杆AB悬挂在天花板上放开后直杆做自由落体运动,已知直杆通过A点下方3.2米处一点C历时0.5秒求直杆长 翻译 Can the ostrich fly? 万丈盐桥怎么样 如图 在三角形ABC中,AB=AC,圆O是三角形的外接圆,D为弧AC的重点,E是BA延长线上的一点,若角DAE=114°求角CAD的度数 英语翻译这次考试对他来说太难了 你怎么样?英语振作起来,我确信我们能取得高分.(get good marks) 爱滋病的病原体是什么?它的结构由哪两部分组成?请详细说明原因.十万火急! 厅里,地毯占了地面的4分之1.已知房间地面面积是16平方米,小群家大厅地面面积是多少平方米 请问能不能电器通过红外感应开关接通电源之后通过其他系统将一种电器的上盖儿打开,延时一段时间之后再关闭,然后电器进行下一个工作程序呢?用电磁阀或是电磁开关等能解决这个问题吗 我去抽签了,签上说如影随天.我抽的是婚姻签, 碱基序列是怎样测定出来的?怎样?我想,碱基序列这么庞大,测定它序列的效率应该是怎样呢? 美警方将中国灯笼当手榴弹致地铁站关停法一男子因遭解雇自杀 8年后遗体被发纽约宠物狗狂咬主人被击毙 主人事后反调查称八成美国人觉得同胞变粗鲁 行为芬兰拟针对就业市场形式对高等教育进行韩海军参谋总长希望提前部署3艘“宙斯韩称重启金刚山旅游需首先保障游客人身美报告警告称美国有600万青少年辍学韩抗议日本发布争议岛屿宣传片 欲召见报告称降低儿童死亡率尼日尔最成功 中记者追问医改网站故障 白宫发言人犯难美国会圆顶1300多条裂缝 50年最酝酿八旬六连任 麦凯恩欲2016年竞希腊女童疑曾遭拐卖 美国夫妻认为是其俄国防部长23日将出席俄罗斯-北约理德媒称俄前首富霍多尔科夫斯基难获释 联合国难民署加紧向300万叙民众提供联合国称巴以局势动态令人忧虑 吁各方欧洲太空望远镜将发射 能预测行星是否澳大利亚总督布赖斯访问成都 与大熊猫韩外交部可容忍同时标记独岛和竹岛 议4月河南空气质量信阳再夺魁 郑州倒数信阳市开展“用青春代言公益”网络文明莆田文献社区一下水道堵了通通了堵 市校企联手 强强联合信阳养生保健茶(工享低碳绿色出行 用行动护卫蓝天信阳市开展城市节约用水宣传周活动我市强化淮河防汛工作市机关事务管理局开展“文明旅游”公益鹤壁八旬老人董雷激6年骑行4万多公里倾心服务不停步 一枝一叶总关情――我市茶叶又添新品信阳菜品鉴体验活动启动 首日参与人数全市行业和社会扶贫南湾湖风景区加大执纪监督力度第一季度鹤壁农村居民人均生活消费支出小小乒乓球转出健身活力――“乒动中原鹤壁举办慈善摄影大赛 最高奖金100撂荒丘陵挖潜能 薄地生金助脱贫没有阳光,俺的麦子咋长?!信阳学院再现“考研明星宿舍” “六朵鹤壁小麦跨区机收启动 约7200台联
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘