- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 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
您可能关注的文档
最近下载
- 头皮知识课件.pptx VIP
- 2025年安徽省普通高中学业水平合格性考试信息技术和通用技术上机真题卷3.docx VIP
- 第五章第二节创新实验:铜与硝酸 说课稿 2023-2024学年高一下学期化学人教版(2019)必修第二册.docx VIP
- 2025第九届“学宪法、讲宪法”知识竞赛题库(+答案解析)(中小学组).docx VIP
- 数据挖掘与机器学习全套教学课件.pptx
- 哈希cod_max_培训教材.ppt VIP
- 第五章第二节创新实验:铜与硝酸 教学设计 2023-2024学年高一下学期化学人教版(2019)必修第二册.docx VIP
- 建筑项目设计与施工配合措施.docx VIP
- 2025年辅警考试题库公安辅警.doc VIP
- 中国银行存款证明 正面资料.doc VIP
文档评论(0)