题目九宫格益智游戏.ppt

題目 : 九宮格益智遊戲 學校 _ 南台科技大學 系所 _ 機械系 班級 _ 自控延修 學號 _姓名 _ 康守維 計算機程式與實習 期末報告PPT製作 九宮格益智遊戲說明 : 如下圖案下”開始“鈕後，表單內的九個按鈕會以亂數方式產生白色與紫色的按鈕，計時器會開始紀時，程式執行時會計算你目前每按一個按鈕的次數，並計秒，直到按鈕5變為白色，其餘8個按鈕為紫色才算過關。 表單之設計 : 開啟 Visual Basic 2010應用程式，建立新專案，並先在表單設計部分，建立需要的輸入輸出介面。(從工具箱中選擇需要的控制項，並改變屬性，方便後續程式編碼。) Button1 ~ Button9 btnStart lblTime lblCount tmrTimer btnEnd 程式碼編輯 : Public Class Form1 Dim OnColor As Color = Color.Violet “宣告紫色Color物件 Dim OffColor As Color = Color.White “宣告白色Color物件 Dim seconds As Integer Dim count1 As Integer Dim changeCells(,) As Integer = { _ {-1, -1, -1, -1, -1}, _ “ ChangeCells(0,0)~(0,4),-1表示無效按鍵 {1, 2, 4, 5, -1}, _ “ChangeCells(1,0)~(1,4),按1時會改變顏色的1,2,4,5數字按鈕 {2, 1, 3, -1, -1}, _ “ChangeCells(2,0)~(2,4),按2時會改變顏色的2,1,3數字按鈕 {3, 2, 5, 6, -1}, _ “ChangeCells(3,0)~(3,4),按3時會改變顏色的3,2,5,6數字按鈕 {4, 1, 7, -1, -1}, _ “ChangeCells(4,0)~(4,4),按4時會改變顏色的4,1,7數字按鈕 {5, 2, 4, 6, 8}, _ “ChangeCells(5,0)~(5,4),按5時會改變顏色的5,2,4,6,8數字按鈕 {6, 3, 9, -1, -1}, _ “ChangeCells(6,0)~(6,4),按6時會改變顏色的6,3,9數字按鈕 {7, 4, 5, 8, -1}, _ “ChangeCells(7,0)~(7,4),按7時會改變顏色的7,4,5,8數字按鈕 {8, 7, 9, -1, -1}, _ “ChangeCells(8,0)~(8,4),按8時會改變顏色的8,7,9數字按鈕 {9, 5, 6, 8, -1} _ “ChangeCells(9,0)~(9,4),按9時會改變顏色的9,5,6,8數字按鈕 } Dim Buttons(9) As Button “宣告Button(0)~Button(9)為Button按鈕物件 Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim btnHit As Button = CType(sender, Button) Dim No As Integer = Integer.Parse(btnH