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

播放声音文件 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
播放声音文件 -VB资料

-在 某 些 情 况 下, 例 如 程 序 员 正 在 编 写 一 个 游 戏, 或 是 将
要 进 行 一 项 非 常 冗 长 无 聊 的 过 程, 可 以 通 过 播 放 音 乐 来
增 加 游 戏 的 声 光 效 果 或 是 减 少 漫 长 的 等 待 所 带 来 的 困 倦。
本 文 介 绍 如 何 在Microsoft Visual Basic 中 对 声 音 文 件 进 行 播
放。

播 放 声 音 文 件

---- 在Microsoft Visual Basic 中 进 行 多 媒 体 音 乐 的 播 放 是 一 件
非 常 轻 松 的 事 情。 在Microsoft Windows 系 统 中 支 持 的 声 音 文 件
有WAV 文 件 和MIDI 文 件, 通 常 使 用Windows 应 用 程 序 编 程 接 口(
API) 函 数mciExecute 函 数 可 以 对MIDI 文 件 进 行 播 放。 而 使 用API
函 数sndPlaySound 则 可 以 对WAV 播 放 文 件 进 行 播 放, 当 然, 你 也
可 以 使 用mciExecute 函 数 来 播 放WAV 文 件。

---- 为 了 播 放WAV 文 件, 你 需 要 在 你 的 程 序 窗 体 的 通 用 声 明
部 分 中, 或 是 标 准 模 块 中 添 加 如 下 的 声 明 语 句:

---- Private Declare Function sndPlaySound Lib "winmm.dll" Alias "
sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As
Long

---- 以 及 如 下 的 标 识 常 量:

---- Public Const SND_SYNC = &H0
---- Public Const SND_ASYNC = &H1
---- Public Const SND_NODEFAULT = &H2
---- Public Const SND_MEMORY = &H4
---- Public Const SND_ALIAS = &H10000
---- Public Const SND_FILENAME = &H20000
---- Public Const SND_RESOURCE = &H40004
---- Public Const SND_ALIAS_ID = &H110000
---- Public Const SND_ALIAS_START = 0
---- Public Const SND_LOOP = &H8
---- Public Const SND_NOSTOP = &H10
---- Public Const SND_VALID = &H1F
---- Public Const SND_NOWAIT = &H2000
---- Public Const SND_VALIDFLAGS = &H17201F
---- Public Const SND_RESERVED = &HFF000000
---- Public Const SND_TYPE_MASK = &H170007

---- sndPlaySound 函 数 需 要 两 个 参 数, 第 一 个 参 数soundfilename
是 要 播 放 的WAV 文 件 的 名 称。 第 二 个 参 数 是 一 个 表 明 播 放
方 式 的 标 识 常 量, 其 定 义 的 值 如 上 所 示, 通 常 所 使 用 的 标
识 意 义 如 下:

---- SND_SYNC 播 放WAV 文 件, 播 放 完 毕 后 将 控 制 转 移 回 你 的 应
用 程 序 中。
---- SND_ASYNC 播 放WAV 文 件, 然 后 将 控 制 立 即 转 移 回 你 的 应
用 程 序 中, 而 不 管 对WAV 文 件 的 播 放 是 否 结 束。
---- SND_NODEFAULT 不 要 播 放 缺 省 的WAV 文 件, 以 免 发 生 某 些 意
外 的 错 误。
---- SND_MEMORY 播 放 以 前 已 经 加 载 到 内 存 中 的WAV 文 件。
---- SND_LOOP 循 环 播 放WAV 文 件。
---- SND_NOSTOP 在 开 始 播 放 其 它 的WAV 文 件 之 前, 需 要 完 成 对
本WAV 文 件 的 播 放。

---- 注 意:SND_LOOP 标 识 通 常 需 要 同SND_ASYNC 共 同 使 用, 也 即
在 两 个 标 识 之 间 添 加 与 播 放 符, 以 免 在 对WAV 文 件 进 行 播
放 的 时 候 将 系 统 挂 起。

---- 为 了 播 放MIDI 文 件, 你 需 要 在 你 的 程 序 窗 体 的 通 用 声
明 部 分 中, 或 是 标 准 模 块 中 添 加 如 下 的 声 明 语 句:

---- Private Declare Function mciExecute Lib "winmm.dll" Alias "
mciExecute" (ByVal lpstrCommand As String) As Long

---- mciExecute 函 数 只 需 要 一 个 参 数,CommandString, 顾 名 思 义,
它 是 一 个 命 令 字 符 串, 用 于 表 明 对 声 音 文 件 播 放 的 命 令,
例 如, 希 望 完 整 播 放 声 音 文 件, 则 该 字 符 串 就 是 字 符 串損
lay" 加 上 声 音 文 件 的 路 径 以 及 文 件 名 称, 如 下 所 示**

---- Dim ReturnValue As Long
---- ReturnSoundValue = mciExecute("play C:\WIN95\MEDIA\CANYON.MID")

---- 如 果 希 望 对 声 音 文 件 的 部 分 进 行 播 放, 可 以 使 用from...
to... 语 句 格 式, 例 如 若 要 播 放CANYON.MID 文 件 的10 毫 秒 到100
毫 秒 的 部 分, 可 以 使 用 如 下 的 语 句:

---- Dim ReturnValue As Long
---- ReturnSoundValue = mciExecute("play C:\WIN95\MEDIA\CANYON.MID from
10 to 100")
---- mciExecute 函 数 也 可 以 用 来 对WAV 文 件 进 行 播 放, 方 法 同
播 放MIDI 一 样。

样 例 程 序

---- 1. 在Visual Basic 中 开 始 一 个 新 的 项 目, 采 用 缺 省 的 方 法
建 立Form1。
---- 2. 将 如 下 的 声 明 语 句 添 加 到Form1 的 通 常 声 明 部 分 中(
注 意 每 个 声 明 语 句 需 要 被 书 写 在 一 行 内):

---- Private Declare Function sndPlaySound Lib "winmm.dll" Alias "
sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As
Long

---- Const SND_SYNC = &H0
---- Const SND_ASYNC = &H1
---- Const SND_NODEFAULT = &H2
---- Const SND_MEMORY = &H4
---- Const SND_ALIAS = &H10000
---- Const SND_FILENAME = &H20000
---- Const SND_RESOURCE = &H40004
---- Const SND_ALIAS_ID = &H110000
---- Const SND_ALIAS_START = 0
---- Const SND_LOOP = &H8
---- Const SND_NOSTOP = &H10
---- Const SND_VALID = &H1F
---- Const SND_NOWAIT = &H2000
---- Const SND_VALIDFLAGS = &H17201F
---- Const SND_RESERVED = &HFF000000
---- Const SND_TYPE_MASK = &H170007

---- Private Declare Function mciExecute Lib "winmm.dll" Alias "
mciExecute" (ByVal lpstrCommand As String) As Long

---- 3. 在Form1 上 添 加 一 个 文 本 框 控 件, 采 用 缺 省 的 方 法 建
立Text1。 将 它 的Caption 属 性 设 置 为NULL。

---- 4. 在Form1 上 添 加 一 个 命 令 按 钮 控 件, 采 用 缺 省 的 方 法
建 立Command1。 将 它 的Caption 属 性 设 置 为" 使 用sndPlaySound 函 数
敗*

---- 5. 在Form1 上 添 加 一 个 命 令 按 钮 控 件, 采 用 缺 省 的 方 法
建 立Command2。 将 它 的Caption 属 性 设 置 为" 使 用mciExecute 函 数敗*

---- 6. 将 如 下 的 代 码 添 加 到Command1 的 单 击 事 件 中:


Private Sub Command1_Click()
Dim ReturnValue As Long
Text1.Text = " 使 用sndPlaySound 函 数 播 放TADA.WAV 文 件。"
ReturnValue = sndPlaySound("C:\WIN95\MEDIA\TADA.WAV", SND_SYNC)
End Sub


---- 7. 将 如 下 的 代 码 添 加 到Command2 的 单 击 事 件 中:


Private Sub Command2_Click()
Dim ReturnValue As Long
Text1.Text = " 使 用mciExecute 函 数 播 放Canyon.mid 文 件。"
ReturnSoundValue = mciExecute
("play C:\WIN95\MEDIA\CANYON.MID from 10 to 100")
End Sub


---- 通 过 按 下F5 键 来 执 行 样 例 程 序。 单 击" 使 用sndPlaySound 函
数" 命 令 按 钮 则 使 用sndPlaySound 函 数 来 播 放C:\WIN95\MEDIA 目 录
下 面 的TADA.WAV 声 音 文 件。 单 击" 使 用mciExecute 函 数" 则 使 用
mciExecute 函 数 来 播 放C:\WIN95\MEDIA 目 录 下 面 的CANYON.MID 文 件
的10 毫 秒 到100 毫 秒 的 部 分。


2014年IT企业招聘调查报告:外资企业招聘规模偏大、技术人员比重高 小机器人Ozobot:Maybe,我也有禅意 Google 4亿美元收购人工智能初创公司DeepMind 加入初创企业前,自问四个问题 King.com维权 上演“贼喊捉贼” 淘宝:HBase Bulkload bug修复及patch提交 Google的“机器人情结”:两次合计36亿美元的人工智能收购 挑战谷歌、抢占新兴市场,百度进军泰国、巴西和埃及市场 《近匠》第8期:Unity——不再仅仅是游戏引擎 Colours:移动应用的开源“美颜相机” 微信红包活动:用户疯狂中的腾讯“阴谋” 预测2014年最热门的IT职位及年薪 智能手机有隐私?Facebook可阅读Android用户的短信内容 苹果2014年Q1财报:iPhone、iPad 销量创纪录 3D打印:鞋垫也玩私人订制 与Google Glass抗衡,三星将推Galaxy Glass 进军移动?任天堂欲推iOS、Android版超级玛丽 回顾2013:云计算的夏天 微软最终加入OCP阵营,开源其云服务器设计 Docker:集装箱式“运输”在软件上的实现 《近匠》第09期:ShareSDK——专注社交分享工具 苹果车载iOS系统iOS in the Car界面被曝光 支撑过万亿音乐事件的数据分析系统 Facebook运维内幕曝光:一人管理2万台服务器 《近匠》第10期:友盟——开发服务平台化 LinkedIn耗资1.2亿收购数据驱动招聘服务公司Bright 谷歌推视频会议硬件产品Chromebox 基于Chrome OS 文件上传组件导致Apache DoS安全漏洞 EA,你是来拉仇恨的吗? Beep:前Google员工打造的流媒体音乐控制器 有利于开发App的5款天气预测API com中用ado连接数据库 简单问题,小弟不会,怎样把picture对象的内容保存成文件?《真的给分》 谁有 Style Report EE 的非试用版序列号? 几个使用linux的很菜的问题 怎么把linux下的图形转移到window 2000下(请大家帮忙!急用!!谢谢!!!) 树?? 请问哪儿有acrobat下载?不是acrobat reader. 一个窗口,可以改变大小,但宽度高度只能在一个范围内,比如宽的范围是u-v,高的范围是x-y,超过范围就不能再改变,怎么做? 小问题,如何解决?谢谢各位大虾!!谢谢,我在线等 要上次网络程序员的试题。 sanfen 为什么我的字总是看着上下都缺一点? 死阿猫,老博亦,跑那去了,赶快看看我的问题~~~~~ 错在哪里?提示“标准表达式数据类型不匹配” 记得原来WIN95下有个快速查看的软件,2000下找不到了,请大家指点指点 快救我一下 急1! 怎么在DBGRID中实现下拉框??在线等待高手!!! 请问一个在安装WIN2000时的问题 delphi 编程时,如何把memo中字符的“回车”去掉! 如何在串口通讯中读写中文? 有没有誰知道哪个网站现场直播世界杯的. Query的查询 有关DDX的问题,高手请帮忙 用过NUCLEUS GRAFIXWT 和GRAFIXGS的朋友请进 about windows media player? 请问哪里有outlook express60的安装程序下载? socket通讯的问题! winxp的桌面图表问题 软件工程预算,急急急!!!!! 程序员教材的错误。 ADO简单问题求教,解决问题立即送分,绝不食言! 对于您来说可能很简单的日期问题,对于我很重要! 哈哈,阿猫现在不在,有想骂他的赶紧进了啊,我先来一句:死阿猫。。。。。 请大家说说这个小偷是不是很有义气呀! 猪猪要退出水园了,强烈挽留猪猪继续当我们的版主!支持的进来签名 着急!! 我是菜鸟 如何在sdk程序中获得.lnk文件的icon? 我在FORM1上加上了数据模块,FROM1上有一个DBedit控件,为什么Datasure属性里却没有 我是菜鸟 着急!! VC开发如何OFFIC,关于WORD的? 新手请教:如何从一张表中取出最新的50条数据? 硬盘抢救!!!大家帮忙! 国外有没有类似http://bbs.51soft.com/的大的软件讨论站? 格式化字符串的问题 菜鸟 Combobox中如何设置默认值? 如果你是新手! [流氓兄:突然冒出很多新人。。。贴] 请转这里 菜鸟 燃气报警器费电吗?24小时要要多少电? 什么是大气层? 进入锅炉的空气为什么加热 燃油气锅炉是水管还是火管 电流互感器怎么算电费求大神帮助电流互感器 型号是:LMZJ1-0.5 0.5KV 电流:500/5A 卷绕匝数:1匝 频率:50HZ 准确0.5线 5VA-3.75VA 这个电费怎么算? 物理桥梁? 人耳听到的声音的高低叫做什么,它跟发声体的震动的什么有关 人发出的声音的频率范围是多少? 桥与物理求一篇有关于天津的桥的文章,要桥的物理方面的知识,如结构、材质、承重力~~~等等~越详细越好像天津的金刚桥、北安桥等等 用火烧的锅炉循环泵在出水管按还是回水管按 人说话发出的声音的频率是什么范围 桥梁中涉及的物理知识 将收音机放在耳朵附近,能听到音乐声;用手把耳朵堵住,把收音机放额头上,也能听到声音,提出一个探究课 大多数人能听到的声音的频率范围是多少 物理学方面研究桥结合生活中的桥从物理学角度来研究一下结构;1桥的技术参数2桥的主要承重构件3桥身设计的力学原理4桥的材料要求马上就要开学了 望大虾们帮助. 我家走的上管就是在门上走的!在回水管与锅炉之间加的补水箱!我想问一下循环泵怎么安装!要具体的! 大多数人能听到的声音的频率范围是多少a 地球为什么有大气层 四年级上册语文园地一作文300字 大多数人能够听到声音的频率范围大约是多少? 为什么地球有大气层的呢‘’ 钢厂煤气管道泄漏如何处理 桥梁结构中的物理原理分析 为什么地球周围有大气层 气体运输管道 关于 泄压 求问~求大神解答如果是运输气体的管道(气体会带来污染)请问下 泄压阀开启 泻出压力 这个压力是里面的气体么?会不会造成气体外泄导致污染呢? 物理问题:有关桥梁设计问题 谢谢... 声音在土壤中的传播速度是多少?我需要的是大致的答案,环境就是森林里面的土壤。因为,含糊不清的答案会让人感觉没有说服力。 土星的光坏的主要成分是什么 木星大还是土星大 这是不是水滴鱼啊 耳朵的听觉频率 土星木星上真的会下“钻石雨”吗? 实验室配制1mol/L的稀硫酸250ml,需要18.4mol/L的浓硫酸多少ml 声音的频率一定要在人的听觉范围之内,即 萘环能和氢气加成么?如果可以的话?1摩尔萘环能和几摩尔氢气加成? 桥梁结构的力学计算以什么为准a.净跨径 i.; b.标准跨径 Lκ; c.总跨径; d计算跨径 i 人除了用耳朵听到声音之外还可以用什么来引起听觉? 浓硫酸加入足量铜并加热被还原的硫酸的物质的量的范围是多少A.小于0.9mol B大于0.45mol小于0.9mol 物理课要设计一个桥,关于力学,物理课要设计一个桥,用面条(通心粉类似的),桥的长度为75厘米,桥最高的地方只能10cm,宽度至少要求8cm,请问设计一个中间为10cm的桥,两端的高度为多少厘米合 按形状分,桥有___.___.___等快 某大桥全长6.89km……[一道物理题]【急!】某大桥全长6.89km,江面上正桥长为1570m,一列长为110m的火车匀速行驶,通过江面正桥需要120s,求:(1)火车的速度是多少m/s?(2)火车通过全桥需要用的时间 扬州或者南京有卖 中学奥林匹克竞赛物理教程力学篇 的书店么?本人高一、物竞入门、听人推荐这本说比较好、但市面上已经绝迹了?另外还有哪些书比较基础什么的、因为高中课内未学完、 三种以上的桥的形状、结构、特点和优点. 一条物理题(关于火车过大桥的)一列总长度为200米的火车以15米/秒的速度完全通过一座大桥所需时间为2分钟 求(1)大桥的长度(2)这列火车全部在桥上行驶的时间 土木工程中力学的作用是什么,结构的作用是什么?力学和结构之间有什么紧密联系? 桥有哪些形状? 一座大桥高20米……一道物理题一座大桥高20米,一辆6吨的汽车匀速行驶在长1000米的引桥上,行驶中除重力意外的阻力为汽车重的0.06倍(g取10牛/千克)求:(1)发动机的牵引力;(2)若汽车的速度 0.3molcu和含0.7molH2SO4的浓硫酸共热,充分反应后,未被还原的H2SO4物质的量 桥是什么形状的 吸热本领最强的是( )物体.深色物体比浅色物体吸热快.表面粗糙的比光滑的吸热快 在足量的浓硫酸中加入1.92g铜粉加热得到SO2 448ml求被还原的H2SO4的物质的量 大气层在哪里? 一个西瓜10斤,一个人120斤,一个人吃了这个10斤的西瓜,剩下5斤西瓜皮,请问这个人现在有几斤? 浓硫酸与锌反应,若反应过程中锌与H2so4质量比是26:49,则还原产物是什麽 大气层分哪几层 爱吃西瓜的人的性格是什么样的? 在沙子和水的实验中为何不考滤比热容?在沙子和水的实验中,有一句话说,相同的质量水和沙子,加热条件相同,相同的时间,吸收热量相同,为何不考滤比热容呢?公式不是Q吸=Cm(t-t0)吗,也就是说沙 大气层有几层 将过量铁粉放入300ml 2mol的浓硫酸中,假设浓硫酸完全反应且全部还原为SO2,则参加反应的Fe的质量为?需要完整过程. 水和沙子谁的导热性好 注意:不是比热容!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘