定时器及滚动条的应用

《定时器及滚动条的应用》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、江苏省无锡立信职教中心校教案课题定时器及滚动条的应用课型讲授、练习授课日期2010.5.17授课时数2教学目标巩固掌握水平滚动条的使用进一步理解定时器并学会各种运用提高分析问题、解决问题的能力教学重点水平滚动条的使用定时器的各种应用教学难点定时器的运用学情分析通过对定时器的不同运用来复习巩固定时器。板书设计项目一：复习色块调整的使用项目二：时钟项目三：计时器项目四：倒数器1创建用户界面2设置属性3编写代码4调试和运行教师提出问题、继而解决学生练习、教师辅导学生作品上传，教师点评教学后记最后两项目较相似，学生做了一个，对做另一

2、个很有帮助。江苏省无锡立信职教中心校备课笔记教学内容学生活动项目一：复习色块调整的使用教师布置任务学生练习、教师辅导总结附图：项目二：时钟1创建用户界面2设置属性3编写代码复习：定时器运行的原理？解决：每经过一个间隔时间就会自动运行一次定时器程序，所以分两步：1设置间隔时间，用定时器的Internal属性；2编制定时器程序提出问题：如何获取系统时间？解决：使用Time()函数。附代码：PrivateSubForm_Load()Timer1.Interval=1000EndSubPrivateSubTimer1_Timer()

3、Label1.Caption=Time()EndSub附图：学生练习学生回答提问学生练习江苏省无锡立信职教中心校备课笔记教学内容学生活动项目三：计时器提出问题：每隔一秒自动加一，那定时器时间间隔是多少？解决：1000ms。提出问题：每运行一次定时器程序就自动加一，该如何实现？解决：用计数器，且要在通用过程中进行定义。提出问题：只有单击开始按钮时定时器才运行，怎么办？解决：用定时器的Enabled属性来控制。提出问题：单击“重新开始”按钮时重新计时，怎么办？解决：将计数器设为0。附代码：PublicxAsIntegerPriv

4、ateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubCommand3_Click()x=0Timer1.Enabled=TrueEndSubPrivateSubForm_Load()Timer1.Interval=1000Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()label1.Caption=xx=x+1

5、EndSub学生回答提问学生练习江苏省无锡立信职教中心校备课笔记教学内容学生活动附图：项目四：倒数器提出问题：单击设置按钮如何弹出消息框？解决：使用InputBox()函数。附代码：PublicnAsIntegerPrivateSubCommand1_Click()n=InputBox("请输入倒计时时间（秒）")EndSubPrivateSubTimer1_Timer()n=n-1Label2.Caption=nEndSub附图：教师提出问题、继而解决学生练习、教师辅导总结学生回答提问学生练习