【小倫出品】Pairs 配對 (VB小遊戲-2)
Pairs 配對
很好玩的配對遊戲，大家一定對她不陌生，搭配著可愛的動物圖案，玩起來心情愉快。
-界面介紹
界面相當的簡單，想要難度更高就設定更多的格子吧！
- 玩法介紹
每次翻開兩張圖，如果圖案相同便會消失，若不一樣則翻回去重來，時間越快越好。
- 程式介紹
點擊，開圖，判斷，應該都蠻簡單的，需要用到兩個 TImer 來控制圖片關閉的時間，特別是在選好兩張圖片後，要讓點擊無效，以防止同時開超過三張圖，程式就出錯了。
1. 製造隨機排列的圖片順序。
我們使用兩個 List。
一開始，把 1 ～ 10 的數字放入 List1。【1，2，3，4，5，6，7，8，9，10】
這時， List1 長度 N = 10
利用 Randomize() 隨機產生數字 隨機數字 S = INT ( Rnd() * N )
例如，第一次 N = 10，其隨機數字會介於 0 ～ 9
其數字正好對應 List，因為 List 的位置是以 0 為開始。
接著，利用隨機數字 S （假設 S = 7）。
我們把在位置 7 號的數字，從 List1 拿出來。
List1(7) = 8 （記得 List 位置從 0 開始）。
把 8 這個數字，放入 List2。
再把 8 從 List1 刪除，List1.RemoveAt(7)。
這時，List1 的 長度 N = 9
以此類推，直到 List1 的長度為零。
而這時，List2 的長度 = 10，且裡面的 1 ～ 10 已經形成隨機的排列組合。
用於配對遊戲：
由於配對遊戲，會有相同的圖片。
因此，List 的初始排列，可是設成 List1 = 【1，1，1，1，2，2，2，2，3，3，3，3，4，4，4，4】
這樣，用以上的方法，也能做出隨機的排列組合。
我不確定，VB.net 是否有 Shuffle 功能。
不過，把這種基礎方法學起來，也是訓練程式邏輯的重要步驟。
2. Me.controls 的運用。
將物件的名字與編號拆開敘述，就不用把全部的物件名字打在程式碼內。
例如，第一次點擊第 3 個圖片，第二次點擊第 7 個圖片。
我們只需要“３”跟“７”這兩個數字，便能執行接下來的判定動作。
這大大省去了很多的麻煩。
但也要記得，Me.controls 不是每個都能修改。
3. 防止點擊超過兩張圖。
我的方法，當未點擊時，變數 Click = 0。
第一次點擊，先判定 Click 變數。
若為 0，則執行步驟 A，比如打開隱藏圖片等等。。。
然後，把 Click 變成 1。
第二次點擊，也是先判定 Click 變數。
若為 1，則執行步驟 B。
這時，會馬上把其他所有 Button 的 Enabled 設為 False。
這樣，就不怕有第三次的點擊。
再來，會啟動 Timer，因為圖片不會馬上關起來，會讓玩家至少看個 1 秒。
記得，結束時，要把 Click 設回 0。
就能夠一直循環下去。
直到完成所有配對。
- 結尾
這次的程式不會很難，不過我的方法是把同樣的程式碼，放在 16 個 Button 上，而 Button 的號碼我會設成變數，放在第一排。
這樣，只要改第一個數字就好了。
還有，在重新遊戲時，記得把 List1 & 2 清空，這樣才會有不同的排列組合。
若是在程式中更改照片，記得使用相對路徑，纔不會造成圖片無效。
寫完後，記得玩個兩三遍，看看有沒有程式錯誤。
- 下載
---檔案過大可能會被誤判為病毒，此檔案保證無毒，請儘管放心---
查看原文 >>
