Ｃｈａｐｔｅｒ.１８ [ じゃんけんゲーム：３ ]
■ゲーム手順の確認
さて、前回の講座では、手順１の部分『１：プレイヤーがゲームを起動』について解説しました。
手順の２〜４までは、ゲームをプレイしているプレイヤーが行う部分であり、我々プログラマーは干渉できない部分ですね。今回は５番目の手順『５：コンピューター側の役をプログラムが決める』のところを見てみましょう。
プレイヤーが出すじゃんけんの役は、１〜３の数字のどれかです。そして、それぞれの数字をじゃんけんの役に変換して考えるんでしたね。ということは、コンピューターの出す役も、やはり１〜３の数字のどれかであることが望ましいですね。
このコンピューターの役は、毎回違ったものでなくてはなりません。一定の規則を持っているようでは、プレイヤーに見破られた時点で、ゲームとしての役割を果たさなくなってしまいます。さて、以前の講座で、このような場合にはどうしたらいいか、解説をしたのですが覚えているでしょうか。
■乱数の準備
こういったケースでは、コンピューターの役に『乱数』を取り入れるのがいいでしょう。乱数については、以前の講座『Ｃｈａｐｔｅｒ.１２ [ 乱数 ]』で詳しく取り上げていますから、よくわからないという人は、そちらで予習しておきましょう。
乱数を生成するには『
じゃんけんの役は１〜３の範囲に限定されていますから、生成される乱数が１〜３の範囲に限定できれば、うまくゲームに乱数を組み込むことができそうですね。毎回１か２か３のどれかが、ランダムに生成されるようにすれば、その数値を使って、コンピューターの役を決めることができるというわけです。
そこで、
ここでは、小数点以下の数値を切り捨てる『
コンピューターの役を決める部分は、このように乱数をうまく生成することができればクリアです。乱数を生成するところまでを実際に記述してみましょう。前回の講座で、サブプロシージャ『
このプロシージャでは、コンピューターの役を入れておくための変数が必要です。そこで始めに『
重要なのは、乱数を生成するときに、１か２か３の範囲で乱数を生成するということは、変数
このコードを実行すると、変数
ここでは、ためしにメッセージを表示して、動作が確認できるようにしています。実際にコードを実行して、どのようなメッセージが表示されるかテストしてみてください。毎回異なる数字が表示されれば成功です。
■ちょっと上いく乱数テクニック
ここまでくると、コンピューターの役を決めるところまではクリアできました。
ただし、実はこのコード、完璧ではありません。重大な欠点が潜んでいるのです。それは『乱数の種』に関係しています。
これって乱数になってないじゃん！ という声が聞こえてきそうですが、これは事実です。これは、
シード値というのは、乱数の生成に使われる『乱数の種』です。このシード値を元にして乱数ジェネレータという機構が乱数を生成します。
なんだかちょっと難しい話になってきましたが、要するに、乱数が一定の規則を持ってしまうということなので、これはまずいですね。
そこでこの現象を回避する方法が用意されています。
それには、
構文
説明
システムタイマーからシード値を生成する
それでは、先ほどのコードを、
注意点としては、
これで、コンピューターの役は、本当の意味で毎回異なるものになりました。これにより、プレイヤーがコンピューターの役を予測することが難しくなり、じゃんけんゲームとしての完成度が上がりましたね。
■格言
コンピューターの役を乱数で決める
乱数を生成するには
完全なランダムというのはこうやって実装するのです。
さて、前回の講座では、手順１の部分『１：プレイヤーがゲームを起動』について解説しました。
じゃんけんゲームのフロー
- １：プレイヤーがゲームを起動
▼
２：プレイヤーが出す役を決める
▼
３：テキストボックスに、役に応じた数字を入力
▼
４：コマンドボタンをクリック(押す)
▼
５：コンピューター側の役をプログラムが決める
▼
６：双方の役を元に勝負を判定
▼
７：結果を表示
▼
８：初期状態に戻す(つまり手順２の状態にする)
手順の２〜４までは、ゲームをプレイしているプレイヤーが行う部分であり、我々プログラマーは干渉できない部分ですね。今回は５番目の手順『５：コンピューター側の役をプログラムが決める』のところを見てみましょう。
プレイヤーが出すじゃんけんの役は、１〜３の数字のどれかです。そして、それぞれの数字をじゃんけんの役に変換して考えるんでしたね。ということは、コンピューターの出す役も、やはり１〜３の数字のどれかであることが望ましいですね。
このコンピューターの役は、毎回違ったものでなくてはなりません。一定の規則を持っているようでは、プレイヤーに見破られた時点で、ゲームとしての役割を果たさなくなってしまいます。さて、以前の講座で、このような場合にはどうしたらいいか、解説をしたのですが覚えているでしょうか。
■乱数の準備
こういったケースでは、コンピューターの役に『乱数』を取り入れるのがいいでしょう。乱数については、以前の講座『Ｃｈａｐｔｅｒ.１２ [ 乱数 ]』で詳しく取り上げていますから、よくわからないという人は、そちらで予習しておきましょう。
乱数を生成するには『
Rnd関数』を使うんでしたね。Rnd関数は、毎回異なる数値を返してくれる関数です。ただし、返ってくる数字は『０以上で、１よりも小さい』数値でした。つまり『０〜０.９９９９９９……』の範囲に限られます。じゃんけんの役は１〜３の範囲に限定されていますから、生成される乱数が１〜３の範囲に限定できれば、うまくゲームに乱数を組み込むことができそうですね。毎回１か２か３のどれかが、ランダムに生成されるようにすれば、その数値を使って、コンピューターの役を決めることができるというわけです。
そこで、
Int関数を組み合わせて、以下のようにコードを記述します。コンピューターの役 = Int(Rnd * 3) + 1
ここでは、小数点以下の数値を切り捨てる『
Int関数』と、乱数を生成する『Rnd関数』を組み合わせることによって、１〜３の範囲で乱数を発生させています。Rnd関数に掛け算している数字を増やせば、もっと大きな範囲で乱数を生成することもできます。仮に上のコードで、掛け算している数値を１０にすれば１〜１０の範囲で乱数を取得することができます。コンピューターの役を決める部分は、このように乱数をうまく生成することができればクリアです。乱数を生成するところまでを実際に記述してみましょう。前回の講座で、サブプロシージャ『
Hyouji』を記述した標準モジュールに、次のように記述します。Sub Janken()
Dim CPU As Integer
CPU = Int(Rnd * 3) + 1
MsgBox "コンピューターの役は" & CPU & "です"
End Sub
Dim CPU As Integer
CPU = Int(Rnd * 3) + 1
MsgBox "コンピューターの役は" & CPU & "です"
End Sub
このプロシージャでは、コンピューターの役を入れておくための変数が必要です。そこで始めに『
CPU』という名前の変数を宣言しています。重要なのは、乱数を生成するときに、１か２か３の範囲で乱数を生成するということは、変数
CPUは整数だけを扱う変数だということです。小数点以下の数値を扱う必要がないので、変数は整数型であるInteger型で宣言しておきます。このコードを実行すると、変数
CPUには、１か２か３のどれかが入ります。どの数値が入るかは、乱数を使っているので毎回変わります。ここでは、ためしにメッセージを表示して、動作が確認できるようにしています。実際にコードを実行して、どのようなメッセージが表示されるかテストしてみてください。毎回異なる数字が表示されれば成功です。
■ちょっと上いく乱数テクニック
ここまでくると、コンピューターの役を決めるところまではクリアできました。
ただし、実はこのコード、完璧ではありません。重大な欠点が潜んでいるのです。それは『乱数の種』に関係しています。
Rnd関数は、乱数を発生させる関数です。しかしその乱数の生成方法は実は一定の規則にのっとっています。わかりやすく言うと『Rnd関数を用いたコードは何度呼び出しても毎回同じ乱数が生成される』ということです。これって乱数になってないじゃん！ という声が聞こえてきそうですが、これは事実です。これは、
Rnd関数が『シード値』というパラメーターを元に乱数を生成していることに関係しています。シード値というのは、乱数の生成に使われる『乱数の種』です。このシード値を元にして乱数ジェネレータという機構が乱数を生成します。
Rnd関数は、このシード値を乱数ジェネレータに渡す役割を果たす関数なのですね。Rnd関数は、基本的に前回生成した乱数をシード値として乱数ジェネレータに渡します。このため、複数回繰り返しても、同じ規則性を持ってしまうことになるのです。なんだかちょっと難しい話になってきましたが、要するに、乱数が一定の規則を持ってしまうということなので、これはまずいですね。
そこでこの現象を回避する方法が用意されています。
それには、
Randomizeというキーワードを使います。Randomize：構文
Randomize説明
システムタイマーからシード値を生成する
Randomizeは、乱数ジェネレータに渡されるシード値を、システムタイマー(ウィンドウズの内部にある時間を管理するタイマー)から拾うように指定します。これにより、乱数は、文字通り規則性のない数値がランダムで返されるようになります。それでは、先ほどのコードを、
Randomizeを使って修正してみましょう。Sub Janken()
Dim CPU As Long
Randomize
CPU = Int(Rnd * 3) + 1
MsgBox "コンピューターの役は" & CPU & "です"
End Sub
Dim CPU As Long
Randomize
CPU = Int(Rnd * 3) + 1
MsgBox "コンピューターの役は" & CPU & "です"
End Sub
注意点としては、
Rnd関数を呼び出す前に、Randomizeを呼び出すということに注意します。あとからRandomizeを呼び出しても無意味ですので気をつけましょう。これで、コンピューターの役は、本当の意味で毎回異なるものになりました。これにより、プレイヤーがコンピューターの役を予測することが難しくなり、じゃんけんゲームとしての完成度が上がりましたね。
■格言
コンピューターの役を乱数で決める
乱数を生成するには
Randomizeを併用完全なランダムというのはこうやって実装するのです。
