打印本文   关闭窗口

VF编写简易计算器

作者：佚名  文章来源：不详  点击数  更新时间：2008/10/22 21:41:12  文章录入：杜斌  责任编辑：杜斌

(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=ALLT(RIGHT(STR(THIS.Value),1)) 　　THISFORM.Tag=〃 〃 　　ELSE 　　a=THISFORM.Text1.Value 　　THISFORM.Text1.Value=a+ALLT(RIGHT(STR(THIS.Value),1)) 　　ENDIF 　　②编写“.”按钮Command11的Click事件代码： 　　a=THISFORM.Text1.Value 　　THISFORM.Text1.Value=a+〃.〃 　　③编写“=”按钮Command12的Click事件代码： 　　a=THISFORM.Text1.Value 　　THISFORM.Text1.Value=ALLT(STR(&a)) 　　THISFORM.Tag=.T. 　　④编写“+”按钮Command13的Click事件代码： 　　a=THISFORM.Text1.Value 　　THISFORM.Text1.Value=a+〃+〃 　　THISFORM.Tag=〃 〃 　　⑤编写“-”按钮Command14的Click事件代码： 　　a=THISFORM.Text1.Value 　　THISFORM.Text1.Value=a+〃-〃 　　THISFORM.Tag=〃 〃 　　⑥编写“*”按钮Command15的Click事件代码： 　　a=THISFORM.Text1.Value 　　THISFORM.Text1.Value=a+〃*〃 　　THISFORM.Tag=〃 〃 　　⑦编写“/”按钮Command16的Click事件代码： 　　a=THISFORM.Text1.Value 　　THISFORM.Text1.Value=a+〃+〃 　　THISFORM.Tag=〃 〃

打印本文   关闭窗口