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

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
如果苹果推廉价手机,市场份额会不会超过安卓? 移动互联网下,如何做儿童新音乐? 第三届“中科杯”全国软件设计大赛正式启动 注重稳定性 Docker 0.2.0发布 何谓机器学习 机器学习能做些什么? 艰难的决定:EA裁员10%,殃及PopCap 或提前落地!Amazon和Facebook急聘SDN工程师(Python优先) 轻松完成网站提速:来自Google、淘宝等的Nginx PageSpeed模块 Touch-Pay发布 移动联通在手机游戏领域联合推融合计费SDK 如何组织大型JavaScript应用中的代码? Robert Scoble:戴Google Glass两周后 再也不想摘下它 赶时髦?Facebook CEO 2013年将领取1美元年薪 蓝港在线CEO王峰:我在网络游戏行业十年从业记 CMDN Club 27期:从儿童音乐教育到移动碎片化管理 聚焦全球移动市场——你所不知道的俄罗斯 MemSQL:号称世界上最快的内存-关系型数据库 兼容MySQL但快30倍 PC衰落 Intel转投Google挖掘移动市场潜力 移动周报:500元体感、精确到0.01毫米的Leap Motion TUP第29期:王淮、龚世海谈如何打造优秀的技术团队 一网打尽13款开源Java大数据工具,从理论到实践的剖析 从用户体验的善与恶说起,做用户爱“玩”的教育应用 三大主流开源硬件对比:Arduino vs BeagleBone vs Raspberry Pi “BlackBerry 10移动应用开发大赛”应用推荐 Java程序优化的一些最佳实践 Heka:Go编写,来自Mozilla,高效、灵活的插件式数据挖掘工具 Anchora鲁为民:PaaS是我的兴趣 次世代IDE Light Table 0.4发布 带来众多更新和改进 别再设计易碎的Web API! LinkedIn:55人支持2700位员工,2亿用户的大数据分析 Brian Krzanich是谁?这位新CEO预示英特尔未来怎样? HTML5开发者心声:浏览器兼容性成最大问题 急救!如何解决? 准备往开发防毒软件方面发展。应该看什么书? 请教!我想做一个资源管理器(类似于windows的)。。如何实现? 怎样选中一行后让这行变色 求屏蔽后退键方法!!! 请教:关于内存泄漏的问题!!! 这个程序一定是计算机有问题把? 请问为何VC++不认winexec()? 求救!!! 我的猫在WIN2000下总在通不过在网上注册计算机这一步,怎么办? 敢教日月换新天 — 使现有的软件或程序支持 Windows XP 的新界面 急::::100分,,,,,在线, 彩色图像灰度化需要修改哪些参数? 请问一下这个语句有什么问题? 在控件中如何创建另一个控件的窗体? Help,急 怎样实现视频捕捉 知道一个位图文件,怎样把这个位图通过打印机打印出来 如何实现象IE的地址栏一样的combobox???就是说当chang时自动列出关于combobox.text的内容!!! >>在类的虚函数中,为什么可以调用其基类的同名虚函数?它是如何实现的?? 灰毛兔,囡囡你们在哪里??请留下qq,偶想和你们联系 我刚刚开始学习B/S结构的程序设计,请问各位哪里可以下载到这方面的资料?顺便散分。 如何编程实现网络上的视频传输 知道一个模块的句柄侯怎样运行它? 中国为什么比韩国差这么多? 帮帮忙,我急需有关ERWIN的书籍资料,请能在哪里下载?急啊!先说声谢谢! 500分求助!!!如何打印MSCHART控件画出的折线图 请问网上有没有关于UI线程比较好的例子?如果有的话,发一个网址给我,在线等待,谢了! 一道选择题 局域网,一方可以ping通一方,怎么解决?? 装了WIN2K后,如何再装LIUNIX实现双启动? TQuery的简单用法,高分大放送! 如何将controls对话框中不用的控件去掉 请问怎么用coff2omf,把Strmiids.lib、Quartz.lib、Strmbase.lib转化成BCB可以接受的格式 JDBC for mysql 的使用 -------问题 偶有重回delphi修炼了,当年偶的师傅还在吗?老千,老鱼,chech,小新,老鬼,你们过的怎样?? 你现在正在看的这种页面如何实现? 我很喜欢delphi,但老板要我转学单片机,请兄弟们说几句,是福是祸?up、gz有分! vb的安装问题 请问如何在两个数据库之间进行联合查询? 迷 !!!!!! 天使的旁边是魔鬼 数据集排序问题 哪里有 MS viso 下载,谢! 用DATAREPORT设计报表,这个怎样设计? ASP写的计数器程序问题 天女散分:process basename 中文叫什么,进程什么名? 数据库句柄清除问题 请问我用JBuilder + weblogic61 编写的 EJB,在我拿到别的地方部署,是不是只拿 XEjb.jar和客户端 就行了? 如何让两个byte类型的变量a和b进行异或(^)操作,然后将结果存入另一个byte中? 我也来一个关于ACCESS的问题,高分请教。在线等待 从历史的长河来看,秦朝统一后实行郡县制是好还是不好?为什么? 一下对秦朝末期农民战争叙述不正确的是( ) A:爆发于大泽乡 B:起义队伍迅速壮大数万人C:最终推翻秦朝的残暴统治D:是第一次大规模农民起义我认为是C选项,希望各位高手帮我看一看, 喝苏打水有什么好处? 常见的化学性质有( ),还原性,毒性,( ),酸碱性等 馒头由小麦变成面粉需要多少道工序 苏打水的功效喝苏打水有什么功效?对人有什么好处? 请告诉我有关厄运、坚定信念的名言 麦子是怎样变成面粉的 如果、就造一个句子(与环保有关) 小麦是如何加工,成为面粉的? 麦子怎么变成面粉 浓硫酸和乙醇加热一段时间之后能闻到试管中出现一种带有特殊香味和甜味的气体,这种气体是乙烯还是乙醚?是否有毒? 陈小麦新小麦都可以加工面粉吗, 大米能不能像小麦一样磨成面粉做馒头 用不管 总造关于环保的句子快, 我们所吃的面粉是小麦的___加工而成的 氯化钾在工业上的作用 请问英文中的First name ,middle name ,last name 具体的含义,并且以例子为证明比如张三具体怎么填呢 能把小麦加工成面粉的是 夏商制度与西周封建这课的重点和考点是什么?需要背哪些内容?涉及的重要题有哪些? 英文名的构成!请问高手们,First name和Last name是什么?举个例子:Tom Green,First name和Last name是好像Green是First name吧?大人们教一教 百代都行秦政制”,指的是秦朝开创的制度被以后历史代王朝基 夏商西周国家统治人民的手段有哪些最好像简答题那样列出1、2、3 概括中国早期的政治制度的特征(夏商西周)历史简答题.答的好+++分, 战国时期是在秦朝之后吗? 夏商西周国家统治人民的主要手段有哪些 夏商的政治制度的主要特点和作用 秦朝和战国时期有诗吗?RT 夏商西周三代各自统治的时间为 夏商早期政治制度的主要特点? 关于厄运或失败的名言警句10句 如果说人生是大海或天空,应该怎么造句子? 夏商西周的中央政治制度这一时期的政治制度是分封制 宗法制 那么 这算是中央的制度 还是地方的制度呢 关于厄运或失败的名言警句3句(快) 四氢硼钠结构式与化学性质 喝苏打水,什么是苏打水? 小麦磨碎后,质量将减轻16%.如果要得到336千克的面粉,需要( )千克的小麦? 一般球形灯泡的尺寸是多少? 一台功率为50KW的拖拉机,在平直的农田里以0.5M/S的速度耕田(1)求拖拉机在耕田时受到的阻力(2)拖拉机耕田1小时所做的功 小麦磨成面粉原有质量要损耗是百分之十六现磨成面粉336前盖需要小麦多少千克 这种球形抱灯叫什么,哪里有卖 一台功率40KM拖拉机在平直农田里以0.5m\s的速度匀速耕田.问拖拉机在耕田是受到的阻力?要完整的过程已知-求解明天要交了来不急了! 介绍夏商文化的特点?夏商文化的特点 小麦磨成面粉,重量要减轻16%,如果要得到336千克面粉,需要几千克的小麦?列方程, 请问这个球形灯怎么拆下来换灯泡卧室的这个球形灯怎么换灯泡. 夏商文化的差异是什么 有关春秋战国的一分钟小故事 球形景观灯.求一些球形的景观灯 要白天和晚上的效果,大型的景观灯 顺反异构,对映异构,构型,构象之间究竟是什么关系? 氯化钾这种常用化肥对人体有害吗?听说会引起心力衰竭,不知是否真实? 苏打水的作用苏打水能补能量吗? 不可燃性是化学性质还是物理性质?原因?化学性质是指在发生化学变化时所表现出来的性质既然是不可燃,那么就没有发生化学变化所以我认为不是化学性质但又不像是物理性质到底属于什么 秦朝末期的历史我想知道秦朝末期历史的具体细节,怎么统一后北方还有赵军,赵王起义什么的,搞不清楚 果冻中氯化钾的作用 描写儿童生活场景得诗句1! 求秦朝末期或楚汉相争的穿越或重生小说,不要太沉闷的. 苏打水有什么作用 求春秋战国时代一故事就是一妃子亡国宁死不屈 不过后来还是屈服了 还给征服国的国王生了2个孩子 后人褒贬不一 也可能不是春秋战国的 应该是秦之前的 求秦朝末年历史结构秦朝末年时,楚怀王命项羽渡黄河救赵,又命刘邦沿黄河南进攻秦朝.秦朝灭亡后,经过几年的争斗,刘邦统一天下,自立为王.请问这时候楚怀王到哪里去了?他不是刘邦和项羽 最近看在郑州绿之源饮品也出苏打水了,哪位大小告诉我一下苏打水有什么功效额
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘