安徽三联学院计算机协会1].docVIP

《软件开发技术》 课程设计报告 题 目 计算器的设计与实现 专业班级 计算机科学与技术 0701 学 号 姓 名 指导教师 2010 年 7 月 15 日 计算器的设计与实现 摘要：通过学习VISUAL BASIC语言应用VB开发工具,利用响应鼠标事件即可制作简易计算器，响应鼠标事件即：当用户想要进行运算时,可以用鼠标直接点击界面的数字键、运算符以及各功能的按钮（清除,退出,鼠标位置）。具体操作如下：用鼠标按动界面上第一个数字,然后按动运算符,再按动界面上的第二个数字,最后按等于即可运算出结果。 1.界面设计： 应用 VISUAL BASIC开发工具，根据WINDOWS计算器界面模型，修改后制作计算器界面。新建一个窗体，添加一个文本框用于显示运算数字和结果，添加若干按钮包括（数字0—9，+，-，*，/，=，CE, C, Back，%，1/x , sqrt）。 当单击数字按钮时输入运算数时，单击运算符按钮，再单击“=”按钮，则再文本框中显示计算结果。具体如下图所示： 图1 计算器界面设计示意图 2.程序设计： （1）新建框体和按键模型后定义变量：输入的操作数，Dim Op1, Op2。小数点是否仍然存在，Dim DecimalFlag As Integer。操作数个数，Dim NumOps As Integer。指示上一次按键事件的类型，Dim LastInput。指示未完成的操作，Dim OpFlag。定义文本框输出，Dim TempReadout。窗体的初始化过程，设置所有变量为其初始值：DecimalFlag = False NumOps = 0 LastInput = NONE OpFlag = Readout = Format(0, 0.) Decimal.Caption = Format(0, .)。 （2）输入数字键(0-9)的Click事件过程，向显示中的数追加新数：调用format函数强制定义始终在第一位添加一个”.”，并在显示数中追加新数，如果显示数小于零，则添加负号。 If LastInput NUMS Then Readout = Format(0, .) DecimalFlag = False End If If DecimalFlag Then Readout = Readout + Number(Index).Caption Else Readout = Left(Readout, InStr(Readout, Format(0, .)) - 1) + Number(Index).Caption + Format(0, .) End If If LastInput = NEG Then Readout = - Readout LastInput = NUMS （3）运算符(+, -, x, /, =)的Click 事件过程如果接下来的按键是数字键，增加NumOps如果有一个操作数，则设置Op1如果有两个操作数，则将Op1 设置为Op1与当前输入字符串的运算结果，并显示结果（以其中加法部分为例）： If LastInput = NUMS Then NumOps = NumOps + 1 End If elect Case NumOps Case 0 If Operator(Index).Caption = - And LastInput NEG Then Readout = - Readout LastInput = NEG End If Case 1 Op1 = Readout If Operator(Index).Caption = - And LastInput