vb课程设计全自动音乐打铃软件的设计备课讲稿.docx

1、vb课程设计全自动音乐打铃软件的设计备课讲稿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 方案论证最初的设计方案只用列表框加载音乐，用MMCont

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

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

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

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

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

8、terval=1000显示播放进度，并控制播放时长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

9、If File1.Visible = 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

11、(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:55End Sub点击command8即清空时间按钮时，清空所有时间Private Sub Command8_Click()For n = 0 To 15 Text

12、1(n).Text = Next 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

13、.Interval = 1000 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).

14、Text = 09:50 Text1(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 W

15、eekday(Date) = 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) 筛选指定格式的文件 CommonDia

16、log1.Filter=”全部格式 |*.*|*.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.AddIte

17、m b(j) i = i + 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.ListIn

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

19、Then 4 WindowsMediaPlayer1.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 Text

20、4.Text = List1.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

21、& File1.List(File1.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.Lis

22、tIndex) Timer1.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.Tex

24、t Then List1.ListIndex = 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秒，直至满足上

25、面的相等条件，调用timer2 然后改为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 WindowsMediaPlayer1.Controls.stop End IfEnd Sub4 结果分析4.1 运行结果图4-1 设计界面图4-2 启动界面图4-3 点击对话框后的界