Question

vfp计算器加减乘除的代码

急急急，vfp问题

Answer 1

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