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パズルの最終回がちかくなってきました。

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

成績一覧表を作る(11)

【´･ω･`】：今回は前回紹介した下のコードをさらにまとめてみよう。

　　    Call 教科別成績(4)　!!国語
　　　  Call 教科別成績(6)　!!現社
　　　  Call 教科別成績(8)　!!数学
　　　  Call 教科別成績(10)　!!化学
　　　  Call 教科別成績(12)　!!体育
　　　  Call 教科別成績(14)　!!保健
　　     Call 教科別成績(16)　!!音楽
　　　  Call 教科別成績(18)　!!美術
　　　  Call 教科別成績(20)　!!書道
　　　  Call 教科別成績(22)　!!英語
　　　  Call 教科別成績(24)　!!オーラル
　　　  Call 教科別成績(26)　!!家庭

　　　　Sub 教科別成績(%列)
　　　　　　 %科目=0
　　　　　　  %科目受験者=0
　　　　　　　For %i = 8 To 52
　　                      %科目 = %科目 + Cells(%i, %列)
　　                      If Cells(%i, %列) <> "" Then
                                  %科目受験者 = %科目受験者 + 1
　　                     End If
　　             Next
　　　　 If %科目受験者>0 Then
　　                  %科目平均= %科目/%科目受験者
　　           End If
　　           Cells(53,%列)=%科目
　　           Cells(54,%列)=%科目受験者
　　           Cells(55,%列)=%科目平均 
            End Sub

【´･ω･`】：数字に赤い色をつけた。そこに着目して欲しい。

　　　　　　何か気がつかないか？

(●`ε´●)：初項４，公差２の等差数列になっているな。

【´･ω･`】：だから上のコードの上半分（メインルーチン）は下のように

　　　　　　まとめられる・・・。

　　　　　　For %i = 4 TO 26 Step 2
   　　　　　　　　　　Call 教科別成績(%i)
　　　　　　Next

(●`ε´●)：３行マクロか・・・。ところでStepってのは何だ？

【´･ω･`】：変数%iの増加分だ。Stepを省略するとForループでは

　　　　　　ループ１回につき%iが１増加する。Step　２　とすると

　　　　　　２ずつ増加するんだ。

(●`ε´●)：そうか。こう書けば４のつぎに%iは５を飛ばして

　　　　　　６になるんだな？

【´･ω･`】：そう。

(●`ε´●)：かなり、短くなったな。

【´･ω･`】：うん。でもここまでやったら、もう一押ししたくなる・・・。

　　　　　　For %i = 4 TO 26 Step 2
   　　　　　　　　　　Call 教科別成績(%i)
　　　　　　Next

　　　　　　Sub 教科別成績(%列)
　　　　　　   %科目=0
　　　　　　   %科目受験者=0
　　　　　　　For %i = 8 To 52
　　                      %科目 = %科目 + Cells(%i, %列)
　　                      If Cells(%i, %列) <> "" Then
                                  %科目受験者 = %科目受験者 + 1
　　                     End If
　　             Next
　　　　 　If %科目受験者>0 Then
　　                  %科目平均= %科目/%科目受験者
　　           End If
　　           Cells(53,%列)=%科目
　　           Cells(54,%列)=%科目受験者
　　           Cells(55,%列)=%科目平均 
             End Sub

(●`ε´●)：まだやるのか？

成績一覧表を作る(10)

【´･ω･`】：さて、べべちゃんの作った各科目の得点合計・受験者数・平均点の

　　　　　　コードをもう一度じっくりと見て欲しい。たしか、成績一覧表を作る(6)だったな。

　　　　　　べべちゃん、あのコードはどうやって作ったんだい？

(●`ε´●)：ああ、科目名と列が異なるだけだから国語のために作った下のコードを

　　　　　　コピペしてつくったんだ。変数の名前を変えて、列を表す数字を変えてな。

　　　　　　俺って頭いいだろ！！

　　　　　　※べべちゃんは国語のコードの赤字の部分を変えて数学のコードを

　　　　　　　作りました。

　　　　　　**********************************************************************

　　　　　　%国語=0
　　　　　　%国語受験者=0
　　　　　　For %i = 8 To 52
　　　　　　　　　　　%国語 = %国語 + Cells(%i, 4)
　　　　　　Next
　　　　　　For %i = 8 To 52
　　　　　　　　　　 If Not IsBlank(Cells(%i, 4)) Then
       　　　　　　　　　　　 %国語受験者 = %国語受験者 + 1
　　　　　　　　　　End If
　　　　　　Next
　　　　　　If %国語受験者>0 Then
　　　　　　　　　　%国語平均= %国語/%国語受験者
　　　　　　End If
　　　　　　Cells(53,4)=%国語
　　　　　　Cells(54,4)=%国語受験者
　　　　　　Cells(55,4)=%国語平均

　　　　　　**********************************************************************

　　　　　　%現社=0
　　　　　　%現社受験者=0
　　　　　　For %i = 8 To 52
　　　　　　　　　%現社 = %現社 + Cells(%i, 6)
　　　　　　Next
　　　　　　For %i = 8 To 52
　　　　　　　　If Not  IsBlank(Cells(%i, 6)) Then
       　　　　　　　　　 %現社受験者 = %現社受験者 + 1
　　　　　　　　End If
　　　　　　Next
　　　　　　If %現社受験者>0 Then
　　　　　　　　　%現社平均= %現社/%現社受験者
　　　　　　End If
　　　　　　Cells(53,6)=%現社
　　　　　　Cells(54,6)=%現社受験者
　　　　　　Cells(55,6)=%現社平均

【´･ω･`】：同じような処理を繰り返すときはその処理を

　　　　　1カ所（さぶルーチン）にまとめ、そのルーチンを

　　　　　呼び出して使うのが定石だ。例えば上の処理なら

　　　　　・・・・

　　　　　Sub 教科別成績(%列)
　　　　　　 %科目=0
　　　　　　  %科目受験者=0
　　　　　　　For %i = 8 To 52
　　                      %科目 = %科目 + Cells(%i, %列)
　　                      If Not  IsBlank(Cells(%i, %列)) Then
                                  %科目受験者 = %科目受験者 + 1
　　                     End If
　　             Next
　　
　　           If %科目受験者>0 Then
　　                  %科目平均= %科目/%科目受験者
　　           End If
　　           Cells(53,%列)=%科目
　　           Cells(54,%列)=%科目受験者
　　           Cells(55,%列)=%科目平均 
            End Sub

           ・・・・こうしておけば変数%列を変えれば同じコードで全ての

　　　　科目に対応させることが出来る。

　　　　似たようなコードをたくさんいろんなところに書き散らかしておくと

　　　　コードの保守が難しくなる。どこかを変えようと思ったら何十カ所も

　　　　書き換えなくてはならない。バグを生み出す元凶だな。

　　　　このサブルーチンをメインルーチンの下に書いておけば

　　　　このようなコードでべべちゃんがやったのと同じことができる。

　　　　**********************************************************************

　　　　Call 教科別成績(4)　!!国語
　　　　Call 教科別成績(6)　!!現社
　　　　Call 教科別成績(8)　!!数学
　　　　Call 教科別成績(10)　!!化学
　　　　Call 教科別成績(12)　!!体育
　　　　Call 教科別成績(14)　!!保健
　　　　Call 教科別成績(16)　!!音楽
　　　　Call 教科別成績(18)　!!美術
　　　　Call 教科別成績(20)　!!書道
　　　　Call 教科別成績(22)　!!英語
　　　　Call 教科別成績(24)　!!オーラル
　　　　Call 教科別成績(26)　!!家庭

　　　　Sub 教科別成績(%列)
　　　　　　 %科目=0
　　　　　　  %科目受験者=0
　　　　　　　For %i = 8 To 52
　　                      %科目 = %科目 + Cells(%i, %列)
　　                      If Not  IsBlank(Cells(%i, %列)) Then
                                  %科目受験者 = %科目受験者 + 1
　　                     End If
　　             Next
　　
　　           If %科目受験者>0 Then
　　                  %科目平均= %科目/%科目受験者
　　           End If
　　           Cells(53,%列)=%科目
　　           Cells(54,%列)=%科目受験者
　　           Cells(55,%列)=%科目平均 
            End Sub

(●`ε´●)：ずいぶん、コードが短くなってすっきりしたな。

【´･ω･`】：ふふふ、まだまだ。次回は今紹介したコードを更にまとめてみよう。

(●`ε´●)：え、まだまとめられるのか？

【´･ω･`】：うん。では次回に・・・