302_一个简单的媒体播放器（VB.NET）

3 系统总体分析
3.1 系统总体结构设计及分析
本设计将采用Windows Media Player控件结合文件读写等来全面实现多媒体文件的播放和操作。系统结构图如1所示：

图1 设计系统结构图
3.2 系统功能设计
设计的功能主要分四大子模块：文件加载、播放、关闭、认证。文件加载是由打开和添加两个子功能模块组成。播放包括自定义播放顺序、连续播放多个文件、记忆播放三个子功能模块。自定义播放顺序则是由上一首、下一首、暂停/播放、停止、播放列表等子功能模块组成。关闭是由循环播放和播放一次就关闭两个子功能模块组成。身份认证是由登陆和修改认证两个子功能模块组成。
系统功能概要图如图2所示：

图2 系统功能概要图
3.2.1 认证
认证包括两个子功能：
1）认证登录：通过用户名和密码的认证登陆，播放器才能被使用，功能主要是保护隐私，不能是所有人都能使用播放器，实现了权限的分级，更具有安全性。 【www.think58.com计算机毕业论文网】
2）修改认证：输入原来的用户名和密码，再输入想修改成的用户名和密码，单击确定。当下次打开播放器的时候，认证将采用修改后的新用户名和新密码。
3.2.2 文件加载
文件加载包括两个子功能：

1）打开：加载一个或者多个文件到播放列表中，并自动播放；加载新的文件进入时，覆盖播放列表中原有的播放文件。
2）添加：加载一个或者多个文件到播放列表中，不会覆盖原有的播放列表，只是添加在原有列表的后面。
3.2.3 播放
播放包括了三个子功能：
1）自定义播放顺序：单击下一首按钮,开始播放下一个文件,单击上一首按钮,开始播放上一个文件。单击暂停按钮,则播放器暂停播放,同时暂停按钮变为开始按钮,单击开始按钮,播放器从暂停处继续播放,同时开始按钮恢复为暂停按钮。单击停止按钮，播放器停止播放。双击播放列表中想要播放文件的文件名，直接播放。
2）连续播放多个文件：用户可以添加一个或者多个多媒体文件在播放列表中，若添加多个文件，则按顺序连续循环播放。并在播放器的标题栏显示正在播放歌曲或者视频的名字。
3）记忆播放：退出播放器时,程序自动将用户选择的目录保存到index文件夹中,以便下次打开播放器时,读取index文件夹中保存的文件记录，可以直接从上次退出时正在播放的那个文件开始继续播放,这样就能实现每次启动播放器,首先播放的是上次退出时播放的那个文件。这样做就使得播放器具有了记忆功能。
3.2.4 关闭
关闭包括两个子功能： think58 [资料来源：http://think58.com]
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 think58
Dim obj As New StreamReader(Application.StartupPath & "\pass.txt", True)
strtest = obj.ReadLine()
obj.Close()
End If
2）读取保存信息：
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 If
4.2.2 认证修改
当一个用户名和密码用久了，它的保密性也就随之下降了，认证修改提供解决问题的途径，及时的修改用户名和密码可以保证播放器系统的安全性，能使播放器的专有性更强。
认证修改界面如图5所示：

图5认证修改界面
单击操作，选择修改认证，将会弹出修改认证界面，如图5所示，输入旧用户名和密码，再输入新用户名和密码，点击修改，如果跟文件中原有的旧用户名和密码对比相同，那么修改成功，下次登陆将采用新的用户名和密码，如果旧用户名和密码与文件中原有用户名和密码不相同，那么修改失败，弹出出错提示框。其实现代码为：

think58.com

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 If
2）写入用户名和密码：
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 If
本文来自think58