練習問題

まず、3つの穴のどれか1つからモグラが出てくるという、プログラムを作りましょう。動作内容は次の通りです。 プログラムを起動し、
[ゲーム開始] ボタンをクリックすると、どれか一つの穴からランダムにモグラが出てきます。
このように、どれか1つの穴からモグラが出てくるという動作が [ゲーム終了] ボタンをクリックするまで続きます。 それでは、プログラミングに入りましょう。
次のようにフォームをデザインしてください。
各ボタンコンポーネントの Name プロパティを次の通り指定してください。		Timer については以下のようにコンポーネントを指定してください。
ボタン Name 左のモグラ ButtonMogura1 中央のモグラ ButtonMogura2 右のモグラ ButtonMogura3 ゲーム開始 ButtonStart ゲーム終了 ButtonStop		プロパティ 値 Name TimerMogura Interval 200 Enabled False

さて、前節と同様、[ゲーム開始] および [ゲーム終了] ボタンの Onclick イベントハンドラにおいて、Timer の作動開始と停止を、Enabled プロパティの切り替えで行います。

ここに、[ゲーム開始] ボタンのイベントハンドラにおいて「Randomize（）」が挿入されていますが、これは、この後乱数を用いてどの位置 (穴) からモグラが現れるかを決めるためです。

今、OnTimer イベントにおいて、(3つの内の) どこかの穴からモグラを出現させます。その出現位置を0〜2の乱数を用いて次に様に決めましょう。

0:左の穴から出現　　→　モグラ1を表示

1:中央の穴から出現　→　モグラ2を表示

2:右の穴から出現　　→　モグラ3を表示

　ここに、ボタンの表示／非表示は visible プロパティの値で指定できますから、OnTimer イベントのイベントハンドラは次のようになります。

　プログラムの内容は分かりますね。
これで完成です。早速実行してみてください。モグラが現れては消える、という動作が再現されると思います。

今までは、1匹のモグラが3つの穴のどれかから (必ず) 出てくるという設定でした。したがって、常にどれかの穴から1匹 (だけ) モグラが出てきました。

今度は、モグラは3匹でそれぞれの穴から (独立に) 出たり入ったりするというように設定を変えましょう。つまり、ある瞬間には、モグラが1匹も現れなくなり、またある瞬間には次のように複数のモグラが同時に現れることもある、ということです。

実際のゲームでは、自分で [終了] ボタンをクリックするのではなく、予め制限時間が決められているのが普通です。そこで、制限時間を30秒として、この制限時間内で得点を競うというゲームにしてください。作成するプログラムの動作内容は次の通りです。

プログラムを起動すると下の画面が現れます。ここで、[ゲーム開始] ボタンをクリックするとゲームが始まります。

30秒経過すると、ゲーム終了と表示され、ゲームは終わります。

【基礎課題6-2】のプログラムでは、[ゲーム終了] ボタンをクリックし終了させた後も、[モグラ] ボタンをクリックすると得点が加算されるようになっています。これではまずいですね。

そこで、[ゲーム終了] ボタンをクリックすると、下のように [モグラ] ボタンが選択不可になるようにしてください。