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

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
财税街创始人石克清:创业须空杯心态+有效社交 自我知识管理:连贯性就是生产率 玩转Google I/O 2015:Android M、IoT、Glass 2.0、VR、ATAP ARC中Retain Cycle揭秘 失控与逆转!企业移动化2.0时代下如何求变? 玩转物联网之MQTT 专访都灵创客教育奚炎:被忽视的Maker教育 13岁iOS开发者:Swift开发Sprite Kit游戏实践 专访豌豆荚「自动装」开发团队:无需Root即可批量点击「下一步」 iOS项目的持续集成与管理 《近匠》谛听科技,探索智慧家庭的智能网关 【简讯】Python 3.5.0b1发布 《算法的乐趣》作者王晓华访谈:多看、多做、多想是秘诀 专访李祎:Java在Testin的技术应用 React首部经典图书推荐:全程经典实例,360度剖析React.js 再做一个Android!Google发布第二代VR眼镜Cardboard Go语言开发常见陷阱,你遇到过几个? 奏响年度最强音 第七届中国云计算大会日程全公布(表) 【CTO讲堂】请在还年轻的时候,尽量多踩些坑 以细分使用场景为突破点 探究墨迹天气的体验创新 熟练成就创造——MathWorks全球副总裁Richard Rovner、产品市场经理赵志宏专访 Objective-C编码规范:26个方面解决iOS开发问题 豌豆机器小组发布最新WRTnode2R,支持华为Liteos、QQ物联与AllJoyn [新书推荐]Node.js项目实践:构建可扩展的Web应用 【简讯】Perl 5.22.0 发布,大幅改进代码! 【征文】特别策划——群雄逐鹿共话新型数据库 针对DCloud侵权质疑,APICloud发布声明 《近匠》小鱼天气,中国风与细粒度空气质量检测 Xcode 7 beta发布,Swift 2.0带来哪些新变化? 【有奖征集】MDCC 2015演讲议题征集全面启动 Swift语言那些鲜为人知的特性 各位同志,我有个问题搞不清楚.请不吝赐教. 如何在局域网中实现共享只读文件(没有共享密码)的写操作 杭州的朋友,请问........ 如何在explore显示的网页的文本框中设置正文??? 谁能告诉我学软件工程到底有多少用? 这里有20分,谁要? 大家来看,这就是别人对中国程序员的看法! 寻找图书~? 获取NT管理员权限创意 ?寻找图书~? 为什么运行时正常的程序,编译成可执行文件后运行过程中出错... 怎样填充按钮客户区? 寻找图书~?? 请问如果数据量很大,比如大型企业的即时采集数据,应该用什么数据库系统处理呢?oracle,sysbase,db2,sqlserver还是cobol?? 这么简单的问题,难道就没有人能帮我了吗?!太遗憾了! 敬一杯“情人醉”给MM_mimi(人淡如菊),别人不要进来呀! 谁有过同样的遭遇??? 长整数除法的算法?? 关于Java Plug-in和Applet的一个问题 请求推荐有关SDK的好书!!!!!!! 我受不了了 个人主页链接如何让鼠标变成手形?谢谢! 老话题:三层结构中blob字段的存取出问题了? run-time类是怎么回事? 当多个程序对同一个文件进行读写操作,如何防止同时写入造成混乱? 求银行家算法的c程序! 请问W2K下面鼠标阴影的效果是用哪个API实现的? 我提议有编程经验的朋友们,一起来研究一种真正符合我们实际开发工作的模板 我用上kylix了!!!!!!! 请教,关于NT域用户的问题!NT账号,怎么设定唯一性呀?比如有aa的用户,我用aa登陆后,别人不能用aa同时登陆了?应该在那儿设置呀? Mfm1992?是个什么东西呀! 如何在informix/esql c中使用大事物? 如何保存收下來的email呢???!!!!! 关于一个网站建设的问题,望高手指点。 求救;如何建立一个登陆页面? 谁能给出一个远程访问互联网ACCESS数据库的经典代码?有28分送上! 怎样将-个十六进制数转换为十进制? 如何将java程序编译成dll文件 cannot focus a disabled or invisible window 一表我想通过文本框来增加记录,为何不能发送到表中,不要告诉我是没有post的原因。 奇怪,borland的开发能力这么强,为什么几乎没有一个象office那样流行的应用软件呢?如果它的应用软件很多,就不会象现在这样穷了吧? Delphi 数据库不如Power Builder 吗? 请问怎么安装新的控件? B样条曲线:如何由经过点反算控制点? Berzer曲线:如何由经过点反算控制点? 关于activereport的字符集问题 有没有计算曲线长度和交点的好方法? Install Shield For VC6怎么用???????????????????? ODBC数据库 ****有没有计算曲线长度和交点的好方法? ****Berzer曲线:如何由经过点反算控制点? 六年级数学下册练习册很急啊 急、啊 用猜想和尝试法解决1.一个笼子里,鸡和兔共有28个头,80只脚.鸡和兔各有几只?这个列表我忘了,你们能提醒我一下么?同学们进行队列寻列,排场一个4层的空心方阵,还多15人.如果在方阵的空心部 苏教版数学六年级下册补充习题第78、79页的答案 人教版小学六年级数学下册配套练习册第108页第五题怎么计算,急需算式步骤. 某船队遇晴天和阴天均正常出海捕鱼,逢雨天则休息(晴天、阴天和雨天之外的情形不考虑).那么,在下个月的10日逢雨天的可能性为几分之几?11日出海捕鱼的可能性为几分之几?这两天均不能 补充习题数学六年级下册第60页答案快 1.一个数的6.4倍加上2.6,等于6.1,求这个数2.甲数的五分之二比它的⑦份之①多二分之三,甲数的½是多少?3.1.8的5倍,比一个数的75%少4.5,这个数是多少?4.35除40的商乘以¼与五分之一的差,是 一个正方形,如果长增加2米,宽增加3米,面积就增加46平方米,那么原来正方形的面积是多少平方米?小红有118元钱,全是1元、5元、10元三种面额的,共23张.其中5元和1元的张树一样多.那么1元、5元 六年级数学下册补充习题第11页答案 5题 6题 7题列式 六年级上数学练习册22页第5题答案全说!速度! 苏教版小学六年级数学下册补充习题31页答案 六年级下册数学练习册90页答案,要列式的哦,好的加分! 六年级数学练习册23页的1、2、4、5、6、7、的题目 人教版6年级下册数学书22页第6题答案急 苏教版六年级下册数学配套练习册86---95页答案苏教版六年级下册配套练习册! 人教版六年级下册数学配套练习册答案10到12页 六年级数学练习册22页第2题、3题、5题、7题和23页的3题 小学六年级下册数学苏教版练习册的第102页10.1111(1):一个长方形的长减少6厘米,面积减少30平方厘米,剩下的部分正好是个正方形,求原来的长方形面积是多少? 要有意思,列式( 六年级下册数学配套练习册15——21页答案人教版最好有公式的,会答的答,不会答的,别说什么不让抄啊 快 明天就交 不然我就完了 2010至2011六年级下册数学期中试卷苏教版 谁有北师大版六年级下册数学练习册72、73页答案我不确定我写的对不对,我想对一下题 六年级下册数学练习册答案47和48补充44和45 六年级上册数学配套练习册64页 北师大版六年级下册数学练习册答案5页 六年级下册数学练习册答案30页的第3题,快.苏教版的.要8个比例试。3/4,4,9. 六年级上册小学语文配套家庭练习册11课第五大题第一小题答案老人是聋子吗?你是从哪里看出来的?用“波浪线”标一标……以后,每天清晨,我都到小树林去练琴,面对我唯一的听众,一位耳聋 小学6年级下册北师大版数学练习册答案(只要29 30 31 32页的) 六年级上学期数学练习册习题3.5的9-14小题.(上海教育出版社) 小学数学配套家庭练习册 六年级上册第10页第三大题第五小题答案. 六年级数学练习册下册北师大版86页答案 六年级上数学练习册40页答案 拜托 急 啊 1.甲、乙两数的比是5:6,甲比乙少2,甲数是( ),乙数是( ).这么算出来的. 篮球场长28米,宽15米.把它画在边长为30厘米的正方形纸上,选择怎样的比例尺比较合适?画好后的篮球场长和宽各是多少厘米?(要算式,有依据) (六年级下学期数学帮你学75页2题) 人教版六年级上册数学练习册41页人教版六年级上册数学练习册41页全部的题 小学数学配套家庭练习册(北师大版) 六年级下册的数学练习册答案 41页、42页、43页答案. 图上距离 实际距离 比例尺 25cm 50km 280km 1:400000还有 0.6cm 4:1人教版的,芝麻开花的快! 六年级下数学练习册41页(三元一次方程)只要做习题6.10 解下列方程 三元一次方程一、 5x-3y+z=25x+2y-4z=3-5x+y-z=2二、x+y=-2x+z=13y+z=1三、x-y-z=-13x+5y+7z=114x-y+2z=-1 青岛版六年级数学上册配套练习册50页计算题答案! 六年级数学练习册共几页 六年级数学练习册答案青岛版12到13页一瓶果汁2分之3升用4分之1的杯子来乘能成多少杯 谁有青岛版六年级下册数学配套练习册49页综合练习答案? 六年级数学练习册 冀教版六年级下册数学练习册第13页答案一块长方形铝板长125.6厘米,宽62.8厘米.用这块铝板卷成一个圆筒,这个圆筒的直径可能是多少厘米?高是多少厘米? 青岛版小学五年级下册数学配套练习册42页答案 急! 六年级数学!练习册! 复式条形统计图中每个单位长度直条表示什么 谁能告诉我小学人教版数学六年级配套练习册第36页的答案? 复习题1到8 小学6年级数学练习册 北师大版 六年级下册数学配套练习册第六单元综合练习答案人教版会的帮帮忙,不会的别说一些废话啊!整个大题(四)算一算不用给,其他的. 六年级数学练习册下册第35页第3题的第2小题怎么写小明家和小刚家相距1240米.一天两人约定在两家的路上会合.小明每分钟走75米,小刚每分钟走80米,两人同时从家里出发,多长时间后能相遇? 六年级下册数学课本90页的题 六年级数学下册练习册63 六年级下册数学练习册24页的题.(1)为修公路准备了一大堆石子,堆放成圆锥形.这堆石子底面积是1256㎡,高6m.用这堆石子铺宽20米的路,厚度0.2m,能铺路多少米? 开心练习小学数学六年级下第七页六大题的第三问怎么做啊 数学六年级下册练习册54页要的是那种皮子和教科书是一样的练习册哦!只有54页的!我要的是53页的答案 1、5x6/1+6x7/1+7x8/1+8x9/1+9x10/1+……+19x20/12 小学六年级下册数学书第二单元练习二第19题的第二小题怎么算?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn