欢迎来到天天文库
浏览记录
ID:28026528
大小:295.15 KB
页数:10页
时间:2018-12-07
《多媒体技术与应用---课程实践报告》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、物理与电气工程学院课程实践报告(用VB6.0制作简单的媒体播放器)作者冯局磊系(院)物理与电气工程学院专业电子信息工程年级11电信本科学号111102082指导教师庞茂群日期2013.10.19摘要:巾于计算机的普及极大的改变了人们的生活,随之带来可开发各种软件的需要。家用计算机主要用于学习软件,游戏软件和多媒体软件,以及播放CD,VCD,MP3等多媒体文件。然而多媒体软件的开发仍然不能满足人们的需求,多媒体文件格式多样,但却没有一款能够满足所有格式的解码。人们渴望有一款解码能力更强大,功能更完备的播放器。一.设计目的采用VB6.0作为编码工具,设计并实现一个多媒体播放器
2、。其主要功能是实现播放MP3,AVI,FLV,RMVB,WMA,丽V,WAV,RM等多种格式的多媒体文件并且能够控制播放,暂停,退出,音量控制等。二.VB6.0中的多媒体开发方法简介1.VisualBasic6.0简介VisualBasic是由微软公司推出的一套完整的Windows系统软件开发工具,可用于开发Windows环境下的各种应用软件,是一种可视化的,真正面对对象的,采用事件驱动方式的结构化高级程序设计语言和工具的完美集成。它编程简单方便,功能强大,具有与其他语言和环境的良好接口,不需要编程人员具备C/C++或者TurboPascal语言基础,只需懂得window
3、s的界面及其基本操作就可以迅速上手。VB在程序界面设计,多媒体开发方面更是独具优势。因此特别适合初学者及业余人员使用。VB6.0具有三种版本:学习版,专业版和企业版。三种不同的版本分别用来满足不同的开发需要,相对而言,后者的功能比前者的功能更强大一些。VB的特点主要可以归为以下十个:(1)面向对象(2)事件驱动(3)软件的集成式开发(4)结构化的程序设计语言(5)强大的数据库访问功能(6)支持对象的链接和嵌入技术(7)网络功能(8)多个应用程序向导(9)支持动态链接,动态交换技术(10)联机帮助功能1.多媒体控件MIC简介MIC(Model-IntegratedCompu
4、ting)理论提供了一种嵌入式系统的开发方法。它通过元模型描述某一特定领域的一类问题,而不是描述某一特定的应用。所有组件的交互关系都在模型层定义。然后,通过模型解释器自动生成应用程序。当外部需求变化时,工程人员可以直接修改模型实现的应用程序。MIC理论在美国Venderbilt大学的(ISIS)系统集成软件多次试验,并在很多领域得到成功应用,如军事,汽车制造,航空和化工等。一.多媒体应用程序设计过程及其源代码(1)启动VB6.0,新建一个EXE标准文件。(2)右击“工具箱”,通过“部件”菜单窗体向工具箱添加WindowsMediaPlayer,DriveBox,DirLi
5、stBox,FileListBox控件。(3)使用工具箱向窗体添加以下控件:一个DriveListBox控件,一个FileListBox控件,一个DirListBox控件,一个WindowsMediaPlayer控件,一个Text控件,两个Commander控件(4)控件属性设置及程序源代码Commander1.Caption=“播放”Commander2.Caption=“退出”Commander1控件代码:PrivateSubCommand1_Click()IfTextl=ThenMsgBox〃音乐名不能为空〃ExitSubElseWindowsMediaPlayer
6、l.URL=Textl.TextEndIfEndSubCommander2控件代码:PrivateSubCommand2_Click()EndEndSubTextl控件源代码:PrivateSubTcxtl_Changc()EndSubDirListBox控件源代码:PrivateSubDirl_Change()Filel.Path=Dirl.PathEndSubDriveListBox控件源代码:PrivateSubDrivel_Change()Dirl.Path=Drivel.DriveEndSubFileListBox控件源代码:PrivateSubFilelCli
7、ck()IfRight(Dirl.Path,1)=""ThenFileName=Dirl.Path&file.FileNameElseFileName=Dirl.Path&&Filel.FileNameEndIfTextl=FileNameEndSubWindowsMedia.Player控件源代码:PrivateSubWindowsMediaPlayerlOpenStateChange(ByValNewStateAsLong)EndSub运行结果截图如下:运行前:运行后:多琪体揮放器---作者:冯亳磊Of:[娱乐]QfA.
此文档下载收益归作者所有