| |
| [教学目标] 1． 学习掌握Timer控件的属性。 2． 完成“星星闪烁”的程序设计。 [情感目标] 通过“星星闪烁”程序实例的教学，学生加深对for……next循环的理解，进一步掌握控件引发事件的机理，激发学生对程序设计的兴趣，引导学生对本案例做进一步的探讨，从而培养学生的创新思维能力。 [重点难点] 1． 定时器控件的属性、事件 2． 用随机函数产生x,y的坐标值 [教学过程] 引入 ¨ 欣赏“星星闪烁”的程序运行效果。 ¨ 介绍程序实现的思想： n 星星的实现：在黑色的背景上不断的画出许多小点 n 闪烁效果的实现：画点，清除，再画点，再清除…… ¨ 师生共同分析： n 窗口中点的位置不断发生变化，我们可以用一个函数来控制坐标的位置，通过观察可以发现每个点的坐标位置是随机产生的。问题：可用的函数是哪一个？ n 画点、清除看作一个事件，每次事件触发有一个间隔，我们可用定时器控件来控制这个间隔。这是本节课学习的内容。新授 1． 定时器控件（Timer control）通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。使用 Timer 事件时，可用此事件在每次 Timer 控件时间间隔过去之后通知 Visual Basic 应该做什么。Timer 控件用于背景进程中，它是不可见的。 1.1属性 Enabled 属性允许在运行时使Timer控件成为有效或无效。（演示Enabled属性值为false时，程序运行的效果。在程序代码中使用语句timer1.enabled=true，观看程序运行的结果） Interval 属性以千分之一秒为单位指定 Timer 事件之间的间隔。 1.2事件语法：Private Sub object_Timer() 本例中：Private Sub Timer1 _Timer() 2． PSet 方法（PSet Method）将对象中指定位置的像素点设定为指定的颜色。语法：Pset(x,y) 3． 用随机函数产生x,y的坐标值。 x = Int(Form1.Width * Rnd) y = Int(Form1.Height * Rnd) 4． 学生练习，完成“星星闪烁”的程序设计。练习内容： 1) 建立一个新工程，以文件名xing保存在E:盘的lx文件夹中。 2) 将窗体的背景色设置为纯黑，前景色为黄色，宽6000，高5000。 3) 在窗体中任意位置上建立一个timer控件，Enable属性为True，Interval属性为500。 4) 打开代码编辑窗口，输入以下程序代码： Dim x, y, i As Integer Private Sub Form_Load() Randomize End Sub Private Sub Timer1_Timer() Cls For i = 1 To 50 x = Int(Form1.Width * Rnd) y = Int(Form1.Height * Rnd) PSet (x, y) Next i End Sub 输入代码时注意Private Sub, End Sub语句，不要重复。 5) 运行并调试程序，思考以下问题： ¨ 如何改变星星闪烁的速度？ ¨ 如何改变天空中星星的密度？ ¨ 如何改变星星的颜色？ ¨ 如何改变星星的大小？（提示：设置form的某个属性） 5． 师生共同讨论以上思考题。 |
|
|
