vb课程设计-全自动音乐打铃软件的设计文档格式.doc
《vb课程设计-全自动音乐打铃软件的设计文档格式.doc》由会员分享，可在线阅读，更多相关《vb课程设计-全自动音乐打铃软件的设计文档格式.doc（18页珍藏版）》请在冰豆网上搜索。
17
1选题背景
1.1背景
如今，许多学校、工矿等单位都安装音乐打铃器，音乐打铃已成为一种时尚的打铃方式，它改进了传统单调的打铃方式，让打铃方式变得丰富多彩。
因此，我选择了全自动打铃软件作为我的课程设计课题。
1.2设计要求
设计基本要求为定时播出，以周为单位，可以在任意天任意时间设定播放音乐铃声。
可以任意控制播放时间的长短，在设定的时间内会连续播放，结束时间一到即会停止。
可设置多套播放计划，根据需要随时启用。
内置十首铃声，支持自定义铃声名称及音乐。
设置计划时也可指定磁盘上的文件，支持WAV、MID、MP3等音乐文件格式。
软件界面简洁实用，可以随时手动播放需要的铃声，或者暂时屏蔽某个不需要的铃声。
1.3指导思想
本程序设计主要是用到windowsmediaplayer播放器控件、定时器、对话框、列表框、文件列表框和组合框的使用方法。
选择结构和循环结构的设计使用。
2方案论证
最初的设计方案只用列表框加载音乐，用MMControl播放控件进行播放，但是添加音乐后，音乐不播放，加之对此播放控件不太熟悉，编程较慢，且出现错误较多就放弃了此计划。
后来的改进的计划是加载windowsmediaplayer控件，设计两个命令按钮“默认列表”、“自定义列表”分别用来切换默认列表与自定义列表两个播放列表，其中默认列表对应firelist1，内置十首默认铃声；
自定义列表对应list1，可以通过单击“添加文件”按钮添加自己要选的指定格式的音乐。
当在任意一个text1文本框中输入上课或下课时间后（考虑到学校上下课的时间基本精确到分钟，所以程序设计是按此设计的，输入时间时，就精确到分钟即可），当到达此时间后，按照所选计划进行播放，当播放进度与设置的播放时长相等时，结束播放。
同时，用户双击列表中的音乐后，也可以使其播放。
并且可以通过“删除”按钮删除自定义列表中不想要的铃声，也可以按“清空”按钮清空自定义列表。
在周末的时候，设计为不打铃，以周开始循环打铃。
综上，通过改变设计思路，自动打铃最后实现。
3程序设计论述
3.1设计工作简述
该课程设计历时5天完成：
第一天：
进行总体的设计，确定设计思路，即具体编程设计步骤。
第二天：
进行初步编程。
进行界面设计，编辑添加音乐到播放列表以及双进行播放的程序。
第三天：
完成剩余程序设计，主要是控制定时打铃的程序。
并验证正确性。
第四天：
上级验证程序正确性，并进行改进。
第五天：
编写课程设计报告，并打印成稿。
3.2控件属性说明
表3-2控件属性表
控件名称
重要属性值
说明
Windowsmediaplayer1
播放铃声
Command1
Caption-添加文件
在列表框添加音乐
Command2
Caption-删除
删除自定义列表所选音乐
Command3
Caption-清空
清空列表
Command4
Caption-退出
退出程序
Command5
Caption-默认列表
单击后只显现filelist1，用来切换列表
Command6
Caption-自定义列表
单击后只显现list1，用来切换列表
Command7
Caption-默认时间
Command8
Caption-清空时间
Text1数组
用来输入时间
Text2
设定播放时长
Text3
播放音乐时，显示进度
Text4
显示正在播放的曲目
Text5
当选择“用户选择铃声”计划时，显示所选铃声
Label1
显示现在的日期、时间
Label2
Caption-北京时间：
Label3
Caption-第一节
Label4
Caption-第二节
Label5
Caption-第三节
Label6
Caption-第四节
Label7
Caption-第五节
Label8
Caption-第六节
Label9
Caption-第七节
Label10
Caption-第八节
Label11
Caption-上课时间
Label12
Caption-下课时间
Label13
Caption-正在播放
Label14
Caption-播放时长（秒）
Label15
Caption-播放计划
Label16
Caption-播放进度（秒）
Label17
Caption-所选歌曲
Filelist1
加载默认列表的歌曲曲目
List1
加载自定义列表的歌曲曲目
Combo1
List（0）=”用户选择铃声”
List
（1）=”随机随机播放指定列表铃声”
播放计划
Image1
加载陕西科技大学图标
Commondialog1
Timer1
Interval=1000
控制自动播放
Timer2
在label1显示现在时间
Timer3
Interval=1000后变为60000
到达时间，根据所选播放计划，调用Timer2
Timer4
显示播放进度，并控制播放时长
3.3程序代码（附带解释说明）
OptionExplicit
Dima（）,b（）'
声明数组a（）,b（）,其分别用来保存自定义列表中各项的路径和文件名
DimxAsString'
保存将时间转为字符串的变量
DimnAsInteger'
表示text1数组的下标
'
当点击组合框中的第一项是，选择铃声（请事先选好铃声）
—————————————————————————————————
PrivateSubCombo1_Click（）[1]
IfCombo1.ListIndex=0Then'
当第一项被选中时，弹出对话框
MsgBox"
请选择铃声"
'
如果在默认列表或自定义列表内选择铃声，将其赋给text5
IfFile1.Visible=TrueThen
Text5.Text=File1.List（File1.ListIndex）
Else
Text5.Text=List1.List（List1.ListIndex）
EndIf
EndIf
EndSub
强行结束程序
PrivateSubCommand4_Click（）
End
点击command5即默认列表按钮时，文件列表框显示,列表框不显示
PrivateSubCommand5_Click（）
List1.Visible=False
File1.Visible=True
点击command6即自定义列表按钮时，文件列表框显示,列表框不显示
PrivateSubCommand6_Click（）
List1.Visible=True
File1.Visible=False
点击command7即默认时间按钮时，在text1控件数组中显示默认时间
PrivateSubCommand7_Click（）
Text1（0）.Text="
08:
00"
Text1
（1）.Text="
50"
Text1
（2）.Text="
09:
Text1（3）.Text="
Text1（4）.Text="
10:
05"
Text1（5）.Text="
55"
Text1（6）.Text="
11:
Text1（7）.Text="
Text1（8）.Text="
14:
Text1（9）.Text="
Text1（10）.Text="
15:
Text1（11）.Text="
Text1（12）.Text="
16:
Text1（13）.Text="
Text1（14）.Text="
17:
Text1（15）.Text="
点击command8即清空时间按钮时，清空所有时间
PrivateSubCommand8_Click（）
Forn=0To15
Text1（n）.Text="
"
Nextn
双击文件列表框中某一项时，播放所选歌曲
PrivateSubFile1_Db
升级会员 