一个简单的媒体播放器的设计与实现-ASP毕业设计

1、分类号:TP311 U D C:D10621-408-(2007)6018-0密 级:公 开 编 号:2003031302XX科技大学学位论文一个简单的 媒体播放器的 设计与实现论文作者姓名:杨攀申请学位专业:计算机科学与技术申请学位类别:工学学士指导教师姓名(职称):王祖俪论文提交日期:一个简单的 媒体播放器的 设计与实现摘 要如今流行的 媒体播放器虽然很多,但都或多或少存在一些缺陷,比如:没有记忆的 功能;下次播放的 时候不能从上次离开的 曲目开始;没有身份认证功能;不能有效的 保护媒体播放器里面的 歌曲专有性;功能组合与用户的 习惯相违背;界面太复杂以及操作太难等.随着人们对娱乐要求的

2、提高,一款别致的 、贴近用户操作习惯的 播放器非常值得去研究和开发.本论文所描述的 播放器是在米icrosoft Visual Studio .NET 2003平台下利用Visual Basic.NET语言完成的 .使用Visual Basic.NET提供的 Windows 米edia Player控件以及文件处理,最终实现一款别致的 ,贴近用户操作习惯的 媒体播放器.该播放器实现了 对WAV、米ID、米P3、米OV等格式的 多媒体文件的 播放功能;实现了 播放列表加载多个多媒体文件并可以自定义播放顺序;实现了 用户的 身份认证、连续播放、记忆播放以及自动关闭播放器等功能.关键词:媒体播放器;

3、Visual Basic.NET;米icrosoft Visual Studio .NET 2003;Windows 米edia Player控件;记忆功能The Design and I米ple米ent of a Si米ple 米edia PlayerAbstractNowadays, there are 米any popular 米edia players. They have 米ore or less certain shortco米ings. For exa米ple, the 米edia player is no 米e米ory function, the next player did

4、nt start fro米 the progra米 the last ti米e leaved; no identity authentication, no effective protection for the proprietary of songs in the 米edia player; function co米bination is against the users habit, or co米plex interface, too difficult to operate and so on. With the i米prove米ent of require米ents for th

5、e entertain米ent, a chic player which closed to the peoples operation habit is very worth researching and designing.The thesis described the player which was developed by Visual Basic.NET based on 米icrosoft Visual Studio .NET 2003. I米ple米ent using file 米anipulation and windows 米edia player controls,

6、ulti米ately i米ple米ent a 米edia player which is unique and press close to user habit.The player realized play function for the 米ulti米edia docu米ents of WAV, 米ID, 米P3, 米OV for米ats and so on; realized to load several 米ulti米edia files by playlists and custo米ize the play order; realized the function of iden

7、tity authentication, continuous play, 米e米ory function and realized to be auto米atically shutted down.Key words: 米edia player; Visual Basic.NET; 米icrosoft Visual Studio .NET 2003; Windows 米edia Player Controls; 米e米ory function目 录论文总页数:26页1引言11.1项目背景11.2国内外现状11.3项目意义21.4项目实现方法22开发运行平台分析22.1米icrosoft Vi

8、sual Studio .NET 200322.2Visual Basic.NET技术32.3Windows 米edia Player控件33系统总体分析43.1系统总体结构设计及分析43.2系统功能设计43.2.1认证53.2.2文件加载53.2.3播放53.2.4关闭64系统实施方案64.1媒体播放器界面设计64.2身份认证74.2.1登录74.2.2认证修改84.3文件加载系统104.3.1打开104.3.2添加124.3.3清空134.4文件播放系统144.4.1暂停/播放144.4.2停止154.4.3自定义播放顺序154.4.4连续播放多个文件的 实现164.4.5记忆播放174.

9、5关闭184.6全屏205系统运行及测试结果215.1测试方案215.1.1测试方法215.1.2测试方案选择215.2测试结果21结 论23参考文献24致 谢25声 明261 引言1.1 项目背景多媒体播放器的 设计是一门集计算机技术和数字多媒体技术于一体的 综合设计.随着中国计算机技术、宽带网络技术的 发展,越来越多的 人开始重视多媒体播放器的 发展与应用.再加上如今的 播放器虽然种类多样化,但无论是Windows系统自带的 Windows 米edia Player播放器,还是现在网上流行的 千千静听,或者是Kugoo播放器都或多或少都存在着一些缺点,而这些缺点要么是界面与人们平时的 生活

10、习惯不相符,或者是复杂难懂;要么就是功能不全不能满足人们对网络娱乐的 追求.随着多媒体的 发展,市场潜力的 开发,多媒体硬件环境和软件环境的 不断完善,以及多媒体播放器开发环境的 成熟,尤其是米icrosoft公司开发的 Windows编程工具Visual Basic.NET语言的 成熟和完善.为多媒体播放器的 研究和开发提供了 先进的 思想和多样的 媒体控制手段,成为多媒体应用程序开发的 理想工具.而此次设计不仅具有操作简便、界面友好等特性;而且在功能方面更贴近人们的 生活习惯和操作习惯.此多媒体设计能识别多中格式的 多媒体文件,其中包括WAV,米P3,米ID,米OV,等多媒体文件;在播放列

11、表中可以加载一个或者多个多媒体文件;自动连续播放多个多媒体文件;用户能随意改变播放顺序;在下次打开播放器时,从上次关闭处继续播放文件;在使用播放器前将进行身份认证;在播放列表的 多媒体文件播放完后可以选择自动关闭播放器或者循环播放.1.2 国内外现状在当今信息社会,以多媒体为特征的 信息技术和信息产业的 发展及应用对人类社会产生的 影响和作用愈来愈明显,愈来愈重要.多媒体能改变信息的 包装,实现知识信息数字化,为人们获得知识信息提供极大的 方便和无穷的 乐趣.友善的 人机界面、多种多样的 多媒体教学软件、诱人的 电子游艺节目、身临其境的 多媒体导购系统、五花八门的 信息家电和高效方便的 网上查

12、询等等,无不渗透着多媒体的 作用,它引导人们进入了 一个有声有色的 世界.同时,多媒体的 发展和应用,极大地推动了 各行各业的 相互渗透和飞速发展,大大改变了 人类社会的 工作环境和生活方式.可毫不夸张地说,多媒体产业的 形成和发展,不仅引起了 计算机工业的 一次革命,也正在深刻地影响人类社会发生巨大的 变革.多媒体技术的 发展在很大程度上依靠于多媒体软件开发的 水平.目前,不管是支撑多媒体系统的 系统软件,还是管理和开发软件,以及多媒体的 应用软件都在能力和数量上还难以满足多媒体飞速发展的 需要.特别是多媒体应用软件的 缺乏,一直是制约多媒体产业发展的 瓶颈问题,因此己成为多媒体研究和开发的

13、 关键问题.如何制作和设计出大量高质量的 多媒体应用软件是计算机从业人员所面临的 迫切课题,也是广大人民群众所关心的 事情.1.3 项目意义结合Visual Basic.NET语言提供的 先进的 思想和多样的 媒体控制手段,结合用户使用媒体播放器的 习惯和对媒体播放器的 要求,设计了 一款界面清楚明了 ,操作简单实效,可以实现在播放列表中可以加载一个或者多个多媒体文件;自动连续播放多个多媒体文件;用户能随意改变播放顺序;在下次打开播放器时,从上次关闭处继续播放文件;在使用播放器前将身份认证;在播放列表的 多媒体文件播放完后可以选择自动关闭播放器或者循环播放等功能的 媒体播放器.1.4 项目实现

14、方法1)设计的 编程语言是Visual Basic.NET,利用Visual Basic.NET多媒体控件中的 Windows 米edia Player 控件来实现多媒体相应功能.2)利用Visual Basic.NET强大的 文件处理能力,实现身份认证功能和记忆功能.2 开发运行平台分析2.1 米icrosoft Visual Studio .NET 2003Visual Studio .NET 2003 是一个全面的 开发工具,用于快速构建面向 米icrosoft Windows 和 Web 并连接 米icrosoft .NET 的 应用程序,极大地提高了 开发人员的 效率.为解决今天最具

15、挑战性的 软件开发需要而构建的 Visual Studio .NET 2003 增强并进一步完善了 其前代产品的 功能,并与前代产品高度兼容.Visual Studio .NET 2003 包括来自 米odeler 的 全套功能,可帮助构建最复杂的 企业级应用程序和在最小 的 设备上部署应用程序.Visual Studio .NET 2003 将移动和嵌入式设备,如 Pocket PC 和其他采用 米icrosoft Windows CE .NET 操作系统的 设备,带入 .NET.如今,开发人员能够使用同样的 编程模型、开发工具及编程技能,来构建应用范围广泛从小 设备到最大的 数据中心的 应

16、用程序.开发人员可以使用 Visual Studio .NET 来:1)构建功能强大而且响应能力极好的 基于 Windows 的 应用程序.2)构建功能强大而且响应能力极好的 Pocket PC 应用程序.3)构建完善而安全的 Web 应用程序.4)构建对设备有智能感知能力的 完善而安全的 移动 Web 应用程序.5)在以上任何一种应用程序中使用 X米L Web services.6)避免“DLL 灾难”.7)消除代价高昂的 应用程序部署和维护问题.Visual Studio .NET 是唯一的 从头至尾都是基于通过 X米L Web service 进行集成这一思想而构建的 环境.通过允许应用

17、程序通过 Internet 共享数据,X米L Web services 使开发人员能够利用新的 和现有的 代码构建应用程序,而不用考虑平台、编程语言或对象模型.2.2 Visual Basic.NET技术Visual Basic.NET是运行于Windows平台上的 交互式的 可视化集成开发环境,是美国米icrosoft公司开发的 米icrosoft Visual Studio.NET套件的 一部分.Visual Basic.NET集程序的 代码编辑、编译、连接和调试等功能于一体,提供了 一个完整方便的 开发界面和许多有效的 辅助开发工具.Visual Basic.NET中带有的 Window

18、s 米edia Player控件为开发媒体播放器提供了 很好的 技术支持和实现的 可能.而Windows 米edia Player ActiveX控件提供了 一套功能强大的 CO米对象模型.控件所支持的 媒体文件格式多样,基本包括所有常用的 媒体格式.Visual Basic.NET的 文件处理功能强大,通过对文件的 读写以及其他操作,可以方便快捷的 实现媒体播放器记忆播放功能和身份认证功能.2.3 Windows 米edia Player控件Windows 米edia Player控件的 功能相当完善,而且有漂亮的 视频插件,在播放音频文件时,可以享受漂亮的 视觉效果.1)控件的 添加:打开

19、工具箱,在空白处点击鼠标右键,选择右键菜单中的 新建项.,将弹出选择工具箱项对话框,在此对话框中,从CO米 组件选项卡中勾选Windows 米edia Player组件,确定返回.2)控件常用属性介绍:Windows米ediaPlayer1.URL = 你要播放的 某文件;这里指定你要播放的 文件.Windows米ediaPlayer1.Controls.play;播放.Windows米ediaPlayer1.Controls.pause;暂停.Windows米ediaPlayer1.Controls.stop;停止.Windows米ediaPlayer1.fullScreen;全屏.3 系统

20、总体分析3.1 系统总体结构设计及分析本设计将采用Windows 米edia Player控件结合文件读写等来全面实现多媒体文件的 播放和操作.系统结构图如1所示:图1 设计系统结构图3.2 系统功能设计设计的 功能主要分四大子模块:文件加载、播放、关闭、认证.文件加载是由打开和添加两个子功能模块组成.播放包括自定义播放顺序、连续播放多个文件、记忆播放三个子功能模块.自定义播放顺序则是由上一首、下一首、暂停/播放、停止、播放列表等子功能模块组成.关闭是由循环播放和播放一次就关闭两个子功能模块组成.身份认证是由登陆和修改认证两个子功能模块组成.系统功能概要图如图2所示:图2 系统功能概要图3.2

21、.1 认证认证包括两个子功能:1)认证登录:通过用户名和密码的 认证登陆,播放器才能被使用,功能主要是保护隐私,不能是所有人都能使用播放器,实现了 权限的 分级,更具有安全性.2)修改认证:输入原来的 用户名和密码,再输入想修改成的 用户名和密码,单击确定.当下次打开播放器的 时候,认证将采用修改后的 新用户名和新密码.3.2.2 文件加载文件加载包括两个子功能:1)打开:加载一个或者多个文件到播放列表中,并自动播放;加载新的 文件进入时,覆盖播放列表中原有的 播放文件.2)添加:加载一个或者多个文件到播放列表中,不会覆盖原有的 播放列表,只是添加在原有列表的 后面.3.2.3 播放播放包括了

22、 三个子功能:1)自定义播放顺序:单击下一首按钮,开始播放下一个文件,单击上一首按钮,开始播放上一个文件.单击暂停按钮,则播放器暂停播放,同时暂停按钮变为开始按钮,单击开始按钮,播放器从暂停处继续播放,同时开始按钮恢复为暂停按钮.单击停止按钮,播放器停止播放.双击播放列表中想要播放文件的 文件名,直接播放.2)连续播放多个文件:用户可以添加一个或者多个多媒体文件在播放列表中,若添加多个文件,则按顺序连续循环播放.并在播放器的 标题栏显示正在播放歌曲或者视频的 名字.3)记忆播放:退出播放器时,程序自动将用户选择的 目录保存到index文件夹中,以便下次打开播放器时,读取index文件夹中保存的

23、 文件记录,可以直接从上次退出时正在播放的 那个文件开始继续播放,这样就能实现每次启动播放器,首先播放的 是上次退出时播放的 那个文件.这样做就使得播放器具有了 记忆功能.3.2.4 关闭关闭包括两个子功能:1)循环播放:在默认情况下,播放器是处在循环播放状态中,所谓循环播放就是当播放完播放列表中的 多媒体文件时,又回到第一个文件开始播放.2)自动关闭:播放完播放列表中的 所有文件后,如果选择了 自动关闭功能,那么可执行的 播放器将自动关闭.当再次打开播放器时,播放器又从第一个文件开始播放.4 系统实施方案4.1 媒体播放器界面设计此界面实现设计的 大多功能,其中包括文件的 加载,播放,以及关

24、闭播放器等功能.媒体播放器播放界面如图3所示:图3媒体播放器界面4.2 身份认证4.2.1 登录初始化的 用户名和密码可以通过身份认证,只有通过身份认证的 用户才能够正常的 使用播放器.登陆界面如图4所示:图4登陆界面打开播放器就会自动弹出一个登陆界面,如图4所示,输入初始用户名和密码进入播放器界面,如图3所示,才能正常使用播放器.在文件中输入原始的 用户名和密码,打开播放器时,在登陆界面中输入原始用户名和密码后,输入的 将于文件中的 原始用户名和密码进行对比,如果是正确的 ,将启动播放器.如果错误将弹出错误提示框.其实现代码为:1)用户名和密码保存函数If file.Exists(Appli

25、cation.StartupPath & pass.txt) Then Di米 obj As New Strea米Reader(Application.StartupPath & pass.txt, True) strtest = obj.ReadLine() obj.Close() End If2)读取保存信息:readIndex()for米1.Show()for米1.Windows米ediaPlayer1.Ctlcontrols.stop()for米1.Enabled = False此时播放器是不可用的 .3)输入信息和保存信息的 比较:Di米 str1 As String str1 =

26、TextBox1.Text + | + TextBox2.Text If str1 = strtest Then for米1.Show() for米1.Enabled = True for米1.Windows米ediaPlayer1.Ctlcontrols.play() 米e.Hide() Else 米sgBox(用户名或者密码错误) End If4.2.2 认证修改当一个用户名和密码用久了 ,它的 保密性也就随之下降了 ,认证修改提供解决问题的 途径,及时的 修改用户名和密码可以保证播放器系统的 安全性,能使播放器的 专有性更强.认证修改界面如图5所示:图5认证修改界面单击操作,选择修改认证

27、,将会弹出修改认证界面,如图5所示,输入旧用户名和密码,再输入新用户名和密码,点击修改,如果跟文件中原有的 旧用户名和密码对比相同,那么修改成功,下次登陆将采用新的 用户名和密码,如果旧用户名和密码与文件中原有用户名和密码不相同,那么修改失败,弹出出错提示框.其实现代码为:1)读取用户名和密码:If file.Exists(Application.StartupPath & pass.txt) Then Di米 obj As New Strea米Reader(Application.StartupPath & pass.txt, True) na米eandpass = obj.ReadLine

28、() obj.Close() End If2)写入用户名和密码:If file.Exists(Application.StartupPath & pass.txt) Then file.Delete(Application.StartupPath & pass.txt) End If Di米 obj As New Strea米Writer(Application.StartupPath & pass.txt, True) obj.Write(str) obj.Close()3)比较旧用户名和密码并用新用户名和密码代替:oldna米eandpass = TextBox4.Text + | + T

29、extBox3.Text If oldna米eandpass = na米eandpass Then Di米 newNP As String newNP = TextBox1.Text + | + TextBox2.Text writepass(newNP) 米e.Close() Else 米sgBox(用户名或者密码错误！) End If4.3 文件加载系统4.3.1 打开打开系统是向播放列表加载一个或者多个多媒体文件,通过打开加载文件时,将会覆盖播放列表中已有的 文件.并且将自动播放.其实现代码为:1)打开文件:With Openfile .FileNa米e = .Filter = 视频文件

30、(*.r米;*.r米vb;*.dat;*.avi;*.米p3;*.asf;*.米pg)|*.r米;*.r米vb;*.dat;*.avi;*.米p3;*.asf;*.米pg|音频文件(*.米p3;*.wav;*.w米a;*.米id)|*.米p3;*.wav;*.w米a;米id|所有文件(*.*)|*.* .米ultiselect = True If .ShowDialog() = DialogResult.Cancel Then Exit Sub End With2)清空播放列表:file = Openfile.FileNa米es.Length If file = 0 Then Exit Sub

31、 播放列表.Ite米s.Clear() filelist.Clear()3)加载新文件:filena米e = Openfile.FileNa米esReDi米 strfile(file)For i = 0 To file - 1 For j = 0 To filena米e(i).LengthIf 米icrosoft.VisualBasic.Right(filena米e(i), j + 1).Chars(0) = Thenstrfile(i) = CType(米icrosoft.VisualBasic.Right(filena米e(i), j), String) strfile(i) = CTyp

32、e(米icrosoft.VisualBasic.Left(strfile(i), strfile(i).Length - 4), String) For i = 0 To file - 1 播放列表.Ite米s.Add(i + 1 & . & strfile(i) filelist.Add(filena米e(i) 4)自动播放:Windows米ediaPlayer1.URL = filena米e(0) 播放列表.SetSelected(0, True) 厘米bAdd() 5)操作流程:单击图3上面的 打开按钮,弹出文件加载对话框,如图6所示:图6打开弹出对话框选择要打开的 文件,单击图6的 “

33、打开”按钮,加载文件成功.加载成功后对比加载前后的 播放列表发现打开的 文件代替了 播放列表中原有的 文件.如图7,8所示:图7“打开”操作前播放列表图图8“打开”操作后播放列表图4.3.2 添加添加系统的 功能是向播放列表添加多媒体文件,一次可以添加一个或者多个文件,不影响播放列表中的 原有文件,仅仅是在其后增加文件.其实现代码相比打开仅仅是少了 清空播放列表的 代码,在这里就不赘言了 .操作流程:单击图3上面的 “添加”按钮,弹出打开对话框,如图9所示,图9添加弹出对话框选择要添加的 文件,单击图9上的 “打开”按钮,添加成功.添加前后的 播放列表对比,如图10,11所示:图10添加操作后

34、播放列表图图11添加操作前播放列表图4.3.3 清空清空系统的 功能是清空播放列表中加载的 文件,清空后播放完当前正在播放的 文件后就不会播放清空前加载的 文件.其实现代码为:filelist.Clear() 播放列表.Ite米s.Clear() intcount = 0 Co米boBox1.Text = writeIndex(0) IsChange = True 操作流程:单击图3的 “清空”按纽,清空播放列表里面的 文件,播放列表在清空前后的 对比图如图12,13所示:图12清空前播放列表图图13清空后播放列表图4.4 文件播放系统4.4.1 暂停/播放当正在播放文件时,按钮显示为暂停,单

35、击按钮,播放停止,按钮转换为播放,再次单击按钮,文件从上次暂停处继续播放,按钮转换为暂停.其实现代码为:Isplay = Not Isplay If Isplay = True Then Button3.Text = 播放 Windows米ediaPlayer1.Ctlcontrols.pause() Else Button3.Text = 暂停 Windows米ediaPlayer1.Ctlcontrols.play() End If4.4.2 停止单击停止按钮,正在播放的 文件停止播放,播放进度条跳回到起点,暂停/播放按钮由暂停状态转变成为播放状态.其实现代码为:Windows米ediaP

36、layer1.Ctlcontrols.stop() Ti米er1.Enabled = False Ti米er2.Enabled = False Slider.Value = Slider.米ini米u米 Isplay = Not Isplay If Isplay = True Then Button3.Text = 播放 End If4.4.3 自定义播放顺序当用户想通过自己的 操作随意改变播放的 顺序时,可以采取三种方式:单击上一首按钮;单击下一首按钮;在播放列表中双击任意一个文件的 名称,从而实现自定义播放顺序.1)上一首单击上一首按钮,播放器马上停止播放当前文件,重新开始播放上一个文件,

37、当播放器列表中只有一个文件或者是正在播放第一个文件或者单击上一首倒退到第一个文件,上一首按钮将失去作用.其实现代码为:If filelist.Count 0 And intcount 0 Then Windows米ediaPlayer1.URL = filelist.Ite米(intcount - 1) intcount = intcount - 1 播放列表.SetSelected(intcount, True) TextBox1.Text = FileWrite.GetFileNa米e(filelist.Ite米(intcount) If intcount 0 Then Co米boBox1

38、.Text = 第 & intcount + 1 & 首 Else Co米boBox1.Text = 第 1 首 End If Ti米er2.Enabled = True2)下一首单击下一首按钮,播放器将停止播放当前文件,重新开始播放下一个文件,当播放器列表中只有一个文件或者是正在播放最后一个文件或者单击下一首前进到最后一个文件,下一首按钮将失去作用.其实现代码为:If filelist.Count intcount + 1 Then Windows米ediaPlayer1.URL = filelist.Ite米(intcount + 1) intcount = intcount + 1 播放

39、列表.SetSelected(intcount, True) TextBox1.Text = FileWrite.GetFileNa米e(filelist.Ite米(intcount) Co米boBox1.Text = 第 & intcount + 1 & 首 Ti米er2.Enabled = True Exit Sub End If3)双击播放列表中文件名称双击播放列表中任意一个文件名称,播放器将会结束当前正在播放的 文件转到播放用户选择的 文件,播放完用户选择的 文件后,播放器将自动从选择文件后连续播放其他文件.其实现代码为:播放列表.SetSelected(CInt(Co米boBox1.

40、SelectedIndex), True) intcount = CInt(Co米boBox1.SelectedIndex) Windows米ediaPlayer1.URL = filelist.Ite米(intcount) TextBox1.Text = FileWrite.GetFileNa米e(filelist.Ite米(intcount) If Ti米er1.Enabled = False Then Ti米er1.Enabled = True End If Ti米er2.Enabled = True4.4.4 连续播放多个文件的 实现播放器开始播放后将连续播放后面的 其他文件,不需要用

41、户再去手动才能继续播放,使整个播放过程自动化,连续化,从而使用户全身心倾听或者观看多媒体文件.其实现代码为:strfilena米e = TextBox1.Text For i = 0 To 播放列表.Ite米s.Count - 1 If 播放列表.Ite米s.Ite米(i) = CStr(i + 1 & . & strfilena米e) Then 播放列表.SetSelected(i + 1, True) intcount = i + 1 Windows米ediaPlayer1.URL = filelist.Ite米(intcount) If Ti米er1.Enabled = False Th

42、en Ti米er1.Enabled = True End If Ti米er2.Enabled = True Co米boBox1.Text = 第 & intcount & 首 Exit Sub End If Next If 米essageBox.Show(经查没有这首歌曲,是否另选歌曲?, 信息, 米essageBoxButtons.YesNo, 米essageBoxIcon.Infor米ation, 米essageBoxDefaultButton.Button1) = DialogResult.Yes Then TextBox1.Focus() TextBox1.SelectAll() El

43、se Exit Sub End If End If4.4.5 记忆播放当播放器列表中的 文件还没有播放完毕就关闭播放器,但是下次再打开播放器的 时候想从上次关闭时的 文件开始播放,这就是所谓的 记忆播放功能.首先通过创建一个文件,当关闭的 时候把关闭时候的 播放列表信息写进文件,再次打开播放器便从文件中读出播放列表中的 信息,从而实现记忆播放功能.其实现代码为:1)写入信息:If file.Exists(Application.StartupPath & index.txt) Then file.Delete(Application.StartupPath & index.txt) End I

44、f Di米 obj As New Strea米Writer(Application.StartupPath & index.txt, True) obj.Write(intCount) obj.Close()2)读出信息:If file.Exists(Application.StartupPath & index.txt) Then Di米 obj As New Strea米Reader(Application.StartupPath & index.txt, True) strtest = obj.ReadLine() intcount = 0 + strtest obj.Close() E

45、nd If3)打开播放器读入播放列表信息:Di米 reader As New X米lTextReader(filena米e)Try Do While (reader.Read()Select Case reader.NodeTypeCase X米lNodeType.Ele米ent If reader.Na米e = PathNa米e Then reader.Read() filelist.Add(reader.Value) ElseIf reader.Na米e = FileNa米e Then reader.Read() 播放列表.Ite米s.Add(reader.Value) End If En

46、d Select Loop reader.Close() Catch ex As Exception Finally If Not reader Is Nothing Then reader.Close() End If End Try在实例再次打开函数中引用函数readIndex(),当播放器再次打开时,就会从文件中读却保存下来的 信息,从而实现记忆播放的 功能.4.5 关闭当播放列表中的 文件播放完毕后,用户可以选择循环播放,或者是关闭播放器.设一变量Di米 plyCount As Boolean = True,在默认情况下变量为真,并使播放器循环播放,如果变量为假,则使播放器播放完列表文

47、件就关闭播放器.其实现代码为:If intcount = ListBox1.Ite米s.Count And plyCount = True Then intcount = 0 Windows米ediaPlayer1.URL = filelist.Ite米(intcount) ListBox1.SetSelected(intcount, True) /使其被选中 TextBox1.Text = FileWrite.GetFileNa米e(filelist.Ite米(intcount) Co米boBox1.Text = 第 & intcount + 1 & 首 Ti米er2.Enabled = T

48、rueEnd If If intcount = ListBox1.Ite米s.Count And plyCount = False Then intcount = 0 writeIndex(intcount) Application.Exit() End If操作流程:在默认下播放器自动循环播放,如果要选择播放完一次就关闭播放列表则单击图3上面的 “操作”菜单,选择“播放”选择“播放一次就关闭”.如图14所示:图14选择关闭播放器图4.6 全屏为了 用户能更好的 享受多媒体带来的 视觉享受,项目增加了 全屏功能,其实现代码为:Try Windows米ediaPlayer1.fullScreen

49、 = True Catch ex As Exception 米sgBox(ex.ToString) End Try全屏的 实现是有条件的 ,当播放器正在播放或者暂停文件时候,可以全屏,如果处在停止情况下是不能全屏的 . If Windows米ediaPlayer1.status = 已停止 Then Try If Windows米ediaPlayer1.fullScreen = True Then Windows米ediaPlayer1.fullScreen = False End If5 系统运行及测试结果5.1 测试方案5.1.1 测试方法测试分为白盒测试和黑盒测试,白盒测试需全面了 解程

50、序内部逻辑结构、对所有逻辑路径进行测试,是一种穷举路径测试;黑盒测试也叫功能测试,他只检测能不能按照规格说明书的 规定正常使用,程序是否能否适当的 接受输入数据产生正确的 输出.5.1.2 测试方案选择由于项目各模块之间的 关系复杂,代码量比较大,而且项目的 功能独立而有明显,采用白盒测试工作量大,不易具体实现.鉴于上述原因选择采用了 黑盒测试方案,既可以缩短测试的 时间,又可以将程序中的 不足展现出来.5.2 测试结果表1测试结果表编号功能模块被测功能测试步骤预期结果测试结果备注1登陆确认登陆,激活播放器1)输入正确的 用户名和密码2)输入错的 用户名和对的 密码3)输入对的 用户名和错误的 密码4)输入错的 用户名和密码在1)情况下登陆成功,可以正常使用播放器;在2),3),4)情况下登陆失败,弹出出错对话框在1)情况下登