Excel Maniacs

15パズル(18)

今回、扱うのはゲームの終了判定の部分です。

ゲームが終了するのは１～１５までの数字とブランクパネルが

初期状態に配置され直したときです。

　まず、どのタイミングでゲームの終了判定をするかということを

考えなければいけません。プログラマーには、プレーヤーの何回目の

パネル移動でゲームが終了するかをしることはできません。１回目で

あがりになるかもしれないし、１００回目かもしれません。

したがって、プレーヤーのパネル操作１回ごとにゲームの終了判定を

しなければなりません。

　厳密に言えばゲームの開始時にすでにあがっている状態、

すなわち麻雀で言えば天和ということも、可能性としてはあります。したがって

そこまで考慮するならば、最初のパネルシャッフル時に天和の時には

さらにシャッフルを繰り返すというコードを付け加えた方がいいのですが

天和は滅多にあることではないので、今回はそこまでは致しません。

コードは下のようになります。

Function IsGameOver() As Boolean
　　%i=1
　　IsGameOver=True
　　For %y = 5 To 8
　　　　　For %x = 2 To 5
　　　　　　　　If %i = 16 Then
　　　　　　　　　　%i = ""

　　　　　　　　End If
　　　　　　　　If Cells(%y, %x)<> %i Then
　　　　　　　　　　IsGameOver=False
　　　　　　　　End If
　　　　　　　　%i=%i+1
　　　　　Next
　　Next
End Function

いよいよ、15パズルの最終回がちかくなってきました。

次回は全コードを掲示します。

15パズル(17)

【´･ω･`】：前回の続きだ。前回はプレイヤーがどのセルを選んだかを

　　　　　　Set %MyRange = Range?

　　　　　　で取得した。そして Row(%MyRange)で行番号、Col(%MyRange)で

　　　　　　列番号を取得できることも話した。今回の説明は下のコードについてだ。

If Row(%MyRange) > 4 And Row(%MyRange)< 9 And \\
　　　　　Col(%MyRange)>1 And Col(%MyRange)<6 Then

　　　　　（いろいろな処理）

End If

(●`ε´●)：なんだこれは？

【´･ω･`】：このコードはプレイヤーが４×４の盤面内のセルを選択しているかどうかを

　　　　　判定するためのものだ。

(●`ε´●)：なるほど盤面はセルB5からE8までの１６マスだったな。

【´･ω･`】：そう。プレイヤーが選択したセルの行番号は５から８までの

　　　　　　整数、列番号は２から５までの整数でなければならない。

　　　　　　そしてもしも盤面内のセルを選択していたならさらに次の

　　　　　　コードを実行する。

　　　　　　 For %dy = -1 To 1
   　　　　　　　　 For %dx = -1 To 1
    　　　　　　　　　　　 If Abs(%dy + %dx)=1 Then
                                           （プレーヤーが選んだ数字パネルと

　　　　　　　                         ブランクパネルを交換するコード）            
     　　　　　　　　　　　 End If
   　　　　　　　　 Next
  　　　　　　Next

(●`ε´●)：上のコードは（いろいろな処理）のところに書けばいいんだな？

【´･ω･`】：そう。ちょっと複雑になっているが頑張ってついてきて欲しい。

　　　　　　まず大局的な考えを言っておこう。方針はプレイヤーの選んだセルの

　　　　　　上下左右4カ所のどこかにブランクパネルがないかを検査し、もしあれば

　　　　　　それとプレイヤーの選んだセルを交換する・・・だ。ただし、プレイヤーが

　　　　　　B列、E列や5行目、8行目を選んだ場合にマスの外側のブランクセルを

　　　　　　ブランクパネルと誤認しないようにしておかなければならない。

(●`ε´●)：その方法はいろいろあるらしいな？

【´･ω･`】：うん。盤面の外側のセルには何か目印となるような記号を入力しておくような

　　　　　　てもあるがこんかいは、それはやっていない。

　　　　　　　　さて、それではコードの説明だ。二つのループで%dy、%dxはそれぞれ

　　　　　　－１，０，１になる。

　　　　　　%dy=-1は上、%dy=1は下、%dx=-1は左、%dx=1は右方向を示している。

　　　　　　Abs()は絶対値になるからAbs(%dy + %dx)=1 ならば上下左右の

　　　　　　いずれかになる。

(●`ε´●)：なるほど・・・でそのときには内側の（プレーヤーが選んだ数字パネルと

　　　　　　ブランクパネルを交換するコード） を実行するというわけだな。

【´･ω･`】：うん。

(●`ε´●)：具体的には？

【´･ω･`】：こんなかんじかな。

　　　　　If Row(%MyRange)+%dy > 4 And Row(%MyRange)+%dy< 9 And \\
         　　　　Col(%MyRange)+%dx>1 And Col(%MyRange)+%dx<6 Then
              　　　　If Cells(Row(%MyRange)+%dy, Col(%MyRange)+%dx)="" Then
                 　　　　　Cells(Row(%MyRange)+%dy, Col(%MyRange)+%dx)=\\
                 　　　　　　　　　Cells(Row(%MyRange), Col(%MyRange))
              　　　　　　　　　Cells(Row(%MyRange), Col(%MyRange))=""
               　　　  End If
          End If

　　　　・・・赤いコードはプレイヤーがB列、E列や5行目、8行目を選んだ場合に

　　　　マスの外側のブランクセルとプレイヤーが選んだ数字パネルを交換しない

　　　　ためのものだ。

(●`ε´●)：では内側のコードがプレイヤーが選んだ数字パネルとブランクパネルを

　　　　　　　交換するためのものだな。

【´･ω･`】：そう。\\記号は行継続文字だ。SuperPlayRiteは本来は1行々々、命令を

　　　　　書かなければならない。しかし、あまり長くなると見づらいので\\記号を

　　　　　使っているが、その部分は本来、１行だということだ。

(●`ε´●)：わかった。で、今日やった部分をまとめるとこうなるということだな。

　　If Row(%MyRange) > 4 And Row(%MyRange)< 9 And \\
　　　　　　Col(%MyRange)>1 And Col(%MyRange)<6 Then
　　　　　　　　For %dy = -1 To 1
    　　　　　　　　　For %dx = -1 To 1
    　　　　　　　　　　 If Abs(%dy + %dx)=1 Then
       　　　　　　　　　　  If Row(%MyRange)+%dy > 4 And Row(%MyRange)+%dy< 9 And \\
         　　　　　　　　　　　　Col(%MyRange)+%dx>1 And Col(%MyRange)+%dx<6 Then
            　　　　　　　　　　  If Cells(Row(%MyRange)+%dy, Col(%MyRange)+%dx)="" Then
                 　　　　　　　　　　　Cells(Row(%MyRange)+%dy, Col(%MyRange)+%dx)=\\
                　　　　　　　　　　　 Cells(Row(%MyRange), Col(%MyRange))
              　　　　　　　　　　　　Cells(Row(%MyRange), Col(%MyRange))=""
               　　　　　　　　　  End If
         　　　　　　　　　　 End If
      　　　　　　　　　End If
   　　　　　　　　 Next
      　　　　　Next

　　　End If

【´･ω･`】：次回はゲームの終了判定だ。

 

15パズル(16)

【´･ω･`】：今回はプレイヤーがマウスでクリックしたときに

　　　　　　数値パネルとブランクパネル交換するコードを書く。

　　　　　　そのためにはプレイヤーがどのセルをクリックしたのか

　　　　　　わからなければならない。実は三四郎にはこういうことを

　　　　　　するときに実に便利な関数がある・・・。

(●`ε´●)：勿体ぶらずに早く言えよ。

【´･ω･`】：まあ、あせるな。それは・・・。

　　　　　　Range?関数だ。

(●`ε´●)：関数に疑問符がついているのか？

【´･ω･`】：うん。これを使うとプレイヤーがどのセルを選択したかが

　　　　　　簡単にわかる。下のようにすればいい。

　　　　　　Set %MyRange = Range?

　　　　　　そして・・・.

　　　　　　Row(%MyRange)　とすれば選択セルの行番号を

                Col(%MyRange)　とすれば選択セルの列番号を

　　　　　　知ることができる。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）