競争ゲーム例題

・[新規]競争ゲーム（とりあえず二台を不規則に動かしてみよう）

○二台の競争ゲームを作ってみよう

• 問題
  • 二台の自動車が左から右に進む。
  • 画面右の方にゴールがあるとする。
  • 各自動車は早い遅いがあり、どちらが先に着くかはわからない。
  • どちらが勝ったのかを表示してあげよう。
• 実現に向けての検討
  • 二台の車は、ピクチャーボックスで表現するものとし、ピクチャーボックスの大きさは同じとする。
  • スタートは、画面の一番左とする。
  • ゴールは、指定した片方のピクチャーボックスが、画面の一番右に到達したときとする。
    （但し、ぴったりではなくゴール線を超えたらゴールとする）
    つまり、どちらかがゴールに達したときを終了とせず、指定した（例えば上の）ピクチャーボックスがゴールに到達した時をとりあえずゴールとしてしまうということ。
  • どちらが勝ったのかを判定し、ラベルのCaptionプロパティに文字で表示するものとする。
• プログラムの準備 、考え方
  • ランダムに車を進めたいので、Randomizeが必要。
  • グラフィックス座標を利用するので、ScaleMode = 3 が必要。
  • まず、両ピクチャーボックスをスタート位置に着かせる。
  • 次に、Do文により両ピクチャーボックスをランダムに進め、ゴール線を越えるまで繰り返す。
    • 各々さいころを振って、その分だけ進ませるようにすればよさそう。
    • 終了は、例えば上のピクチャーボックスが画面右端に到達した（超えた）時とする。
    • 二つを同時に進めることはプログラム上ではできない。
    • しかし、二つのピクチャーボックスを矢継ぎ早に移動させれば、同時に移動したように見える。
      つまり、一つを移動し、すぐにもう一つを移動させればよいわけである。
      すぐにというのは、単に続けてプログラム２行を書けばよいということである。
  • どちらが勝ったのかを判断して、表示。
    • どちらのピクチャーボックスが先まで進んだのか（右側にあるのか）を判定すればよい。
    • これはＩｆ文にて判定させるとよさそう。
    • 例えば上を１番、下を２番などとしておき、それなりのメッセージをラベルのCaptionプロパティを利用して表示させよう。
  • ゆっくり進めるためには。。。
    • ピクチャーボックスの移動は、早く次々と移動させてしまうと、進んでいるようには見えない。
    • そこで、進ませてはちょっと休み、進ませてはちょっと休むということをさせる必要がある。
    • ここでは、空のFor文を利用してみよう。
• さあ、プログラムしてみよう。
  • プログラムの流れをまずじっくりと考えよう。
  • 座標系について分からないことはないですか？
  • ピクチャーボックスの位置制御について分からないことはないですか？
  • ランダムの使い方（今回はさいころ）について分からないことはないですか？
  • Do-Loop Until文について分からないことはないですか？
  • 条件の書き方についてわからないことはないですか？
  • Ｉｆ文について分からないことはないですか？

  わからない部分があれば、それをきちんと理解しましょう。
  まずはきちんと理解できていないと利用は不可能です。
  理解できていると思ったら、簡単な応用例で使い方を確かめてみましょう。
  教科書やＷＥＢ資料の例題を見ればよいでしょう。

  次に、どのようにしたら問題が解決できるのかをじっくりと考えましょう。
  なるべく小さな問題に分割し、それを自分の知っているＶＢの道具（文法など）でどのようにしたら解決・実現できるのかじっくりと考えて工夫してみましょう。

  とりあえず現時点ではプログラムがそれなりに動くことが大事です。
  見栄えなどについては、後回しとしましょう。
  また、複雑な設定や変更は後から修正していけばよいはずです。

[「Ｃ班」プログラミング基礎のTopに戻る]