(
课件网) 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《节日彩灯》教学设计 教学内容分析 《节日彩灯》是八年级下册第二章第六节的 ... ...
