1234.visual basic时间日期的使用-----课程设计

《1234.visual basic时间日期的使用-----课程设计》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、课程设计报告课程名称：VisualBasic设计题目：时间日期的使用班级：组员：指导教师：XXXX职业技术教育中心校二○○七～二○○八年度第二学期目录题目分析……………………………………………………………………（1）窗体设计……………………………………………………………………（1）属性代码实现………………………………………………………………（3）常见问题分析………………………………………………………………（4）心得体会……………………………………………………………………（4）参考资料………………………………………………

2、……………………（5）XXX职业技术教育中心校课程设计课程设计报告一、题目分析：题目要求：在“日期时间”窗体上添加5个命令按钮，功能如下单击“星期查询”按钮，切换到“星期查询”窗体；该窗体中的5个标签分别用于显示提示信息、说明信息或输出结果。从3个组合框中选择相应的年份、月份和日期后，单击“确定”按钮可在相应的标签中显示日期和对应的星期。单击“返回”按钮返回到启动窗体。单击“倒计时”按钮，切换到“倒计时”窗体。在该窗体的3个文本框中分别输入小时、分钟和秒，单击“计时”按钮对输入时间进行倒计时处理，剩余时间显示在标签中，

3、单击“停止”按钮停止计时。单击“返回”按钮回到“日期时间”窗体。单击“秒表”按钮，切换到“秒表”窗体。单击“开始”按钮，以秒表的形式进行计时；单击“返回”按钮返回到启动窗动。单击“闹钟”按钮，切换到“闹钟”窗体。进入“闹钟”窗体后，在相应文本框中输入时分秒时间，一旦系统时间达到设定的闹钟时间，闹铃持续响，直至关闭（闹钟无效）。单击“返回”按钮返回到“日期时间”窗体。单击“退出”按钮结束程序运行二、窗体设计：15XXX职业技术教育中心校课程设计对象属性属性值命令按钮1Caption星期查询名称Command1命令按钮2C

4、aption倒计时名称Command2命令按钮3Caption秒表名称Command3命令按钮4Caption闹钟名称Command4命令按钮5Caption退出名称Command5总窗口属性列表15XXX职业技术教育中心校课程设计对象属性属性值标签1caption年份标签2caption月份标签3caption日期组合框1名称Combo1组合框2名称Combo2组合框3名称Combo3文本框名称空Command1名称确定Command2名称返回对象属性属性值标签1caption设计倒计时标签2caption倒计时标签

5、3caption秒标签4caption剩余时间文本框1Text1空15XXX职业技术教育中心校课程设计文本框2Text2空Command1名称计时Command2名称停止Command3名称返回对象属性属性值Lable1Caption空Command1名称开始Command2名称停止Command3名称返回15XXX职业技术教育中心校课程设计对象属性属性值Lable1Caption当前时间Lable2空Lable3输入设定时间Lable4时Lable5分Lable6秒Text1空Text2空Text3空Check1时钟

6、有效Command1重新设定Command2返回三、属性代码实现总窗口PrivateSubCommand1_Click()Form1.HideForm2.ShowEndSubPrivateSubCommand2_Click()Form1.HideForm3.ShowEndSub15XXX职业技术教育中心校课程设计PrivateSubCommand3_Click()Form1.HideForm4.ShowEndSubPrivateSubCommand4_Click()Form1.HideForm5.ShowEndSubP

7、rivateSubCommand5_Click()EndEndSub星期查询Dimyear1AsInteger,month1AsInteger,day1AsIntegerDimyes_noAsBooleanPrivateSubCombo1_Click()IfCombo1.ListIndex=-1ThenCombo1.ListIndex=0EndIf15XXX职业技术教育中心校课程设计year1=Val(Combo1.Text)Combo2.Text="月份"Combo3.Text="日期"yes_no=(((year1

8、Mod4=0)And(year1Mod100<>0))Or(year1Mod400=0))EndSubPrivateSubCombo2_click()DimdaynumAsInteger,iAsIntegerIfCombo2.ListIndex=-1ThenCombo2.ListIndex=0EndIfmonth1=Val(Com