VB计算器课程设计报告

PAGE《软件开发技术》课程设计报告题目计算器的设计与实现专业班级计算机科学与技术0701学号姓名指导教师2010年7月15日计算器的设计与实现摘要：通过学习VISUALBASIC语言应用VB开发工具,利用响应鼠标事件即可制作简易计算器，响应鼠标事件即：当用户想要进行运算时,可以用鼠标直接点击界面的数字键、运算符以及各功能的按钮（清除,退出,鼠标位置）。具体操作如下：用鼠标按动界面上第一个数字,然后按动运算符,再按动界面上的第二个数字,最后按等于即可运算出结果。1.界面设计：应用VISUALBASIC开发工具，根据WINDOWS计算器界面模型，修改后制作计算器界面。新建一个窗体，添加一个文本框用于显示运算数字和结果，添加若干按钮包括（数字0—9，+，-，*，/，=，CE,C,Back，%，1/x,sqrt）。当单击数字按钮时输入运算数时，单击运算符按钮，再单击“=”按钮，则再文本框中显示计算结果。具体如下图所示：图1计算器界面设计示意图2.程序设计：（1）新建框体和按键模型后定义变量：输入的操作数，DimOp1,Op2。小数点是否仍然存在，DimDecimalFlagAsInteger。操作数个数，DimNumOpsAsInteger。指示上一次按键事件的类型，DimLastInput。指示未完成的操作，DimOpFlag。定义文本框输出，DimTempReadout。窗体的初始化过程，设置所有变量为其初始值：DecimalFlag=FalseNumOps=0LastInput="NONE"OpFlag=""Readout=Format(0,"0.")'Decimal.Caption=Format(0,".")。（2）输入数字键(0-9)的Click事件过程，向显示中的数追加新数：调用format函数强制定义始终在第一位添加一个”.”，并在显示数中追加新数，如果显示数小于零，则添加负号。IfLastInput<>"NUMS"ThenReadout=Format(0,".")DecimalFlag=FalseEndIfIfDecimalFlagThenReadout=Readout+Number(Index).CaptionElseReadout=Left(Readout,InStr(Readout,Format(0,"."))-1)+Number(Index).Caption+Format(0,".")EndIfIfLastInput="NEG"ThenReadout="-"&ReadoutLastInput="NUMS"（3）运算符(+,-,x,/,=)的Click事件过程如果接下来的按键是数字键，增加NumOps如果有一个操作数，则设置Op1如果有两个操作数，则将Op1设置为Op1与当前输入字符串的运算结果，并显示结果（以其中加法部分为例）：IfLastInput="NUMS"ThenNumOps=NumOps+1EndIfelectCaseNumOpsCase0IfOperator(Index).Caption="-"AndLastInput<>"NEG"ThenReadout="-"&ReadoutLastInput="NEG"EndIfCase1Op1=ReadoutIfOperator(Index).Caption="-"AndLastInput<>"NUMS"AndOpFlag<://.huisheliren/>"="ThenReadout="-"LastInput="NEG"EndIfelectCaseOpFlagCase"+"Op1=CDbl(Op1)+CDbl(Op2)Readout=Op1NumOps=1EndSelect（4）%，sqrt，1/X,等的Click事件过程以1/X为例举出：以倒数1/Readout输出，在输出结果中调用format函数强制定义添加“0.”，并可进行连续运算Readout=1/ReadoutReadout.Text=Format(Readout.Text,"0.####################")LastInput="Ops"OpFlag="1/x"NumOps=NumOps+1DecimalFlag=True（5）C,CE,Back，”.”等Click事件过程以C和”.”为例,C按钮的Click事件过程，重新设置显示并初始化变量：清零操作数，并在显示结果中定义一个“0.”Readout=Format(0,"0.")Op1=0Op2=0Form_Load（6）小数点(.)按钮的Click事件过程,如果上一次按键为运算符，初始化readout为"0."否则显示时追加一个小数点:PrivateSubDecimal_Click()IfLastInput="NEG"ThenReadout=Format(0,"-0.")ElseIfLastInput<>"NUMS"ThenReadout=Format(0,"0.")EndIfDecimalFlag=TrueLastInput="NUMS"EndSub（7）Back按钮的Click事件过程：定义一个变量cd，并且用LEN函数求出当前字符串长度，调用Mid函数使字符串整体右移一位显示。DimcdAsIntegercd=Len(Readout.Text)Readout.Text=""&Mid(Readout.Text,1,cd-1)3.调试：调试计算器功能+,-,*,/,sqrt,1/x，%等功能，如图所示：图1：0.2+0.3=结果如图，图2：2-3=结果如图，图3：3*6=结果如图，图4：9/3=结果如图，图5：16sqrt结果如图，图6：6%5=结果如图，图7：21/x结果如图。图2加法调试结果图3减法调试结果图4乘法调试结果图5除法调试结果图6sqrt调试结果图7%调试结果图81/x调试结果4.结论：经过二周的学习与编制调试等一系列的过程，完成了如题所示的简易计算器，包括数字0—9，+，-，*，/，=，CE,C