1、1课题：定时器循环教学要求：了解 VB 中的定时器，并会利用定时器实现循环结构。教学重点与难点：定时器的两个重要属性教学方法：教师操作演示，学生观察总结。任务驱动、启发式教学、边讲解边操作。教学过程：【新课导入】电脑的屏幕保护程序。运行桌面上的几个小例子后，大家有没有发现有一个共同的特征？【新课教学】VB 的工具箱中有一个定时器控件可以帮助我们实现这种循环。定时器循环 PPT首先，在定时器对象中存放需要重复执行的程序，定时器工作时，每经过一定时间间隔就触发存放在定时器对象中的程序而形成循环。定时器的两个重要属性是“Enabled”和“Interval” 。当“Enabled”的属性为“True
2、”时，定时器开始工作；属性为“False”时，定时器停止工作。 “Interval”属性决定了定时器对象中程序的时间间隔， ，它的取值范围为 065535（单位：毫秒） 。一、 “倒计时”程序（1）程序功能运行“倒计时”程序。在文本框中输入开始倒计时的秒值，再单击“开始”按钮，开始倒计时。下面，我们就利用定时器来完成这个“倒计时”程序。 （把教材翻到 39 页，图 3.3-7，定时器的界面）（2）分析界面和原理程序界面上有哪些对象？有一个文本框（TextBox）用来输入要倒计时的秒数、一个标签（Label）显示单位，两个按钮（CommandButton）用来开始倒计时和结束整个程序。这个程序的
3、主角是谁呢？定时器（Timer） （下面我们就要让这个主角上场了）（打开半成品）向窗体中添加一个定时器对象“Timer1” （在工具箱的哪里可以找到？忘记的话可以看书本 39 页） 。先将定时器处于关闭状态，检查“Enabled”属性是否为 False”。 （还有一个属性是什么？时间间隔）将“Timer1”的“Interval”属性设置为“1000” （什么意思？）单击“开始”按钮，就将文本框中的值存入变量 i，再将定时器对象“Timer1”的“Enabled”属性设置为“True”，定时器开始工作。定时器每隔 1 秒，就使变量 i 中的值减少 1，可以用什么表达式来表示数字的逐一递减？（i=
4、i-1）。也就是定时器每隔 1 秒，执行一次 i=i-1。并将变量 i 中的值显示在文本框中，怎么表示？（Text1.Text = i）。当变量 i 中的值减到 0 时，将对象“Timer1”的“Enabled”属性设置为“False” ，定时器停止工作。（2）程序源码Dim i As Integer 定义一个存放倒计时开始秒数的整型变量Private Sub Command1_Click()i = Text1.Text 将文本框对象中输入的秒值赋给变量 iTimer1.Enabled = True 使定时器开始工作End SubRem 定时器对象中的程序段Private Sub Timer1
5、_Timer()i = i - 1 秒数递减Text1.Text = i 将递减后的数值显示在文本框中（如果不打以下语句会怎样？用倒计时 3 秒演示）If i = 0 Then Timer1.Enabled = False 当秒值递减到 0 时，关闭定时器，结束循环。2End SubPrivate Sub Command2_Click()EndEnd Sub学生练习：下发“倒计时半成品” ，学生完成。PPT（倒计时程序的关键点） 。程序做完了，大家对定时器有了一定的认识了吧。像这种每隔一段时间需要自动运行的并且重复执行的程序段，我们可以把它们放进定时器，让定时器来帮我们掌握时间、控制循环。下面
6、我们再来另外一个例子。二、 “动画”程序运行“动画”程序。思考以下问题：明明给了 30 张静止的图片，为什么单击“开始”按钮里面的人就会动起来呢？（每隔 0.2 秒切换一张图片，利用人眼的“视觉暂留”原理，形成连续的动态效果）谁来控制这 0.2 秒的时间间隔呢？（定时器）准备知识： Image1.Picture = LoadPicture(“tiger.jpg“) Image1.Picture = LoadPicture(x & “.jpg“) 将序号为 x 的图形送入 Image 对象Timer1 中的循环体：x = x + 1 If x 30 Then x = 1 Image1.Pictu
7、re = LoadPicture(x & “.jpg“)打开“动画”程序工程，分析界面和代码。其中 Image1 好像凹进去的，这种边缘样式在哪里设置？（教材翻到 41 页 BorderStyle 设置属性值为 1）做好程序后，有些同学会发现提示“未找到 1.jpg”,这是为什么？（必须把所有图片放在与工程的相同目录下）最后提醒大家，千万别忘记设置定时器的“Interval”属性（时间间隔） 。好了，给大家 30 张图片你可以编写一个“动画”程序了，那如果我给你 110 张图片你也会利用定时器让动画动起来吗？需要在程序的哪里修改一下呢？“一周表情”exe 文件。学生练习：下发“一周表情半成品” ，参考教材 P.40“动画”程序，完成“一周表情”程序。点评作业【小结】本节课了解了 VB 中的定时器，并会利用定时器实现循环结构。在定时器对象中存放需要重复执行的程序，定时器工作时，每经过一定时间间隔就触发存放在定时器对象中的程序而形成循环。定时器的两个重要属性是“Enabled”和“Interval” 。
