打地鼠.

Presentation on theme: "打地鼠."— Presentation transcript:

1 打地鼠

2 Delay() Sub delay() Dim Start As Integer = Environment.TickCount()
Dim TimeLast As Integer = 100 ' 要延遲 t 秒,就設為 t *1000 Do If Environment.TickCount() - Start > TimeLast Then Exit Do Application.DoEvents() ' 要記得寫這行，不然都在跑迴圈，畫面可能會不見 Loop End Sub

3 Timer 控制項(P.161)

4 取亂數：Int()與 Rnd()函數(P.222)

5 PictureBox 圖片控制項 屬性 Image SizeMode BorderStyle(外框樣式)
Location.x , Location.y Left, Top (相當於Location.x , Location.y) Size.Width(寬度)、Size.Heigth(高度)

6 PictureBox控制項(p.240) PictureBox常用的屬性

7 PictureBox控制項(p.240) 說明： My.Computer.FileSystem.CurrentDirectory敘述，是用來取得專案的目 前路徑（預設為 "專案資料夾\bin\Debug" 資料夾） 請注意！利用程式敘述來顯示圖片，常會因專案資料夾或圖片檔的路徑被更改，導 致圖片無法正常顯示。為了避免這種情形，我們可將圖片存放在 "專案資料夾\bin\ Debug" 資料夾中，並利用 "My.Computer.FileSystem.CurrentDirectory" 敘述來 取得目前路徑，以確保圖片能正常顯示。

8 載入圖片的方法 載入圖片 清除圖片 PictureBox1.Load(“c:\ch12\pig.fig”)
PictureBox1.Image=Image.FormFile(“c:\ch12\pig.fig”) PictureBox1.Image=new Bitmap(“c:\ch12\pig.fig”) 清除圖片 PictureBox1.Image=Nothing

9 圖片位置和尺寸的調整 位置 尺寸 PictureBox1.Location=New Point(22,66) 或
PictureBox1.Left=22 PictureBox1.Top=66 尺寸 PictureBox1.Size=New Size(Width,Height) 縮小一半 PictureBox1.Size=New Size(picturebox1.Width/2, picturebox1.Height/2) PictureBox1.Width=picturebox1.width/2 PictureBox1.Height=picturebox1.Height/2

10 聲音(參考P.222~225) My.Computer.audio(聲音檔, 播放方式) My.Computer.audio.stop()
audioPlayMode.Background audioPlayMode.WaittoComplete audioPlayMode.BackgroundLoop My.Computer.audio.stop() 使用方法： My.Computer.audio.play(“c:\ding.wav”,audioPlayMode.Background) 只能播放WAV及系統音效

11 作業 新年快樂 or 情人節快樂…… 照片隨機出現 照片在Form1上隨機出現

12 打地鼠遊戲 作法： 一、加入資源圖檔(下載圖案，以及一個音效檔到你的電腦(音效) 二、表單物件佈置 三、啟動遊戲→使圖案隨機出現
六個PictureBox ：分別改名為M1~M6(Name屬性) 三、啟動遊戲→使圖案隨機出現 加入Timer1，將其Interval(時間間隔)屬性設為1000(等於一秒)。

13 四、打地鼠囉 全域變數宣告 M1~M6_Click的處理程式 地鼠隨機出現的處理程式

14 五、計時機制

15 進階挑戰(加分題) 如何讓地鼠出現時間忽快忽慢？ 如何讓地鼠一次出現一到數隻？ 提示：隨機修改計時器的Interval屬性
提示：可用迴圈重複顯示「一隻」地鼠的程式碼