vb课设计程简易计算器说明书.docx
- 文档编号:24350347
- 上传时间:2023-05-26
- 格式:DOCX
- 页数:15
- 大小:170.56KB
vb课设计程简易计算器说明书.docx
《vb课设计程简易计算器说明书.docx》由会员分享,可在线阅读,更多相关《vb课设计程简易计算器说明书.docx(15页珍藏版)》请在冰豆网上搜索。
vb课设计程简易计算器说明书
交通与汽车工程学院
课程设计说明书
课程名称:
程序设计基础课程设计
课程代码:
8234580
题目:
简易计算器程序设计
年级/专业/班:
2009级/热能与动力工程(汽车发动机)/3班
学生姓名:
魏学行
学号:
312009*********
开始时间:
2010年4月26日
完成时间:
2010年5月21日
课程设计成绩:
学习态度及平时成绩(30)
技术水平与实际能力(20)
创新(5)
说明书(计算书、图纸、分析报告)撰写质量(45)
总分(100)
指导教师签名:
年月日
目录
摘要-2-
1引言-3-
1.1选题背景-3-
1.2任务与分析-3-
2方案设计-4-
3界面设计-4-
4代码设计及程序调试-5-
5软件使用说明-6-
总结与体会-12-
致谢-14-
参考文献-15-
摘要
随着计算机的不断更新发展,计算器扮演着极为重要的角色,Windows环境下的VisualBasic提供了丰富的图形功能。
本文主要通过对方案设计、界面设计、代码编写及调试以及软件使用说明等的介绍,介绍了作者利用VisualBasic对“简易计算器”应用软件的开发设计过程,并分析了所开发软件系统的优点和不足。
关键词:
VisualBasic简易计算器程序设计
1引言
1.1选题背景
通过一年来对VisualBasic高级语言程序设计的学习,我已经掌握了一些常用的控件的使用方法,对简单的程序设计的常用算法也有了一定的了解,还掌握了对图形和动画的一些基本操作。
为了进一步加深理解、验证、巩固课堂教学内容,加深对可视化编程思想的理解,强化VisualBasic对程序流程控制、常用控件的属性、事件、方法的理解和使用;为了进一步提高编程能力、程序的调试能力,理论联系实际的能力;巩固所学的这些程序设计的方法,为了达到后续课程对实际编程计算能力的要求,特选定“简易计算器”这个小题目作为课程设计实践教学环节的题目,有助于培养综合运用所学知识解决实际问题的能力,可以充分发挥想象力和创新能力;有助于提高独立思考能力,和自学能力。
1.2任务与分析
本软件应具有运算加减乘除四则基本运算,其中涉及到了VB的很多知识点,例如:
在界面设计中应熟悉掌握各个控件的属性,各种循环语句,选择语句,控件组等等。
有助于培养综合运用所学知识解决实际问题的能力,可以充分发挥想象力和创新能力;有助于提高独立思考能力,和自学能力。
2方案设计
本软件按照一般计算器的界面以及功能设计,具有最为基础的加减乘除四则运算。
先建立一个新的项目文件,里面包含一个Form1的窗体。
然后,添加控件,包括一个Text框(Text1)。
一个控件数组,包含17个按钮,这17个按钮使用的名称都是Command1,只是Index属性不同。
按下数字键在液晶屏上会出现数字,这是最基本的功能。
第一次按下运算键,再按下数字键,将重新输入第二个数字,再次按下运算键,将算出前两个数的结果,然后按下数字键,将又重新输入新的数字。
输入数字后,按下“等于键”将仍输出原来的数字,输入运算符和第二个数字后在按下“等于”,将得到二者的结果。
然后又重复第二、三步。
按下“清除”,数据被全部清除。
所以还将运用到赋值。
3界面设计
控件名称
属性
控件名称
属性
控件名称
属性
Command1(0)
0
Command1
(1)
1
Command1
(2)
2
Command1(3)
3
Command1(4)
4
Command1(5)
5
Command1(6)
6
Command1(7)
7
Command1(8)
8
Command1(9)
9
Command1(10)
.
Command1(11)
=
Command1(12)
+
Command1(13)
-
Command1(14)
*
Command1(15)
/
Command1(16)
AC
Text1
“”
Image
4代码设计及程序调试
1.先在General里声明窗体级全局变量:
DimNum1,Num2AsSingle
DimStrNum1,StrNum2AsString
DimFirstNumAsBoolean'判断是否是数字开头
2.字符型变量转变为实型变量
因为Text1里是存放字符串的,所以要把输入的数据进行运算,必须把字符型变量转变为实型变量,分别用Num1、Num2和StrNum1、StrNum2进行存放。
在Form_Load事件里给变量初赋值:
Num1=0
Num2=0
StrNum1=""
StrNum2=""
FirstNum=True
3.SelectCase语句区分各个按钮
因为17个按钮使用的是同一事件,所以我们用一个SelectCase语句区分各个按钮,双击任意按钮输入代码:
PrivateSubCommand1_Click(IndexAsInteger)
SelectCaseIndex
Case0To9
IfFirstNumThen
StrNum1=Str(Index)’实型转字符型
FirstNum=False’初赋值为假
Else’非初赋值
StrNum1=StrNum1+Str(Index)
EndIf
Text1.Text=StrNum1’显示
<还有其他语句,等待插入>
EndSelect
EndSub
4.处理小数点。
在General里声明新的变量:
DimPointFlagAsBoolean'判断是否已有小数点
在Form_Load里进行初赋值:
PointFlag=False
在Command的单击事件里接着上面输入新的代码:
Case10
IfNotPointFlagThen’如果没有小数点
IfFirstNumThen’如果是第一个字符
StrNum1="0."
FirstNum=False
Else
StrNum1=StrNum1+"."
EndIf
Else’已有小数点
ExitSub’则退出单击事件
EndIf
PointFlag=True
Text1.Text=StrNum1
5.处理四则运算:
先在General里声明新变量:
DimRunsignAsInteger'储存运算符号
DimSignFlagAsBoolean'判断是否已有运算符号
然后在Form_Load中进行初赋值:
Runsign=0
SignFlag=False
在接下的Command1_Click中继续输入代码:
Case12To15
FirstNum=True’使下一次可以输入新数据
PointFlag=False
'还原标记值
IfSignFlagThen’前面已有运算符未运算
CallRun
Else
SignFlag=True
StrNum2=StrNum1’把字符串1复制给字符串2
StrNum1=""’字符串1清空
EndIf
Runsign=Index-11‘储存键入的运算符
里面运算的部分我用了一个过程,是因为在按下等号时还会调用到运算过程,这样可以减少代码的输入,也使程序便于浏览。
建立过程(Procedure),可以在General部分直接输入,也可以通过菜单里的“AddProcedure”添加。
Run的代码如下:
SubRun()
Num1=Val(StrNum2)
Num2=Val(StrNum1)
SelectCaseRunsign
Case1’加
equal=Num1+Num2
Case2’减
equal=Num1-Num2
Case3’乘
equal=Num1*Num2
Case4’除
equal=Num1/Num2
EndSelect
StrNum2=Str(equal)
StrNum1=StrNum2
Text1.Text=StrNum2
EndSub
6.下面是其余的代码:
(在Command1_Click事件里,接着写)
Case11
IfNotSignFlagThen
Text1.Text=StrNum1
equal=Val(StrNum1)
FirstNum=True
PointFlag=False
Else
CallRun
SignFlag=False
EndIf
CaseElse’清除按钮
CallClearData
里面又用到了一个ClearData过程,实际上就是Form_Load里的变量初赋值,代码如下:
SubClearData()
Num1=0
Num2=0
StrNum1=""
StrNum2=""
FirstNum=True
PointFlag=False
Runsign=0
SignFlag=False
Text1.Text="0."
EndSub
下面给出完整的程序代码:
DimNum1,Num2AsSingle
DimStrNum1,StrNum2AsString
DimFirstNumAsBoolean'判断是否是数字开头
DimPointFlagAsBoolean'判断是否已有小数点
DimRunsignAsInteger'储存运算符号
DimSignFlagAsBoolean'判断是否已有运算符号
SubClearData()
Num1=0
Num2=0
StrNum1=""
StrNum2=""
FirstNum=True
PointFlag=False
Runsign=0
SignFlag=False
Text1.Text="0."
EndSub
SubRun()
Num1=Val(StrNum2)
Num2=Val(StrNum1)
SelectCaseRunsign
Case1
equal=Num1+Num2
Case2
equal=Num1-Num2
Case3
equal=Num1*Num2
Case4
equal=Num1/Num2
EndSelect
StrNum2=Str(equal)
StrNum1=StrNum2
Text1.Text=StrNum2
EndSub
PrivateSubCommand1_Click(IndexAsInteger)
SelectCaseIndex
Case0To9
IfFirstNumThen
StrNum1=Str(Index)
FirstNum=False
Else
StrNum1=StrNum1+Str(Index)
EndIf
Text1.Text=StrNum1
Case10
IfNotPointFlagThen
IfFirstNumThen
StrNum1="0."
FirstNum=False
Else
StrNum1=StrNum1+"."
EndIf
Else
ExitSub
EndIf
PointFlag=True
Text1.Text=StrNum1
Case12To15
FirstNum=True
PointFlag=False
'还原标记值
IfSignFlagThen
CallRun
Else
SignFlag=True
StrNum2=StrNum1
StrNum1=""
EndIf
Runsign=Index-11
Case11
IfNotSignFlagThen
Text1.Text=StrNum1
equal=Val(StrNum1)
FirstNum=True
PointFlag=False
Else
CallRun
SignFlag=False
EndIf
CaseElse
CallClearData
EndSelect
EndSub
PrivateSubForm_Load()
CallClearData
EndSub
5软件使用说明
本软件使用十分简单,按照普通计算器的使用方法即可。
先按下需要计算的第一个数字,再按下运算符号,再按下第二个计算数字,最后按下等号即可得到运算结果。
总结与体会
本段具体内容为本次课程设计整体上的总结与体会,可包含所设计软件的优点和不足的分析,遇到的困难及解决方法等。
例如:
在这个系统课设创作的过程中,我学会了基本的VB编程技能,对软件制作也有了初步的了解。
同时也遇到了种种困难,体验到了编程的艰辛。
在实现“车次查询”的过程中,语句格式不清楚,无法与数据库实现链接。
点击“查询”后,无法显示车站序列名。
后来,我们通过相互讨论及查询相关资料,细心检查语句。
不断使逻辑和格式趋于完善。
最终,问题得以解决。
软件的制作是一件辛苦而费力的工作,但在老师和同学的帮助下,我不但按时完成,而且从中学到了许多课本上没有的东西,首先是团队的合作精神。
现代软件的制作不是一个人可以完成的,个人始终需要集体的支持。
在遇到困难时,大家集中在一起进行分析讨论,共同解决。
其次是学习与实践的关系。
在课本上学到了VB程序的基础知识。
但在实践中,需要大量的拓展知识。
我们在理解书本知识的基础上,查阅了大量的书籍,不仅找到了问题的解决方法,而且优中取优,尽量选取最简方法,从而促进了我们VB知识的提高。
或者:
在设计过程中,我通过查阅大量有关资料,与同学交流经验和自学,并向老师请教等方式,使自己学到了不少知识,也经历了不少艰辛,但收获同样巨大。
在整个设计中我懂得了许多东西,大大提高了自己的动手能力,使我充分体会到了在创造过程中探索的艰难和成功时的喜悦。
虽然这个设计做的也不太好,但是在设计过程中所学到的东西是这次毕业设计的最大收获和财富,使我终身受益。
当然,我也深刻地体会到从理论到实践是很难的过程,每一个参数的选择都需要仔细地思考,稍微差一点就会使计算的结果相差很远。
还有就是在编程的过程中,需要学习很多以前没有学过的有关知识。
在设计中会遇到很多的困难,其主要的原因如下:
(1)对所学过的相关知识不是很熟练,不会灵活应用;
(2)缺乏实践经验,不会理论联系实际;
(3)思维不是很灵活;
(4)在设计的时候不够认真仔细;
(5)知识面不够广;
(6)对VB编程不是很熟练,有很多的方法不会应用。
通过本次的毕业设计,要吸取一定的经验,在以后的学习和工作当中就要更加的认真仔细,尽量不让不该发生的错误发生,也更应该增加实践经验和灵活的思维方法,当然,努力学习还是首要的任务,因为只有有了很牢固的知识后才能让我们做什么事都游刃有余,胸有成竹。
这次的毕业使我的计算能力,绘图能力,应用VB编程的能力,应用资料、手册、标准的能力都得到了很大的提高。
虽然,在设计的过程中遇到了很多的问题,最后每个问题都得到解决的时候,有种如释重负的感觉,心里充满了成就感。
此外,我还得出一个结论:
知识必须通过应用才能实现其价值!
有些东西以为学会了,但真正到用的时候才发现是两回事,所以我认为只有到真正会用的时候才是真的学会了。
致谢
在此,特别感谢在试验设计中帮助过自己的张诗波老师,以及我们寝室的各位成员,感谢他们对自己在设计过程中遇到困难时给予的帮助。
以及XX上热心的网友给予的帮助。
【参考文献】
[1]杨明广.王秀华.VisualBasic程序设计教程[M].北京:
中国科学技术出版社,2006
[2]王秀华.余建坤.VisualBasic程序设计上机和级考实训教程[M].北京:
中国科学技术出版社,2006
[3]郭瑞军.VisualBasic数据库开发实例精粹[M].北京:
电子工业出版社,2003
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 计程 简易 计算器 说明书
![提示](https://static.bdocx.com/images/bang_tan.gif)