物理与电气工程学院课程实践报告
（用VB6.0制作简单的媒体播放器）
作 者 冯 高 磊 系（院） 物理与电气工程学院 专 业 电子信息工程 年 级 11电信本科 学 号 ********* 指导教师 庞 茂 群 日 期 2013.10.19
摘要：由于计算机的普及极大的改变了人们的生活，随之带来可开发各种软件的需要。家用计算机主要用于学习软件，游戏软件和多媒体软件，以及播放CD,VCD,MP3等多媒体文件。然而多媒体软件的开发仍然不能满足人们的需求，多媒体文件格式多样，但却没有一款能够满足所有格式的解码。人们渴望有一款解码能力更强大，功能更完备的播放器。
一． 设计目的
采用VB 6.0作为编码工具，设计并实现一个多媒体播放器。其主要功能是实现播放MP3，AVI,FLV,RMVB,WMA,WMV,WAV,RM等多种格式的多媒体文件并且能够控制播放，暂停，退出，音量控制等。 二．VB 6.0中的多媒体开发方法简介 1.Visual Basic 6.0 简介
Visual Basic 是由微软公司推出的一套完整的Windows系统软件开发工具，可用于开发Windows环境下的各种应用软件，是一种可视化的，真正面对对象的，采用事件驱动方式的结构化高级程序设计语言和工具的完美集成。它编程简单方便，功能强大，具有与其他语言和环境的良好接口，不需要编程人员具备C/C++或者Turbo Pascal语言基础，只需懂得windows的界面及其基本操作就可以迅速上手。VB在程序界面设计，多媒体开发方面更是独具优势。因此特别适合初学者及业余人员使用。VB6.0具有三种版本：学习版，专业版和企业版。三种不同的版本分别用来满足不同的开发需要，相对而言，后者的功能比前者的功能更强大一些。VB的特点主要可以归为以下十个： （1）面向对象
（2）事件驱动 （3）软件的集成式开发 （4）结构化的程序设计语言 （5）强大的数据库访问功能 （6）支持对象的链接和嵌入技术 （7）网络功能 （8）多个应用程序向导
（9）支持动态链接，动态交换技术 (10) 联机帮助功能 2.多媒体控件MIC简介
MIC ( Model-Integrated Computing ) 理论提供了一种嵌入式系统的开发方法。它通过元模型描述某一特定领域的一类问题，而不是描述某一特定的应用。所有组件的交互关系都在模型层定义。然后，通过模型解释器自动生成应用程序。当外部需求变化时，工程人员可以直接修改模型实现的应用程序。MIC理论在美国Venderbilt大学的（ISIS)系统集成软件多次试验，并在很多领域得到成功应用，如军事，汽车制造，航空和化工等。 三．多媒体应用程序设计过程及其源代码 （1）启动VB6.0 ,新建一个EXE标准文件。
（2）右击“工具箱”，通过“部件”菜单窗体向工具箱添加Windows Media
Player ,DriveBox,DirListBox,FileListBox控件。
（3）使用工具箱向窗体添加以下控件：一个DriveListBox控件,一个
FileListBox控件，一个DirListBox控件，一个 Windows Media Player
控件，一个 Text控件，两个 Commander控件
（4）控件属性设置及程序源代码 Commander1.Caption = “播放” Commander2.Caption = “退出”
Commander1控件代码： Private Sub Command1_Click() If Text1 = \"\" Then MsgBox \"音乐名不能为空\" Exit Sub Else
WindowsMediaPlayer1.URL = Text1.Text End If End Sub
Commander2控件代码： Private Sub Command2_Click() End End Sub
Text1控件源代码：
Private Sub Text1_Change() End Sub
DirListBox控件源代码： Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub
DriveListBox控件源代码： Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub
FileListBox控件源代码： Private Sub File1_Click() If Right(Dir1.Path, 1) = \"\\\" Then FileName = Dir1.Path & file.FileName Else
FileName = Dir1.Path & \"\\\" & File1.FileName End If
Text1 = FileName End Sub
Windows Media Player控件源代码：
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long) End Sub
运行结果截图如下： 运行前：
运行后：
四．设计心得体会
这个媒体播放器虽然界面简单，使用控件不多且使用简单，能够进行多数媒体文件的播放，所占存储空间较小，基本实现了我的计划和目标。但是在制作的过程中，我仍然受益匪浅。首先是把以前学过的书本知识用到实践，我感受到了理论与实践的距离。其次这次设计让我了解了在设计的过程中一些分析问题的方法与技巧，清楚了自学的重要性，在以后的学习，工作乃至实践中遇到问题时让我知道该如何面对。 五．参考文献
【1】朱从旭 田琪 ，多提技术与应用 ，清华大学出版社
【2】林强，快乐程序随我编——Visual Basic 编程小实例 人民邮电出版社 【3】孟宗杰 ，Visual Basic.Net 实例教程 电子工业出版社 【4】李延文，VB开发答疑 人民邮电出版社
