範例下載:[ Link ]
學習重點
- Mouse Event
- 座標截取
- Timer 元件
- Random() 函式
製作流程與提示項目
○ 建立專案
○ 建立結束按鈕
○ 建立全域變數
- total_time : 整數 ,做為倒數計時用
- click_score : 整數 ,紀錄擊點分數
○ 建立 " 座標顯示 " Label與Edit 元件 ( Edit_xy )
○ 建立 " 分數 " Label與Edit 元件 (Edit_score)
○ 建立 " 倒數計時 " Label與Edit 元件 (Edit_time)
○ 建立 Panel 元件
○ 在Panel 內 OnMouseMove事件中撰寫程式,將滑鼠座標指定到Edit_xy
(使用 OnMouseMove事件中預設 X, Y 變數即可取得)
(使用 OnMouseMove事件中預設 X, Y 變數即可取得)
○ 在Panel內建立一Button物件(Button_clickme)並設定顯示標題
○ 設定Button_clickme 的click事件
- 擊點分數加一 並顯示於 Edit_score
- 設定一個亂數座標變數 RndLeft ,目的在產生按紐的Left值
- 設定一個亂數座標變數 RndTop ,目的在產生按紐的Top值
- 使用Random()函式設定RndLeft,並限制不得超出Panel大小
- 使用Random()函式設定RndTop,並限制不得超出Panel大小
- 將Button_clickme 位址設定為新的座標 ( Left, Top)
- 將Button_clickme 大小改變 ( Width , Height )
○ 增加一個Timer元件,時間單位設為1秒 (設定單位為毫秒),預設為不啟動
○ 撰寫Timer中的OnTimer事件
- 全域變數時間加1
- 將更新的時間設定到Edit_time上.
- 時間為 0 時( If then 判斷 )
- 停止遞減
- 將按紐功能關閉
- 將Timer功能關閉
- 使用showMessage()顯示得分數
○ 修改Button_clickme ,於按下時啟動Timer
○ 增加招呼語,於程式起始時使用InputBox() 讓使用者設定遊戲時間
○ 增加提示訊息,告知使用者按下按鈕後開始計時
○ 完成!
BP:這算是將上學期學過的做一個基本整合,請同學加油,務必成功做出來而且瞭解!
沒有留言:
張貼留言