visual basic 6.0编写小闹钟程序课程设计

《visual basic 6.0编写小闹钟程序课程设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、-南昌航空工业学院-计算机课程设计系别：班级：姓名：同组人：指导老师：-7-目录一．实验目的………………………………………………2二．实验原理及步骤………………………………………2三．附录……………………………………………………3流程图……………………………………………………………………4执行界面…………………………………………………………………5程序源代码………………………………………………………………6四．参考书目………………………………………………7五．心

2、得体会………………………………………………7-7-一．实验目的编写一个带有闹钟的小时钟（指针式）二．实验原理及步骤（1）启动VisualBasic6.0，选择“标准EXE”，单击“打开”按钮，VB自动创建一个名为“工程一”的标准工程，同时创建一个名为“Form1”的窗体。（2）在窗体上添加一个Timer控件（用于时间的控制）、一个Label控件（用于提示信息的显示）、两个CommandButter控件，如图一所示。（3）在“定时”的功能中要设置响铃的时间。为“闹钟定时”编写代码，（参见附录）。（4）为Tim

3、er控件编写代码，（参见附录）。（5）运行程序，观看结果，初始界面如图二所示。设置闹钟时间，如图二所示。输入错误提示，如图三所示。执行闹钟功能，如图四所示。-7-三．附录程序流程图：定义时间变量t在InputBox中输入响铃时间是否为时间？响铃时间=时间输入时间>时间将响铃时间记录在AlarmTime中输入时间=时间响铃时间>时间提醒NYNYNYNYNYN-7-执行界面：（图片一）（图片二）（图片三）-7-（图片四）程序源代码：PublicAlarmTime-------------------------

4、------------------------------------------------------------------------PrivateSubCommand1_Click()Dimtt=AlarmTimeAlarmTime=InputBox("Entertheringtime:","Alarm",AlarmTime)IfAlarmTime=""Andt=""ThenExitSubIfAlarmTime=""Andt<>""ThenAlarmTime=TEMPIfAlarmTime=""

5、ThenExitSubIfNotIsDate(AlarmTime)Then'判断date是否可以转换为时间MsgBox"Thetimeyouenteredwasnotvalid."ElseAlarmTime=CVDate(AlarmTime)'返回转换成时间类型的表达式EndIfEndSub-------------------------------------------------------------------------------------------------PrivateSubSet

6、CaptionTime()-7-Caption=Format(Time,"ShortTime")EndSub-------------------------------------------------------------------------------------------------PrivateSubCommand2_Click()EndEndSub----------------------------------------------------------------------

7、---------------------------PrivateSubLabel1_Click()Label1.BorderStyle="1-Fixedsingle"EndSub-------------------------------------------------------------------------------------------------PrivateSubTimer1_Timer()Timer1.Interval=1000StaticAlarmedAsIntegerIf

8、Label1.Caption<>CStr(Time)ThenIfTime=AlarmTimeAndNotAlarmedThen'判断是否重复响铃MsgBox("Ring!"&vbCrLf&Time)Alarmed=TrueElseIfTime