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