粤教版 (B版)八年级下册第六节 节日彩灯课文课件ppt

这是一份粤教版 (B版)八年级下册第六节 节日彩灯课文课件ppt，共17页。PPT课件主要包含了制作一个电子海报，海报界面的设计，任务1，计算机中的颜色，产生颜色变换，FOR循环语句，随堂练习等内容，欢迎下载使用。
1.海报包含什么元素？
2.海报实现什么效果？
1. 窗体Frm的图片加载通过（ ）属性设置。
2.彩灯用（ ）控件,,因10盏彩灯都是同类控件，可以建立（ ）
3.彩灯颜色在一定时间内进行变换，用（ ）控件，间隔时间通过（ ）属性值控制
海报界面的设计-图片素材
3—Circle（圆形）
海报的对象、属性分析表
1—Opaque（不透明的）
1—transparent（透明的）
打开VB，设计好电子海报界面，并设置对象的相关属性。
0—transparent（透明的）
如何实现彩灯颜色的变换？
在VB中使用RGB颜色函数来实现颜色的设置。
每种颜色的取值范围都为0-255例如：红色的RGB(255,0,0)
格式为：RGB(红色值,绿色值,蓝色值)
把RGB里的颜色值设为0-255范围内的随机整数
结合Rnd和Int函数产生随机整数
Shape1.BackClr=RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
通过上面的学习，我们可以知道，使用以下代码能实现第一盏彩灯的颜色变换
电子海报中，有10盏灯，同样的代码我们至少重复写10遍；20盏，需要重复写20遍，这样程序就很烦琐了。
在VB语言中，有一个专门用于描述重复工作的语句——Fr循环语句，它能够帮助我们很方便地执行重复的工作，使程序变得短小精悍。
格式：Fr循环变量=初值 t 终值 step 步长值 语句组Next 其中循环变量为数值型变量，初值、终值、步长值均为数值。步长值为循环变量每次的增量，可以为负数。
用循环结构优化彩灯控制
Dim i ,j As IntegerPrivate Sub Timer1_Timer()Fr i = 0 T 10 Step 1Shape1(i).BackClr = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))Next iEnd Sub
随机设置第i盏灯的颜色
定义彩灯数组的索引号为i
初值：i=0 终值：10 step（增量）为1
j=0, j=j+1
拓展任务：实现Frm1.Picture循环变换
分析：图片的周期性循环变换， 可以添加Timer控件
Private Sub Timer2_Timer()j = j + 1If j > 3 Thenj = 0Elsefrm1.Picture = LadPicture(App.Path & "\pic\" & j & ".jpg")End IfEnd Sub
文件名，其中app.path返回工程所在的路径
App.Path & "\pic\" & 1& ".jpg"
1、循环结构中（ C）用来控制变量 B. step C. next D. t
2、循环结构中step用来控制（D）A.循环变量B.循环变量初值C.循环变量终值D.T循环变量增量
3、循环结构中循环变量初值大于终值时，步长为（A）。 A、负数   B、非负数   C、正整数      D、正数