vb闹钟设计.docVIP

东华理工大学长江学院 Visual Basic 程序设计报告 课程设计题目：闹 钟 学 号： 学生姓名： 甘文俊 专 业： 计算机科学与技术 指导教师： 陈 锐 2010年5月 目录 一、功能描述 1 二、概要设计 1 三、详细设计 2 1、闹钟工作原理 2 2、流程图 3 2、界面设计 4 3、详解代码 4 四、系统效果及存在问题 9 1、主界面 9 2、设置闹钟 10 3、提醒界面 11 4、存在问题 11 五、心得体会。 12 六、参考文献 12 一、功能描述 1、显示当前时间 2、设定多个脑中时间，并记录在文件 3、自动提醒 4、设定提醒音乐 5、设置显示时间 二、概要设计 闹钟一共可分为三个模块：1、设置闹钟，2、提醒，3、退出；而设置闹钟又可分为：1、设置闹钟音乐，2、设置闹钟时间；设置闹钟时间又有添加，删除和修改三种操作。 图一：模块图 三、详细设计 1、闹钟工作原理 通过单击“开始”按钮，将label1.caption中的时间值和记录到文件中的时间依次作比较，当两者相等，自动弹出提醒功能，并播放音乐。 2、流程图 图二：流程图 2、界面设计 在Form1上添加五个command控件,分别命名为“设定时间”、“设置闹钟”、“退出”、“开始”、“停止”；然后再加2个label控件，第一个显示当前时间，第二个显示提醒内容；然后添加三个Timmer控件，它的Interval属性设置为1000，一个是为了控制当前系统时间的显示，一个是为了设置时间，最后一个是为了到时间提醒。 3、详解代码 1、自动加载form1，初始化所有控件的数据，并且读取指定路径的文件中 数据，然后将读出的数据用选择排序法，按先后顺序排序，最后记录比统 时间大的最小时间数据，以便闹钟判断。、 Private Sub Form_Load() Dim i As Integer, a As Integer, tmp As Date filenum = FreeFile Open d:\time.dat For Random As filenum Len = Len(t(i)) lastrecord = LOF(filenum) / Len(t(i)) If lastrecord 0 Then ReDim t(lastrecord - 1), t1(lastrecord - 1) Else ReDim t(0), t1(0) End If For i = 1 To lastrecord Get filenum, i, t(i - 1) t1(i - 1) = TimeSerial(Val(t(i - 1).shizhong), Val(t(i - 1).fenzhong), 0) Next i Close filenum For i = 0 To lastrecord - 2 For a = i + 1 To lastrecord - 1 If t1(a) t1(i) Then tmp = t1(a) t1(a) = t1(i) t1(i) = tmp End If Next a Next i For i = 0 To lastrecord - 1 If t1(i) time Then b = t1(i) Exit For End If If i = lastrecord - 1 Then b = t1(0) Exit For End If Next i End Sub 2、单击command1加载form2，以便用户设定闹钟时间和闹钟音乐。并且同时是form1失效。 Private Sub Command1_Click() Form2.Show Form1.Enabled = False End Sub 3、加载form2，使得form2的所有控件初始化数据，然后用户可以设置多个闹钟时间，并将其存储在指定的文件中，以供以后读取。 用户还可以设定闹钟音乐，系统记录下音乐路径，并在label1中显示。 Private t As time Public filenum As Integer Public lastrecord As Long Public position As Long Private Sub Command1_Click() CommonDialog1.Filter = allfile(*.*)|*.*|音乐(.mp3)|