VB交通灯最简单适用于学生

课 题 VB模拟交通灯控制 重点 难点 学习水平 课 型 实作课 课 时 1 识记 理解 运用 教学目标 1、通过实例操作，掌握VB中Timer控件的使用方法 √ √ 2、通过学习，了解Shape控件的使用方法 √ √ 3、通过实例，掌握If语句的使用方法 √ √ 突破重点 难点设想 在教学过程中，许多同学对“对象”的概念掌握得不是很好，在本课 中，通过在一个简单的程序中放置多个对象，让同学加深对对象的了解和 认识。 教学媒体 多媒体计算机、Windows XP操作系统、VB6.0简体中文版 教 学 活 动 及 主 要 语 言 学生活动 一、 导入新课 计算机的一个最大特点就是能进行自动控制，而在自动控制中，计时器的应用是基础，今天我们就通过对模拟交通灯控制的学习，在初步掌握在VB中是如何实现自动控制的。 二、 展现目标 通过展示示例程序，提出本节课的教学目标。 三、 导学达标 1、展示教师预先做好的实例，演示各项功能。 2、 教师通过演示程序的设计思路，布置学生完成本实例。 ⑴程序界面设计（Shape控件的应用【重点】） ⑵程序代码的编写（Timer控件的应用【重点】、if语句的使用【难点】） ⑶程序的调试与修改 3、关键代码 Private Sub tg_Timer() g.BackColor = vbGreen If c <> 0 Then c = c - 1 label1.Caption = c Else g.BackColor = vbBlack tg.Enabled = False Call tt End If End Sub 四、 目标检测 通过转播学生制作的实例，检测达标情况。对实例中存在的问题进行讲解。 五、 扩展教学 教师通过展示红绿灯时间的设置，引入“变量赋值”、“消息框”等概念，为下一步的教学奠定基础。 六、 课堂小结 本节课我们通过结合交通灯模拟的实例，学习了Timer控件及Shpae控件的使用，在些实例的基础上，请大家在结合生活实际，自己熟悉这两个控件的使用。 七、 作业布置 结合本节课内容认真填写实验报告册。