VB课程设计报告--简易计算器

《VB课程设计报告--简易计算器》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、VB课程设计报告设计题目：简易计算器所在院系：高职院所在专业：学生学号：学生姓名：指导老师：完成时间：2010-6-3一、实验目的:1.培养运用VB6.0界面和代码的能力；72.活用所学的VB知识制作简单的计算器；3.发挥各人的想象能力和分析能力，拓展思维空间；4.掌握应用程序设计的基本方法。二、需求分析:大家都知道，计算器是日常生活中不可缺少的一个工具，在Microsoft的Windows操作系统中，附带了一个计算器程序，WindowsXP下的标准型计算器程序如下图所示：设计一个简易计算器，能够实现＋－×÷求倒数等基本运算功能，类似于

2、Windows中的计算器。1、设计思路先模拟地设计出计算器面板，含各类按钮及结果输出框，其次写出各事件，如数字事件、符号事件、等好事件；再次写出各类运算函数，如加法、减法、乘法、除法；最后于主函数中调用各功能及运算。这样的设计，主要灵感是来源于生活中的计算器，用程序模拟、抽象地描述出计算器的功能，大有人性化的思维模式：科技以人为本！2、界面设计因为VB是一种可视化的编程工具，其整个用户界面的设计都是基于“可视化操作”的。界面设计在VB程序设计中占有重要地位，一个好的界面，不但要令人感觉良好，还要使程序方便易用。熟练掌握VB界面的设计是进

3、行VB程序设计的前提。VB界面的设计主要包括控件的绘制及各控件属性的设置两种工作。7界面截图如下：三、概要设计:本次VB课程设计所制作的简易计算器主要运用了VB6.0来实现。需要用到一些公共变量，例如用来接收操作数、运算结果，判断输入的是否为小数等。属性设置：窗体和各控件的属性设置如下表所示。7四、详细设计:简易计算器各个控件代码设置如下：DimA,BAsSingleDimOpAsStringPrivateSubCommand1_Click()Text1.Text=Text1.Text+Command1.CaptionEndSubPri

4、vateSubCommand10_Click()IfA=0ThenA=Text1.TextElseB=Text1.TextEndIfText1.Text=""Op="-"7EndSubPrivateSubCommand11_Click()Text1.Text=Text1.Text+Command11.CaptionEndSubPrivateSubCommand12_Click()Text1.Text=Text1.Text+Command12.CaptionEndSubPrivateSubCommand13_Click()Text1.Te

5、xt=Text1.Text+Command13.CaptionEndSubPrivateSubCommand14_Click()IfA=0ThenA=Text1.TextElseB=Text1.TextEndIfText1.Text=""Op="+"EndSubPrivateSubCommand15_Click()Text1.Text=Text1.Text+Command15.CaptionEndSubPrivateSubCommand16_Click()Text1.Text=Text1.Text+Command16.CaptionEn

6、dSubPrivateSubCommand17_Click()Text1.Text=""A=0:B=0EndSubPrivateSubCommand18_Click()EndEndSubPrivateSubCommand2_Click()IfA=0ThenA=Text1.TextElseB=Text1.TextEndIfText1.Text=""Op="/"EndSub7PrivateSubCommand3_Click()B=Text1.TextSelectCaseOpCase"+"A=A+BCase"-"A=A-BCase"*"A=A

7、*BCase"/"A=A/BCase"1/x"A=1/AEndSelectText1.Text=AEndSubPrivateSubCommand4_Click()Text1.Text=Text1.Text+Command4.CaptionEndSubPrivateSubCommand5_Click()Text1.Text=Text1.Text+Command5.CaptionEndSubPrivateSubCommand6_Click()IfA=0ThenA=Text1.TextElseB=Text1.TextEndIfText1.Te

8、xt=""Op="*"EndSubPrivateSubCommand7_Click()Text1.Text=Text1.Text+Command7.CaptionEndSubPrivateSubComman