2013年下—天女散花

天女散花計(jì)時(shí)器和隨機(jī)函數(shù)的使用教學(xué)目標(biāo)：1、 了解并學(xué)會使用計(jì)時(shí)器（interval）.2、 學(xué)會隨機(jī)函數(shù)的使用。（Randomize,rnd）3、 學(xué)會使用RGB等常用函數(shù)。4、 通過對本程序的練習(xí)，培養(yǎng)其舉一反三的能力及其對藝術(shù)的欣賞能力。教學(xué)重點(diǎn)：計(jì)時(shí)器和幾個(gè)函數(shù)的使用（RGB，rnd,int等）教學(xué)難點(diǎn)：靈活地應(yīng)用這幾個(gè)函數(shù)來改變所繪制的圖形樣式（如大小，粗細(xì)）。教學(xué)工具：電子教室教學(xué)過程：一、 引入通過這學(xué)期的學(xué)習(xí)，大家對VB有一定的了解，但很不全面，平時(shí)上課過程中，學(xué)習(xí)興趣不是太濃，那我們現(xiàn)在來欣賞一下利用幾個(gè)函數(shù)，幾行代碼就能實(shí)現(xiàn)的精彩。教師展示。二、 新授我們先來分析一下本程序的窗體和代碼。1、 窗體的設(shè)計(jì)：先畫一個(gè)Picture。從工具箱中拖放一個(gè)Picture，調(diào)整大小到適當(dāng)位置。在窗體的下面放一些按扭。例開始、停止、清屏、退出等。一個(gè)timer。這是一個(gè)計(jì)時(shí)器，在英語中加R的通常表示人，這兒time(時(shí)間)加R表示的是計(jì)時(shí)器。2、 代碼的設(shè)計(jì)：主要是計(jì)時(shí)器中的代碼。其它代碼略。Private Sub Timer1_Timer()'隨機(jī)數(shù)初始化Randomizekd = Int(12 * Rnd) + 1)'Picture1.DrawWidth = kdPicture1.DrawWidth = 1'定義三種顏色r = Int(Rnd * 256)g = Int(Rnd * 256)b = Int(Rnd * 256)'取寬和高w = Picture1.Widthh = Picture1.Height'定義坐標(biāo)x = Int(Rnd * w)y = Int(Rnd * h)'畫點(diǎn)'Picture1.PSet (x, y), RGB(r, g, b)畫的是點(diǎn)，Picture1.Circle (x, y), kd * 100, RGB(r, g, b)畫的是圓,End sub其它代碼自行設(shè)計(jì)。計(jì)時(shí)器的interval是計(jì)時(shí)間隔，以ms為單位。起決定動作快慢的作用。Randomize是初始化隨機(jī)數(shù)，就是讓生面的隨機(jī)數(shù)不一樣。Int()是取整數(shù)。GRB表示的是三元色的三種顏色。Pset是畫點(diǎn)，Circle是畫圓。各函數(shù)的使用請參考幫助。三、 思考你能將點(diǎn)變成畫嗎？參加：Circle 方法可畫出圓形和橢圓形的各種形狀。另外，Circle 方法還可以畫出圓?。▓A的一部分）和楔形餅塊。使用變化的 Circle 方法，可畫出多種曲線。為了畫圓，Visual Basic 需要給出該圓的圓心位置和它的半徑。畫一個(gè)理想圓的語法是：object.Circle Step(x, y), radius, color.四、 小結(jié)