visualbasic课程设计微型小助手报告书

《visualbasic课程设计微型小助手报告书》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VisualBasic课程设计微型小助手报告书单位:专业:学号:学生姓名:指导教师:完成日期年月曰目录摘要3第一章选题的意义3第二章系统设计32.1设计思想32.2主要界面设计42.3中心算法代码说明92.3.1记事本中心代码92.3.1设定时间中心代码102.3.3计算器中心代码102.3.4相册中心代码142.3.5电话本中心代码142.3.6时间显示中心代码162.3.7口历中心代码18第三章系统实现213.1程序代码213.1.1主窗体代码213.1.2记事本代码223.1.3设定时间代码233.1.4计算器代码2

2、53.1.5相册代码293.1.6电话本代码303.1.7时间显示代码323.1.8日历代码343.2运行效果37第四章总结4242第五章参考文献摘要该程序是用VB编写的一款软件，该软件的名称为“微型小助手”，从名字上就可以知道这是一款为大家带来方便的小程序，同时这款软件可以让初接触VB的人更有兴趣的学习此课程。第一章选题的意义我选择的课程设计的题目是“微型小助手”。选择这个题目主要是想利用VB做一款方便大家的小软件，为自己和朋友带来一点小便利。通过木项课程设计，可以培养独立思考、综合运用所学有关相应知识的能力，能更好的巩

3、固《VisualBasic程序设计》课程学习的内容，掌握工程软件设计的基本方法，强化上机动手编程能力，闯过理论与实践相结合的难关!更加了解了VisualBasic的好处和其可用性！同时增加了同学之间的团队合作精神！更加也体会到以后在工作中团队合作的重要性和必要性！使学生了解高级程序设计语言的结构，掌握基木的程序设计过程和技巧，掌握基木的分析问题和利用计算机求解问题的能力，具备初步的高级语言程序设计能力。为后续各门计算机课程的学习和毕业设计打下坚实基础。这个题目要求软件有六个功能，分别是：记事功能：可记录每天的要事、具有提醒

4、功能；计算功能：参考计算器的标准功能；相册功能：可对相片进行分类浏览、添加和删除；电话本功能：可记录、删除和检索电话号码；时间显示功能：显示一个带有时间走针的时钟以及当前的日期、星期、时间；日历功能：能查阅任意年月日期的日历。第二章系统设计2.1设计思想通过设计多个窗体來组成这个程序所需要的界面，Z后通过Command按钮来实现界面之间的切换工作。设计完窗体Z后，就要通过在窗体上添加可以实现预定功能的控件。在启动窗体上添加一个Timer控件，用来实现封面。在主窗体上添加6个command按钮，分别命名为"记事功能”“计算功

5、能”"相册功能”“电话本功能”“时间显示功能”“日历功能”，用来实现不同功能。在各个功能窗口添加相应的控件实现功能。在结束窗体上添加一个Timer控件，用来实现结束画而。最后进行各个窗体的组合达到完善。2.2主要界面设计欢迎界面主界面计时功能界面设定时间界面计算功能界而相册功能界面电话本功能界面时间显示功能・日历2011-6-9呈期四2011-6-9星期四今天--411310仃2418152229714212861320275121926口历功能界面结束界面2.3中心算法代码说明2.3.1记事本中心代码“新建“代码：Pri

6、vateSubxj_Click()Text1.Text=H°jshb.Caption=DateEndSub“保存”代码：PrivateSubbc_Click()Ifjshb.Caption=DateThenCommonDialog1・ShowSavesfilename=CommonDialog1.FileNameElsesfilename=jshb.CaptionEndIfIfjshb.Caption=DateThenSetmyfile=myfso.CreateTextFile(sfilename,True)myfile.

7、WriteText1.Textsfilename=jshb.CaptionEndIfmyfile.CloseEndSub“打开”代码：PrivateSubdk_Click()CommonDialog1.ShowOpensfilename=CommonDialog1.FileNameIfsfilename<>""ThenText1.Text=,H,Setmyfile=myfso.OpenTextFile(sfilename,ForReading)Text1.Text=myfile.ReadAllEndIfjshb.Capti

8、on=sfilenamemyfile.CloseEndSub“另存为：代码：PrivateSublcv_Click()CommonDialog1.ShowSavesfilename=CommonDialog1.FileNameIfjshb.Caption=DateThenSetmyfile=myfso