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

-南昌航空工业学院-计算机课程设计系 别：班 级：姓 名：同 组 人：指导老师：目 录一实验目的2二实验原理及步骤2三附录3 流程图4 执行界面5 程序源代码6四参考书目7五心得体会7一实验目的编写一个带有闹钟的小时钟（指针式）二实验原理及步骤（1） 启动Visual Basic 6.0，选择“标准EXE”，单击“打开”按钮，VB自动创建一个名为“工程一”的标准工程，同时创建一个名为“Form1”的窗体。（2） 在窗体上添加一个Timer控件（用于时间的控制）、一个Label控件（用于提示信息的显示）、两个CommandButter控件，如图一所示。（3） 在“定时”的功能中要设置响铃的时间。为“闹钟定时”编写代码，（参见附录）。（4） 为Timer控件编写代码，（参见附录）。（5） 运行程序，观看结果，初始界面如图二所示。设置闹钟时间，如图二所示。输入错误提示，如图三所示。执行闹钟功能，如图四所示。三附录 程序流程图：定义时间变量t在InputBox中输入响铃时间是否为时间？响铃时间=时间输入时间时间将响铃时间记录在AlarmTime中输入时间=时间响铃时间时间提醒N Y N Y N Y N Y N Y N 执行界面：（图片一）（图片二）（图片三）（图片四）程序源代码：Public AlarmTime-Private Sub Command1_Click()Dim tt = 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 IfEnd Sub-Private Sub SetCaptionTime()Caption = Format(Time, Short Time)End Sub-Private Sub Command2_Click()EndEnd Sub-Private Sub Label1_Click()Label1.BorderStyle = 1-Fixed singleEnd Sub-Private Sub Timer1_Timer()Timer1.Interval = 1000Static Alarmed As Integer If Label1.Caption CStr(Time) Then If Time = AlarmTime And Not Alarmed Then 判断是否重复响铃 MsgBox (Ring ! & vbCrLf & Time) Alarmed = True ElseIf Time AlarmTime Then Alarmed = False End If Label1.FontName = Times New Roman Label1.FontSize = 36 Label1.Caption = Time End IfEnd Sub四参考书目Visual Basic程序设计教程 刘炳文 许蔓舒 编著Visual Basic 6.0编程实例 张宏林 周江峰 等编著Visual Basic 6.0编程实例大制作 李光明 主编Visual Basic 6.0程序设计教程 罗朝盛 主编VB Script可视化程序设计 刘炳文 编著五心得体会两周的计算机程序设计结束了，经过两周的翻阅资料和设计，以及把以前所学的运用到设计当中。对VB程序编程有了进一步的了解和认识，可以将其与实践相结合。小闹钟在生活中是一个小角色，但是确实一个必不可少的东西，它给了我们能准时工作，赴约，上课等。所以能编写一个像这样实用的程序，我感觉有很大的动力。两周课程设计过程体会到运用自己所学的知识付之于实际是一见相当振奋的事情。只有在这样的实习中才能了解到原来我们三年的大学生活不算荒废。虽然课程设计我们也做过了几次，但是和计算机相关的设计还是第一个，所以对这次设计有很大的兴趣。设计过程中让我懂得了课堂的知识只有在实际操作中的运用才能得到很好的发挥。设计中遇到了不少麻烦，通过老师的帮助，以及同组人和自己的理解