MP3播放器课程设计报告

1

VB课程设计报告

报告名称 MP3播放器详细设计报告

年 级 10级

学 院 计算机学院

专 业 计算机科学与技术专业

学 号 12101113

姓 名 张木春

任课教师 于时飞

完成时间 2013.5.31

成 绩

（报告在给出成绩的同时须由评阅人写出评语）

课 程 实 践 报 告 评 语

评阅教师签字：

2 详细设计说明

1.引言………………………………………………………………………………………………3

1.1编写目的……………………………………………………………………………………3

1.2项目背景……………………………………………………………………………………3

1.3定义…………………………………………………………………………………………3

1.4参考资料……………………………………………………………………………………4

2.总体设计…………………………………………………………………………………………4

2.1需求概述……………………………………………………………………………………4

2.2软件结构……………………………………………………………………………………4

3.程序描述…………………………………………………………………………………………4

3.1功能…………………………………………………………………………………………8

3.2性能…………………………………………………………………………………………8

3.3输入项目……………………………………………………………………………………8

3.4输出项目……………………………………………………………………………………9

3.5限制条件……………………………………………………………………………………9

3.6测试要点……………………………………………………………………………………9

3 1．引言

1.1编写目的

编写本程序的目的是设计一个MP3播放器,能实现,播放,停止,暂停,音量设置,左右声道,音乐添加删除,音乐列表的记忆功能,顺序播放,随机播放,循环播放等功能.

通过阅读详细设计说明书,我们可以清楚的知道界面上每个控件的功能及每段代码所实现的功能.

该说明说适合于所有了解VB语言的读者,可读性强.

1.2项目背景

本项目是在我们上完Visual Basic 2005 程序设计课和软件工程课之后,王国伟老师为了对我们进行简单考核而提出的课程设计题目.

该项目由王国伟老师直接主管,并依托于信息技术学院六楼数学实验室来完成,项目时间为两周.

1.3定义

1.3定义

（1）数据类型：

String 字符串

Boolean 浮点型

Integer 整型

（2）常用控件及属性

Button 命令按钮控件

RadioButton 单选框控件

OpenFileDialog 打开文件对话框控件

File close（） 关闭文件函数

ListView控件：（属性）

Add: 添加列表项

SelectedItems()： 选中的列表项

Remove: 删除列表项

AxWindowsMediaPlayer控件：（属性）

URL：获取多媒体文件的路径及文件名

Ctlcontrols: 获取多媒体文件的控制方法

CurrentPosition:获取多媒体当前的播放进度

TrackBar控件：（属性）

Value:获取滑块目前所在的位置 4

1.4参考资料

[1] 李捷. Visual Basic 2005—程序设计教程-北京机械工业出版社,2007.7

[2] 杨富国. Visual Basic 程序开发案例解析-清华大学出版社,2006.1

[3]康祥顺. Visual Basic 案例开发集锦-电子工业出版社,2006.1

2．总体设计

2.1需求概述

本项目的开发宗旨是实现Windows Media player 的MP3播放器功能,使用户方便的播放音乐,并根据兴趣添加播放列表.根据系统实现的目的,可以描述出MP3播放器功能,该系统主要包括下列四部分:

1.音乐播放功能;

2.歌曲列表管理功能;

3.音量设置,左右声道设置;

4.播放模式更换功能.

其中,音乐播放功能包括音乐的播放,暂停,停止, ,是本程序的基本功能.歌曲列表管理功能实现了歌曲列表的添加,删除保存等功能,方便用户使用.音量,声道设置功能可以实现,歌曲音量大小的调节和左右声道模式的转换.播放模式更换功能,可以实现顺序播放,随机播放,单曲循环等不同模式之间的转换,,使播放方式更加人性化.

2.2软件结构

需求分析---详细设计---调试----改进---再调试

3．程序描述

1.全局变量声明

Public Class Form1

'设置全局变量

Dim paths() As String '定义打开文件路径数组

Dim FileName As String '定义文件名

Dim SingName As String '定义歌曲名称

Dim i As Integer

Dim selIndex As Integer 5 Dim path As String

Dim d1, d2 As Integer

2.‘添加按纽事件

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button1.Click

Dim sfile As String '定义歌曲名称

Dim j As Integer '定义循环变量

Dim count As Integer '定义已有歌曲数目

With OpenFileDialog1 '打开新文件

.Title = "打开mp3文件"

.Multiselect = True

.Filter = "mp3文件(*.mp3)|*.mp3"

.ShowDialog()

paths = .FileNames

End With

i = paths.GetUpperBound(0) '获取此次打开文件的数目

For j = 0 To i

count = ListView1.Items.Count

sfile = paths(i - j).Substring(paths(j).LastIndexOf("/") + 1) '获取歌曲名称

Dim mitem As New ListViewItem(Str(count + 1), j)

mitem.SubItems.Add(sfile)

mitem.SubItems.Add(paths(i - j))

ListView1.Items.Add(mitem) '把新打开的文件添加到列表控件中

Next

End Sub

3.'播放按纽事件

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button2.Click

selIndex = ListView1.SelectedItems(0).Text - 1

FileName = ListView1.SelectedItems.Item(0).SubItems(1).Text '获取歌曲名称

path = ListView1.SelectedItems.Item(0).SubItems(2).Text

AxWindowsMediaPlayer1.URL = path '设置播放文件

AxWindowsMediaPlayer1.Ctlcontrols.play() '开始播放

Label2.Text = FileName

Dim Str As String

Label2.Text = FileName

Timer1.Enabled = True

Button2.Enabled = True

Str = FileName.Substring(stIndexOf("."))

FileName = FileName.Remove(FileName.Length - _

Str.Length, Str.Length)

Label2.Text = FileName '对字符串进行处理,仅获取无后缀歌曲名

End Sub 6 4.'停止按纽事件,

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button3.Click

AxWindowsMediaPlayer1.Ctlcontrols.stop()

End Sub

5.'退出并保存列表按纽事件

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button4.Click