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

用VB5.0编写自己的MP3播放器

HTML文档下载 WORD文档下载 PDF文档下载
用VB5.0编写自己的MP3播放器
作者:杨山河
MP3播放器大家用得应该不少,不过,您是否厌倦了播放器的老面孔,是否尝试编写一个自己的MP3播放器呢?什么,太复杂!你会VB吗?会就得了! 首先,得了解一下我从朋友处得来的一个ActiveX控件——Mp3Play.ocx。所谓ActiveX控件就是高手早已编好的专门化功能软件部件。以前在16位VB中是以vbx作为扩展名,Win95中扩展名改为ocx。大家只要知道Mp3Play.ocx是一个专门播放MP3音乐文件的VB控件就行。我们编写自己的播放器,使用该控件,并适当设置其属性,就可以获得专业级的MP3音乐效果。要想使用该控件,最好将它放到Windows\system目录,并且在注册表中注册。利用该控件,还可以将一个MP3文件解码为一个WAV文件。 Mp3Play.ocx的主要属性有:

BitRate :MP3流比特率;FrameCount:MP3流帧记数;TotalTime: 总计已播放的时间;FrameNotifyCount( RW ):发送一次通告的帧数,缺省为32;IsCopyrighted、IsOriginal、HasChecksums: 从MP3流获得的发行信息;SampleFrequency:采样率;Layer:取值可以为1、2、3,分别代表Layer1、Layer2、Layer3的标准,缺省为3,这意味着MPx的文件都可以播放;MPEGVersion:取值代表MPEG-1或MPEG-2。 常用的方法有:

AboutBox ( ):显示About框。

Authorize ( Name, Password ):验证许可证(注册码),Name即注册名,Password为注册码,由控件的提供商在用户注册后提供,返回值为0则通过,否则为5。 Open ( Inputfile, Outputfile ):打开MPEG音频文件并解码播放,若在声卡上播放则Outputfile应为空串,返回非0值表示解码有误。如果Outputfile为文件名则解码至WAV文件。也就是说,可以利用此方法编写MP3-WAV转换器。 Close:关闭当前MPEG流解码。

GetVolumeLeft,GetVolumeRight:获取左右声道的音量,返回Long型值。 SetVolume ( left channel, right channel ):设置系统左右声道音量。 Pause( ):暂停,奇次声音暂停,偶次开启。

Play ( ):开始解码,并播放当前MPEG文件,返回0表示解码无误。 Stop( ):停止当前解码工作,返回非0表示有误。

下面,我们一步一步地完成:

1. 添加Mp3Play.ocx控件

启动VB5,选择Standard EXE。此时,左边的控件面板中只是一些Win95标准控件。我们选Project(工程)菜单下的Components...(组件)项,在弹出的对话框中选中Dialog-Medien Mp3Play ActiveX Control Module项。这“宝贝”即我们所需的MP3控件。确定后在控件面板中会增添一个蓝色的喇叭图标,表示该控件已经添加到控件面板中。 2. 设置属性

点中蓝色喇叭,在窗体中拖动一个矩形框,松开后在窗体中出现MP3控件图标。为了在播放时隐去喇叭,在MP3Play1的属性表中将Visible设为False。一般就这么多,剩下的就是使用它的方法(Methods)了。 3. 添加按钮

点中“Command”按钮,在窗体中建立三个名字分别为Command1、Command2、Command3的命令按钮,将它们的Caption分别设为“选择MP3文件”、“播放”、“暂停”。 4. 添加CommonDialog控件

为能方便地选择MP3 文件,还需文件打开对话框。如果控件面板中没有此控件,如1中所述选中Components菜单项,在Microsoft Common Dialog Control 5.0前的复选框中打勾,确认后即可在控件面板中看到此控件图标。在窗体中建立一个名为CommonDialog1的对象,为使能快速找到MP3的文件,需要设置它的Filter属性为“.MP3|.MP3”。 5. 在按钮中编写相应的代码

双击Command1,在Private Sub Command1_Click()中输入以下代码: CommonDialog1.ShowOpen

双击Command2,在Private Sub Command2_Click()中输入: Err = Mp3Play1.Open(CommonDialog1.filename, ″″) Mp3Play1.Play

双击Command3,在Private Sub Command3_Click()中输入: Mp3Play1.Pause

6.调整窗口大小,运行播放器

适当调整窗体的外观,如大小、颜色等,怎么舒服您就怎么设置。好了,开始按F5运行,选择MP3文件——播放!感受一下您自个儿的MP3播放器吧! 此外,您还可以用Photoshop等软件制作一些漂亮的界面,贴在窗体上,增强其艺术性。还可以仿照Winamp的“Plug_ins”,利用Timer控件完成一些特殊的动画效果。当然,一切都靠您自个的天才去设计了。顺便在此请教诸位大侠,哪儿有未加时间限制的Mp3Play.ocx,或者您有注册号,请告诉在下。我因没有注册码,每首歌曲只能播放30秒。
控制PC喇叭 -VB资料 利用VB测声卡 利用VB进行多媒体程序设计初步 利用Visual Basic设计多媒体应用程序 满屏播放AVI文件-VB资料 平铺贴图背景 -VB资料 破解WINDOWS屏幕保护密码 -VB资料 巧用VB编程使XMPLAYER自动播放VCD VB取得 WAV 文件信息 趣味撞球VB5应用程序一例 VB如何从"SOUND.DRV"中提取声音 VB如何设定墙纸的显示方式? VB如何用API及MMSYSTEM.DLL播放AVI文件 VB如何知道计算机是否安装声卡? 设计简单的屏幕保护程序 -VB资料 使机箱内的小喇叭发出不同的声音 -VB资料 使用VB设计具有「动感」的命令图标栏 五彩缤纷的清屏效果-VB资料 系统是否支持声音 -VB资料 一个实用的VB屏幕程序 一个自动更换墙纸的小软件-VB资料 VB用 VB 设 计 VCD 播 放 器 VB用API播放 .wav 声音文件 VB用MCI指令进行多媒体编程 用VB5.0编写自己的MP3播放器 用VB6.0编写电脑抽奖程序 用VB6的双通道技术获得影碟片断 用VBScript制作活动主页 用VB编写DirectX7.0游戏(下) 用VB编写FLASH动画播放器 用VB设计VCD播放器 奇怪问题! 为什么long l=123456789;float f=l;可以编译通过啊? VC/C++高手相助,如何给一个自己编写的服务发消息,并且在服务中如何接收该消息? 怎样去掉另一应用程序窗口上的标题框?? 请问void CEx04aView::OnDraw(CDC* pDC) 中CDC是什么? 谢谢 一个关于COOL360的问题?请回答 英文译中文,.怎么办? 如何制作帮助文件? 如何在DbGrid中锁定前面几列记录??? 一个关于ENCTYPE="MULTIPART/FORM-DATA"的问题 共享文件夹的安全问题如何解决?? 怎么在窗体上放一个动画flash的,用什么组件可以这么做!!! ISO/C++标准要的请举手!! SQL里的DMO在VB里怎么使用 英文译中文,.怎么办?? 一个小问题 void CEx04aView::OnDraw(CDC* pDC)的CDC是什么?谢谢!! mcisendstring 与mciexecute 调用外部命令问题! 有偿求解:简体PDF在繁体WINDOWS环境下如何阅读 有谁在VB中使用过关于INTERNET CACHE的函数? 端口问题!~请问有什么办法知道一个程序所用的通讯端口号码!?~ 黑木黑木,我也给大家看看吧,不傻不要钱~~~(附照片) 如何将一画中的某一部分画到一个Image中 风之子,发呆呆,请进! 太可怕了, 愿人类永不受此难。 ado--vb数据库查找时怎样显示?? 我现在碰到了一个很奇怪的问题,高手能够解决吗? 哪有将打印输出为传真和email的源代码 急急急,谁来帮忙,兄弟有难 关于COOL360的问题? 一存储过程的问题 这些错误代码是什么意思? 请问如何在vb中截获消息 请问:在Windows98和Windows2000下支持的Winsock客户端套接字连接的最大个数分别是多少? 黑客软件 还是COM接口问题 大虾,帮个忙,一个小问题先谢谢!! 关于多次搜索的一个问题,大家都来看看啦!!!!!! 绘图仪的驱动程序 跳转至某一页应该怎么做? 强烈要求CSDN恢复‘帖子提前连接’功能,请帮忙UP! C++builder 中怎么判断某一个字符在不在字符串中? 求教:为什么我的控件下载特别慢?(在网页中用的控件,客户端浏览时下载) 明年毕业,想搞软件开发,现在很矛盾,是去大公司,还是去那种中小型的软件公司呢???? 求教有开发经验的高手关于XML和数据库的简单问题 查找窗口疑问 delphi的createoleobject 一个很急的问题??? 我怎么覆盖派生类中的virtual成员函数?(up加分,详情请入内) 寻找用过JMAIL的同志! 想问一下,在收邮件时,如何取得发件人的MAIL呢? 请问像大虾们说的comp.lang.c++.moderated这样的讨论组怎么访问?(Solstice) 不能构成蛋白质的氨基酸有营养价值吗?自然界有近300种氨基酸,其中只有20种(一说22种)能构成蛋白质如果我们摄入其他不能构成蛋白质的氨基酸,那么它能被人体利用吗? 我国江西有一个著名的“瓷都”,是什么地方 蛋白质的变性,凝固,沉淀之间的相同点和不同点 在营养学中,牛奶中的蛋白质怎样算 江西的瓷都在哪里呢? 蛋白质变性的事实举例 100g 100度的钨放进200g 20度的水中,21.6度达到热平衡,求钨的比热容,我算到171.43J /(kg·℃) 被称为瓷都的是我国哪一城市? 举例说明蛋白质变构与变性在本质上的区别. 为了测定煤油的比热容,把质量为200g的铁块放在开水里煮相当长的时间后取出,立即投入20摄氏度 如何从苦杏仁中提取氢氰酸?普通方法,我不可能去买CO2过滤 蛋白质变性的实例 实验室氨水怎么制 怎么从苦杏仁中取氰化氢?它的液体叫作氢化酸? 氯化镁和氯化铝混合溶液和过量氨水反应为什么氨水进入氯化镁不是氯化镁进入氨水 急需实验室氨水制法!谁有? 那位能告诉我下如何从苦杏仁提炼出氢氰酸 液体固体都行 不是拿来害人的 请放心吧 如何鉴别氯化铝溶液和氯化镁溶液用什么试剂 把质量和温度都相同的铁球、铝球和铜球同时投入沸腾的水中,一段时间后一段时间后,三秋温度变化_______(选填“相同”或“不相同”) 其中吸收热量最多的是_____球,吸收热量最少的是________ 一克杏仁有多少毫克氢氰酸 氯化镁和氯化铝混合溶液和过量氨水反应为什么先加氨水 100℃的200g铁落入78g10℃的水中共同温度为多少.不及热量散失, 把质量和温度都相同的铁球、铝球和铜球同时投入沸腾的水中,一段时间后,三球的温度变化_______.其中吸收热量最多的是______球,吸收热量最少的是_______球.(C铝大于C铁大于C铜) 景德镇素有“瓷都”之称始于哪朝?是元朝还是明朝? 200g的冰水混合物从0度升到10度吸收的热量 把质量和温度都相同的铁球和铜球同时投入沸腾的水中,一段时间后,两球的温度变化_____(选填“相同”或“不同”).其中吸收热量多的是_____.第二个空给我个理由 请教一下关于氢氰酸和亚砷酸的制取我自己到乡下朋友家里拿了一些猪草,在我家里用高压锅盖着煮,最后滤液是浅绿色有苦杏仁味的液体,请问这里面含有猪草生成的氢氰酸吗?还有就是我在家 密度为0.91每立方厘米的氨水中 质量分数为0.25 用同体积的水稀释后 所得溶液的质量分数为多少1等于0.125 2大于0.125 3小于0.125 假如该厂生产氨水的物质的量浓度为20mol/L,实验室若需用80mL浓度为5mol/L的氨水时,需取20mol/L的氨水需取20mol/L的氨水多少mL?(用100mL的容量瓶).2.假如该氨水的pH=a,加入相同体积的盐酸时,溶 用氰化钠和硫酸制取氰化氢气体可以用锥形瓶和分液漏斗吗? 密度为0.91 g•cm-3的氨水,质量分数为25%,若将此氨水密度为0.91 g·cm-3的氨水,质量分数为25%,若将此氨水用等体积的水稀释后,所得溶液的质量分数为 (  )A.大于12.5% B.小于12.5% 某氨基酸溶液中,有四种氨基酸A、B、C、D,其等电点分别为10、4、7、5,如不考虑次要因素,1)采用阳离子交换柱并用盐浓度或pH梯度进行洗脱,将按何种顺序被洗脱?2)采用阴离子交换柱并用盐浓 在实验中制取氰化氢气体,怎样防止中毒而又能收集到较纯气体 含氨25%的氨水密度为0.91克/立方厘米,含氨5%的氨水密度为0.98克/厘米.将这两种氨水等体积混合后含氨25%的氨水密度为0.91克/立方厘米,含氨5%的氨水密度为0.98/立方厘米.将这两种氨水等体积混合 关于医学考研生物化学中“蛋白质变性”与“DNA变性”的两道题目~1'蛋白质分子变性后,粘度增加,解释是变性后成线性分子,线性分子粘度高. 2'DNA分子变性后,粘度降低,贺银成的解释是DNA 蛋白质与重金属离子结合会变性 但是为什么金单质也会使蛋白质变质呢?(例如吞金也会致死) 用一体积水吸收560体积氨气(SPT)所得氨水密度为0.89克每毫升,求氨水物质的量浓度和溶质的质量分数 1.下列氨基酸中哪一种不具有旋光性?A.Leu B.Ala C.Gly D.Ser E.Val2.下列哪些因素妨碍蛋白质形成α-螺旋结构?A.脯氨酸的存在 B.氨基酸残基的大的支链C.碱性氨基酸的相邻存在 D.酸性 蛋白质的热变性与非热变性有什么区别? 鸡蛋煮熟后,蛋白质变性失活,是由于高温破坏了蛋白质的什么 银跟铜哪个能够使蛋白质沉淀更多,为什么?铜是硫酸铜5%浓度,银是硝酸银还是氯化银3%浓度.我需要的是为什么, 中国有三大瓷都,都哪三大呢? 鸡蛋煎熟后,蛋白质发生变性,这是由于高温破坏了蛋白质中的什么? 如何把市售氨水配制成浓度为2%的呢?实验室银氨溶液配制,需要2%的浓度的氨水,市售氨水谢谢. 现代,被评为中国瓷都的有——,——,——. .已知25%氨水的密度为0.91g•cm-3,5%氨水的密度为0.98g•cm-3,若将上A.等于15% B.大于15% C.小于15% D.无法估算 一个质量为100g的物体吸收840J的热量后,温度升高了10℃,求这个物体的比热容 氢氰酸尾气处理氢氧化钠、碳酸钠能吸收之吗?甲醛呢,还有什么常见物质可以用于吸收~ 质量分数为25%的氨水密度是0.92g/cm^3,质量分数为5%的氨水密度是0.98g/cm^3,将两种氨水等体积混合,则混合后所得氨水的质量分数( )A.=15% B.>15% C. 6mol/l氨水的配制 如何辨别一块金牌的真假?用物理知识《密度》、谢谢! 鸡蛋煮熟后 高温破坏了蛋白质的什么 氯化铵与氨水缓冲溶液的配制想知道怎样计算得出氯化铵所称质量和氨水要加体积 我想要具体的计算方法 蛋白质加热后为什么会凝固?获得热量,分子结构应该变大呀. 铁块质量为100g,放在沸水中加热相当长时间后取出,立即投入质量为200g,20℃的水中.若铁块放出的热量全部被水吸收.求:1.水的末温是多少.2.水吸收的热量是多少3.若再加入200g,20℃的水,热平衡 苯酚使蛋白质变性的机理是什么?为什么酚类最强的变性剂是苯酚? 蛋白质的沉淀与凝固的实验现象 将质量为100g的热铁块放入200g冷水中冷却,热平衡后,铁块温度降低了80℃,已知铁的比热容为0.46x10*31)此过程中铁块放出多少热量2)若不计热传递中的热量损失,则水的温度升高了 蛋白质变性的机制是什么?简洁点,一句话概括是什么. 蛋白质凝固是什么变化
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn