Visual Basic课程设计微型小助手报告书.docVIP

Visual Basic课程设计微型小助手报告书 单 位： 专 业： 学 号： 学生姓名： 指导教师： 完成日期 年 月 日 目录 摘要 3 第一章 选题的意义 3 第二章 系统设计 3 2.1设计思想 3 2.2 主要界面设计 4 2.3 中心算法代码说明 9 2.3.1 记事本中心代码 9 2.3.1 设定时间中心代码 10 2.3.3 计算器中心代码 10 2.3.4 相册中心代码 14 2.3.5 电话本中心代码 14 2.3.6 时间显示中心代码 16 2.3.7 日历中心代码 18 第三章 系统实现 21 3.1 程序代码 21 3.1.1 主窗体代码 21 3.1.2 记事本代码 22 3.1.3 设定时间代码 23 3.1.4 计算器代码 25 3.1.5 相册代码 29 3.1.6 电话本代码 30 3.1.7时间显示代码 32 3.1.8 日历代码 34 3.2 运行效果 37 第四章 总结 42 第五章 参考文献 42 摘要 该程序是用VB编写的一款软件，该软件的名称为“微型小助手”，从名字上就可以知道这是一款为大家带来方便的小程序，同时这款软件可以让初接触VB的人更有兴趣的学习此课程。 第一章 选题的意义 我选择的课程设计的题目是“微型小助手”。选择这个题目主要是想利用VB做一款方便大家的小软件，为自己和朋友带来一点小便利。通过本项课程设计，可以培养独立思考、 综合运用所学有关相应知识的能力，能更好的巩固《Visual Basic程序设计》课程学习的内容，掌握 工程软件设计的基本方法，强化上机动手编程能力，闯过理论与实践相结合的难关！更加了解了Visual Basic的好处和其可用性！同时增加了同学之间的团队合作精神！更加也体会到以后在工作中团队合作的重要性和必要性！使学生了解高级程序设计语言的结构，掌握基本的程序设计过程和技巧，掌握基本的分析问题和利用计算机求解问题的能力，具备初步的高级语言程序设计能力。为后续各门计算机课程的学习和毕业设计打下坚实基础。 2.3 中心算法代码说明 2.3.1 记事本中心代码 “新建“代码： Private Sub xj_Click() Text1.Text = jshb.Caption = Date End Sub “保存”代码： Private Sub bc_Click() If jshb.Caption = Date Then CommonDialog1.ShowSave sfilename = CommonDialog1.FileName Else sfilename = jshb.Caption End If If jshb.Caption = Date Then Set myfile = myfso.CreateTextFile(sfilename, True) myfile.Write Text1.Text sfilename = jshb.Caption End If myfile.Close End Sub “打开”代码： Private Sub dk_Click() CommonDialog1.ShowOpen sfilename = CommonDialog1.FileName If sfilename Then Text1.Text = Set myfile = myfso.OpenTextFile(sfilename, ForReading) Text1.Text = myfile.ReadAll End If jshb.Caption = sfilename myfile.Close End Sub “另存为：代码： Private Sub lcw_Click() CommonDialog1.ShowSave sfilename = CommonDialog1.FileName If jshb.Caption = Date Then Set myfile = myfso.CreateTextFile(sfilename, True) myfile.Write Text1.Text sfilename = jshb.Caption End If myfile.Close End Sub 2.3.1 设定时间中心代码 “设定时间“代码： Private Sub Timer1_Timer() If Val(Cy.Text) = Year(Now) And Val(Cm.Text) = Month(Now) And Val(Cd.Text) = Day(Now) And Val(Ch.Text) = Hour(Now) And Val(Cmm.Text) = Minute(Now)