Visual Basic 6.0编写小闹钟程序课程设计.docVIP

PAGE 0 - -南昌航空工业学院- 计算机课程设计 Visual Basic 6.0编写小闹钟程序 系 别： 班 级： 姓 名： 同 组 人： 指导老师： 目 录 一．实验目的………………………………………………2 二．实验原理及步骤………………………………………2 三．附录……………………………………………………3 流程图……………………………………………………………………4 执行界面…………………………………………………………………5 程序源代码………………………………………………………………6 四．参考书目………………………………………………7 五．心得体会………………………………………………7 一．实验目的 编写一个带有闹钟的小时钟（指针式） 二．实验原理及步骤 启动Visual Basic 6.0，选择“标准EXE”，单击“打开”按钮，VB自动创建一个名为“工程一”的标准工程，同时创建一个名为“Form1”的窗体。 在窗体上添加一个Timer控件（用于时间的控制）、一个Label控件（用于提示信息的显示）、两个CommandButter控件，如图一所示。 在“定时”的功能中要设置响铃的时间。为“闹钟定时”编写代码，（参见附录）。 为Timer控件编写代码，（参见附录）。 运行程序，观看结果，初始界面如图二所示。 设置闹钟时间，如图二所示。输入错误提示，如图三所示。 执行闹钟功能，如图四所示。 三．附录 程序流程图： 定义时间变量 定义时间变量t 在InputBox中输入响铃时间 是否为时间？ 响铃时间=时间 输入时间时间 将响铃时间记录在AlarmTime中 输入时间=时间 响铃时间时间 提醒 N Y N Y N Y N Y N Y N 执行界面： （图片一） （图片二） （图片三） （图片四） 程序源代码： Public AlarmTime Private Sub Command1_Click() Dim t t = AlarmTime AlarmTime = InputBox(Enter the ring time:, Alarm, AlarmTime) If AlarmTime = And t = Then Exit Sub If AlarmTime = And t Then AlarmTime = TEMP If AlarmTime = Then Exit Sub If Not IsDate(AlarmTime) Then 判断date是否可以转换为时间 MsgBox The time you entered was not valid. Else AlarmTime = CVDate(AlarmTime) 返回转换成时间类型的表达式 End If End Sub Private Sub SetCaptionTime() Caption = Format(Time, Short Time) End Sub Private Sub Command2_Click() End End Sub Private Sub Label1_Click() Label1.BorderStyle = 1-Fixed single End Sub Private Sub Timer1_Timer() Timer1.Interval = 1000 Static Alarmed As Integer If Label1.Caption CStr(Time) Then If Time = AlarmTime And Not Alarmed Then 判断是否重复响铃 MsgBox (Ring ! vbCrLf Time) Alarmed =