vfp制作简单计算机,VF编写简易计算器 -电脑资料

(1)建立应用程序用户界面，

选择“新建”表单，进入表单设计器，增加一个文本框控件Textl、一个标签控件Label1和一个命令按钮组CommandGroup1,并将命令按钮组的ButtonCount属性改为16。

(2)设置对象属性如下表所示：

CommandGroup1中各按钮的属性设置

对象 属性 属性值 说明

Command1～Command10 Caption 依次改为：1、2、3、4、5、6、7、8、9、0

FontBold .T.

Command11～Command10 Caption 依次改为：.、=、+、-、*、/

FontBold .T.

(3)编写程序代码。

①编写CommandGroup1的Click事件代码：

IF THISFORM.Tag=.T.

THISFORM.Text1.Value=http://www.learnlern.com//ncre2/VF/fudao/20080909/ALLT(RIGHT(STR(THIS.Value),1))

THISFORM.Tag=〃 〃

ELSE

a=THISFORM.Text1.Value

THISFORM.Text1.Value=http://www.learnlern.com//ncre2/VF/fudao/20080909/a+ALLT(RIGHT(STR(THIS.Value),1))

ENDIF

②编写“.”按钮Command11的Click事件代码：

a=THISFORM.Text1.Value

THISFORM.Text1.Value=http://www.learnlern.com//ncre2/VF/fudao/20080909/a+〃.〃

③编写“=”按钮Command12的Click事件代码：

a=THISFORM.Text1.Value

THISFORM.Text1.Value=http://www.learnlern.com//ncre2/VF/fudao/20080909/ALLT(STR(&a))

THISFORM.Tag=.T.

④编写“+”按钮Command13的Click事件代码：

a=THISFORM.Text1.Value

THISFORM.Text1.Value=http://www.learnlern.com//ncre2/VF/fudao/20080909/a+〃+〃

THISFORM.Tag=〃 〃

⑤编写“-”按钮Command14的Click事件代码：

a=THISFORM.Text1.Value

THISFORM.Text1.Value=http://www.learnlern.com//ncre2/VF/fudao/20080909/a+〃-〃

THISFORM.Tag=〃 〃

⑥编写“*”按钮Command15的Click事件代码：

a=THISFORM.Text1.Value

THISFORM.Text1.Value=http://www.learnlern.com//ncre2/VF/fudao/20080909/a+〃*〃

THISFORM.Tag=〃 〃

⑦编写“/”按钮Command16的Click事件代码：

a=THISFORM.Text1.Value

THISFORM.Text1.Value=http://www.learnlern.com//ncre2/VF/fudao/20080909/a+〃+〃

THISFORM.Tag=〃 〃