《第六节 节日彩灯》参考课件

第六节节日彩灯制作一个电子海报1.海报包含什么元素？2.海报实现什么效果？分析图片和彩灯彩灯颜色变换图片切换1.窗体Form的图片加载通过（）属性设置。2.彩灯用（）控件，

因10盏彩灯都是同类控件，可以建立（）3.彩灯颜色在一定时间内进行变换，用（）控件，间隔时间通过（

）属性值控制Picture控件数组shapeTimerInterval海报界面的设计海报界面的设计-图片素材序号使用的控件属性属性值说明1Form1窗体Name电子海报的显示屏CaptionPicture2Shape1数组Name彩灯(先添加第一盏彩灯，再采用控件数组批量添加)BackStyle（背景样式）BorderStyle（边框样式）FillStyle（填充方式）Shape3Timer1Name周期性重复执行彩灯的变色

Interval

Form1欢迎英雄归来图片路径Shape13—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(红色值,绿色值,蓝色值)RGB把RGB里的颜色值设为0-255范围内的随机整数结合Rnd和Int函数产生随机整数Shape1.BackColor=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))产生一个在0-256范围内的小数取括号中小数的整数部分红色值，绿色值，蓝色值产生颜色变换随机函数取整函数电子海报中，有10盏灯，同样的代码我们至少重复写10遍；20盏，需要重复写20遍，这样程序就很烦琐了。通过上面的学习，我们可以知道，使用以下代码能实现第一盏彩灯的颜色变换循环变量=初值循环变量超过终值语句组循环变量增加一个步长在VB语言中，有一个专门用于描述重复工作的语句—For循环语句，它能够帮助我们很方便地执行重复的工作，使程序变得短小精悍。格式：For循环变量=初值to终值step步长值语句组Next

其中循环变量为数值型变量，初值、终值、步长值均为数值。步长值为循环变量每次的增量，可以为负数。FOR循环语句是否用循环结构优化彩灯控制Dimi,jAsIntegerPrivateSubTimer1_Timer()Fori=0To10Step1Shape1(i).BackColor=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))NextiEndSubi=0i>10随机设置第i盏灯的颜色i=i+1用循环结构优化彩灯控制是否定义彩灯数组的索引号为i初值：i=0终值：10step（增量）为1格式：For循环变量=初值to终值step步长值语句组Next其中循环变量为数值型变量，初值、终值、步长值均为数值。步长值为循环变量每次的增量，可以为负数。j=0,j=j+1j>3载入图片将j改为0拓展任务：实现Form1.Picture循环变换定义图片名称为j分析：图片的周期性循环变换，可以添加Timer控件是否拓展任务：实现Form1.Picture循环变换PrivateSubTimer2_Timer()j=j+1Ifj>3Thenj=0Elseform1.Picture=LoadPicture(App.Path&"\pic\"&j&".jpg")EndIfEndSub拓展任务：实现Form1.Picture循环变换文件名，其中app.path返回工程所在的路径App.Path&"\pic\"&1&".jpg"随堂练习1、For.....Next循环结构中（）用来控制变量.A.forB.stepC.nextD.to2、For.....Next循环结构中step用来控制（

）A.循环变量B.循环变量初值C.循环变量终值D.T循环变量增量DC随堂练习3、For.....Next循环结构中循环变量初值大于终值时，步长为（

）。 A、负数

B、非负数

C、正整数

D、正数

AShape控件数组Timer控件For