初中 初二 信息技術(shù) 節(jié)日彩燈課件

1、信息技術(shù)八年級(jí) 下冊(cè)廣東省高等教育出版社B版節(jié)日彩燈深圳市福田區(qū)紅嶺中學(xué)園嶺初中部石麗娜校慶來臨之際，小明用VB6.0制作了“校慶海報(bào)”，觀摩小明的作品，說說你觀察到的“彩燈”有什么效果？（從數(shù)量和顏色兩個(gè)方面思考）海報(bào)中的多盞彩燈在不停隨機(jī)變換顏色Shape控件數(shù)組顏色函數(shù)：RGB()隨機(jī)函數(shù)：Rnd取整函數(shù)：Int()Timer控件校慶來臨之際，小明用VB6.0制作了“校慶海報(bào)”，觀摩小明的作品，說說你觀察到的“彩燈”有什么效果？（從數(shù)量和顏色兩個(gè)方面思考）RGB函數(shù)計(jì)算機(jī)中每種顏色都是由紅（R）、綠（G）、藍(lán)（B）這三種基本顏色按不同比例生成的RGB（紅色值，綠色值，藍(lán)色值）其中每種顏色

2、值的取值范圍都是0255的整數(shù)思考：你可以用RGB函數(shù)表示的最多種顏色是多少？RGB（255，0，0）紅色彩燈顏色隨機(jī)變換 RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256) Rnd: 0, 1) 小數(shù)256*Rnd：0, 256) 小數(shù)Int(256*Rnd): 0, 255 整數(shù)任務(wù)一：制作出一盞彩燈的顏色變換效果1、添加Shape控件作為彩燈2、添加Timer控件3、利用RGB函數(shù)設(shè)置彩燈的顏色Private Sub Timer1_Timer()Shape1.BackColor = RGB(Int(Rnd * 256), Int(Rnd

3、* 256), Int(Rnd * 256)End SubTimer()事件參考程序：順序結(jié)構(gòu)分支結(jié)構(gòu)循環(huán)結(jié)構(gòu)循環(huán)變量：初值、終值、步長(zhǎng)0100For循環(huán)小紅從起點(diǎn)0出發(fā)，到終點(diǎn)100處，如果每一步是1，需要跨多少步？如果每一步是2呢？循環(huán)體：需要重復(fù)執(zhí)行的操作For 循環(huán)變量 = 初值 To 終值 Step 步長(zhǎng)值語句組NextFor 循環(huán)語句的格式初始位置=0當(dāng)前位置到達(dá)100？往前跨1步否0100For 循環(huán)變量 = 初值 To 終值 Step 步長(zhǎng)值語句組NextFor 循環(huán)語句的格式初始位置=0當(dāng)前位置到達(dá)100？否0100往前跨1步For 循環(huán)變量 = 初值 To 終值 Step

4、步長(zhǎng)值語句組NextFor 循環(huán)語句的格式初始位置=0當(dāng)前位置到達(dá)100？往前跨1步當(dāng)前位置增加1否0100For 循環(huán)變量 = 初值 To 終值 Step 步長(zhǎng)值語句組NextFor 循環(huán)語句的格式初始位置=0當(dāng)前位置到達(dá)100？往前跨1步當(dāng)前位置增加1是否循環(huán)結(jié)束0100For循環(huán)的執(zhí)行步驟循環(huán)變量=初值循環(huán)變量超過終值語句組循環(huán)變量增加一個(gè)步長(zhǎng)是否循環(huán)結(jié)束任務(wù)二：設(shè)置十盞燈的顏色變換的效果（1）用順序結(jié)構(gòu)（2）用循環(huán)結(jié)構(gòu)Private Sub Timer1_Timer()Shape1(0).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), I

5、nt(Rnd * 256)Shape1(1).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)Shape1(2).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)Shape1(3).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)Shape1(4).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256

6、)Shape1(5).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)Shape1(6).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)Shape1(7).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)Shape1(8).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)Shape1(9).B

7、ackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)End SubPrivate Sub Timer1_Timer()Dim i As IntegerFor i = 0 To 9 Step 1Shape1(i).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)NextEnd Sub循環(huán)結(jié)構(gòu)參考程序：Do循環(huán)語句的格式Do While 語句組 Loop循環(huán)條件滿足嗎？循環(huán)體否是循環(huán)結(jié)束（1）計(jì)算2+4+6+.+98+100的結(jié)果，你會(huì)如何計(jì)算，如何編寫程序來計(jì)算呢？（2）利用Do循環(huán)語句來制作十盞燈的顏色變換效果（3）思考：解決同樣的問題，人與計(jì)算機(jī)有何不同？Private Sub Command1_Click()Dim i, s As Integers = 0For i = 2 To 100 Step 2s = s + iNextForm1.Print 2+4+6+.+98+100=; sEnd Sub參考程序：Private Sub Timer1_Timer()Dim i As Integeri = 0Do While i 10Shape1(i).BackColo