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