《第六節(jié) 節(jié)日彩燈》參考課件

第六節(jié)節(jié)日彩燈制作一個電子海報1.海報包含什么元素？2.海報實現(xiàn)什么效果？分析圖片和彩燈彩燈顏色變換圖片切換1.窗體Form的圖片加載通過（）屬性設(shè)置。2.彩燈用（）控件，

因10盞彩燈都是同類控件，可以建立（）3.彩燈顏色在一定時間內(nèi)進行變換，用（）控件，間隔時間通過（

）屬性值控制Picture控件數(shù)組shapeTimerInterval海報界面的設(shè)計海報界面的設(shè)計-圖片素材序號使用的控件屬性屬性值說明1Form1窗體Name電子海報的顯示屏CaptionPicture2Shape1數(shù)組Name彩燈(先添加第一盞彩燈，再采用控件數(shù)組批量添加)BackStyle（背景樣式）BorderStyle（邊框樣式）FillStyle（填充方式）Shape3Timer1Name周期性重復執(zhí)行彩燈的變色

Interval

Form1歡迎英雄歸來圖片路徑Shape13—Circle（圓形）Timer1海報的對象、屬性分析表1—Opaque（不透明的）1—transparent（透明的）500-2000任務1打開VB，設(shè)計好電子海報界面，并設(shè)置對象的相關(guān)屬性。0—transparent（透明的）如何實現(xiàn)彩燈顏色的變換？紅色（R）Red綠色（G）Green藍色（B）Blue計算機中的顏色在VB中使用RGB顏色函數(shù)來實現(xiàn)顏色的設(shè)置。每種顏色的取值范圍都為0-255例如：紅色的RGB(255,0,0)格式為：RGB(紅色值,綠色值,藍色值)RGB把RGB里的顏色值設(shè)為0-255范圍內(nèi)的隨機整數(shù)結(jié)合Rnd和Int函數(shù)產(chǎn)生隨機整數(shù)Shape1.BackColor=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))產(chǎn)生一個在0-256范圍內(nèi)的小數(shù)取括號中小數(shù)的整數(shù)部分紅色值，綠色值，藍色值產(chǎn)生顏色變換隨機函數(shù)取整函數(shù)電子海報中，有10盞燈，同樣的代碼我們至少重復寫10遍；20盞，需要重復寫20遍，這樣程序就很煩瑣了。通過上面的學習，我們可以知道，使用以下代碼能實現(xiàn)第一盞彩燈的顏色變換循環(huán)變量=初值循環(huán)變量超過終值語句組循環(huán)變量增加一個步長在VB語言中，有一個專門用于描述重復工作的語句—For循環(huán)語句，它能夠幫助我們很方便地執(zhí)行重復的工作，使程序變得短小精悍。格式：For循環(huán)變量=初值to終值step步長值語句組Next

其中循環(huán)變量為數(shù)值型變量，初值、終值、步長值均為數(shù)值。步長值為循環(huán)變量每次的增量，可以為負數(shù)。FOR循環(huán)語句是否用循環(huán)結(jié)構(gòu)優(yōu)化彩燈控制Dimi,jAsIntegerPrivateSubTimer1_Timer()Fori=0To10Step1Shape1(i).BackColor=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))NextiEndSubi=0i>10隨機設(shè)置第i盞燈的顏色i=i+1用循環(huán)結(jié)構(gòu)優(yōu)化彩燈控制是否定義彩燈數(shù)組的索引號為i初值：i=0終值：10step（增量）為1格式：For循環(huán)變量=初值to終值step步長值語句組Next其中循環(huán)變量為數(shù)值型變量，初值、終值、步長值均為數(shù)值。步長值為循環(huán)變量每次的增量，可以為負數(shù)。j=0,j=j+1j>3載入圖片將j改為0拓展任務：實現(xiàn)Form1.Picture循環(huán)變換定義圖片名稱為j分析：圖片的周期性循環(huán)變換，可以添加Timer控件是否拓展任務：實現(xiàn)Form1.Picture循環(huán)變換PrivateSubTimer2_Timer()j=j+1Ifj>3Thenj=0Elseform1.Picture=LoadPicture(App.Path&"\pic\"&j&".jpg")EndIfEndSub拓展任務：實現(xiàn)Form1.Picture循環(huán)變換文件名，其中app.path返回工程所在的路徑App.Path&"\pic\"&1&".jpg"隨堂練習1、For.....Next循環(huán)結(jié)構(gòu)中（）用來控制變量.A.forB.stepC.nextD.to2、For.....Next循環(huán)結(jié)構(gòu)中step用來控制（

）A.循環(huán)變量B.循環(huán)變量初值C.循環(huán)變量終值D.T循環(huán)變量增量DC隨堂練習3、For.....Next循環(huán)結(jié)構(gòu)中循環(huán)變量初值大于終值時，步長為（

）。?A、負數(shù)

B、非負數(shù)

C、正整數(shù)

D、正數(shù)

AShape控件數(shù)組Timer控件For