最新vb课程设计-全自动音乐打铃软件的设计.doc

《最新vb课程设计-全自动音乐打铃软件的设计.doc》由会员分享，可在线阅读，更多相关《最新vb课程设计-全自动音乐打铃软件的设计.doc（18页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精品资料vb课程设计-全自动音乐打铃软件的设计.目录1 选题背景21.1 背景21.2 设计要求21.3 指导思想22 方案论证23 程序设计论述2 3.1 程序工作23.2 控件属性说明43.3 程序代码（附带解释说明）44 结果分析114.1 运行结果11 4.2 结果分析155 总结15设计体会及今后的改进意见16参考文献资料171 选题背景1.1 背景如今，许多学校、工矿等单位都安装音乐打铃器，音乐打铃已成为一种时尚的打铃方式，它改进了传统单调的打铃方式，让打铃方式变得丰富多彩。因此，我选择了全自动打铃软件作为我的课程设计课题。1.2 设计要求设计基本要求为定时播出，以周为单位，可以在

2、任意天任意时间设定播放音乐铃声。可以任意控制播放时间的长短，在设定的时间内会连续播放，结束时间一到即会停止。可设置多套播放计划，根据需要随时启用。内置十首铃声，支持自定义铃声名称及音乐。设置计划时也可指定磁盘上的文件，支持WAV、MID、MP3等音乐文件格式。 软件界面简洁实用，可以随时手动播放需要的铃声，或者暂时屏蔽某个不需要的铃声。1.3 指导思想本程序设计主要是用到windows media player播放器控件、定时器、对话框、列表框、文件列表框和组合框的使用方法。选择结构和循环结构的设计使用。2 方案论证最初的设计方案只用列表框加载音乐，用MMControl播放控件进行播放，但是添

3、加音乐后，音乐不播放，加之对此播放控件不太熟悉，编程较慢，且出现错误较多就放弃了此计划。 后来的改进的计划是加载windows media player控件，设计两个命令按钮“默认列表”、“自定义列表”分别用来切换默认列表与自定义列表两个播放列表，其中默认列表对应firelist1，内置十首默认铃声；自定义列表对应list1，可以通过单击“添加文件”按钮添加自己要选的指定格式的音乐。当在任意一个text1文本框中输入上课或下课时间后（考虑到学校上下课的时间基本精确到分钟，所以程序设计是按此设计的，输入时间时，就精确到分钟即可），当到达此时间后，按照所选计划进行播放，当播放进度与设置的播放时长相

4、等时，结束播放。同时，用户双击列表中的音乐后，也可以使其播放。并且可以通过“删除”按钮删除自定义列表中不想要的铃声，也可以按“清空”按钮清空自定义列表。在周末的时候，设计为不打铃，以周开始循环打铃。综上，通过改变设计思路，自动打铃最后实现。3 程序设计论述3.1 设计工作简述该课程设计历时5天完成：第一天：进行总体的设计，确定设计思路，即具体编程设计步骤。第二天：进行初步编程。进行界面设计，编辑添加音乐到播放列表以及双进行播放的程序。第三天：完成剩余程序设计，主要是控制定时打铃的程序。并验证正确性。第四天：上级验证程序正确性，并进行改进。第五天：编写课程设计报告，并打印成稿。3.2 控件属性说

5、明表3-2 控件属性表控件名称重要属性值说明Windowsmediaplayer1播放铃声Command1Caption-添加文件在列表框添加音乐Command2Caption-删除删除自定义列表所选音乐Command3Caption-清空清空列表Command4Caption-退出退出程序Command5Caption-默认列表单击后只显现filelist1，用来切换列表Command6Caption-自定义列表单击后只显现list1，用来切换列表Command7Caption-默认时间Command8Caption-清空时间Text1数组用来输入时间Text2设定播放时长Text3播放音乐

6、时，显示进度Text4显示正在播放的曲目Text5当选择“用户选择铃声”计划时，显示所选铃声Label1显示现在的日期、时间Label2Caption-北京时间：Label3Caption-第一节Label4Caption-第二节Label5Caption-第三节Label6Caption-第四节Label7Caption-第五节Label8Caption-第六节Label9Caption-第七节Label10Caption-第八节Label11Caption-上课时间Label12Caption-下课时间Label13Caption-正在播放Label14Caption-播放时长（秒）Lab

7、el15Caption-播放计划Label16Caption-播放进度（秒）Label17Caption-所选歌曲Filelist1加载默认列表的歌曲曲目List1加载自定义列表的歌曲曲目Combo1List(0)=”用户选择铃声”List(1)=”随机随机播放指定列表铃声”播放计划Image1加载陕西科技大学图标Commondialog1Timer1Interval=1000控制自动播放Timer2Interval=1000在label1显示现在时间Timer3Interval=1000后变为60000到达时间，根据所选播放计划，调用Timer2Timer4Interval=1000显示播放

8、进度，并控制播放时长3.3 程序代码（附带解释说明）Option ExplicitDim a(), b() 声明数组a(),b(),其分别用来保存自定义列表中各项的路径和文件名Dim x As String 保存将时间转为字符串的变量Dim n As Integer 表示text1数组的下标当点击组合框中的第一项是，选择铃声（请事先选好铃声）Private Sub Combo1_Click()1If Combo1.ListIndex = 0 Then 当第一项被选中时，弹出对话框 MsgBox 请选择铃声 如果在默认列表或自定义列表内选择铃声，将其赋给text5 If File1.Visibl

9、e = True Then Text5.Text = File1.List(File1.ListIndex) Else Text5.Text = List1.List(List1.ListIndex) End IfEnd IfEnd Sub强行结束程序Private Sub Command4_Click()EndEnd Sub点击command5即默认列表按钮时，文件列表框显示,列表框不显示Private Sub Command5_Click()List1.Visible = FalseFile1.Visible = TrueEnd Sub点击command6即自定义列表按钮时，文件列表框显示

10、,列表框不显示Private Sub Command6_Click()List1.Visible = TrueFile1.Visible = FalseEnd Sub点击command7即默认时间按钮时，在text1控件数组中显示默认时间Private Sub Command7_Click() Text1(0).Text = 08:00 Text1(1).Text = 08:50 Text1(2).Text = 09:00 Text1(3).Text = 09:50 Text1(4).Text = 10:05 Text1(5).Text = 10:55 Text1(6).Text = 11:0

11、5 Text1(7).Text = 11:50 Text1(8).Text = 14:00 Text1(9).Text = 14:50 Text1(10).Text = 15:00 Text1(11).Text = 15:50 Text1(12).Text = 16:05 Text1(13).Text = 16:55 Text1(14).Text = 17:05 Text1(15).Text = 17:55End Sub点击command8即清空时间按钮时，清空所有时间Private Sub Command8_Click()For n = 0 To 15 Text1(n).Text = Nex

12、t nEnd Sub双击文件列表框中某一项时，播放所选歌曲Private Sub File1_DblClick() WindowsMediaPlayer1.URL = App.Path & mp3 & File1.List(File1.ListIndex) 2 WindowsMediaPlayer1.Controls.play Text4.Text = File1.List(File1.ListIndex) Text4显示正在播放的歌曲End SubPrivate Sub Form_Load() Show Timer1.Interval = 1000 Timer2.Interval = 100

13、0 Timer3.Interval = 1000 Timer1.Enabled = False timer1不可用，防止选中歌曲就进行打铃 File1.Visible = True 加载窗体时只显示默认列表 List1.Visible = False MsgBox 请添加铃声 File1.Path = App.Path & mp3 此处为默认音乐，其所在文件夹与工程文件放在一起，名为“mp3”的文件夹 Text1(0).Text = 08:00 加载默认时间 Text1(1).Text = 08:50 Text1(2).Text = 09:00 Text1(3).Text = 09:50 Te

14、xt1(4).Text = 10:05 Text1(5).Text = 10:55 Text1(6).Text = 11:05 Text1(7).Text = 11:50 Text1(8).Text = 14:00 Text1(9).Text = 14:50 Text1(10).Text = 15:00 Text1(11).Text = 15:50 Text1(12).Text = 16:05 Text1(13).Text = 16:55 Text1(14).Text = 17:05 Text1(15).Text = 17:55 如果今天是周末，则不打铃 If Weekday(Date) =

15、1 Or Weekday(Date) = 7 Then MsgBox 今天周末，不执行程序 Timer1.Enabled = False Timer3.Enabled = False End IfEnd SubPrivate Sub Command1_Click()3 定义i,j两个静态变量用来，其为数组a()，b()的下标 Static i As Integer, j As Integer 定义动态数组a(i), b(j)，且值保存，分别用于记录列表框中各项的路径和文件名 ReDim Preserve a(i), b(j) 筛选指定格式的文件 CommonDialog1.Filter=”全部

16、格式 |*.*|*.mp3|*.mp3|*.wma|*.wma|*.wmv|*.wmv|*.mid|*.mid” CommonDialog1.InitDir = D: CommonDialog1.Action = 1 If CommonDialog1.FileName = Then 如果没选择文件，退出工程 Exit Sub Else 若选中，文件路径赋给a（），文件名赋给b（）。i,j分别加1，当添加文件后，继续执行 a(i) = CommonDialog1.FileName b(j) = CommonDialog1.FileTitle List1.AddItem b(j) i = i +

17、1 j = j + 1 End IfEnd Sub点击command2即“删除”按钮时，删除自定义列表中所选项Private Sub Command2_Click()List1.RemoveItem List1.ListIndexEnd Sub点击command3即“清空”按钮时，清空自定义列表内所有项Private Sub Command3_Click()List1.ClearEnd Sub双击文列表框中某一项时，播放所选歌曲Private Sub List1_DblClick() WindowsMediaPlayer1.URL = a(List1.ListIndex) WindowsMed

18、iaPlayer1.Controls.play Text4.Text = List1.List(List1.ListIndex)End Sub执行播放器控件自动打铃的命令Private Sub Timer1_Timer() 首先判断列表框中的项是否被选中，如果选中，往下执行 If List1.ListIndex -1 Then 判断播放器是否正在播放，如果正在播放，则停止， 自动播放令选择的列表项，以防设置的播放时间超过打铃时间间隔 ， 播放后，timer1都要停止工作，否则不会播放，下同 If WindowsMediaPlayer1.playState = 3 Then 4 WindowsM

19、ediaPlayer1.Controls.stop WindowsMediaPlayer1.URL = a(List1.ListIndex) WindowsMediaPlayer1.Controls.play Text4.Text = List1.List(List1.ListIndex) Timer1.Enabled = False Else 如果播放器处于停止或闲置状态，则播放列表框内所选列表项 WindowsMediaPlayer1.URL = a(List1.ListIndex) WindowsMediaPlayer1.Controls.play Text4.Text = List1.

20、List(List1.ListIndex) Timer1.Enabled = False End If End If 首先判断文件列表框中的项是否被选中，如果选中，往下执行 If File1.ListIndex -1 Then 判断播放器是否正在播放，如果正在播放，则停止， 自动播放令选择的列表项，以防设置的播放时间超过打铃时间间隔 If WindowsMediaPlayer1.playState = 3 Then WindowsMediaPlayer1.Controls.stop WindowsMediaPlayer1.URL = App.Path & mp3 & File1.List(Fi

21、le1.ListIndex) WindowsMediaPlayer1.Controls.play Text4.Text = File1.List(File1.ListIndex) Timer1.Enabled = False Else 如果播放器处于停止或闲置状态，则播放文件框内的所选列表项 WindowsMediaPlayer1.URL = App.Path & mp3 & File1.List(File1.ListIndex) WindowsMediaPlayer1.Controls.play Text4.Text = File1.List(File1.ListIndex) Timer1.

22、Enabled = False End If End IfEnd Sub在label1内显示时间，将其转为字符串格式Private Sub Timer2_Timer()Label1.Caption = Format(Now, yyyy年m月dd日hh:mm:ss dddd)5End Sub根据播放计划，调用自动打铃程序Private Sub Timer3_Timer()Dim y As Integer, z As Integerx = Format(Time, hh:mm) 转化时间为只有小时和分钟的字符串格式从015判断，如果其中某一文本框与转化后的时间相等，根据组合框所选择的播放计划,调用

23、timer1进行自动打铃For n = 0 To 15 当text控件数组中某一项等于转化格式后的时间是，往下执行 If Text1(n).Text = x Or Text1(n).Text = 0 & x Then Select Case Combo1.ListIndex 选择组合框中的播放计划 Case 0 用户选择铃声 根据一开始时选择的播放铃声，在文件列表框和列表框内找寻索引号 If File1.List(y) = Text5.Text Then File1.ListIndex = y End If If List1.List(z) = Text5.Text Then List1.Li

24、stIndex = z End If Case 1 随机播放所选列表的铃声(换列表时请再点一下此计划） 判定所选列表，进行随机选择 Text5.Text = 清空text5 If File1.Visible = True Then File1.ListIndex = Int(Rnd * File1.ListCount) End If If List1.Visible = True Then List1.ListIndex = Int(Rnd * List1.ListCount) End If End Select 加载窗体时，timer3循环间隔为1秒，直至满足上面的相等条件，调用timer2

25、 然后改为1分钟循环判断一次，否则每秒都在循环，不断调用timer2，播放器无法播放 Timer3.Interval = 60000 Timer1.Enabled = True End If Next nEnd Sub控制播放时长Private Sub Timer4_Timer()text3显示播放器的播放进度，且将播放进度转化为整形显示Text3.Text = CInt(WindowsMediaPlayer1.Controls.currentPosition)当播放进度与设定播放时长相等时，则停止打铃If Val(Text2.Text) = Val(Text3.Text) Then Wind

26、owsMediaPlayer1.Controls.stop End IfEnd Sub4 结果分析4.1 运行结果图4-1 设计界面图4-2 启动界面图4-3 点击对话框后的界面图4-4 在默认列表双击播放歌曲的界面图4-5 在自定义列表双击播放歌曲的界面图4-6 选择用户计划1后到15：25开始播指定铃声（播放会有延时）图4-7 选择用户计划2后到15：33开始随机选歌打铃（播放会有延时）图4-8 可不选播放计划，按用户所选歌曲播放（播放会有延时）4.2 结果分析该程序基本可以执行所要求打铃命令，但也存在一些些缺陷，如：在选择播放计划1前必须先选定歌曲，否则Text5不显示。不能完成分别设置

27、上课铃声和下课铃声。5 总结这次课程设计我做的题目是制作一个全自动音乐打铃软件，虽然有一定难度，但是在不断的摸索、查资料下运用windows media player控件，结合列表框、文件列表框、定时器、组合框等的使用，最后完成软件的制作。虽然有很一些缺陷，但设计要求的打铃功能基本可以完成，自己非常满意最后的成果，它值得我付出那么多的汗水。设计体会及今后的改进意见 生活就是这样，汗水预示着结果也见证着收获。劳动是人类生存生活永恒不变的话题。通过实习，我才真正领略到“艰苦奋斗”这一词的真正含义，我才意识到老一辈电子设计为我们的社会付出。我想说，设计确实有些辛苦，但苦中也有乐，在如今单一的理论学习

28、中，很少有机会能有实践的机会，但我们可以，而且设计也是一个团队的任务，一起的工作可以让我们有说有笑，相互帮助，配合默契，多少人间欢乐在这里洒下，大学里一年的相处还赶不上这十来天的合作，我感觉我和同学们之间的距离更加近了；我想说，确实很累，但当我们看到自己所做的成果时，心中也不免产生兴奋； 正所谓“三百六十行，行行出状元”。我们同样可以为社会作出我们应该做的一切，这有什么不好？我们不断的反问自己。也许有人不喜欢这类的工作，也许有人认为设计的工作有些枯燥，但我们认为无论干什么，只要人生活的有意义就可。社会需要我们，我们也可以为社会而工作。既然如此，那还有什么必要失落呢？于是我们决定沿着自己的路，执

29、着的走下去。通过这次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能真正为社会服务，从而提高自己的实际动手能力和独立思考的能力。在设计的过程中遇到问题，可以说得是困难重重，这毕竟第一次做的，难免会遇到过各种各样的问题，同时在设计的过程中发现了自己的不足之处，对以前所学过的知识理解得不够深刻，掌握得不够牢固。 对我们而言，知识上的收获重要，精神上的丰收更加可喜。挫折是一份财富，经历是一份拥有。这次课程设计必将成为我人生旅途上一个非常美好的回忆！参 考 文 献1张路平,喻波,邵谦谦.Visual Basic6.0编程案例精解.电子工业出版社.2005-042陆毅.Visual Basic实例教程.科学出版社.2002-093林卓然.Visual Basic程序设计教程(第2版) .电子工业出版社.2010-114龚沛曾,陆慰民,杨志强.Visual Basic程序设计教程.高等教育出版社.2000-075邵洁.Visual Basic程序设计(第三版).东南大学出版社.2006-02