visual FoxPro中计时器及命令按钮组控件的应用

《visual FoxPro中计时器及命令按钮组控件的应用》

——“随机抽号软件”教学设计

一、目标陈述：

1、教学宗旨：面向全体学生，教师为主导，学生为主体，因材施教。

2、教学目的：通过本节课学习，使学生认识到灵活应用计时器控件设计动态表单的一般规律，让学生感受到现代化教学及科学技术运用到教学中作用和意义。

3、教学目标：

1）使学生掌握设计应用程序的一般规划流程。

2）使学生掌握设置计时器控件及命令按钮组控件的方法。

3) 使学生熟练分支判断语句在程序中应用。

4）使学生加强在表单设计中审美意识的培养。

4、情感目标：学习利用计时器及命令按钮组控件设计小软件，可以使学生对计算机及visual foxpro产生浓厚兴趣，为以后的数据库程序设计、项目规划打好基础。

5、能力目标：

1）通过练习设计随机抽号程序的设计，进一步掌握计时器控件应用的基本方法。

2）通过实践操作，进一步提高学生装的动手实践能力。

3）通过任务驱动法，做题归纳，比较学习法，可以使学生分析问题，解决问题的能力得到进一步提高。

二、教材地位及重、难点：

1、地位：计时器及命令按钮组的应用是visual foxpro程序设计、表单操作中的重点。

2、重点：

1）计时器控件的属性设置：interval timer event。

2）表单的数据环境设置。

难点：1）计时器控件的timer event属性中代码的设计。

2）命令按钮组中控制语句的设计。

3）表单的int 过程中代码设计。

4）表单设计的整体规划。

三、任务分析：

1、学生基础：通过前面的学习，学生已经能够较熟练地创建

标签控件及文本框控件，并对计时器控件有初步认识，学生学习的积极性较高。

2、使能目标：规划表单流程添加并设置控件设计代码。

3、支撑条件分析：通过前一段练习，学生已经对表单的学习产生了浓厚的兴趣，但他们对表单中控件的属性认识和代码的设计还不到位，本节课中应注意加强对学生分析能力的引导和对设计小程序的整体规划能力的培养，让学生较熟练地掌握表单设计中控件的属性设置及代码的设计。

四、教学过程设计：

1、教学方法：采用媒体演示法，任务驱动和知识对比法、引导法、实践法。

（其中在设计表单INT属性和计时器TIMER EVENT过程代码两个难点知识时用媒体演示法。在设置文本框、标签、命令按钮组控件时，采用任务驱动法和前后知识的联系对比法。）

2、教具：苏亚星多媒体教学网、教师机、学生机、VISUAL FOXPRO语言软件

3、教学过程：

1）引入：（课件展示，激发学生兴趣）

同学们在上周的技能节中看到微机组的活动中抽取学生评委时用到的随机抽号软件，我们还在电视上经常看到节目主持人对现场外观众手机号的随机抽号活动，那么这样的程序我们能做吗？

展示课件，激发学生兴趣。

出示课题：《visual foxpro中计时器及命令按钮组控件的应用》

2）新授：任务驱动：要设计出大家刚才看到的随机抽号软件来，大家思索一下应从哪些方面着手：(表单设计的整体规划) 引导学生分析：1、在随机抽号中，是不是应该有用于控制程序开始和程序暂停的？它们应该是什么控件？（引导学生回答）

2、按下开始按钮后是不是手机号应该显示在屏幕上？

什么控件是我们平常用来做输出的？（引导学生回答）

学生动手操作示范：（学生上教师机演示）新建表单----设计表单大小-----设置表单背景色------添加标签控件-----设置标签属性------添加文本框控件------设置文本框大小教师对学生的操作进行点评：（略）

难点知识启发：1、大家设想一下，电视台的工作人员随时将收到的手机号记下来，又要在抽取时随机的抽号，并且手机号在屏幕上还要自动不停地变化，那和在FoxPro中这些手机号我们应该怎样存贮，或者说存贮在哪里？（教师适时启发）

学生动手操作：依据提示创建号码表。

教师对学生的操作进行点评：（略）

2、再想，如果表中的记录走到了最后一条了，这时就会停下来，而屏幕上手机号的变化又不能停，应该怎么才能做到？(教师适时启发，让记录指针重新回到第一条来)其关键在于timer控件的interval属性设置上)

教师和学生共同写出代码：首先将表添加到表单数据环境，双击打开计时器控件的rimier event过程，输入代码：

if elf()

go top

else

thisform.text1.value=all trim(随机表.号)

skip

end if

3、演示程序，学生观看效果。

4、文本框中的手机号在不停地变化而无法停下来，怎么样才能使它停下来，或重新开始？（即“开始”和“停”按钮中的代码该怎样写？）

（这是计时器控件的重要属性设置）教师启发引导，输写代码1：thisform.timer1.interval=100

bel3.visible=.f.

bel4.visible=.f.

代码2：

thisform.timer1.interval=0

bel3.visible=.t.

bel4.visible=.t.

5、演示程序，学生观看效果。引导学生设置表单的int属性：大家看到了，表单一运行，还没按下开始，手机号已出现并不停地变化着，应如何改正这个错误？

（在表单的int过程中加入以下语句：thisform.timer1.interval=0

bel3.visible=.f.

bel4.visible=.f.

6、运行最后结果，引导学生观察。

3）课堂知识点小结：（略）

4、板书设计：