基于Visual-Basic的编程实现一个计算器

1、第1章绪论1.1 课题简介1.1.1 课程设计题目基于VisualBasic的计算器的制作1.1.2 课题要求基于VisualBasic的编程实现一个计算器软件，要求计算器能够实现：加法、减法、乘法、除法、乘方、立方、正弦、余弦、正切、余切、开平方等功能。而且还要实现计算器界面有一个与系统时间同步的时钟。要求界面简单美观，操作简单方便，类似于我们一直在用的计算器。1.1.3 课题工作内容1 、掌握一些程序设计算法的分析，学会使用控件数组；2 、掌握VB程序的编写方法，学会VB函数的调用；3 、学会应用软件界面的设计和界面的布局、美化；4、学会编写与系统时间同步的时钟；5 、撰写课程设计报告。1

2、.2系统分析1.2.1开发背景计算机已经成为我们学习和工作的得力助手：今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：1，计算机可以代替人工进行许多繁杂的劳动；2，计算机可以节省许多资源；3，计算机可以大大的提高人们的工作效率；4，计算机可以使敏感文档更加安全等。第2章开发环境及实现技术2.1 开发环境硬件系统：奔腾166MX以上CPU、32M以上内存、1G以上硬盘、光驱。软件系统：Windows98/ME/2000/XP、VisualBasic6.0中文版。2.2 开发工具简介2.2.1 总体介绍微软公司的Visua

3、lBasic6.0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。VisualBasic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。Access2000就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Acc

4、ess也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及VisualBasic来访问数据库并对其进行各种操作。VisualBasic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。DATA控件在数据库中的信息与将信息显示给用户看的Visu

5、alBasic程序之间架起了一座桥梁。我们可以设置DATA控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。DATA控件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。2.2.2 详细介绍1 .VisualBasic6.0的语言特性VB语言是一种以事件驱动作为运行机制的可视化的程序设计语言。它不仅提供了常规的编程环境

6、，还提供了一套可视化的设计工具，便于程序员进行可视化的程序设计。它不仅具有传统程序设计语言的基本功能，而且在软件的不断升级中，功能也越来越强。2 .VisualBasic6.0的特点与传统的程序设计语言相比，VB的主要特点介绍如下。（1）面向对象的可视化编程在VB应用程序开发环境下，应用了面向对象的程序设计方法；即把程序和数据封装起来视为一个对象工具，每个对象都是可是的。程序设计员在设计是只需要根据设计界面的要求利用现有的对象工具，直接在屏幕上设计不同的对象（如：窗口、菜单、按钮、滚动条等），并为每个对象设置属性。2）结构化程序设计语言VB系统提供了丰富的数据类型、众多的内部函数、子程序、事件

7、子程序和自定义函数，各个子程序模块之间可以彼此独立，也可以相互联系，形成了结构化程序结构，易学通用。（ 3）事件驱动的编程机制事件驱动是增强程序图形界面交互性的主要方法。用户的每一个动作或操作行为都可以产生一个事件，每个事件都可以驱动一段程序的运行。程序员只需编写响应用户动作的代码，各个动作之间不一定有联系。代码短、易编写、易维护。（ 4）可以对多种数据库进行访问利用数据控件或ODBC能够访问Access、Excel、FoxPro、dBASE、Btrieve、Lotus1-2-3、Paradox等类型的数据库和电子表格。（ 5）OLE和Active技术的应用使用OLE（对象链接与嵌入技术）能够

8、开发集声音、图像、动画、字处理、Web等对象于一体的应用程序。Active技术可以使开发人员摆脱特定语言的束缚，方便的使用标准的Active部件，调用标准的接口，实现特定功能。2.2.3界面介绍1 .开发环境界面介绍在集成开发环境中可以进行程序设计、编辑、编译和调试等几个子窗口：工具箱、窗体窗程窗口、属性窗口及窗体布工作。集成开发环境的顶部有标题栏、主菜单和工具栏。下部有 u 阳 -I jx-j/pi rw- 夏览E编提旧规鼠办工程回调莉m运行间查田叱图看口 T具外建浮景山甯口空emj”VM市旧稔微计_1_ n_i_，'*4IR1-Fornd（«叫-(TSD-有甯住affi-

9、FormlAjjearue«涯&般当一个对象在运行时是否以30如累图2-1开发环境界面1）、工具箱（2）、控制菜单框（3）、标题栏（4）、工具栏（5）、工程管理器（6）、属性窗口（7）、窗体窗口（8）、窗体布局窗口2 .菜单栏介绍菜单栏中含了使用VB6.0所需要的命令。主菜单中共有13个菜单项，每个菜单项都有一个下拉菜单，内含若干个菜单命令，单击某个菜单项，即可打开该菜单，单击某个菜单中的某一条，就执行相应的命令。具体如图2-1所示：第3章系统设计3.1界面设计界面设计要求遵循简介美观、方便易用的基本原则，具体设计如下。在VisualBasic集成开发环境中新建一个工程，将其

10、保存到名为“工程l.vbp”的工程文件中，然后进入工程的默认窗体Forml,一步一步进行设计工作。操作步骤如下：将其标题属性设置为“计算器”将BorderStyle属性设为1-FixedSingle,MaxButton和MinButton属性设置为False,这样会使设计的计算器窗口大小固定，不允许用户在运行时改变。具体界面如图3-1所示：ISIrwiu<«rf义舟。端阳H9UJIffipj荀也碍而西.的日砒叨瞒0工&0外掰国£lfnisj戟叱114TjMr器B Iftl Fatal &鹏筋b/力£0二二电商 7 利2第号宵方嗯列南f Ti-

11、"1» I 检 Ifflw 1hi I Az Mihlc 号上也eta也-TWi (TSi ti>)- t e比Qu i-rffd.srt.iTiri4wU Sfib Cotridl 口时口3 U Ikl«-|irl if 罩川 Tw-T ft»If lidvM - wl It工Mii.TwiriiwTwII.TbeI:，CrtandLCnlisi 1 1；Hie hriliEff' - FormlLhdTflrtl.Tm - TitUl Ten & MsMI 汕f 1 匚呼乜 bd ifT-rvJ hffi工|SfwHIMiM)|

12、Fm】tijk :击b Ilk girlMil Ti1 T梃二母患苛 If rr TTau力胖4廿9弱L刘褊t闻We白BsjdfiLx叶 im：f.E *MTat ?«tlr?3-*HlTMT-tTltui - ij =3f E |Qr| giu变t Wil kllidF illClijCihiLH7ra汨tetg工CnL-xilpaiIruCuse.091 已工* ECm I：出】工二£ - £山JU出2曲13 - tejj' Fw0 - SdLidOrflLUiJ>：aa 2Fw+r Tz - r r rR01N图3-1VB的界面设计第二步，选择

13、窗体或控件进行属性设置，如图为“窗体”按钮的属性设置界面，如图3-2所示：-益称）Ant oEtir awfJor ierS t jrle C肛t i。几 ClipConlrolsform11 -3D，-一嫡00mosf&2 -SixaLleFormlTrus3-2窗体界面的属性值第三步，显示文本框设计，具体步骤如下：1. 单击控件工具箱中的Label控件，向窗口中添加三个Label标签；2. 单击控件工具箱中的Frame控件，向窗口中添加一个Frame标签；3. 单击控件工具箱中的Text控件，向Frame中添加一个文本框Text；4. 单击控件工具箱中的Command控件，向Fra

14、me中添加26个Command；5. 单击控件工具箱中的Timer控件，向窗口中添加一个Timer控件这些控件的具体名称和属性值如表3-1。表3-1控件属性表控件属性作用LabelCaption显示名称，计算器Caption显示北京时间Caption系统时间显示方位Frame将所有的按钮做升-个整体Text显示输入数据和显示计算结果Commandl0单击时输入数据01单击时输入数据12单击时输入数据23单击时输入数据34单击时输入数据45单击时输入数据56单击时输入数据67单击时输入数据78单击时输入数据89单击时输入数据9单击时输入小数点Command2+计算两个数据的和一计算两个数据的差*

15、计算两个数据的乘积/计算两个数据的商MA2计算X的平方MA3计算X的立方Sin计算X的正弦Cos计算X的余弦Tan计算X的正切Cot计算X的余切Ln计算X的对数Sqrt计算X的开方=求的最后结果Command3清除将输入的数据清除为0Command4关闭关闭计算器软件Timer设置系统时间的同步显示第四步计算器界面的设计，将上述控件按照图3-3所示布置到界面上，要求布置合理，界面设置美观大方，位置布置合理、方便，使使用者使用起来觉得舒服和应手。图3-3计算器界面布置3.2代码编写1.通用型代码编写:此段代码的作用主要是声明pi、布尔型变量V、变量S、X、Y。具体代码如下：' 定义 pi

16、' 是否第一次单击运算符' 存放上次按的运算符' 存放第一个操作数'存放第二个操作数Constpi=3.1415926DimvAsBooleanDimsAsIntegerDimXAsDoubleDimYAsDouble2 .Form的代码编写：此段代码的作用主要是实现系统时间在Label3中的同步显示，具体代码如下：PrivateSubForm_Load()Form1.Tag="T"Timer1.Enabled=TrueTimer1.Interval=1000'设定间隔1000=1秒'一秒显示一次当前时间EndSub3 .Co

17、mmand1的代码编写：此段代码的作用主要是实现将Command上的数字在Text中显示，具体代码如下:PrivateSubCommand1_Click(IndexAsInteger)IfForm1.Tag="T"Then'向显示中的数追加新数IfIndex=10ThenText1.Text="0."ElseText1.Text=Command1(Index).CaptionEndIfForm1.Tag=""ElseText1.Text=Text1.Text&Command1(Index).CaptionEndIfEn

18、dSub4 .Command3的代码编写：此段代码主要是实现对Text中的数据清零，具体代码如下：PrivateSubCommand3_Click(IndexAsInteger)Text1.Text="0"EndSub5 .Command4的代码编写：此段代码主要是实现将计算器程序关闭。PrivateSubCommand4_Click(IndexAsInteger)UnloadMeEndSub6 .Command2的代码编写：此段代码是这个计算器软件的主体部分，它能够实现计算器上的各类功能，并且能按照具体情况分别显示我们所想要的结果。具体代码如下：PrivateSubCom

19、mand2_Click(IndexAsInteger)Form1.Tag="T"'第一次按运算符IfvThenX=Val(Text1.Text)'将键入的数字存入xf=NotvElseY = Val(Text1.T ext)SelectCasesCase0Text1.Text=X+YCase 1Text1.Text=X-YCase 2Text1.Text=X*YCase 3IfY<>0ThenText1.Text=X/YElseMsgBox("不能以0为除数")Text1.Text=Xv=FalseEndIfCase 4X=V

20、al(Text1.Text)X=XA2Case5X=Val(Text1.Text)X=XA3Text1.Text=XCase6X=Val(Text1.Text)X=Sin(X*pi/180)Text1.Text=XCase7X=Val(Text1.Text)X=Cos(X*pi/180)Text1.Text=XCase8X=Val(Text1.Text)X=Tan(X*pi/180)Text1.Text=XCase9X=Val(Text1.Text)X=Atn(X*pi/180)Text1.Text=XCase 10X=Val(Text1.Text)X=Sqr(X)Text1.Text=XCa

21、se 11X=Val(Text1.Text)X=Log(X)Text1.Text=XCase 12 v=FalseEndSelectX=Val(Text1.Text)EndIfs=IndexEndSub7.Timer的代码编写：此段程序主要是实现将系统时间显示在Label3中。具体代码如下：PrivateSubTimer1_Timer()Label3.Enabled=TrueLabel3.Caption=Format(Time,"tttttAM/PM")EndSub3.3代码编写中用到的函数计算器软件中用到的函数如表3-2所示:表3-2编程中所用的函数函数名称函数作用正弦函数Sin求的输入数据的正弦值余弦函数Cos求的输入数据的余弦值正切函数Tan求的输入数据的正切值余切函数Cot求的输入数据的余切值对数函数Ln求的输入数据的对数值开方函数Sqrt求的输入数据的开方值系统时间函数Time输出系统的当前时间值第4章结论（设计心得）经过一段时间的设计和编写，计算器软件基本设计完毕。本软件能够实现计算器的很多功能，譬如：加法、减法、乘法、除法、乘方、立方、正弦、余弦、正切、余切、开