《Visual Foxpro数据库应用技术》课程教学资源（实验课件）综合实验（简易计算器）

简易计算器 信息技术实验教学中心

信息技术实验教学中心

建立应用程序用户界面 选择“新建”表单，进入表单设计器，增加一个文本框 控件Textl、一个标签控件Labell和一个命令按钮组 CommandGroupi,,并将命令按钮组的ButtonCount属性 改为16。 CommandGroup1中各按钮的属性设置如图所示。 Forml ▣X 计算器 Textl 123456789 0 信息技术实验教学中心

建立应用程序用户界面  选择“新建”表单，进入表单设计器，增加一个文本框 控件Textl、一个标签控件Label1和一个命令按钮组 CommandGroup1,并将命令按钮组的ButtonCount属性 改为16。  CommandGroup1中各按钮的属性设置如图所示。 信息技术实验教学中心

编写程序代码 ①编写CommandGroup1的Click事件代码： x=this.value if x=10 X=0 endif IF THISFORM.Tag="t" THISFORM.Text1.Value=ALLT(STR(x)) THISFORM.Tag=TT ELSE a=THISFORM.Text1.Value THISFORM.Text1.Value=a+ALLT(STR(x)) ENDIF 信息技术实验教学中心

编写程序代码 ①编写CommandGroup1的Click事件代码： x=this.value if x=10 x=0 endif IF THISFORM.Tag="t" THISFORM.Text1.Value=ALLT(STR(x)) THISFORM.Tag="" ELSE a=THISFORM.Text1.Value THISFORM.Text1.Value=a+ALLT(STR(x)) ENDIF 信息技术实验教学中心

编写程序代码 Commandgroup1.Click 回☒ 对象B): Commandgroup1 过程®)： Click x=this.value if x=10 x=0 endif IF THISFORM.Tag=t THISFORM.Text1.Value=ALLT (STR(x)) TSFORM.Tag=T* ELSE a=THISFORM.Text1.Value THISFORM.Text1.Value=a+ALLT (STR(x)) ENDIF 信息技术实验教学中心

编写程序代码 信息技术实验教学中心

编写程序代码 ②编写“”按钮Commandu的Click事件代码： a=THISFORM.Text1.Value THISFORM.Texti.Value=a+"." Command11.Click 回X 对象B): □Command11 过程R): Click a=THISFORM.Text1.Value THISFORM.Text1.Value=a+M. 信息技术实验教学中心

编写程序代码 ②编写“.”按钮Command11的Click事件代码： a=THISFORM.Text1.Value THISFORM.Text1.Value=a+"." 信息技术实验教学中心