Visual Basic 60编写小闹钟程序课程设计.doc

-南昌航空工业学院- 计算机课程设计 Visual Basic 6.0编写小闹钟程序 系 别： 班 级： 姓 名： 同 组 人： 指导老师： 目 录 一．实验目的………………………………………………2 二．实验原理及步骤………………………………………2 三．附录……………………………………………………3 流程图……………………………………………………………………4 执行界面…………………………………………………………………5 程序源代码………………………………………………………………6 四．参考书目………………………………………………7 五．心得体会………………………………………………7 一．实验目的 编写一个带有闹钟的小时钟（指针式） 二．实验原理及步骤 启动Visual Basic 6.0，选择“标准EXE”，单击“打开”按钮，VB自动创建一个名为“工程一”的标准工程，同时创建一个名为“Form1”的窗体。 在窗体上添加一个Timer控件（用于时间的控制）、一个Label控件（用于提示信息的显示）、两个CommandButter控件，如图一所示。 在“定时”的功能中要设置响铃的时间。为“闹钟定时”编写代码，（参见附录）。 为Timer控件编写代码，（参见附录）。 运行程序，观看结果，初始界面如图二所示。 设置闹钟时间，如图二所示。输入错误提示，如图三所示。 执行闹钟功能，如图四所示。 三．附录 程序流程图： 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.BorderStyl