定时器及滚动条的应用.docVIP

江苏省无锡立信职教中心校教案 课 题 定时器及滚动条的应用 课 型 讲 授、练习 授课日期 2010.5.17 授课时数 2 教学目标 巩固掌握水平滚动条的使用 进一步理解定时器并学会各种运用 提高分析问题、解决问题的能力 教学重点 水平滚动条的使用 定时器的各种应用 教学 难点 定时器的运用 学情分析 通过对定时器的不同运用来复习巩固定时器。 板 书 设 计 项目一：复习色块调整的使用 项目二：时钟 项目三：计时器 项目四：倒数器 1创建用户界面 2设置属性 3编写代码 4调试和运行 教师提出问题、继而解决 学生练习、教师辅导 学生作品上传，教师点评 教学 后记 最后两项目较相似，学生做了一个，对做另一个很有帮助。 江苏省无锡立信职教中心校备课笔记 教 学 内 容 学生活动 项目一：复习色块调整的使用 教师布置任务 学生练习、教师辅导 总结 附图： 项目二：时钟 1创建用户界面 2设置属性 3编写代码 复习：定时器运行的原理？ 解决：每经过一个间隔时间就会自动运行一次定时器程序，所以分两步：1设置间隔时间，用定时器的Internal属性；2编制定时器程序 提出问题：如何获取系统时间？ 解决：使用Time()函数。 附代码： Private Sub Form_Load() Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Label1.Caption = Time() End Sub 附图： 学生练习 学生回答提问 学生练习 江苏省无锡立信职教中心校备课笔记 教 学 内 容 学生活动 项目三：计时器 提出问题：每隔一秒自动加一，那定时器时间间隔是多少？ 解决：1000ms。 提出问题：每运行一次定时器程序就自动加一，该如何实现？ 解决：用计数器，且要在通用过程中进行定义。 提出问题：只有单击开始按钮时定时器才运行，怎么办？ 解决：用定时器的Enabled属性来控制。 提出问题：单击“重新开始”按钮时重新计时，怎么办？ 解决：将计数器设为0。 附代码： Public x As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Command3_Click() x = 0 Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() label1.Caption = x x = x + 1 End Sub 学生回答提问 学生练习 江苏省无锡立信职教中心校备课笔记 教 学 内 容 学生活动 附图： 项目四：倒数器 提出问题：单击设置按钮如何弹出消息框？ 解决：使用InputBox()函数。 附代码： Public n As Integer Private Sub Command1_Click() n = InputBox(请输入倒计时时间（秒）) End Sub Private Sub Timer1_Timer() n = n - 1 Label2.Caption = n End Sub 附图： 教师提出问题、继而解决 学生练习、教师辅导 总结 学生回答提问 学生练习