vfp计算器表单代码

『壹』 怎样用VFP编写简单的计算器

VFP自带一个计算器，根本不用编程，直接在命令窗口或程序中使用“activate window calculator”即可调用。

『贰』 VFP中，设计一个简单计算器求大侠写代码……

将下面的代码写在按钮的click事件中：
t1=alltrim(thisform.text1.value)
r=&t1
thisform.label1.caption=alltrim(str(r))

文本框和标签不加代码。

『叁』 vfp中计算器是如何编程的

这个问题不是很难,但是不是一句两句话能说清楚,简单的说就是:
1.作一个表单
2.在表单中加一个文本框(用作显示数字)
3.加若干个命令按钮(作键盘),按钮上显示(键盘)数字或运算符号(如：加、减、乘、除等)
4.设置各个命令按钮的单击命令代码（click
event），每次click
enent后再文本框作出相应的显示即可.
按以上方法,根据计算器的复杂程度作相应的设计即可.

『肆』 用vfp编写的计算器代码

1)【提示】 操作步骤：
1)【提示】 操作步骤：
第一步：向表单添加文本框和命令组控件，分别设置命令按钮的Caption属性，在对命令按钮"="的Caption
属性设置时，不能在其属性窗口中直接输入半角的"="，否则提示语法错误。可以输入全角"＝"
或在表单FROM1的Init事件中，输入如下代码完成：
for i=1 to 10
this.commandgroup1.buttons(i).caption=alltrim(str(i))
endfor
this.commandgroup1.buttons(11).caption="*"
this.commandgroup1.buttons(12).caption="+"
this.commandgroup1.buttons(13).caption="-"
this.commandgroup1.buttons(14).caption="="
this.commandgroup1.buttons(15).caption="C"

第二步：在表单FORM1的Init事件中定义全局变量T，并赋初值空串
PUBLIC T=''
第三步：编写命令组的Click事件代码，完成接收输入的表达式：
do case
case this.value=1
t=t+"1"
thisform.text1.value=t
case this.value=2
t=t+"2"
thisform.text1.value=t
case this.value=3
t=t+"3"
thisform.text1.value=t
case this.value=4
t=t+"4"
thisform.text1.value=t
case this.value=5
t=t+"5"
thisform.text1.value=t
case this.value=6
t=t+"6"
thisform.text1.value=t
case this.value=7
t=t+"7"
thisform.text1.value=t
case this.value=8
t=t+"8"
thisform.text1.value=t
case this.value=9
t=t+"9"
thisform.text1.value=t
case this.value=10
t=t+"0"
thisform.text1.value=t
case this.value=11
t=t+"*"
thisform.text1.value=t
case this.value=12
t=t+'+'
thisform.text1.value=t
case this.value=13
t=t+'-'
thisform.text1.value=t
case this.value=14
thisform.text1.value=alltrim(str(&t,20,6)) && 宏替换T将得到数值表达式计算结果,20与6可以自己根据需要确定
case this.value=15
t=''
thisform.text1.value=t
endcase
thisform.refresh

第四步：当输入的表达式错误时，将引发命令组的Error事件，编写命令组的Error事件代码：
thisform.text1.value="运算式错误"

『伍』 用vfp表单怎么做计算器，请把详细过程以及图片附上，我是刚学的

计算代码如下写在袭计算按钮的click事件下即可

a=val(alltrim(thisform.text1.value))&&去除前后空格，并将字符型数据转换为数值型数据

b=val(alltrim(thisform.text2.value))&&由于文本框默认的数据类型是字符型，所以要转换

ifthisform.optiongroup1.value=1

thisform.text3.value=a+b

endif

ifthisform.optiongroup1.value=2

thisform.text3.value=a-b

endif

ifthisform.optiongroup1.value=3

thisform.text3.value=a*b

endif

ifthisform.optiongroup1.value=4

thisform.text3.value=a/b

endif

退出命令是thisform.release

『陆』 VFP表单设计简易计算器命令按钮编写

你双击这个“计算”按钮，在其click事件中输入代码为：
a=thisformtext1value
b=thisformtext2value
c=thisformoptiongroup1value
do
case
case
c=1
y=a+b
case
c=2
y=a-b
case
c=3
y=a*b
case
c=4
y=a/b
endcase
thisformtext3value=y
thvfp表单的简易计算专器的命令按钮编属写

『柒』 vfp计算器加减乘除的代码

1 首先定义一个全局变量（或者自定义一个属性假定为ZFC,这里使用的自定义属性）。
2 在表单的init事件中将其清空：thsiform.zfc=''
3 自定义一个方法XS，用于文本框显示：
THISFORM.TEXT1.VALUE=THISFORM.ZFC
4 “1”的click事件：
THISFORM.ZFC=ALLT(THISFORM.ZFC)+'1'
THISFORM.XS
一直到“0”，类上。
5 如果想支持键盘操作,FORM1.keypress事件：
LPARAMETERS nKeyCode, nShiftAltCtrl
DO CASE
CASE nKeyCode=55 &&7
THISFORM.COMMAND1.CLICK
CASE nKeyCode=52 &&4
THISFORM.COMMAND2.CLICK
CASE nKeyCode=49 &&1
THISFORM.COMMAND3.CLICK
CASE nKeyCode=48 &&0
THISFORM.COMMAND4.CLICK
......

CASE nKeyCode=43 &&+
THISFORM.COMMAND10.CLICK
CASE nKeyCode=45 &&-
THISFORM.COMMAND12.CLICK
......
ENDCASE
可以通过 ?inkey(0),查到键盘的ASCII值。
这里COMMANDn你要根据表单的实际名称填写。

6 “=”的click:
THISFORM.JS
THISFORM.XS

7 自定义一个方法JS用于计算结果：
K=THISFORM.ZFC
S=&K
THISFORM.ZFC=ALLT(STR(S,12,4))

8 “SQLT”的click事件
THISFORM.ZFC='SQLT('+ALLT(THISFORM.ZFC)+')'
THISFORM.XS
9 求倒数的click事件：
THISFORM.ZFC='1/'+ALLT(THISFORM.ZFC)
THISFORM.XS

『捌』 VFP表单的简易计算器的命令按钮编写

你双击这个“计算”按钮，在其click事件中输入专代码为属：
a=thisform.text1.value
b=thisform.text2.value
c=thisform.optiongroup1.value
do case
case c=1
y=a+b
case c=2
y=a-b
case c=3
y=a*b
case c=4
y=a/b
endcase
thisform.text3.value=y
thisform.refresh