Excel Maniacs

15パズル(15)

(●`ε´●)：本当にランダムにパネルを配置してしまうと

　　　　　　解けない問題になる可能性があるらしい・・・。

　　　　　　必ず解けるように問題を作るにはどうしたらいいだ？

【´･ω･`】：最初にパネルをきちんと配置する。

(●`ε´●)：きちんと？

【´･ω･`】：そう、１～１５までの数字とブランクパネルを解きあがった

　　　　　　状態に配置する。それから、ブランクパネルを適当な

　　　　　　回数だけ、ランダムに上下左右の数字パネルと交換してやる。

　　　　　　そうすれば、その逆回しをすれば元に戻るわけだから

　　　　　　解無しの問題にはならないというわけだ。

(●`ε´●)：なるほど。

【´･ω･`】：まず初期化コードだ。これは「１５パズル(9)」ですでに作った

　　　　　　ものをそのまま使えばいい。下のコードがそれだ。

　　　　　　　For %y = 5 To 8
          　　　　　　For %x = 2 To 5
　　　　　　　　　　　　Cells(%y, %x)=%x +%y*4 -21
　　　　　　　　　　Next
          　　 　Next

　　　　　　　Cells(8,5)=""　

(●`ε´●)：このコードはここで使うつもりだったのか。

【´･ω･`】：まあね。下がパネルをシャッフルするためのコードだ。

　　　　　　%X=5 　　　　　!!初期化時のブランクパネルセルの列番号
　　　　　　%Y=8 　　　　　 !!初期化時のブランクパネルセルの行番号

　　　　　　Randomize(ThisTime())
　　　　　　!!シャッフル
　　　　　　for %i = 1 To 3000
　　　　　　!!ブランクパネルと交換する数字パネル
　　　　　　!!の方向　
　　           %DX = Int(Rand() * 3)-1
　              %DY = Int(Rand() * 3)-1
　　        !!斜め方向のパネルと交換するのを避ける
　　          If Abs(%DX + %DY) = 1 Then
 
                         If Cells(%Y+%DY, %X+%DX) = "" Then
　　　　　　　　　　      !!４×４のマス目の外のセルとの交換
　　　　　　　　　　       !!はしない　
                                     continue for
                        Else　
　　　　　　　　　　      !!交換
                                  %Temp = Cells(%Y+%DY, %X+%DX)
                                   Cells(%Y+%DY, %X+%DX) = Cells(%Y, %X)
                                  Cells(%Y, %X) = %Temp
　　　　　　　　　         !!交換後、新たにブランクパネルになった
　　　　　　　　　         !!セルの行番号と列番号を記憶
                                 %Y = %Y+%DY
                                %X = %X+%DX
                        End If
 
            End if
next

【´･ω･`】：それでは解説しよう。まず最初の２行・・・。

　　　　　　%X=5 　　　　　!!初期化時のブランクパネルセルの列番号
　　　　　　%Y=8 　　　　　 !!初期化時のブランクパネルセルの行番号

　　　　　これは初期化してきちんとパネルが整列しているときの

　　　　　ブランクパネルの位置を表している。すなわちセルE８だ。

　　　　　そして・・・

　　　　　!!ブランクパネルと交換する数字パネル
　　　　　　!!の方向　
　　           %DX = Int(Rand() * 3)-1
　              %DY = Int(Rand() * 3)-1
　　　　　　

　　　　　・・・は-1、０，１のどれかの数値をランダムに生成する。

　　　　　%DXが-1ならブランクパネルの左方向

　　　　　%DXが1ならブランクパネルの右方向

　　　　　%DYが-1ならブランクパネルの上方向

　　　　　%DYが1ならブランクパネルの下方向を示す。

(●`ε´●)：Abs(%DX + %DY) = 1 というのは何だ？

【´･ω･`】：Abs()は絶対値を求めるときに使う関数だ。

(●`ε´●)：？？？

【´･ω･`】：１５パズルではブランクパネルの上下左右にある数字パネルを

　　　　　　交換するのであって、斜め方向には交換しない。Abs(%DX + %DY)が

　　　　　　１ならばそれが保証される。

(●`ε´●)：%DXが１、％DYが１だとすると和の絶対値は２．

　　　　　　その場合はもしもブランクセルがCells(５，２）だとすると

　　　　　　それに対しての数値セルがCells(５＋１，２＋１）じゃ

　　　　　　斜め方向になってしまうもんね。

【´･ω･`】:：そう、どちらか一方が０でなければ上下左右方向にならない。

　　　　　　つぎの

　　　　　　  If Cells(%Y+%DY, %X+%DX) = "" Then
　　　　　　　　　　      !!４×４のマス目の外のセルとの交換
　　　　　　　　　　       !!はしない　
                                    continue for

　　　　　　　・・・コメントの通り。次の

　　　　　　　!!交換
                                  %Temp = Cells(%Y+%DY, %X+%DX)
                                   Cells(%Y+%DY, %X+%DX) = Cells(%Y, %X)
                                  Cells(%Y, %X) = %Temp

【´･ω･`】：　ここはちょっと修正しよう。上のコードは２つのものの値を

　　　　　　交換するときは定石と言えるコードだが、この場合は一方の

　　　　　　値はブランクだと限定されている。つまり、交換後は今までの

　　　　　　ブランクセルの Cells(%Y, %X) が数値セルに

　　　　　　数値セルのCells(%Y+%DY, %X+%DX)がブランクパネルに

　　　　　　なるので・・・

　　　　　　Cells(%Y, %X) = Cells(%Y+%DY, %X+%DX)
   　　　　　Cells(%Y+%DY, %X+%DX) = ""

　　　　　　・・・の２行で十分だ。

　　　　　　・・・ブランクパネルの行番号を示す%Yに今までの数値パネルの

　　　　　　行番号を、列番号を示す%Xに今までの数値パネルの列番号を

　　　　　　忘れずに代入しておく。

　　　　　　%Y = %Y+%DY
                 %X = %X+%DX

　　　　　　これで1回分のシャッフルが終わる。

　　　　　これを適当な回数（この場合は3000回）繰り返すというわけだ。

(●`ε´●)：なるほど。これでやっとプレイヤーはゲームを始めることが

　　　　　　出来るわけだな。

【´･ω･`】：次はプレイヤーがマウスでクリックしたときに数値パネルとブランクパネル

　　　　　　交換するコードだ。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

１５パズル(14)

【´･ω･`】：下がB5：E8の４×４のマス目に１～１５までの数字と

　　　　　　１枚のブランクパネルをランダムに並べるコードだ。

                !!第1ブロック
                 !!変数%Panelの初期化
                 For %i = 1 To 15
                       %Panel(%i)=%i
                Next
               %Panel(16)= ""

               !!第２ブロック
               !!500回シャッフル
               Randomize(ThisTime())
               For %i  = 1 To 500 　　　
                      %x=Int(Rand()*16)+1
                      %y=Int(Rand()*16)+1
    
                     %Temp=%Panel(%x)
                     %Panel(%x)=%Panel(%y)
                     %Panel(%y)=%Temp
             Next

             !!第３ブロック
             !!B5：E8の４×４のマス目に
             !!１～１５までの数字と
             !!１枚のブランクパネルを書き込む

            %i =1
            For %y = 5 To 8
                    For %x = 2 To 5
                            Cells(%y, %x)=%Panel(%i)
                             %i = %i +1
                     Next
           Next

【´･ω･`】：今までやってきたコードを並べただけだから

　　　　　　特に解説の必要は無いと思う。

　　　　　　ただ、このコードでパネルを並べると本当に

　　　　　　ランダムに並んでしまう。

(●`ε´●)：ランダムに並べようとして書いたコードなのだから

　　　　　　当たり前じゃないか。何か不都合でもあるのか？

【´･ω･`】：うん、15パズルではブランクパネルと隣り合った

　　　　　　パネルを交換することによってゲームを進めて

　　　　　　行くわけだろう？

(●`ε´●)：ああ。

【´･ω･`】：本当にランダムに並べてしまうと解けるかどうかの

　　　　　　保証が無くなってしまうそうだ。だから、頑張れば

　　　　　　必ず、解けるようにするためにはこのコードでは

　　　　　　不都合があるんだ。

(●`ε´●)：どうすればいいんだ？

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

１５パズル(13)

【´･ω･`】：それでは重複無しの乱数を作る定石を紹介しよう。

　　　　　　まずは下のコードを見てくれ。このコードはA列に１から１６までの

　　　　　　整数をランダムに並べる・・・・。

　　　　　　!!第1ブロック
        　　　%MaxNum = 16
　　　　　　For %i = 1 To %MaxNum
　　　　　　　　Cells(%i, 1) = %i
　　　　　　Next

　　　　　　!!-----------------------------------------------
　　　　　　!!第2ブロック
        　　　Randomize(ThisTime())
　　　　　　For %i = 1 To 100
　　　　　　　　%X = Int(Rand() * %MaxNum) + 1
　　　　　　　　%Y = Int(Rand() * %MaxNum) + 1

　　　　　　　　%Temp = Cells(%X, 1)
　　　　　　　　Cells(%X, 1)= Cells(%Y, 1)
　　　　　　　　Cells(%Y, 1) = %Temp
　　　　　　Next

【´･ω･`】：それでは解説しよう。第1ブロックは数字の初期化だ。

　　　　　　ここでA1のセルには１を、A２のセルには２、A３のセルには

　　　　　　３というようにきちんと１～１6までの数字を整列させておく。

（●｀ε´●）：買ってきたばかりのトランプの山と同じようにカードが

　　　　　　順序よくならんでいるわけだな。

【´･ω･`】：その通り。第２ブロックセルの数字をシャッフルする。

　　　　　　ランダムに１から１６までの整数値を二つ生成して、

　　　　　　それを%X、%Yとする。そしてA列の%X番目のセルと

　　　　　　%Y番目のセルの値を交換する。

（●｀ε´●）：それをFor文で100回繰り返しているという訳か。

【´･ω･`】：そう。数字を１６から５２に変更すればトランプに

　　　　　　１３６に変更すれば、麻雀の洗牌になるな。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(続く）