一个简单的媒体播放器的设计与实现_第1页
一个简单的媒体播放器的设计与实现_第2页
一个简单的媒体播放器的设计与实现_第3页
一个简单的媒体播放器的设计与实现_第4页
一个简单的媒体播放器的设计与实现_第5页
已阅读5页,还剩25页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

一个简单的媒体播放器的设计与实现摘 要如今流行的媒体播放器虽然很多,但都或多或少存在一些缺陷,比如:没有记忆的功能;下次播放的时候不能从上次离开的曲目开始;没有身份认证功能;不能有效的保护媒体播放器里面的歌曲专有性;功能组合与用户的习惯相违背;界面太复杂以及操作太难等。随着人们对娱乐要求的提高,一款别致的、贴近用户操作习惯的播放器非常值得去研究和开发。本论文所描述的播放器是在Microsoft Visual Studio .NET 2003平台下利用Visual Basic.NET语言完成的。使用Visual Basic.NET提供的Windows Media Player控件以及文件处理,最终实现一款别致的,贴近用户操作习惯的媒体播放器。该播放器实现了对WAV、MID、MP3、MOV等格式的多媒体文件的播放功能;实现了播放列表加载多个多媒体文件并可以自定义播放顺序;实现了用户的身份认证、连续播放、记忆播放以及自动关闭播放器等功能。关键词:媒体播放器;Visual Basic.NET;Microsoft Visual Studio .NET 2003;Windows Media Player控件;记忆功能The Design and Implement of a Simple Media PlayerAbstractNowadays, there are many popular media players. They have more or less certain shortcomings. For example, the media player is no memory function, the next player didnt start from the program the last time leaved; no identity authentication, no effective protection for the proprietary of songs in the media player; function combination is against the users habit, or complex interface, too difficult to operate and so on. With the improvement of requirements for the entertainment, 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 Microsoft Visual Studio .NET 2003. Implement using file manipulation and windows media player controls, ultimately implement a media player which is unique and press close to user habit.The player realized play function for the multimedia documents of WAV, MID, MP3, MOV formats and so on; realized to load several multimedia files by playlists and customize the play order; realized the function of identity authentication, continuous play, memory function and realized to be automatically shutted down.Key words: Media player; Visual Basic.NET; Microsoft Visual Studio .NET 2003; Windows media Player Controls; Memory function目 录论文总页数:26页1引言11.1项目背景11.2国内外现状11.3项目意义21.4项目实现方法22开发运行平台分析22.1Microsoft Visual Studio .NET 200322.2Visual Basic.NET技术32.3Windows Media 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.5关闭184.6全屏205系统运行及测试结果215.1测试方案215.1.1测试方法215.1.2测试方案选择215.2测试结果21结 论23参考文献24致 谢25声 明261 引言1.1 项目背景多媒体播放器的设计是一门集计算机技术和数字多媒体技术于一体的综合设计。随着中国计算机技术、宽带网络技术的发展,越来越多的人开始重视多媒体播放器的发展与应用。再加上如今的播放器虽然种类多样化,但无论是Windows系统自带的Windows Media Player播放器,还是现在网上流行的千千静听,或者是Kugoo播放器都或多或少都存在着一些缺点,而这些缺点要么是界面与人们平时的生活习惯不相符,或者是复杂难懂;要么就是功能不全不能满足人们对网络娱乐的追求。随着多媒体的发展,市场潜力的开发,多媒体硬件环境和软件环境的不断完善,以及多媒体播放器开发环境的成熟,尤其是Microsoft公司开发的Windows编程工具Visual Basic.NET语言的成熟和完善。为多媒体播放器的研究和开发提供了先进的思想和多样的媒体控制手段,成为多媒体应用程序开发的理想工具。而此次设计不仅具有操作简便、界面友好等特性;而且在功能方面更贴近人们的生活习惯和操作习惯。此多媒体设计能识别多中格式的多媒体文件,其中包括WAV,MP3,MID,MOV,等多媒体文件;在播放列表中可以加载一个或者多个多媒体文件;自动连续播放多个多媒体文件;用户能随意改变播放顺序;在下次打开播放器时,从上次关闭处继续播放文件;在使用播放器前将进行身份认证;在播放列表的多媒体文件播放完后可以选择自动关闭播放器或者循环播放。1.2 国内外现状在当今信息社会,以多媒体为特征的信息技术和信息产业的发展及应用对人类社会产生的影响和作用愈来愈明显,愈来愈重要。多媒体能改变信息的包装,实现知识信息数字化,为人们获得知识信息提供极大的方便和无穷的乐趣。友善的人机界面、多种多样的多媒体教学软件、诱人的电子游艺节目、身临其境的多媒体导购系统、五花八门的信息家电和高效方便的网上查询等等,无不渗透着多媒体的作用,它引导人们进入了一个有声有色的世界。同时,多媒体的发展和应用,极大地推动了各行各业的相互渗透和飞速发展,大大改变了人类社会的工作环境和生活方式。可毫不夸张地说,多媒体产业的形成和发展,不仅引起了计算机工业的一次革命,也正在深刻地影响人类社会发生巨大的变革。多媒体技术的发展在很大程度上依靠于多媒体软件开发的水平。目前,不管是支撑多媒体系统的系统软件,还是管理和开发软件,以及多媒体的应用软件都在能力和数量上还难以满足多媒体飞速发展的需要。特别是多媒体应用软件的缺乏,一直是制约多媒体产业发展的瓶颈问题,因此己成为多媒体研究和开发的关键问题。如何制作和设计出大量高质量的多媒体应用软件是计算机从业人员所面临的迫切课题,也是广大人民群众所关心的事情。1.3 项目意义结合Visual Basic.NET语言提供的先进的思想和多样的媒体控制手段,结合用户使用媒体播放器的习惯和对媒体播放器的要求,设计了一款界面清楚明了,操作简单实效,可以实现在播放列表中可以加载一个或者多个多媒体文件;自动连续播放多个多媒体文件;用户能随意改变播放顺序;在下次打开播放器时,从上次关闭处继续播放文件;在使用播放器前将身份认证;在播放列表的多媒体文件播放完后可以选择自动关闭播放器或者循环播放等功能的媒体播放器。1.4 项目实现方法1)设计的编程语言是Visual Basic.NET,利用Visual Basic.NET多媒体控件中的Windows Media Player 控件来实现多媒体相应功能。2)利用Visual Basic.NET强大的文件处理能力,实现身份认证功能和记忆功能。2 开发运行平台分析2.1 Microsoft Visual Studio .NET 2003Visual Studio .NET 2003 是一个全面的开发工具,用于快速构建面向 Microsoft Windows 和 Web 并连接 Microsoft .NET 的应用程序,极大地提高了开发人员的效率。为解决今天最具挑战性的软件开发需要而构建的 Visual Studio .NET 2003 增强并进一步完善了其前代产品的功能,并与前代产品高度兼容。Visual Studio .NET 2003 包括来自 Modeler 的全套功能,可帮助构建最复杂的企业级应用程序和在最小的设备上部署应用程序。Visual Studio .NET 2003 将移动和嵌入式设备,如 Pocket PC 和其他采用 Microsoft Windows CE .NET 操作系统的设备,带入 .NET。如今,开发人员能够使用同样的编程模型、开发工具及编程技能,来构建应用范围广泛从小设备到最大的数据中心的应用程序。开发人员可以使用 Visual Studio .NET 来:1)构建功能强大而且响应能力极好的基于 Windows 的应用程序。2)构建功能强大而且响应能力极好的 Pocket PC 应用程序。3)构建完善而安全的 Web 应用程序。4)构建对设备有智能感知能力的完善而安全的移动 Web 应用程序。5)在以上任何一种应用程序中使用 XML Web services。6)避免“DLL 灾难”。7)消除代价高昂的应用程序部署和维护问题。Visual Studio .NET 是唯一的从头至尾都是基于通过 XML Web service 进行集成这一思想而构建的环境。通过允许应用程序通过 Internet 共享数据,XML Web services 使开发人员能够利用新的和现有的代码构建应用程序,而不用考虑平台、编程语言或对象模型。2.2 Visual Basic.NET技术Visual Basic.NET是运行于Windows平台上的交互式的可视化集成开发环境,是美国Microsoft公司开发的Microsoft Visual Studio.NET套件的一部分。Visual Basic.NET集程序的代码编辑、编译、连接和调试等功能于一体,提供了一个完整方便的开发界面和许多有效的辅助开发工具。Visual Basic.NET中带有的Windows Media Player控件为开发媒体播放器提供了很好的技术支持和实现的可能。而Windows Media Player ActiveX控件提供了一套功能强大的COM对象模型。控件所支持的媒体文件格式多样,基本包括所有常用的媒体格式。Visual Basic.NET的文件处理功能强大,通过对文件的读写以及其他操作,可以方便快捷的实现媒体播放器记忆播放功能和身份认证功能。2.3 Windows Media Player控件Windows Media Player控件的功能相当完善,而且有漂亮的视频插件,在播放音频文件时,可以享受漂亮的视觉效果。1)控件的添加:打开工具箱,在空白处点击鼠标右键,选择右键菜单中的新建项.,将弹出选择工具箱项对话框,在此对话框中,从COM 组件选项卡中勾选Windows Media Player组件,确定返回。2)控件常用属性介绍:WindowsMediaPlayer1.URL = 你要播放的某文件;这里指定你要播放的文件。WindowsMediaPlayer1.Controls.play;播放。WindowsMediaPlayer1.Controls.pause;暂停。WindowsMediaPlayer1.Controls.stop;停止。WindowsMediaPlayer1.fullScreen;全屏。3 系统总体分析3.1 系统总体结构设计及分析本设计将采用Windows Media Player控件结合文件读写等来全面实现多媒体文件的播放和操作。系统结构图如1所示:图1 设计系统结构图3.2 系统功能设计设计的功能主要分四大子模块:文件加载、播放、关闭、认证。文件加载是由打开和添加两个子功能模块组成。播放包括自定义播放顺序、连续播放多个文件、记忆播放三个子功能模块。自定义播放顺序则是由上一首、下一首、暂停/播放、停止、播放列表等子功能模块组成。关闭是由循环播放和播放一次就关闭两个子功能模块组成。身份认证是由登陆和修改认证两个子功能模块组成。系统功能概要图如图2所示:图2 系统功能概要图3.2.1 认证认证包括两个子功能:1)认证登录:通过用户名和密码的认证登陆,播放器才能被使用,功能主要是保护隐私,不能是所有人都能使用播放器,实现了权限的分级,更具有安全性。2)修改认证:输入原来的用户名和密码,再输入想修改成的用户名和密码,单击确定。当下次打开播放器的时候,认证将采用修改后的新用户名和新密码。3.2.2 文件加载文件加载包括两个子功能:1)打开:加载一个或者多个文件到播放列表中,并自动播放;加载新的文件进入时,覆盖播放列表中原有的播放文件。2)添加:加载一个或者多个文件到播放列表中,不会覆盖原有的播放列表,只是添加在原有列表的后面。3.2.3 播放播放包括了三个子功能:1)自定义播放顺序:单击下一首按钮,开始播放下一个文件,单击上一首按钮,开始播放上一个文件。单击暂停按钮,则播放器暂停播放,同时暂停按钮变为开始按钮,单击开始按钮,播放器从暂停处继续播放,同时开始按钮恢复为暂停按钮。单击停止按钮,播放器停止播放。双击播放列表中想要播放文件的文件名,直接播放。2)连续播放多个文件:用户可以添加一个或者多个多媒体文件在播放列表中,若添加多个文件,则按顺序连续循环播放。并在播放器的标题栏显示正在播放歌曲或者视频的名字。3)记忆播放:退出播放器时,程序自动将用户选择的目录保存到index文件夹中,以便下次打开播放器时,读取index文件夹中保存的文件记录,可以直接从上次退出时正在播放的那个文件开始继续播放,这样就能实现每次启动播放器,首先播放的是上次退出时播放的那个文件。这样做就使得播放器具有了记忆功能。3.2.4 关闭关闭包括两个子功能:1)循环播放:在默认情况下,播放器是处在循环播放状态中,所谓循环播放就是当播放完播放列表中的多媒体文件时,又回到第一个文件开始播放。2)自动关闭:播放完播放列表中的所有文件后,如果选择了自动关闭功能,那么可执行的播放器将自动关闭。当再次打开播放器时,播放器又从第一个文件开始播放。4 系统实施方案4.1 媒体播放器界面设计此界面实现设计的大多功能,其中包括文件的加载,播放,以及关闭播放器等功能。媒体播放器播放界面如图3所示:图3媒体播放器界面4.2 身份认证4.2.1 登录初始化的用户名和密码可以通过身份认证,只有通过身份认证的用户才能够正常的使用播放器。登陆界面如图4所示:图4登陆界面打开播放器就会自动弹出一个登陆界面,如图4所示,输入初始用户名和密码进入播放器界面,如图3所示,才能正常使用播放器。在文件中输入原始的用户名和密码,打开播放器时,在登陆界面中输入原始用户名和密码后,输入的将于文件中的原始用户名和密码进行对比,如果是正确的,将启动播放器。如果错误将弹出错误提示框。其实现代码为:1)用户名和密码保存函数If file.Exists(Application.StartupPath & pass.txt) Then Dim obj As New StreamReader(Application.StartupPath & pass.txt, True) strtest = obj.ReadLine() obj.Close() End If2)读取保存信息:readIndex()form1.Show()form1.WindowsMediaPlayer1.Ctlcontrols.stop()form1.Enabled = False此时播放器是不可用的。3)输入信息和保存信息的比较:Dim str1 As String str1 = TextBox1.Text + | + TextBox2.Text If str1 = strtest Then form1.Show() form1.Enabled = True form1.WindowsMediaPlayer1.Ctlcontrols.play() Me.Hide() Else MsgBox(用户名或者密码错误) End If4.2.2 认证修改当一个用户名和密码用久了,它的保密性也就随之下降了,认证修改提供解决问题的途径,及时的修改用户名和密码可以保证播放器系统的安全性,能使播放器的专有性更强。认证修改界面如图5所示:图5认证修改界面单击操作,选择修改认证,将会弹出修改认证界面,如图5所示,输入旧用户名和密码,再输入新用户名和密码,点击修改,如果跟文件中原有的旧用户名和密码对比相同,那么修改成功,下次登陆将采用新的用户名和密码,如果旧用户名和密码与文件中原有用户名和密码不相同,那么修改失败,弹出出错提示框。其实现代码为:1)读取用户名和密码:If file.Exists(Application.StartupPath & pass.txt) Then Dim obj As New StreamReader(Application.StartupPath & pass.txt, True) nameandpass = obj.ReadLine() obj.Close() End If2)写入用户名和密码:If file.Exists(Application.StartupPath & pass.txt) Then file.Delete(Application.StartupPath & pass.txt) End If Dim obj As New StreamWriter(Application.StartupPath & pass.txt, True) obj.Write(str) obj.Close()3)比较旧用户名和密码并用新用户名和密码代替:oldnameandpass = TextBox4.Text + | + TextBox3.Text If oldnameandpass = nameandpass Then Dim newNP As String newNP = TextBox1.Text + | + TextBox2.Text writepass(newNP) Me.Close() Else MsgBox(用户名或者密码错误!) End If4.3 文件加载系统4.3.1 打开打开系统是向播放列表加载一个或者多个多媒体文件,通过打开加载文件时,将会覆盖播放列表中已有的文件。并且将自动播放。其实现代码为:1)打开文件:With Openfile .FileName = .Filter = 视频文件(*.rm;*.rmvb;*.dat;*.avi;*.mp3;*.asf;*.mpg)|*.rm;*.rmvb;*.dat;*.avi;*.mp3;*.asf;*.mpg|音频文件(*.mp3;*.wav;*.wma;*.mid)|*.mp3;*.wav;*.wma;mid|所有文件(*.*)|*.* .Multiselect = True If .ShowDialog() = DialogResult.Cancel Then Exit Sub End With2)清空播放列表:file = Openfile.FileNames.Length If file = 0 Then Exit Sub 播放列表.Items.Clear() filelist.Clear()3)加载新文件:filename = Openfile.FileNamesReDim strfile(file)For i = 0 To file - 1 For j = 0 To filename(i).LengthIf Microsoft.VisualBasic.Right(filename(i), j + 1).Chars(0) = Thenstrfile(i) = CType(Microsoft.VisualBasic.Right(filename(i), j), String) strfile(i) = CType(Microsoft.VisualBasic.Left(strfile(i), strfile(i).Length - 4), String) For i = 0 To file - 1 播放列表.Items.Add(i + 1 & . & strfile(i) filelist.Add(filename(i) 4)自动播放:WindowsMediaPlayer1.URL = filename(0) 播放列表.SetSelected(0, True) cmbAdd() 5)操作流程:单击图3上面的打开按钮,弹出文件加载对话框,如图6所示:图6打开弹出对话框选择要打开的文件,单击图6的“打开”按钮,加载文件成功。加载成功后对比加载前后的播放列表发现打开的文件代替了播放列表中原有的文件。如图7,8所示:图7“打开”操作前播放列表图图8“打开”操作后播放列表图4.3.2 添加添加系统的功能是向播放列表添加多媒体文件,一次可以添加一个或者多个文件,不影响播放列表中的原有文件,仅仅是在其后增加文件。其实现代码相比打开仅仅是少了清空播放列表的代码,在这里就不赘言了。操作流程:单击图3上面的“添加”按钮,弹出打开对话框,如图9所示,图9添加弹出对话框选择要添加的文件,单击图9上的“打开”按钮,添加成功。添加前后的播放列表对比,如图10,11所示:图10添加操作后播放列表图图11添加操作前播放列表图4.3.3 清空清空系统的功能是清空播放列表中加载的文件,清空后播放完当前正在播放的文件后就不会播放清空前加载的文件。其实现代码为:filelist.Clear() 播放列表.Items.Clear() intcount = 0 ComboBox1.Text = writeIndex(0) IsChange = True 操作流程:单击图3的“清空”按纽,清空播放列表里面的文件,播放列表在清空前后的对比图如图12,13所示:图12清空前播放列表图图13清空后播放列表图4.4 文件播放系统4.4.1 暂停/播放当正在播放文件时,按钮显示为暂停,单击按钮,播放停止,按钮转换为播放,再次单击按钮,文件从上次暂停处继续播放,按钮转换为暂停。其实现代码为:Isplay = Not Isplay If Isplay = True Then Button3.Text = 播放 WindowsMediaPlayer1.Ctlcontrols.pause() Else Button3.Text = 暂停 WindowsMediaPlayer1.Ctlcontrols.play() End If4.4.2 停止单击停止按钮,正在播放的文件停止播放,播放进度条跳回到起点,暂停/播放按钮由暂停状态转变成为播放状态。其实现代码为:WindowsMediaPlayer1.Ctlcontrols.stop() Timer1.Enabled = False Timer2.Enabled = False Slider.Value = Slider.Minimum Isplay = Not Isplay If Isplay = True Then Button3.Text = 播放 End If4.4.3 自定义播放顺序当用户想通过自己的操作随意改变播放的顺序时,可以采取三种方式:单击上一首按钮;单击下一首按钮;在播放列表中双击任意一个文件的名称,从而实现自定义播放顺序。1)上一首单击上一首按钮,播放器马上停止播放当前文件,重新开始播放上一个文件,当播放器列表中只有一个文件或者是正在播放第一个文件或者单击上一首倒退到第一个文件,上一首按钮将失去作用。其实现代码为:If filelist.Count 0 And intcount 0 Then WindowsMediaPlayer1.URL = filelist.Item(intcount - 1) intcount = intcount - 1 播放列表.SetSelected(intcount, True) TextBox1.Text = FileWrite.GetFileName(filelist.Item(intcount) If intcount 0 Then ComboBox1.Text = 第 & intcount + 1 & 首 Else ComboBox1.Text = 第 1 首 End If Timer2.Enabled = True2)下一首单击下一首按钮,播放器将停止播放当前文件,重新开始播放下一个文件,当播放器列表中只有一个文件或者是正在播放最后一个文件或者单击下一首前进到最后一个文件,下一首按钮将失去作用。其实现代码为:If filelist.Count intcount + 1 Then WindowsMediaPlayer1.URL = filelist.Item(intcount + 1) intcount = intcount + 1 播放列表.SetSelected(intcount, True) TextBox1.Text = FileWrite.GetFileName(filelist.Item(intcount) ComboBox1.Text = 第 & intcount + 1 & 首 Timer2.Enabled = True Exit Sub End If3)双击播放列表中文件名称双击播放列表中任意一个文件名称,播放器将会结束当前正在播放的文件转到播放用户选择的文件,播放完用户选择的文件后,播放器将自动从选择文件后连续播放其他文件。其实现代码为:播放列表.SetSelected(CInt(ComboBox1.SelectedIndex), True) intcount = CInt(ComboBox1.SelectedIndex) WindowsMediaPlayer1.URL = filelist.Item(intcount) TextBox1.Text = FileWrite.GetFileName(filelist.Item(intcount) If Timer1.Enabled = False Then Timer1.Enabled = True End If Timer2.Enabled = True4.4.4 连续播放多个文件的实现播放器开始播放后将连续播放后面的其他文件,不需要用户再去手动才能继续播放,使整个播放过程自动化,连续化,从而使用户全身心倾听或者观看多媒体文件。其实现代码为:strfilename = TextBox1.Text For i = 0 To 播放列表.Items.Count - 1 If 播放列表.Items.Item(i) = CStr(i + 1 & . & strfilename) Then 播放列表.SetSelected(i + 1, True) intcount = i + 1 WindowsMediaPlayer1.URL = filelist.Item(intcount) If Timer1.Enabled = False Then Timer1.Enabled = True End If Timer2.Enabled = True ComboBox1.Text = 第 & intcount & 首 Exit Sub End If Next If MessageBox.Show(经查没有这首歌曲,是否另选歌曲?, 信息, MessageBoxButtons.YesNo, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1) = DialogResult.Yes Then TextBox1.Focus() TextBox1.SelectAll() Else Exit Sub End If End If4.4.5 记忆播放当播放器列表中的文件还没有播放完毕就关闭播放器,但是下次再打开播放器的时候想从上次关闭时的文件开始播放,这就是所谓的记忆播放功能。首先通过创建一个文件,当关闭的时候把关闭时候的播放列表信息写进文件,再次打开播放器便从文件中读出播放列表中的信息,从而实现记忆播放功能。其实现代码为:1)写入信息:If file.Exists(Application.StartupPath & index.txt) Then file.Delete(Application.StartupPath & index.txt) End If Dim obj As New StreamWriter(Application.StartupPath & index.txt, True) obj.Write(intCount) obj.Close()2)读出信息:If file.Exists(Application.StartupPath & index.txt) Then Dim obj As New StreamReader(Application.StartupPath & index.txt, True) strtest = obj.ReadLine() intcount = 0 + strtest obj.Close() End If3)打开播放器读入播放列表信息:Dim reader As New XmlTextReader(filename)Try Do While (reader.Read()Select Case reader.NodeTypeCase XmlNodeType.Element If reader.Name = PathName Then reader.Read() filelist.Add(reader.Value) ElseIf reader.Name = FileName Then reader.Read() 播放列表.Items.Add(reader.Value) End If End Select Loop reader.Close() Catch ex As Exception Finally If Not reader Is Nothing Then reader.Close() End If End Try在实例再次打开函数中引用函数readIndex(),当播放器再次打开时,就会从文件中读却保存下来的信息,从而实现记忆播放的功能。4.5 关闭当播放列表中的文件播放完毕后,用户可以选择循环播放,或者是关闭播放器。设一变量Dim plyCount As Boolean = True,在默认情况下变量为真,并使播放器循环播放,如果变量为假,则使播放器播放完列表文件就关闭播放器。其实现代码为:If intcount = ListBox1.Items.Count And plyCount = True Then intcount = 0 WindowsMediaPlayer1.URL = filelist.Item(intcount) ListBox1.SetSelected(intcount, True) /使其被选中 TextBox1.Text = FileWrite.GetFileName(filelist.Item(intcount) ComboBox1.Text = 第 & intcount + 1 & 首 Timer2.Enabled = TrueEnd If If intcount = ListBox1.Items.Count And plyCount = False Then intcount = 0 writeIndex(intcount) Application.Exit() End If操作流程:在默认下播放器自动循环播放,如果要选择播放完一次就关闭播放列表则单击图3上面的“操作”菜单,选择“播放”选择“播放一次就关闭”。如图14所示:图14选择关闭播放器图4.6 全屏为了用户能更好的享受多媒体带来的视觉享受,项目增加了全屏功能,其实现代码为:Try WindowsMediaPlayer1.fullScreen = True Catch ex As Exception MsgBox(ex.ToString) End Try全屏的实现是有条件的,当播放器正在播放或者暂停文件时候,可以全屏,如果处在停止情况下是不能全屏的。 If WindowsMediaPlayer1.status = 已停止 Then Try If WindowsMediaPlayer1.fullScreen = True Then WindowsMediaPlayer1.fullScreen = False End If5 系统运行及测试结果5.1 测试方案5.1.1 测试方法测试分为白盒测试和黑盒测试,白盒测试需全面了解程序内部逻辑结构、对所有逻辑路径进行测试,是一种穷举路径测试;黑盒测试也叫功能测试,他只检测能不能按照规格说明书的规定正常使用,程序是否能否适当的接受输入数据产生正确的输出。5.1.2 测试方案选择由于项目各模块之间的关系复杂,代码量比较大,而且项目的功能独立而有明显,采用白盒测试工作量大,不易具体实现。鉴于上述原因选择采用了黑盒测试方案,既可以缩短测试的时间,又可以将程序中的不足展现出来。5.2 测试结果表1测试结果表编号功能模块被测功能测试步骤预期结果测试结果备注1登陆确认登陆,激活播放器1)输入正确的用户名和密码2)输入错的用户名和对的密码3)输入对的用户名和错误的密码4)输入错的用户名和密码在1)情况下登陆成功,可以正常使用播放器;在2),3),4)情况下登陆失败,弹出出错对话框在1)情况下登陆成功,可以正常使用播放器;在2),3),4)情况下登陆失败,弹出出错对话框通过2打开加载一个或者多个文件1)加载一个多媒体文件2)加载多个多媒体文件成功加载一个或者多个多媒体文件,并覆盖播放器列表中的原有多媒体文件成功加载一个或者多个多媒体文件,并覆盖播放器列表中的原有多媒体文件通过2播放/暂停播放和暂停转换1)播放状态下点击暂停按钮2)暂停状态下点击播放按钮成功在暂停和播放之间转换成功在暂停和播放之间转换通过3停止停止播放文件点击停止按钮播放停止,播放进度条回到起点播放停止,播放进度条回到起点通过4全屏全屏切换1)在播放或者暂停状态下点击全屏按钮2)在停止状态下点击全屏状态3)全屏状态下按键盘上的ESC键在1)情况下可以全屏,在2)情况下不能全屏,并出现出错提示框,在3)情况下回到初始大小状态在1)情况下可以全屏,在2)情况下不能全屏,并出现出错提示框,在3)情况下回到初始大小状态通过5下一首自定义播放顺序1)在播放第一个文件的时候点击下一首按钮2)在播放最后一个文件的时候点击下一首按钮3)在上面两种情况以外播放任意一个文件时候点击下一

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论