多媒体技术与应用---课程实践报告.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
多媒体技术与应用---课程实践报告

物理与电气工程学院课程实践报告 (用VB6.0制作简单的媒体播放器) 作  者   冯 高 磊  系(院)  物理与电气工程学院   专  业   电子信息工程  年  级   11电信本科  学  号   111102082 指导教师   庞 茂 群 日  期   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的特点主要可以归为以下十个: 面向对象 事件驱动 软件的集成式开发 结构化的程序设计语言 强大的数据库访问功能 支持对象的链接和嵌入技术 网络功能 多个应用程序向导 支持动态链接,动态交换技术 (10) 联机帮助功能 2.多媒体控件MIC简介 MIC ( Model-Integrated Computing ) 理论提供了一种嵌入式系统的开发方法。它通过元模型描述某一特定领域的一类问题,而不是描述某一特定的应用。所有组件的交互关系都在模型层定义。然后,通过模型解释器自动生成应用程序。当外部需求变化时,工程人员可以直接修改模型实现的应用程序。MIC理论在美国Venderbilt大学的(ISIS)系统集成软件多次试验,并在很多领域得到成功应用,如军事,汽车制造,航空和化工等。 三.多媒体应用程序设计过程及其源代码 启动VB6.0 ,新建一个EXE标准文件。 右击“工具箱”,通过“部件”菜单窗体向工具箱添加Windows Media Player ,DriveBox,DirListBox,FileListBox控件。 使用工具箱向窗体添加以下控件:一个DriveListBox控件,一个FileListBox控件,一个DirListBox控件,一个 Windows Media Player控件,一个 Text控件,两个 Commander控件 控件属性设置及程序源代码 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.F

文档评论(0)

haihang2017 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档