網路城邦
上一篇 回創作列表 下一篇   字體:
[Excel VBA] 3x3 九宮格智慧盤(推推樂)小遊戲
2009/03/12 17:05:41瀏覽9261|回應7|推薦3

小時候曾經玩過塑膠做的 "智慧盤"。正方型的盤子裡有八個小正方形方塊,上面

印著1~8的數字,每個方塊佔盤子的九分之一,所以會有一個空格。玩的時候先

把方塊的排列順序弄亂,然後利用與空格移動方塊,直到數字排列由上而下呈

 1,2,3 - 4,5,6 - 7,8,9 順序就算完成。

多次在知識+裡看到有人求 "九宮格" 遊戲的 VB (或VBA) 程式 (大概是學校老師

的題目吧?!),我猜想所要的就是一個 3x3 智慧盤的程式。一時興起就用Excel

VBA 寫了一個,放在這裡與大家分享 (點這裡下載 -RAR壓縮)(點這裡下載-ZIP壓縮)。

 嘿~~~~玩一玩別忘了回來這裡推薦啊!

遊戲的畫面如上圖,按工作表右上的 "智慧盤" 按鈕,程式會要你輸入玩家名 (

人名),然後遊戲視窗就出現了,按 "開始/重玩" 鈕,方快就會弄亂,並且開始

計秒。

你可以用滑鼠去點數字方塊,使它與鄰近的空格方塊互換位置。當你把移動數

字方塊恢復成上圖的排列時,就完成了。畫面會跳出上圖右邊的訊息花費的

時間愈短,移動次數愈少,就表示你愈強。按下確定鈕,程式會把你的成績記

錄在工作表裡面,至於要不要存檔,就隨你囉!

下一篇文章裡,我再為您介紹這個遊戲程式的關鍵部份。

我不打算公開這個遊戲完整的程式碼 (這個程式不曾在知識+發表過),因為不

想讓那些想偷懶的學生直接拿去交作業。供您下載的檔案有密碼鎖住原始碼,

尚請見諒。有興趣研究此程式原始碼的 VIP 好友,請您用悄悄話留言。



( 興趣嗜好電腦3C )
回應 推薦文章 列印 加入我的文摘
上一篇 回創作列表 下一篇


 回應文章

VBA愛好者
2017/06/10 01:17

請問可否把檔案以及程式碼傳給我呢
我想更改為別的遊戲

感謝您

(B10321034@yuntech.edu.tw)

SONIA
VB2010 4X4的程式
2013/05/31 13:42
想再請教一下 因為我是用VB2010  版,所以我不清楚各版套用的程式與法是否相同,可否告訴我,感激不盡:))

sonia
4x4的遊戲
2013/05/31 13:34
想請教一下,如果要進行vb設計要如何運用,因為我的基礎不太好,但是我對這些小遊戲的設計頗有興趣,不知可否賜教,我的e-mail是sonia19961027@yahoo.com.tw  謝謝

嘿嘿
關於 vba
2011/05/27 16:26
我想利用VBA做出一個例如記憶翻牌的遊戲,我自己有看了很多書,但總是卡在一些地方~可以請教你一下嗎ellen29619312@hotmail.com

DeepKiss
非常感謝作者提供這個程式
2009/07/08 21:09
希望作者繼續開發一些有趣的Excel VBA遊戲
很難才找到一些實作的例子!
ThisIsTheWay(WayCheng) 於 2009-07-09 08:03 回覆:
我寫遊戲程式的經驗不多,寫得不好,野人獻曝而已!

其實網路上也找得到一些 VBA 的遊戲,例如:

http://www.gamesexcel.com/games-excel-vba.html

只是如果你想了解程式的原理,遊戲程式的作者 (或提供者) 可能沒有寫說明。



zi
修改成5x5
2009/06/30 18:04

謝謝你的大作

請問有辦法改成複雜度更高5x5的智慧盤嗎

想給小朋友玩

ThisIsTheWay(WayCheng) 於 2009-07-04 13:39 回覆:
當然可以改成 5x5,程式的邏輯是一樣的,但需等我有空才行!

請 email 給我,等我程式改好公佈出來後,我會 email 通知您。

我現在可以想到,測試的時候會發生的困難是,方塊弄亂之後,我無法把它排回去。



瘦骨
等級:7
留言加入好友
邏輯清楚,設計簡潔
2009/04/02 22:23
藉由遊戲設計,可以學到很多東西,這一篇以及之後的三篇九宮格遊戲設計的文章,都是很好的教材,想學VBA的人,值得花時間好好的瞭解這些程式的設計概念。「返回」的程式設計邏輯清楚,程式碼相當的簡潔,是個值得學習的榜樣。
ThisIsTheWay(WayCheng) 於 2009-04-03 22:49 回覆:
謝謝你的誇獎, 有空我會再多寫一些!