课程设计报告2333刘奇峰Word格式.docx
《课程设计报告2333刘奇峰Word格式.docx》由会员分享，可在线阅读，更多相关《课程设计报告2333刘奇峰Word格式.docx（11页珍藏版）》请在冰豆网上搜索。
在基本要求的基础上又进行了创新。
总的来说这次课程设计让我学习了很多，让我拥有一个平台来对我所学习知识进行应用，并且在解决问题的时候更加丰富了自己的知识熟练了对visualbasic的应用，可谓收获颇多。
关键词：
微型小助手数字时钟电话本记事本简易计算器日历相册
目录
1.选题的意义……………………………………………………………1
2.系统功能需求分析…………………………………………………1
2.1系统概述…………………………………………………………………………1
2.2系统的组成及各模块的功能……………………………………………………1
2.3系统的运行环境…………………………………………………………………1
3.系统设计……………………………………………………………1
3.1总体结构设计……………………………………………………………………1
3.2控件数组设计……………………………………………………………………1
4.系统实现………………………………………………………………2
4.1总体界面设计…………………………………………………………………2
4.2日历……………………………………………………………………………3
4.3计算器……………………………………………………………4
4.4相册……………………………………………………………………6
5.总结……………………………………………………………………8
5.1总结………………………………………………………………………………8
5.2存在的主要问题…………………………………………………………………8
参考文献………………………………………………………………8
1.选题的意义：
（1）通过这次的课程设计我对visualbasic进行进一步的深入学习，并且能够自己完成一些程序的编制和应用。
之所以选择微型小助手就是因为其工作量大而且应用了更多的知识，让我可以在完成设计的过程中充实自己以利于进一步的学习。
（2）我所选择的题目中应用了控件、数组、多种函数、程序设计结构，过程、控件数组等。
2.系统功能需求分析
2.1系统概述
微型小助手主要是应用visualbasic设计了一些日常的常用程序，利用这些程序可以方便我们日常的生活。
给我们带来不少的方便。
这些设计也能够增强我们解决问题的能力，学好它会让我们受益匪浅。
2.2系统的组成及各模块的功能
微型小助手由记事本、数字时钟、电话本、日历、计算器、电子相册六个部分组成。
2.2.1记事本功能：
可以记录要事、重要节日，同时具有提醒功能。
2.2.2数字时钟功能：
可以用指针的形式显示当前时间，当前日期星期等。
2.2.3电话本功能：
可以浏览、查阅、删除、添加、修改通讯信息。
2.2.4日历功能：
可以显示任意一年的日期以及对应的星期。
2.2.5计算器功能：
可以四则运算，各种三角函数的运算。
2.2.6相册功能：
可以添加、删除、放大、缩小相片。
2.3系统的运行环境
操作系统：
Windowxp/2000/me/98
系统支持：
VisualBasic6.0以上版本
3.系统设计
3.1总体结构设计
微型小助手由记事本、数字时钟、电话本、日历、计算器、电子相册六个部分组成。
由一个主窗体的6个按钮分别进入各个功能模块，同时可以通过一个按钮返回到主界面，并且6个功能模块可以同时运行。
各有各的特点，对题设的要求做出了很好的设计，界面设计也是别有用心。
3.2控件数组设计
计算机的数字键，运算符号等运用控件数组，方便编程与运算。
同时日历也是运用了label的数组，得以将数字很好的进行对齐分布。
4.系统实现
4.1总体界面设计
核心代码：
PrivateSubCommand1_Click（）
calculator.Show
EndSub
PrivateSubCommand2_Click（）
calender.Show
PrivateSubCommand3_Click（）
clock.Show
PrivateSubCommand4_Click（）
phonenumber.Show
PrivateSubCommand5_Click（）
photo.Show
PrivateSubCommand6_Click（）
record.Show
说明：
在主界面通过6个按钮分别进入6个功能模块。
4.2日历
月份的填充运用了comboboox，填充代码为
DimCurrMonthAsInteger
cboMonth.AddItem"
一月"
二月"
三月"
四月"
五月"
六月"
七月"
八月"
九月"
十月"
十一月"
十二月"
CurrMonth=CInt（Format（Date,"
MM"
））
cboMonth.ListIndex=CurrMonth-1
查询年份则是运用过程call入核心代码为
Dimmonth1AsInteger,year1AsInteger
IfSelecteDate=0ThenExitSub
month1=cboMonth.ListIndex+1
year1=Val（cboYear.Text）
Callcheckdate（month1,year1）
日期的填入则是重头戏，其核心代码为：
lblnumber（I）.Caption="
"
lblnumber（I）.BorderStyle=0
NextI
StartDay=CStr（year1）+"
-"
+CStr（month1）+"
+"
01"
StartWeek=Weekday（CDate（StartDay））
SelectCaseVal（month1）
Case1,3,5,7,8,10,12:
MaxDate="
31"
Case4,6,9,11:
30"
Case2:
Ifyear1Mod4=0ThenMaxDate="
29"
ElseMaxDate="
28"
EndSelect
ForI=StartWeek-1ToMaxDate+StartWeek-2lblnumber（I）.Caption=I-StartWeek+2
4.3计算器
数字键是运用了command1的控件数组
函数部分的运算的核心为
Case0
Text1.Text=Val（Text1.Text）*Val（Text1.Text）
Case11
IfText1.Text>
0Then
Text1.Text=Sqr（Val（Text1.Text））
Else
MsgBox"
负数不能开平方哦！
！
,64+vbOK
EndIf
Case13
IfText1.Text<
>
0ThenText1.Text=1/Val（Text1.Text）
Case2
Callfact（Text1.Text,f）
Text1.Text=f
ExitSub
Case10
Text1.Text=Exp（Val（Text1.Text））
Case9
IfVal（Text1.Text）>
Text1.Text=Log（Val（Text1.Text））
MsgBox"
条件错误"
vbInformation+vbYes,"
错误"
Case12
Text1.Text=Sin（Val（Text1.Text））
Case1
Text1.Text=Cos（Val（Text1.Text））
阶乘运算则是用了过程实现核心代码为
PrivateSubfact（nAsInteger,fAsDouble）
DimmmAsInteger
f=1
Formm=1Ton
f=f*mm
Nextmm
EndSub
加减乘除的运算核心代码为
dianl=False
fuhao=False
SelectCasefuhaozhuangtai
Text1.Text=Val（firstnumber）+Val（numbumbuf）
Text1.Text=Val（firstnumber）-Val（numbumbuf）
Text1.Text=Val（firstnumber）*Val（numbumbuf）
Case3
Text1.Text=Val（firstnumber）/Val（numbumbuf）
EndSelect
firstnumber=Text1.Text
dian=False
重置键的核心代码为
PrivateSubCommand7_Click（IndexAsInteger）
SelectCaseIndex
Text1.Text="
0"
numbumbuf="
dianal=False
firstnumber="
4.4相册
图片的添加应用了CommonDialog代码入下
PrivateSubCommand8_Click（）
CommonDialog2.ShowOpen
IfCommonDialog2.FileName<
"
ThenList1.AddItem_CommonDialog2.FileName
删除为
PrivateSubCommand9_Click（）
IfList1.ListIndex<
-1Then
List1.RemoveItemList1.ListIndex
无该删除图片"
vbCritical+vbApplicationModal,"
错误
放大缩小则用了left，height，width，top函数
PrivateSubCommand3_Click（）
image1.Left=image1.Left-100
image1.Top=image1.Top-100
image1.Height=image1.Height+200
image1.Width=image1.Width+200
image1.Left=image1.Left+100
image1.Top=image1.Top+100
image1.Height=image1.Height-200
image1.Width=image1.Width-200
5.总结：
5.1总结
这次的课程设计我觉得收获颇多，掌握了多种visualbasic的设计方法，并且控件数组应用上面也是更上一层楼。
深深地感觉到了这个系统的强大以及这个系统给我们带来的好处。
而对于自己来说不仅丰富了知识而且增加了自己设计方面的技能。
对其使用也变得熟悉得心应手起来。
我所制作的，计算器、日历、以及相册通过自己的想法完成了老师所要求项目。
总之，学生受益匪浅。
5.2存在的问题：
在日历的制作方面没能够成功的添加农历节日深感遗憾，我想以后我要通过自己进一步的学习从而完善自己的设计。
参考文献：
1.《VisualBasic6.0编程案例精解》，张路平，电子工业出版社
2.《VisualBasic程序设计》王学军，中国铁道出版社
3.MSDN
升级会员 