《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+"." 信息技术实验教学中心

编写程序代码 ③编写“=”按钮Command12的Click事件代码： a=THISFORM.Texti.Value THISFORM.Texti.Value=ALLT(STR(&a)) THISFORM.Tag="t" 到 Command12.Click 回☒ 对象B): □Command12 过程R): Click a=THISFORM.Text1.Value THISFORM.Text1.Value=ALLT (STR(a)) THISFORM.Tag="t" 信息技术实验教学中心

编写程序代码 ③编写“=”按钮Command12的Click事件代码： a=THISFORM.Text1.Value THISFORM.Text1.Value=ALLT(STR(&a)) THISFORM.Tag="t" 信息技术实验教学中心

编写程序代码 ④编写“+”按钮Command13的Click事件代码： a=THISFORM.Texti.Value THISFORM.Text1.Value=a+"+" THISFORM.Tag="M Command13.Click 回☒ 对象B): ☐Command13 过程R): Click a=THISFORM.Text1.Value THISFORM.Text1.Value=a+M+ THISFORM.Tag=** 信息技术实验教学中心

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

编写程序代码 ⑤编写“_”按钮Command14的Click事件代码： a=THISFORM.Texti.Value THISFORM.Texti.Value=a+"-" THISFORM.Tag="M Command14.Click .回☒ 对象B): ☐Command14 过程R): Click a=THISFORM.Text1.Value THISFORM.Text1.Value=a+"- THISFORM.Tag=T* 信息技术实验教学中心

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

编写程序代码 ⑥编写“*”按钮Command15的Click事件代码： a=THISFORM.Texti.Value THISFORM.Texti.Value=a+"*" THISFORM.Tag="M 酉 Command15.Click 。回☒ 对象B): ▣Command15 过程R): Click a=THISFORM.Text1.Value TTSF0RM.Text1.Value=a+“*“ THISFORM.Tag=T* 信息技术实验教学中心

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

编写程序代码 ⑦编写“/”按钮Command6的Click事件代码： a=THISFORM.Text1.Value THISFORM.Texti.Value=a+/" THISFORM.Tag="M 到 Command16.Click 回☒ 对象B): □Command16 过程⑧)： Click a=THISFORM.Text1.Value THISFORM.Text1.Value=a+"/M THISFORM.Tag=* 信息技术实验教学中心

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