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

目录1选题背景··································································21.1背景································································21.2设计要求····························································21.3指导思想····························································22方案论证··································································23程序设计论述······························································23.1程序工作····························································23.2控件属性说明························································43.3程序代码（附带解释说明）·············································44结果分析·································································114.1运行结果···························································114.2结果分析···························································155总结·····································································15设计体会及今后的改进意见···················································16参考文献资料·······························································1711选题背景1.1背景如今，许多学校、工矿等单位都安装音乐打铃器，音乐打铃已成为一种时尚的打铃方式，它改进了传统单调的打铃方式，让打铃方式变得丰富多彩。因此，我选择了全自动打铃软件作为我的课程设计课题。1.2设计要求设计基本要求为定时播出，以周为单位，可以在任意天任意时间设定播放音乐铃声。可以任意控制播放时间的长短，在设定的时间内会连续播放，结束时间一到即会停止。可设置多套播放计划，根据需要随时启用。内置十首铃声，支持自定义铃声名称及音乐。设置计划时也可指定磁盘上的文件，支持WAV、MID、MP3等音乐文件格式。软件界面简洁实用，可以随时手动播放需要的铃声，或者暂时屏蔽某个不需要的铃声。1.3指导思想本程序设计主要是用到windowsmediaplayer播放器控件、定时器、对话框、列表框、文件列表框和组合框的使用方法。选择结构和循环结构的设计使用。2方案论证最初的设计方案只用列表框加载音乐，用MMControl播放控件进行播放，但是添加音乐后，音乐不播放，加之对此播放控件不太熟悉，编程较慢，且出现错误较多就放弃了此计划。后来的改进的计划是加载windowsmediaplayer控件，设计两个命令按钮“默认列表”、“自定义列表”分别用来切换默认列表与自定义列表两个播放列表，其中默认列表对应firelist1，内置十首默认铃声；自定义列表对应list1，可以通过单击“添加文件”按钮添加自己要选的指定格式的音乐。当在任意一个text1文本框中输入上课或下课时间后（考虑到学校上下课的时间基本精确到分钟，所以程序设计是按此设计的，输入时间时，就精确到分钟即可），当到达此时间后，按照所选计划进行播放，当播放进度与设置的播放时长相等时，结束播放。同时，用户双击列表中的音乐后，也可以使其播放。并且可以通过“删除”按钮删除自定义列表中不想要的铃声，也可以按“清空”按钮清空自定义列表。在周末的时候，设计为不打铃，以周开始循环打铃。综上，通过改变设计思路，自动打铃最后实现。3程序设计论述23.1设计工作简述该课程设计历时5天完成：第一天：进行总体的设计，确定设计思路，即具体编程设计步骤。第二天：进行初步编程。进行界面设计，编辑添加音乐到播放列表以及双进行播放的程序。第三天：完成剩余程序设计，主要是控制定时打铃的程序。并验证正确性。第四天：上级验证程序正确性，并进行改进。第五天：编写课程设计报告，并打印成稿。3.2控件属性说明表3-2控件属性表控件名称重要属性值说明Windowsmediaplayer1播放铃声Command1Caption-添加文件在列表框添加音乐Command2Caption-删除删除自定义列表所选音乐Command3Caption-清空清空列表Command4Caption-退出退出程序Command5Caption-默认列表单击后只显现filelist1，用来切换列表Command6Caption-自定义列表单击后只显现list1，用来切换列表Command7Caption-默认时间Command8Caption-清空时间Text1数组用来输入时间Text2设定播放时长Text3播放音乐时，显示进度Text4显示正在播放的曲目Text5当选择“用户选择铃声”计划时，显示所选铃声Label1显示现在的日期、时间Label2Caption-北京时间：Label3Caption-第一节Label4Caption-第二节Label5Caption-第三节3Label6Caption-第四节Label7Caption-第五节Label8Caption-第六节Label9Caption-第七节Label10Caption-第八节Label11Caption-上课时间Label12Caption-下课时间Label13Caption-正在播放Label14Caption-播放时长（秒）Label15Caption-播放计划Label16Caption-播放进度（秒）Label17Caption-所选歌曲Filelist1加载默认列表的歌曲曲目List1加载自定义列表的歌曲曲目Combo1List(0)=”用户选择铃声”List(1)=”随机随机播放指定列表铃声”播放计划Image1加载陕西科技大学图标Commondialog1Timer1Interval=1000控制自动播放Timer2Interval=1000在label1显示现在时间Timer3Interval=1000后变为60000到达时间，根据所选播放计划，调用Timer2Timer4Interval=1000显示播放进度，并控制播放时长3.3程序代码（附带解释说明）OptionExplicitDima(),b()'声明数组a(),b(),其分别用来保存自定义列表中各项的路径和文件名DimxAsString'保存将时间转为字符串的变量DimnAsInteger'表示text1数组的下标'当点击组合框中的第一项是，选择铃声（请事先选好铃声）—————————————————————————————————PrivateSubCombo1_Click()[1]IfCombo1.ListIndex=0Then'当第一项被选中时，弹出对话框MsgBox请选择铃声4'如果在默认列表或自定义列表内选择铃声，将其赋给text5IfFile1.Visible=TrueThenText5.Text=File1.List(File1.ListIndex)ElseText5.Text=List1.List(List1.ListIndex)EndIfEndIfEndSub—————————————————————————————————'强行结束程序PrivateSubCommand4_Click()EndEndSub—————————————————————————————————'点击command5即默认列表按钮时，文件列表框显示,列表框不显示PrivateSubCommand5_Click()List1.Visible=FalseFile1.Visible=TrueEndSub—————————————————————————————————'点击command6即自定义列表按钮时，文件列表框显示,列表框不显示PrivateSubCommand6_Click()List1.Visible=TrueFile1.Visible=FalseEndSub—————————————————————————————————'点击command7即默认时间按钮时，在text1控件数组中显示默认时间PrivateSubCommand7_Click()Text1(0).Text=08:00Text1(1).Text=08:50Text1(2).Text=09:00Text1(3).Text=09:50Text1(4).Text=10:05Text1(5).Text=10:55Text1(6).Text=11:055Text1(7).Text=11:50Text1(8).Text=14:00Text1(9).Text=14:50Text1(10).Text=15:00Text1(11).Text=15:50Text1(12).Text=16:05Text1(13).Text=16:55Text1(14).Text=17:05Text1(15).Text=17:55EndSub—————————————————————————————————'点击command8即清空时间按钮时，清空所有时间PrivateSubCommand8_Click()Forn=0To15Text1(n).Text=NextnEndSub—————————————————————————————————'双击文件列表框中某一项时，播放所选歌曲PrivateSubFile1_DblClick()WindowsMediaPlayer1.URL=App.Path&\mp3\&File1.List(File1.ListIndex)[2]WindowsMediaPlayer1.Controls.playText4.Text=File1.List(File1.ListIndex)'Text4显示正在播放的歌曲EndSub—————————————————————————————————PrivateSubForm_Load()ShowTimer1.Interval=1000Timer2.Interval=1000Timer3.Interval=1000Timer1.Enabled=False'timer1不可用，防止选中歌曲就进行打铃File1.Visible=True'加载窗体时只显示默认列表List1.Visible=FalseMsgBox请添加铃声File1.Path=App.Path&\mp3'此处为默认音乐，其所在文件夹与工程文件放在一6起，名为“mp3”的文件夹Text1(0).Text=08:00'加载默认时间Text1(1).Text=08:50Text1(2).Text=09:00Text1(3).Text=09:50Text1(4).Text=10:05Text1(5).Text=10:55Text1(6).Text=11:05Text1(7).Text=11:50Text1(8).Text=14:00Text1(9).Text=14:50Text1(10).Text=15:00Tex