字體:小 中 大 | |
|
|
2009/03/12 17:05:41瀏覽9736|回應7|推薦3 | |
小時候曾經玩過塑膠做的 "智慧盤"。正方型的盤子裡有八個小正方形方塊,上面 印著1~8的數字,每個方塊佔盤子的九分之一,所以會有一個空格。玩的時候先 把方塊的排列順序弄亂,然後利用與空格移動方塊,直到數字排列由上而下呈 1,2,3 - 4,5,6 - 7,8,9 順序就算完成。 多次在知識+裡看到有人求 "九宮格" 遊戲的 VB (或VBA) 程式 (大概是學校老師 出的題目吧?!),我猜想所要的就是一個 3x3 智慧盤的程式。一時興起就用Excel VBA 寫了一個,放在這裡與大家分享 (點這裡下載 -RAR壓縮)(點這裡下載-ZIP壓縮)。 嘿~~~~玩一玩別忘了回來這裡推薦啊! 遊戲的畫面如上圖,按工作表右上的 "智慧盤" 按鈕,程式會要你輸入玩家名 ( 人名),然後遊戲視窗就出現了,按 "開始/重玩" 鈕,方快就會弄亂,並且開始 計秒。 你可以用滑鼠去點數字方塊,使它與鄰近的空格方塊互換位置。當你把移動數 字方塊恢復成上圖的排列時,就完成了。畫面會跳出上圖右邊的訊息,花費的 時間愈短,移動次數愈少,就表示你愈強。按下確定鈕,程式會把你的成績記 錄在工作表裡面,至於要不要存檔,就隨你囉! 下一篇文章裡,我再為您介紹這個遊戲程式的關鍵部份。 我不打算公開這個遊戲完整的程式碼 (這個程式不曾在知識+發表過),因為不 想讓那些想偷懶的學生直接拿去交作業。供您下載的檔案有密碼鎖住原始碼, 尚請見諒。有興趣研究此程式原始碼的 VIP 好友,請您用悄悄話留言。 |
|
( 興趣嗜好|電腦3C ) |