MP3播放器课程设计报告

仅供个人参考不得用于商业用途VB课程设计报告报告名称MP3播放器详细设计报告Forpersonaluseonlyinstudyandresearch;notforcommercialuse年级10级学院计算机学院专业计算机科学与技术专业学号姓名张木春任课教师于时飞完成时间成绩（报告在给出成绩的同时须由评阅人写出评语）课程实践报告评语仅供个人参考不得用于商业用途评阅教师签字：详细设计说明1.引言………………………………………………………………………………………………31.1编写目的……………………………………………………………………………………31.2项目背景……………………………………………………………………………………31.3定义…………………………………………………………………………………………31.4参考资料……………………………………………………………………………………42.总体设计…………………………………………………………………………………………42.1需求概述……………………………………………………………………………………42.2软件结构……………………………………………………………………………………43.程序描述…………………………………………………………………………………………43.1功能…………………………………………………………………………………………83.2性能…………………………………………………………………………………………83.3输入项目……………………………………………………………………………………83.4输出项目……………………………………………………………………………………93.5限制条件……………………………………………………………………………………93.6测试要点……………………………………………………………………………………9仅供个人参考不得用于商业用途1．引言1.1编写目的编写本程序的目的是设计一个MP3播放器,能实现,播放,停止,暂停,音量设置,左右声道,音乐添加删除,音乐列表的记忆功能,顺序播放,随机播放,循环播放等功能.通过阅读详细设计说明书,我们可以清楚的知道界面上每个控件的功能及每段代码所实现的功能.该说明说适合于所有了解VB语言的读者,可读性强.1.2项目背景本项目是在我们上完VisualBasic2005程序设计课和软件工程课之后,王国伟老师为了对我们进行简单考核而提出的课程设计题目.该项目由王国伟老师直接主管,并依托于信息技术学院六楼数学实验室来完成,项目时间为两周.1.3定义1.3定义（1）数据类型：String字符串Boolean浮点型Integer整型（2）常用控件及属性Button命令按钮控件RadioButton单选框控件OpenFileDialog打开文件对话框控件Fileclose（）关闭文件函数ListView控件：（属性）仅供个人参考不得用于商业用途Add:添加列表项SelectedItems()：选中的列表项Remove:删除列表项AxWindowsMediaPlayer控件：（属性）URL：获取多媒体文件的路径及文件名Ctlcontrols:获取多媒体文件的控制方法CurrentPosition:获取多媒体当前的播放进度TrackBar控件：（属性）Value:获取滑块目前所在的位置1.4参考资料[1]李捷.VisualBasic2005—程序设计教程-北京机械工业出版社,2007.7[2]杨富国.VisualBasic程序开发案例解析-清华大学出版社,2006.1[3]康祥顺.VisualBasic案例开发集锦-电子工业出版社,2006.12．总体设计2.1需求概述本项目的开发宗旨是实现WindowsMediaplayer的MP3播放器功能,使用户方便的播放音乐,并根据兴趣添加播放列表.根据系统实现的目的,可以描述出MP3播放器功能,该系统主要包括下列四部分:1.音乐播放功能;2.歌曲列表管理功能;3.音量设置,左右声道设置;4.播放模式更换功能.其中,音乐播放功能包括音乐的播放,暂停,停止,,是本程序的基本功能.歌曲列表管理功能实现了歌曲列表的添加,删除保存等功能,方便用户使用.音量,声道设置功能可以实现,歌曲音量大小的调节和左右声道模式的转换.播放模式更换功能,可以实现顺序播放,随机播放,单曲循环等不同模式之间的转换,,使播放方式更加人性化.2.2软件结构需求分析---详细设计---调试----改进---再调试仅供个人参考不得用于商业用途3．程序描述1.全局变量声明PublicClassForm1'设置全局变量Dimpaths()AsString'定义打开文件路径数组DimFileNameAsString'定义文件名DimSingNameAsString'定义歌曲名称DimiAsIntegerDimselIndexAsIntegerDimpathAsStringDimd1,d2AsInteger2.‘添加按纽事件PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimsfileAsString'定义歌曲名称DimjAsInteger'定义循环变量DimcountAsInteger'定义已有歌曲数目WithOpenFileDialog1'打开新文件.Title=打开mp3文件.Multiselect=True.Filter=mp3文件(*.mp3)|*.mp3.ShowDialog()paths=.FileNamesEndWithi=paths.GetUpperBound(0)'获取此次打开文件的数目Forj=0Toicount=sfile=paths(i-j).Substring(paths(j).LastIndexOf(/)+1)'获取歌曲名称DimmitemAsNewListViewItem(Str(count+1),j)-j))'把新打开的文件添加到列表控件中NextEndSub3.'播放按纽事件PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickselIndex=ListView1.SelectedItems(0).Text-1FileName='获取歌曲名称path=AxWindowsMediaPlayer1.URL=path'设置播放文件仅供个人参考不得用于商业用途'开始播放Label2.Text=FileNameDimStrAsStringLabel2.Text=FileNameTimer1.Enabled=TrueButton2.Enabled=TrueStr=FileName.Substring(FileName.LastIndexOf(.))FileName=FileName.Remove(FileName.Length-_Str.Length,Str.Length)Label2.Text=FileName'对字符串进行处理,仅获取无后缀歌曲名EndSub4.'停止按纽事件,PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickEndSub5.'退出并保存列表按纽事件PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickFileOpen(1,d:\xs.txt,OpenMode.Output)Dimi,jAsIntegerDimstAsString=j=-1Fori=0Tojst=ListView1.Items(i).SubItems(2).TextPrintLine(1,st)NextFileClose(1)Close()EndEndSub6.'计时器事件PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickDimm1,m2AsIntegerDims1,s2AsIntegerDimnAsIntegerd1='获取当前播放进度d2='获取需要的总时间TrackBar1.Value=d1TrackBar1.TickFrequency=d2TrackBar1.Maximum=d2m1=d1\60:s1=d1Mod60m2=d2\60:s2=d2Mod60仅供个人参考不得用于商业用途Label1.Text=已播放&m1&:&Format(s1,00)&(&m2&:&Format(s2,00)&)'显示播放进度Ifm1=m2Andm10Ands1=s2ThenIfRadioButton1.Checked=TrueThenn=selIndexListView1.Items(n).Selected=Falsen=n+1Ifn-1ThenListView1.Items(n).Selected=Truebf()EndIfElseIfRadioButton2.Checked=TrueThenn=selIndexListView1.Items(n).Selected=FalseRandomize()n=CInt(Int((-1-0+1)*Rnd()))ListView1.Items(n).Selected=Truebf()Elsebf()EndIfEndIfEndSub7'列表视图控件PrivateSubListView1_DoubleClick(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesListView1.DoubleClickDimstrAsStringselIndex=ListView1.SelectedItems(0).Text-1FileName='获取歌曲名称path='获取歌曲路径AxWindowsMediaPlayer1.URL=path'设置播放文件'开始播放Label2.Text=FileNameTimer1.Enabled=TrueButton2.Enabled=Truestr=FileName.Substring(FileName.LastIndexOf(.))FileName=FileName.Remove(FileName.Length-str.Length,str.Length)Label2.Text=FileNameEndSub8'删除PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickDimINQAsIntegerDimriAsInteger仅供个人参考不得用于商业用途DimcountAsIntegerINQ=ListView1.SelectedItems(0).Text-1ListView1.Items(INQ).Remove()count=Forri=0Tocount-1ListView1.Items(ri).SubItems(0).Text=Str(ri+1)NextEndSub9'左声道PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.Click=-100EndSub10'右声道PrivateSubButton7_Click(ByValsenderAsSystem.Obje