《如何使用VFP制作一个简易的计算器.pdf》由会员分享，可在线阅读，更多相关《如何使用VFP制作一个简易的计算器.pdf（9页珍藏版）》请在金锄头文库上搜索。
1、如何使用如何使用 VFP（Microsoft Visual FoxPro）设计一个简易计算器？）设计一个简易计算器？ 胡 伟 本文内容主要介绍如何使用 VFP 设计如下图所示的一个简易的计算器。 一、创建项目文件 jsq.pjx 创建 jsq 文件夹：c:jsq (以下文件均以此为存储目录) 在 c:jsq 下创建项目文件：c:jsq.pjx 二、创建表单 jsq.scx （一）创建表单 jsq，并设置属性：设 AutoCenter 为 “.T.” 、ShowWindow 为 “作为顶 层表单” （二）在表单 jsq 内创建各对象 1、创建（菜单部分在后面创建） 单击“表单控件”工具栏上的“文
2、本框”按钮，在表单上的适当位置单击。并设置属 性 Alignment 为“1右” 2、创建容器控件 设置属性 SpecialEffect 为“凹下” 3、创建命令控件 更改属性 Caption “Command1”为“Backspace” ，属性 ForeColor “0,0,0”为“255,0,0” 4、如同创建，创建其它控件。 单击表面空白部分，更改属性 Caption “Form1”为“计算器” 。 5、编辑各控件的命令代码 新建属性 ls 并改其属性“.F.”为“0” ；新建属性 mm 并改其属性“.F.”为“0” 。 （1）Backspace 双击 Backspace 控件，在打开的
3、 Command1.klick 中编写如下代码： thisform.text1.value=substr(alltrim(thisform.text1.value),1,len(alltrim(thisform.text1.value)-1) （2）CE 的代码为： thisform.text1.value= （3）C 的代码为： thisform.text1.value= thisform.ls=0 thisform.tag= （4）MC 的代码为： thisform.mm=0 （5）MR 的代码为： thisform.text1.value=alltrim(str(thisform.mm)
4、 （6）MS 的代码为： thisform.mm=val(alltrim(thisform.text1.value) （7）M+ 的代码为： thisform.mm=thisform.mm+val(alltrim(thisform.text1.value) （8）0 的代码为： thisform.text1.value=thisform.text1.value+0 if alltrim(thisform.text1.value)=00 thisform.text1.value=0 endif 同理编写 1、2、3、4、5、6、7、8、9 的代码。 （9）+ 的代码为： thisform.ls=
5、val(thisform.text1.value) thisform.tag=1 thisform.text1.value= 同理编写 、 * 、/ 的代码 （10） 的代码为： do case case thisform.tag=1 thisform.text1.value=alltrim(str(thisform.ls+val(thisform.text1.value),20,4) case thisform.tag=2 thisform.text1.value=alltrim(str(thisform.ls-val(thisform.text1.value),20,4) case thi
6、sform.tag=3 thisform.text1.value=alltrim(str(thisform.ls*val(thisform.text1.value),20,4) case thisform.tag=4 thisform.text1.value=alltrim(str(thisform.ls/val(thisform.text1.value),20,4) endcase （11）sqrt 的代码为： thisform.text1.value=alltrim(str(sqrt(val(thisform.text1.value),20,4) （12）% 的代码为： if thisfo
7、rm.tag=4 thisform.text1.value=alltrim(str(thisform.ls/val(thisform.text1.value)*100,20,4) endif （13）1/x 的代码为： thisform.text1.value=alltrim(str(1/val(thisform.text1.value),20,4) （14）+/- 的代码为： if substr(alltrim(thisform.text1.value),1,1)=- thisform.text1.value=substr(alltrim(thisform.text1.value),2) e
8、lse thisform.text1.value=-+alltrim(thisform.text1.value) endif （15）. 的代码为： if at (.,thisform.text1.value)=0 thisform.text1.value=thisform.text1.value+. endif 三、创建程序 jsq.prg 代码为： set default to c:jsq do form jsq.scx read events 并设置 jsq.prg 为主文件。 四、创建 config.fpw 代码为： screen=off 五、创建菜单 jsq.mnx （1）编辑 子菜单的创建 （2）查看 子菜单的创建 （3）帮助 子菜单的创建 （4）生成 jsq.mpr （5）设置 jsq.mnx 属性，即选中“顶层表单” 。 六、修改表单 jsq.scx （1）在 Init 事件中加入代码： do jsq.mpr with this, .t. （2）在 Destroy 事件中加入代码： thisform.release clear events 七、连编各文件
