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

VB中播放WAV文件

HTML文档下载 WORD文档下载 PDF文档下载
VB中播放WAV文件
作者:赵鹏
在多媒体软件的开发设计中,声音是一个相当重要的多媒体元素,优秀的声音设计会为多媒体软件增色不少。而WAV格式的声音文件是一种最常用的声音文件格式,也最容易得到,比如通过Win 95中的“录音机”程序,利用麦克风就可以非常简单地录制WAV文件。VB是一个相当经典的多媒体开发的工具,在VB中播放WAV文件的方法主要有这样几种。

一、利用OLE控件
建一窗体,用鼠标选择OLE控件,在窗体上拖出OLE区域,在图一的窗口中选择新建和声音然后按确定键就完成了在窗口中添加OLE控件,如图二。
这样就可以在OLE控件的ResourceDoc属性中选择所要播放的文件,程序运行时双击OLE控件即可。
在实际的程序设计当中,往往需要单击某个图标或按钮来控制声音的播放,其实现方法是这样的:首先将OLE控件的VISIBLE属性设置为FALSE,然后在图标或按钮的单击事件中编写如下的程序:
Private Sub Contol_Click()
OLE1.Action = 7
End Sub
二、利用MMControl控件
VB5.0提供了许多设计多媒体的控件,在PROJECT/COMPENENTS/CONTROLS中选择MMControls 控件,窗体上就出现了多媒体控件对象,在这个对象上有不同的图形功能标识,其名称从左到右分别是Pre、Next、Play、Pause、Back、Step、Stop、Record 、Eject 如图三。
这个多媒体控件可以播放多种格式的声音,播放WAV格式声音文件的程序代码
Private Sub form_load()
MMControl1.DeviceType = "waveaudio"
MMControl1.filename = "c:\win95\media\ding.wav"
MMControl1.Command = "open"
End Sub
'以下是为图形标识Play事件编写的代码
Private Sub MMControl_playclick(cancel As Integer)
MMControl1.Command = "play"
End Sub
当运行这个程序时,MMControl控件中的Play键被激活,点取此按钮即可播放ding.wav文件。
在实际的软件设计当中,更多的情况是鼠标点击按钮或图标来控制声音的播放, 其实现方法是这样的:首先将MMControl控件的VISIBLE属性设置为FALSE,然后在图标或按钮的单击事件中编写如下的程序:
Private Sub Control1_Click()
MMControl1.Command = "play"
End Sub
运行程序时单击相用的按钮或图标,WAV文件照样可以播放。用自行设计的按钮或图标取代多媒体控件中的固定按钮,可设计出更加灵活方便的用户界面。
三、利用VB的API函数
在窗体的DECLARATIONS(声明)中输入如下代码:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal_lpszSoundName As String, ByVal uFlags As Long) As Long
'lpszSoundName是一个字符串变量,表示一个WAV格式的文件名。
'uFlags 用于设定播放状态的各种选项。参数值为0X00时,实现同步播放,参数值为0X01时实现非同步播放。
在命令按钮的单击事件中输入如下代码:
Private Sub Command1_Click()
Dim plays As Long
plays = sndPlaySound(“E:\WINDOWS\MEDIA\DING.WAV", &H0)
End Sub
运行时单击命令按钮即可播放WAV文件。

开源的数据可视化JavaScript图表库:ECharts 已迭代1.3亿年的分布式系统——Anternet 软硬整合:14个可改变世界的Kickstarter项目 是时候放弃MySQL的五大理由 比特币钱包Coinbase推出即时交易功能,无需银行转账手续 回收不活跃邮箱续:雅虎高管称能保证前用户信息和数据安全 移动周报:IT民工携娇妻转战传统行业,黄太吉的移动互联网营销 独立游戏开发的传奇!LIMBO开发商Playdead公司CEO专访 Firefox OS模拟器4.0正式发布 支持模拟触摸事件 莫轻言已成功部署大数据,也许你离达标还相去甚远! 基于Java的四大开源测试工具 Firefox OS:称霸移动市场?我们的计划更长远! 支撑5亿用户、1.5亿活跃用户的Twitter最新架构详解及相关实现 传苹果为iWatch招兵买马 以确保明年发布新产品 降价高达1200元的Surface RT,并不值得你购买 Daux.io:开源的项目文档生成器 避免代码注释的五大理由 安徽农信:30人,13轮测试,完成日均270万笔交易的综合业务系统架构调整 研究员带来5D光存储技术:容量达360TB,寿命高于百万年 LSI闪存加速或助力互联网IDC自我设计与建设 怎样让用户从100涨到200万?硅谷创业教父如是说 大作修炼之道:就算是手游,也要搞点剧情吧! Java EE 8愿望清单:缺少这些,Java EE将不会完美 Surface Watch?传微软正测试搭载Win 8的智能手表 又一美国造?联想在美设厂制造产品 软件定义未来 2013 SDCC中国软件开发者大会全面开启 可以直接拿来用的15个jQuery代码片段 程序员最害怕的5件事 你中招了吗? 机器智商已达四岁:亲,是时候考虑你的饭碗了 读60行代码完成的NoSQL数据库,看数据库打造面临的挑战 聚焦全球移动市场:韩国,开放之后是春天? 谁可以给我TSR完整的例程...(要有注释喔) 现在用的控件都是D版的,以后怎么注册软件啊? 请过了网络设计师的兄弟帮帮忙! 在C中,找一个字符或字符串在另外一个长字符串(64K)最后出现的位置,怎么实现最高效呢? 用 DHCP 分配了二个网段的IP地址。 “斑竹”在吗?象是只有你能够解决了!!!(附程序及错误代码!!!) 请问哪位仁兄知道SYGATE4.2 build 803的注册码? 如何在表单中阻止双引号??? 大虾们,帮我看看,这个错误和警告是什么原因造成的? 帮帮我吧 关于B/S报表? 怎样设置msflexgrid某一列的颜色? 用 DHCP 分配了二个网段的IP。 怎么能抓到密码? 在运行时想改变一个label的字体怎么改变,有没有做过的,label的属性在设计时是可以改的 fatal error C1010 找一个和VB的属性区一样的代码,控件或类库均可 如何调用在不同的窗体里自定义的过程 一个技术探讨问题,我想知道象在WORD等软件中插入图形或图象后,还能把它选择,并移动是怎样实现的? 请问:在另一个.asp文件中如何调用相同的变量? WEB初级应用问题 DIALOGBAR问题 请想报考明年的网络设计师的朋友进来聊聊 Oracle面向对象特征讨论,请进! 我学会VISUAL C++ 到底要多少时间 线程调试问题 大家一起进来讨论oracle和sql server的日志哦 请指教如果设置服务器端COM组件的权限,使终端可以访问到?分数好说啦,急,高手快帮忙! 如何把程序嵌入到widows Expolore 中? 今天心情特好!散分 在vc下怎样调出window下的“打开方式”对话框,他是类还是控件!请高手指点! 一个门外汉的问题~~~~ 谁知道windows共享密码如何算的 vc中asm怎么不執行? 在开始菜单点右键,拉出的菜单里的内容,怎么添加删除?? 帮忙找一个和VB的属性区一样的代码,控件或类库均可。 Word 中字体的问题 我买了一台SLE4442读写器, 为什么不能写 谁用过FAST REPORT 请求帮助 realplayer中文件菜单栏中的以看过的文件名,怎么删除??? php如何改写或者是添加一个cron的命令参数给linux服务器? SQL Server 能制作表单和报表吗?????? DirectDraw页面格式问题(两个)。答对100分绝对送上,从不食言!(附源码) VC++中的内部交互调试器在哪? 人邮版的C++面向对象高效编程如何? realplayer中文件菜单栏中的以看过的文件名,怎么删除? 如何实现真正的无标题栏的拖动? 用"select top n"取了前n纪录后,要再接着取n+1至2n条纪录,接着再取2n+1至3n……,这种取法要怎样实现呢? 如何在Excel中编制一个宏? 如何得知程序的一个实例正在运行? 送分了,送分了,虽然不多,但天天有! I=P/(1.732×U×cosφ×η) 和I=P/(1.732×U×cosφ)那个公式正确 (x-1/x)^5的展开式中含x^3项的二项式系数为? 设f(x)=(1+x)^m+(1+x)^n (m,n属于N+)的展开式中x的系数是19设f(x)=(1+x)^m+(1+x)^n (m,n属于N+)的展开式中x的系数是19(1)求f(x)的展开式中x ^2的系数的最小值及m,n的值(2)当f(x)的展 三相计算公式p=1.732*u*i*cos 中的i 电流是每一相上的吗?请解释一下?谢谢. (2x+1)^5的第三项,第五项,第六项的二项式系数,第四项的系数,x³项的系数,x^5项的系数这下多少啊? 整式f(x)=(1+x)M次方+(1+x)N次方(M,N∈N*)中含X项的系数为19,求f(x)中x2项系数的最小值 是电机计算公式中COSφ是什么意思?是怎样来的 在等比数列{an}中,a1+a2+a3+a4=15/8,a2a3=-9/8则1/a1+1/a2+1/a3+1/a4= 关于excel2010的问题公式右拉的问题例如我计算一个公式b11=b10/b1,然后再b10这行往右拉,公式却依次变为c11=c10/c1 d11=d10/d1.,就是最后分母依次都变了,我要的分母都是b1啊,在选项当中我也设置了自 已知(x+y)^n的展开式中各项的二项式系数之和为1024,求展开式中的第3项; excel2010用公式显示某一列出现的第一个数字可能是我没有描述清楚问题把,我要的是如A列中既包含汉字又包含空格和数字,如何用公式显示出从A列中(如A1单元格到A1000单元格)从上到下遇到 已知功率p=45kw,需用系数Kx=1,功率因数cosφ=0.9,怎样计算它的计算电流Ijs是多少? 已知(1-2x)^n的展开式中,奇数项的二项式系数之和为64,则(1-2x)^n(1+x)的展开式中,x^4项的系数为? EXCEL2010如何用公式查找出一列中的日期A1 2014-8-5 15:50:25 2 2014-8-5 15:31:58 3 2014-8-4 18:38:55 4 2014-8-4 18:29:29 5 2014-8-1 16:49:18 6 2014-7-30 17:18:41 7 2014-7-29 17:16:38 1、如何用公式在A列中找出2014-8月的数据2 已知二次函数f(x)的二项式系数为a,且不等式f(x)>-2x的解集为(1,3) (1)若方程f(x)+6a=0有两相等实根,求f(x)的解析式(2)若f(x)的最大值为正数,求实数a的取值范围 已知(1—2x)n的展开式中二项式系数和为64,则它的二项展开式的中间项是? 220V电压5A电流的闸刀开关最大能承受多少功率?(公式) 两个数相除,商是42,被除数,除数商的和是102.2,被除数是( ), .一台三相电动机有功功率为4KW,功率因数为0.8,接在线电压为380V的三相电源上,求电动机的线电流 已知f(x)=(1+2x)∧m+(1+4x)∧n(n,m∈自然数)的展开式中含x项的系数为36,求展开式中含x∧2项的系数最小值! 1、两个数相除,商是42,被除数、除数、商的和是102.2,被除数是()2一头鲸中162吨,比一头大象体重的37.5倍还多12吨.这头大象是多少吨(方程解) 3、同学们参加义务活动,给树木浇水,五年级同学 急!380V电压10千瓦3相电机电流在18个照这样计算一小时几度电?列出工公式!在此先谢了!? 如何在数据透视表中插入计算字段?比如数据透视表中有“销量”和“销售任务”字段,要插入一个“完成比例”字段,通过“销量”/“销售任务”来得出完成比? 两个数相除,商24余1,除数是42,被除数是()一行有36棵小树,现改成株距5m,一共有几棵小树不必移动? 三相电机电流计算公式I=P/1.732/U/cosΦ,1.732是什么为什么有个1.732 11KW三相异步电动机空载电流是多少?11KW4级三相异步电动机,空载电流16--17A.新的电机,轴承新的,无摩擦!3到4台检测的空载电流都是这样?还有一台11KW-4级空载电流上到22-23A.新的,轴承也新的!为什 两个数相除商是42,如果被除数和除数同时扩大是10倍,商是() 数列{an}为等比数列,项数为偶数,又各项为正数,所有项之和为偶数项之和的4倍,且a2a4=9(a3+a4),问数列{lgan}前多少项之和最大?guocheng! 谁知道电压380v,功率为50KW的鼠笼式三相异步电动机空载电流为原来的5到6倍的原因 两个数相除的商是4分之3被除数与除数的和是42被除数是( ),除数是( ) 电机37KW用变频调速以后功率是多少?求计算公式`` 三相异步电动机空载电流不平衡今天我做了一台电机的型式试验,结果如下:1.三相冷态电阻平衡2.Ik平衡3.三相电压平衡4.只有I0不平衡,且不平度为10%~20%,第一次实验全部为C相I0大;第二次实验 已知(根号下x+2/x)^n展开式中所有二项式系数和为256 二项式(x^2+1/x)^5的展开式中x^4的系数是 答案是10还是-10,麻烦说下谢谢二项式(x^2-1/x)^5的展开式中x^4的系数是 括号内的是减号,上面打错答案是10还是-10,麻烦说下谢谢 已知f(x)=(1+x)∧m+(1+x)∧n(m,n∈N*)的展开式中x的系数为19,求f(x)展开 工资表的计算公式怎么做 在[X/2-X^(-1/3)]^N的展开式中,只有第5项的二项式系数最大求展开式中的常数项 设m,n属于N*,f(x)=(1+x)m=(1+x)n,若f(x)展开式中x的系数是19,当m,n变化时,求x2系数的最小值. 求工资表公式描术:工资表“补贴”一栏 陈XX补贴为500元/月 张XX和王XX的补贴为300元/月,补贴以26天/月计算,就是上班不到26天要扣掉缺勤天数的补贴工资,例如:陈XX 上班20天 500元/26天*20天=38 二项式(1-2/x)^5的展开式中第四项的系数为 设m,n∈Z+,m、n≥1,f(x)=(1+x)m+(1+x)n的展开式中,x的系数为19.(1)求f(x)展开式中x2的系数的最大、小值;(2)对于使f(x)中x2的系数取最小值时的m、n的值,求x7的系数. 工资表中的公式怎样用?工资中假如A1单元格的基本工资为1200 我算加班费为=1200/21.75/8*加班时间.我用工式:=A1/21.75/8 *加班时间 但是也有人的基本工资为900、1300不等而且加班时间也不一样.是 {an}为等比数列,若a1+a2+a3=26,a4-a1=52,求an excel2010这样的公式怎么编辑?总数=40+X×30%+Y×30% 怎样求二项式系数的最大值项数n已知(补充) 希望尽快回复, 在等比数列an中,a1+a2=20,a3+a4=40,则S6 三相异步电动机的额定功率是指什么? (a+b)^n的各二项式系数的最大值是 三相380V的电机,怎样根据电阻计算功率?一台电压380V的异步电动机.不知道功率,能不能根据它的电阻计算出功率? 已知一台三相异步电动机的额定功率是P=5.5KW,额定电压U=380V,额定功率因素cosa=0.86,额定效率η=0.86,额定转速n=1440r/min,求额定电流I 9、设m为正整数,(x+y)2m展开式的二项式系数的最大值为a,(x+y)2m+1展开式的二项式系数的最大值为b若13a=7b,则m= ( )A、5 B、6 C、7 D、8 这个excel公式的意思=IF(B8=0,"",IF(ISERROR(VLOOKUP(B8,#REF!,5,FALSE)),"★",VLOOKUP(B8,#REF!,5,FALSE))) 三相星形接法如何计算功率和电流?2200W,380V的电动机电流是多大?三相星形接法如何计算功率和电流?如2200W,380V的电动机电流是多大?电机上所标的电流是通过单条导线的电流还是三条导线的电 拜托了我明天要交某三相异步电动机,其额定功率为10kw,额定电压为380V,额定效率为87.5%,某三相异步电动机,其额定功率为10kw,额定电压为380V,额定效率为87.5%,额定功率因数为0.88,额定转速为2920r/m 如何发挥电子表格中公式的作用 EXCEL如何用公式统计数量?表格总共有2000多行的数据,第一列是日期,第二列是类型,第三列是行业,求第四列是行业数量求在第一列和第二列相同的情况下,求第三列中同一行业的数量.如图,在A列 三相异步电动机满载时的额定功率告诉了 额定电压转速 效率 功率因素都知道 要求它的额定功率 怎么三相异步电动机满载时的额定功率告诉了 额定电压转速 效率 功率因素都知道 要求它的 三相电机有功功率计算公式:P=1.732×U×I×cosφ,求其推导的全过程? 已知等比数列{an}中,a2,a3,a4分别是某等差数列的第5项,第3项,第2项,且a1=64,公比q≠1(1)求an(2)设bn=log(2)an,求数列{bn}的前n项和Tn 三相异步电动机Y160M-2由铭牌查得额定功率P=1.5KW;额定电压U=380V;额定功率因数cos=0.88;额定效率88%;修后测得空载电流为9A,试判断它的空载电流大小是否合格要写出计算步骤
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn