(共13张PPT)
2.6
节日彩灯
——致敬抗疫英雄电子海报
制作一个电子海报
1.海报包含什么元素？
2.海报实现什么效果？
分析
图片和彩灯
彩灯颜色变换
图片切换
01
1.
窗体Form的图片加载通过（
）属性设置。
2.彩灯用（
）控件,,因10盏彩灯都是同类控件，可以建立（
）
3.彩灯颜色在一定时间内进行变换，用（
）控件，间隔时间通过（
）属性值控制
Picture
控件数组
shape
Timer
Interval
海报界面的设计
序号
使用的控件
属性
属性值
说明
1
Form1窗体
Name
电子海报的显示屏
Caption
Picture
2
Shape1数组
Name
彩灯
(先添加第一盏彩灯，再采用控件数组批量添加)
BackStyle（背景样式）
BorderStyle（边框样式）
FillStyle（填充方式）
Shape
3
Timer1
Name
周期性重复执行彩灯的变色
Interval
Form1
欢迎英雄归来
图片路径
Shape1
3—Circle（圆形）
Timer1
海报的对象、属性分析表
1—Opaque（不透明的）
1—transparent（透明的）
500-2000
任务1
打开VB，设计好电子海报界面，并设置对象的相关属性。
0—transparent（透明的）
如何实现彩灯颜色的变换？
红色（R)
Red
绿色（G)
Green
蓝色（B)
Blue
计算机中的颜色
在VB中使用RGB颜色函数来实现颜色的设置。
每种颜色的取值范围都为0-255
例如：红色的RGB(255,0,0)
格式为：RGB(红色值,绿色值,蓝色值)
02
R
G
B
把RGB里的颜色值设为0-255范围内的随机整数
结合Rnd和Int函数产生随机整数
Shape1.BackColor=RGB(Int(Rnd
256),
Int(Rnd
256),
Int(Rnd
256))
产生一个在0-256范围内的小数
取括号中小数的整数部分
红色值，绿色值，蓝色值
产生颜色变换
随机函数
取整函数
通过上面的学习，我们可以知道，使用以下代码能实现第一盏彩灯的颜色变换
电子海报中，有10盏灯，同样的代码我们至少重复写10遍；20盏，需要重复写20遍，这样程序就很烦琐了。
03
循环变量=初值
循环变量超过终值
语句组
循环变量增加一个步长
在VB语言中，有一个专门用于描述重复工作的语句——For循环语句，它能够帮助我们很方便地执行重复的工作，使程序变得短小精悍。
格式：
For循环变量=初值
to
终值
step
步长值
语句组
Next
其中循环变量为数值型变量，初值、终值、步长值均为数值。步长值为循环变量每次的增量，可以为负数。
FOR循环语句
是
否
04
i=0
i>10
随机设置第i盏灯的颜色
i=i+1
用循环结构优化彩灯控制
是
否
定义彩灯数组的索引号为i
初值：i=0
终值：10
step（增量）为1
格式：
For循环变量=初值
to
终值
step
步长值
语句组
Next
其中循环变量为数值型变量，初值、终值、步长值均为数值。步长值为循环变量每次的增量，可以为负数。
05
j=0,
j=j+1
j>3
载入图片
将j改为0
拓展任务：实现Form1.Picture循环变换
定义图片名称为j
分析：图片的周期性循环变换，
可以添加Timer控件
是
否
05
拓展任务：实现Form1.Picture循环变换
文件名，其中app.path返回工程所在的路径
App.Path
&
"\pic\"
&
1&
".jpg"
Shape
控件数组
Timer控件
For循环语句
在VB中添加彩灯，可以使用（
）控件
添加同类控件，可以使用（
）批量添加
周期性重复某个事件可以使用（
）控件
实现某段代码重复执行可以使用（
）语句
06
小结
谢谢您的观看Dim
i
As
Integer
Dim
j
As
Integer
Private
Sub
Timer1_Timer()
For
i
=
0
To
10
Step
1
Shape1(i).BackColor
=
RGB(Int(Rnd
256),
Int(Rnd
256),
Int(Rnd
256))
Next
i
End
Sub
Private
Sub
Timer2_Timer()
j
=
j
+
1
If
j
>
3
Then
j
=
0
Else
form1.Picture
=
LoadPicture(App.Path
&
"\pic\"
&
j
&
".jpg")
End
If
End
Sub《节日彩灯》教学设计
教学内容分析
《节日彩灯》是八年级下册第二章第六节的教学内容，本节课在一定意义上是一节综合运用课，需要用到前面几节课学到的较多内容，如timer控件，随机函数Rnd、取整函数Int，趣味性较强。
学习者分析
本节课的学习对象是初二学生，80%以上的同学初次接触VB程序设计，程序设计基础水平较薄弱。加上处于新冠特殊时期，网络学期的特殊性，使老师没法真实了解到学生的学习情况。部分学生特别认真，但还是有部分同学不予重视，学习效果保留空间。
教学目标
知识与技能
学会只用shape控件和设置其属性。
理解控件数组的概念
了解RGB函数语句的格式与使用
巩固Int取整函数、Rnd随机函数和Timer控件的使用。
感受在程序中for循环语句的重要地位。
过程与方法
感受电子海报界面的设计分析，熟悉控件以及与其关联的属性的使用，积累控件属性的设置技巧；
通过案例拓展，学会知识的迁移。
情感态度与价值观
养成用计算思维解决问题的习惯，感受计算机程序的魅力；
建立利用程序设计解决实际问题的生活观念。
向白衣勇士致敬，学会敬畏生命；
教学重点难点
教学重点：shape控件
RGB函数
for循环语句
教学难点：RGB函数的使用
for循环语句
教学策略
以学生为主体，通过线上直播和微课进行学习，从中发现问题，思考并解决问题的过程。
教学准备
微课，PPT，程序，教学设计，练习，练习答疑，网络教学平台
教学过程
教学环节
教师活动
学生活动
设计意图
情景创设
引入新课
播放视频，弘扬爱国主义精神
观看新闻
引起共鸣
激发学习
兴趣
教学过程
教学过程
界面设计：
通过照片，思考需要的控件有哪些？控件的属性应该怎样设置？
思考电子海报包含元素，回答老师问题
查看软件中的工具箱，查找需要的控件
参与程序对象、控件、事件表格的归纳
培养学生运用计算机解决问题的思维
任务1:
完成电子海报的界面制作
发送微课，并巡视辅导学生完成任务
观看微课，制作电子表格的界面设计
思考问题：如何实现彩灯颜色的变换
培养学生自主学习的能力
巩固实操技能
使用RGB函数实现彩灯颜色的变化
思考
观看
完成任务
了解RGB函数的使用
结合For循环语句实现彩灯颜色的变化
在VB语言中，有一个专门用于描述重复工作的语句——For循环语句
格式：
For循环变量=初值
to
终值
step
步长值
语句组
Next
其中循环变量为数值型变量，初值、终值、步长值均为数值。步长值为循环变量每次的增量，可以为负数。
观看理解
编辑程序实现效果
掌握for循环语句的使用
拓展任务：实现Form1.Picture循环变换
结合Timer控件和IF条件语句完成。
讨论交流
培养学生的合作一时
小结
巩固练习
完成练习
巩固知识
