vfp程序设计报告 计算器

《vfp程序设计报告 计算器》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VFP程序设计报告专业：外国语学院英语专业姓名：段莹婷学号：913114070104题目：计算器指导教师：薛春香一、设计意图在决定设计计算器程序之前，我有尝试过设计工资管理系统，结果发现工资管理系统比较繁琐有没什么用处，便改为设计程序较为简单，且实用性强的计算器，除了可以完成VFP任务，在平时生活中也可以使用。二、系统主要功能该计算器是一款小型的用于简单数学计算的程序，能完成基本算术运算并显示其结果，使用计算器可进行加(+)、减(-)、乘(×)、除(/)、开方(sqrt)、百分数(%)、倒数(1/x)等简单算术计算，但无法进行复杂的平方、求平均数等科学型的计算。主要表单:欢迎界面(welco

2、me.scx)，计算器界面（calculator.scx）。三、使用方法1、键入数字时，按下相应的数字键，如果按错可用（CE）键消去一次数值，再重新输入正确的数字；2、加（＋）、减（－）、乘（×）、除（÷）键用于进行四则运算；3、根号（sqrt）键是开二次方根；4、1/x键取倒数；5、按下（+/-）键可改变数字的正负值；6、按下等号（=）键显示运算结果；7、MS键存储显示的数据，MR键读取已存储的数据，MC键清除存储数据，M＋键将显示结果与已存储数据相加；8、C（CLEAR）键表示清零，作用是将计算器恢复到开机状态，而CE（CLEARERROR）键仅表示当前数字清除，作用是将当前输入的数字清

3、除回到0状态。四、设计过程（一）、准备工作将F盘中的所有文件清除，放入制作计算器所需的图片。SetdefaulttoF&&将F盘设为默认目录。（二）、欢迎界面的设计文件—新建—项目，新建名为jsq的项目，在项目管理器中新建一表单form1，将form1的Caption属性设为“欢迎”，Picture属性中插入背景图片。在表单中绘制三个标签（Label），将其Caption属性分别设为“欢迎使用计算器”、“进入计算器”及“取消”，并修改相应属性以使界面符合理想要求。Label2控件的Click事件代码为：doformcalculatorthisform.releaseLabel3控件的Clic

4、k事件代码为：Thisform.release最后成品界面如下所示：将这个表单设为主文件。（三）、计算器的设计1、添加控件在项目管理器中新建第二个表单form2，将其Caption属性设为“计算器”。首先为表单新建属性，系统菜单栏中选“表单”——“新建属性”——名称：ls——“添加”。再新建属性mm。添加27个命令按钮，其命令按钮的Caption属性和Click事件代码分别为：（1）[1]按钮Command1.Caption=’1’Command1.Click事件代码为：thisform.text1.value=thisform.text1.value+'1'（2）[2]按钮——[9]按钮的

5、设置同[1]按钮相似。（3）[0]按钮Command10.Caption=’0’Command10.Click事件代码为：thisform.text1.value=thisform.text1.value+'0'ifalltrim(thisform.text1.value)='00'thisform.text1.value='0'endif（4）[＋]按钮Command11.Caption=’＋’Command11.Click事件代码为：thisform.ls=val(thisform.text1.value)thisform.tag='1'thisform.text1.value=''（5

6、）[－]按钮Command12.Caption=’－’Command12.Click事件代码为：thisform.ls=val(thisform.text1.value)thisform.tag='2'thisform.text1.value=''（6）[×]按钮Command13.Caption=’×’Command13.Click事件代码为：thisform.ls=val(thisform.text1.value)thisform.tag='3'thisform.text1.value=''（7）[÷]按钮Command14.Caption=’÷’Command14.Click事件代码为

7、：thisform.ls=val(thisform.text1.value)thisform.tag='4'thisform.text1.value=''（8）[＝]按钮Command15.Caption=’＝’Command15.Click事件代码为：docasecasethisform.tag='1'thisform.text1.value=alltrim(str(thisform.ls+val(this