1234.VisualBasic时间日期的使用课程设计

1、课程设计报告课程名称： visual basic 设计题目： 时间日期的使用 班 级： 组 员： 指导教师： xxxx职业技术教育中心校二七二八 年度 第二学期 目 录题目分析（ 1 ）窗体设计（ 1 ）属性代码实现（ 3 ）常见问题分析（ 4 ）心得体会（ 4 ）参考资料（ 5 ）课程设计报告一、 题目分析：题目要求：在“日期时间”窗体上添加5个命令按钮，功能如下单击“星期查询”按钮，切换到“星期查询”窗体；该窗体中的5个标签分别用于显示提示信息、说明信息或输出结果。从3个组合框中选择相应的年份、月份和日期后，单击“确定”按钮可在相应的标签中显示日期和对应的星期。单击“返回”按钮返回到启动窗

2、体。单击“倒计时”按钮，切换到“倒计时”窗体。在该窗体的3个文本框中分别输入小时、分钟和秒，单击“计时”按钮对输入时间进行倒计时处理，剩余时间显示在标签中，单击“停止”按钮停止计时。单击“返回”按钮回到“日期时间”窗体。单击“秒表”按钮，切换到“秒表”窗体。单击“开始”按钮，以秒表的形式进行计时；单击“返回”按钮返回到启动窗动。单击“闹钟”按钮，切换到“闹钟”窗体。进入“闹钟”窗体后，在相应文本框中输入时分秒时间，一旦系统时间达到设定的闹钟时间，闹铃持续响，直至关闭（闹钟无效）。单击“返回”按钮返回到“日期时间”窗体。单击“退出”按钮结束程序运行二、窗体设计： 对象属性属性值命令按钮1capt

3、ion星期查询名称command1命令按钮2caption倒计时名称command2命令按钮3caption秒表名称command3命令按钮4caption闹钟名称command4命令按钮5caption退出名称command5总窗口属性列表对象属性属性值标签1caption年份标签2caption月份标签3caption日期组合框1名称combo1组合框2名称combo2组合框3名称combo3文本框名称空command1名称确定command2名称返回对象属性属性值标签1caption设计倒计时标签2caption倒计时标签3caption秒标签4caption剩余时间文本框1text1空

4、文本框2text2空command1名称计时command2名称停止command3名称返回对象属性属性值lable1caption空command1名称开始command2名称停止command3名称返回对象属性属性值lable1caption当前时间lable2空lable3输入设定时间lable4时lable5分lable6秒text1空text2空text3空check1时钟有效command1重新设定command2返回三、属性代码实现总窗口private sub command1_click()form1.hideform2.showend subprivate sub comma

5、nd2_click()form1.hideform3.showend subprivate sub command3_click()form1.hideform4.showend subprivate sub command4_click()form1.hideform5.showend subprivate sub command5_click()endend sub星期查询dim year1 as integer, month1 as integer, day1 as integerdim yes_no as booleanprivate sub combo1_click() if com

6、bo1.listindex = -1 then combo1.listindex = 0 end if year1 = val(combo1.text) combo2.text = 月份 combo3.text = 日期 yes_no = (year1 mod 4 = 0) and (year1 mod 100 0) or (year1 mod 400 = 0)end subprivate sub combo2_click()dim daynum as integer, i as integerif combo2.listindex = -1 then combo2.listindex = 0

7、end ifmonth1 = val(combo2.text) combo3.text = 日期combo3.clearselect case month1 case 1, 3, 5, 7, 8, 10, 12 daynum = 31 case 4, 6, 9, 11 daynum = 30 case 2 if yes_no = true then daynum = 29 else daynum = 28 end if end select for i = 1 to daynum step 1 combo3.additem str(i) next iend subprivate sub com

8、bo3_click()if combo3.listindex = -1 then combo3.listindex = 0end ifday1 = val(combo3.text)end subprivate sub command1_click()dim data1 as string, wkday as stringdata1 = str(year1) & / & str(month1) & / & str(day1)label4.caption = str(year1) & 年 & str(month1) & 月 & str(day1) & 日是 & 星期 & str(weekday(d

9、ata1) - 1)end subprivate sub command2_click()form2.hideform1.showend subprivate sub form_load()dim i as integerfor i = 1975 to 2050 step 1 combo1.additem str(i)next ifor i = 1 to 12 step 1 combo2.additem str(i) if combo1.listindex = -1 then year1 = year(now) end if if combo2.listindex = -1 then mont

10、h1 = month(now) end if if combo3.listindex = -1 then day1 = month(now) end ifnext iend sub计时器private sub command1_click()if val(text1.text) 1 then msgbox 输入的时间有误, 16, 提示 text1.text = text1.setfocuselse label6.caption = & text1.text timer1.enabled = trueend ifcommand1.enabled = falsecommand2.enabled

11、= trueend subprivate sub command2_click()timer1.enabled = falsetext1.text = text1.setfocuslabel6.caption = command1.enabled = truecommand2.enabled = falseend subprivate sub command3_click()form3.hideform1.showend subprivate sub timer1_timer()dim time1 as integertime1 = val(label6.caption)label6.capt

12、ion = str(time1 - 1)if time1 = 1 then msgbox 时间到！, 64, 提示 text1.text = text1.setfocus label6.caption = timer1.enabled = falseend ifend sub秒表dim time1 as dateprivate sub command1_click()timer1.enabled = truetime1 = 00:00:00command1.enabled = falsecommand2.enabled = trueend subprivate sub command2_cli

13、ck()timer1.enabled = falsecommand1.enabled = truecommand2.enabled = falseend subprivate sub command3_click()form4.hideform1.showend subprivate sub timer1_timer()time1 = dateadd(s, 1, time1)label1.caption = time1end sub.闹钟private sub check1_click()if check1.value = 1 then timer1.enabled = trueelse ti

14、mer2.enabled = false timer1.enabled = falseend ifend subprivate sub command1_click()timer1.enabled = falsetimer2.enabled = falsetext1.text = text2.text = text3.text = text1.setfocuscheck1.value = 0end subprivate sub command2_click()form5.hideform1.showend subprivate sub form_load()text1.text = text2

15、.text = text3.text = check1.value = 0end subprivate sub timer1_timer()if time = text1.text & : & text2.text & : & text3.text then timer2.enabled = trueend ifend subprivate sub timer2_timer() beepend subprivate sub timer3_timer()label5.caption = timeend sub四、常见问题分析1、应用计时器时，有时没有修改interval属性，导致计时器不工作。2、msgbox函数与语句的写法会混淆3、字符串连接运算时，字符之间没有输入空格。五、心得体会 所谓“态度决定一切”，于是偶然又必然地收获了诸多，概而言之，对于这次的vb课程设计收获有以下几点：一、温故而知新。对于理论知识学习不够扎实的我深感“书到用时方恨少”，于是想起圣人之言“温故而知新”，便重拾教材，对知识系统而全面进行了梳理，遇到难处先是苦思冥想再向同学请教，终于熟练掌握了基本理论知识，而且领悟诸多平时学习难以理解掌握的较难知识，学会了如何思考的思维方式，找到了设计的灵感。二、实践出真知。文革之后，关于真理的大讨论最终结果是“实践是检验真理的