《1234.VisualBasic时间日期的使用课程设计.doc》由会员分享，可在线阅读，更多相关《1234.VisualBasic时间日期的使用课程设计.doc（17页珍藏版）》请在三一办公上搜索。
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
16、、Msgbox函数与语句的写法会混淆3、字符串连接运算时，字符之间没有输入空格。五、心得体会 所谓“态度决定一切”，于是偶然又必然地收获了诸多，概而言之，对于这次的VB课程设计收获有以下几点：一、温故而知新。对于理论知识学习不够扎实的我深感“书到用时方恨少”，于是想起圣人之言“温故而知新”，便重拾教材，对知识系统而全面进行了梳理，遇到难处先是苦思冥想再向同学请教，终于熟练掌握了基本理论知识，而且领悟诸多平时学习难以理解掌握的较难知识，学会了如何思考的思维方式，找到了设计的灵感。二、实践出真知。文革之后，关于真理的大讨论最终结果是“实践是检验真理的唯一标准”。时至今日，课程设计基本告成，才切身领悟“实践是检验真理的唯一标准”，才明晓实践出真知。因为在教材上，各控件不过是属性、方法、事件的集合体而已，在实际应用中才知道，对于同一个现象可以有多种不同的实现方式，实践出真知。三、在课程设计过程中，我们不断发现错误，不断改正，不断领悟，不断获取。最终的检测调试环节，本身就是在践行“过而能改，善莫大焉”的知行观。六 、参考资料Visual Basic程序设计 谭浩强 清华大学出版社Visual Basic程序设计题解与上机指导 谭浩强 清华大学出版社
