文档库

最新最全的文档下载
当前位置:文档库 > 如何使用VFP制作一个简易的计算器

如何使用VFP制作一个简易的计算器

如何使用VFP(Microsoft Visual FoxPro)设计一个简易计算器?

胡伟

本文内容主要介绍如何使用VFP设计如下图所示的一个简易的计算器。

如何使用VFP制作一个简易的计算器

一、创建项目文件jsq.pjx

创建jsq文件夹:c:\jsq (以下文件均以此为存储目录)

在c:\jsq下创建项目文件:c:\jsq.pjx

如何使用VFP制作一个简易的计算器

二、创建表单jsq.scx

(一)创建表单jsq,并设置属性:设AutoCenter为“.T.”、ShowWindow为“作为顶层表单”

(二)在表单jsq内创建各对象

1、创建(菜单部分在后面创建)

如何使用VFP制作一个简易的计算器

单击“表单控件”工具栏上的“文本框”按钮,在表单上的适当位置单击。并设置属性Alignment为“1-右”

如何使用VFP制作一个简易的计算器

如何使用VFP制作一个简易的计算器

2、创建容器控件

设置属性SpecialEffect为“凹下”

如何使用VFP制作一个简易的计算器

如何使用VFP制作一个简易的计算器

3、创建命令控件

更改属性Caption “Command1”为“Backspace”,属性ForeColor “0,0,0”为“255,0,0”

如何使用VFP制作一个简易的计算器

如何使用VFP制作一个简易的计算器

4、如同创建,创建其它控件。

单击表面空白部分,更改属性Caption “Form1”为“计算器”。

如何使用VFP制作一个简易的计算器

5、编辑各控件的命令代码

新建属性 ls 并改其属性“.F.”为“0”;新建属性 mm 并改其属性“.F.”为“0”。(1)Backspace

双击Backspace控件,在打开的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))

(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=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 thisform.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 thisform.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) else

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

如何使用VFP制作一个简易的计算器

(1)编辑子菜单的创建

如何使用VFP制作一个简易的计算器

(2)查看子菜单的创建

如何使用VFP制作一个简易的计算器

(3)帮助子菜单的创建

如何使用VFP制作一个简易的计算器

(4)生成jsq.mpr

如何使用VFP制作一个简易的计算器

如何使用VFP制作一个简易的计算器

(5)设置jsq.mnx属性,即选中“顶层表单”。

如何使用VFP制作一个简易的计算器

六、修改表单jsq.scx

(1)在Init事件中加入代码:

do jsq.mpr with this, .t.

(2)在Destroy事件中加入代码:

thisform.release

clear events

七、连编各文件

如何使用VFP制作一个简易的计算器