求助：vfp编写计算器

来源：百度知道 编辑：UC知道 时间：2024/06/05 17:13:00
本人是和计算机有关的专业，因即将毕业，需交一份毕业设计。无奈学艺未精，用vfp编写计算器时出了点问题——关于vfp中如何求开方。恳请各位GG、JJ、DD、MM不吝赐教，在这里感激不尽。
本人是和计算机有关的专业，因即将毕业，需交一份毕业设计。无奈学艺未精，用vfp编写计算器时出了点问题——关于vfp中如何求倒数。恳请各位GG、JJ、DD、MM不吝赐教，在这里感激不尽。
可以留下QQ，共同研究下。

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.