【練習問題】

　まず、本節では次のようなデジタル・ストップウォッチを作成してみましょう。これは、[開始] ボタンをクリックすると1秒刻みで時刻が進行し、[停止] ボタンを押すと、その進行が停止するというプログラムです。

　まず、上のようなフォームを作成し、さらに System タグ内にある Timer コンポーネントをフォームに貼り付けてください。Timer コンポーネント (自体) は実行時には見えません。したがって貼り付ける場所もどこでも結構です。これは MainMenu コンポーネントの場合と同様です。

　次に各コンポーネントの Name プロパティを次のように指定してください。

コンポーネント	Nameプロパティ
スピンエディット	SpinEdit
開始ボタン	ButtonStart
停止ボタン	ButtonStop

Timer コンポーネントについては次の様にプロパティを指定してください。

プロパティ	値
Interval	1000(1秒の意味)
Enabled	False
Name	Timer

　ここで Timer コンポーネントについて説明しておきましょう。

• Timer は、ある一定時間 (間隔) 毎に処理を行うという用途に用いられるコンポーネントです。
• その一定時間 (間隔) は Interval プロパティで指定します。指定は1/1000秒単位で行うので、例えば1000は1秒という意味です。
• 一定時間 (間隔) 毎に OnTimer イベントが発生します。したがって、処理内容はこの OnTimer イベントのイベントハンドラに記述します。

　今の場合、(1秒ごとに呼び出される) OnTimer イベントの処理内容は、時刻を1秒ずつ増やす、つまり SpinEdit 内の数字に 1 を加える。となります。

それでは、以上を頭に入れておいてプログラミングに入りましょう。 まず、[開始] および [停止] ボタンクリックのイベントハンドラはそれぞれ次の様になります。

Timer の動作開始および停止は Enabled プロパティの値で切り替えることができます。[開始] ボタンをクリックした時に Timer が作動するようにしたいので、ここで Enabled プロパティを True にします。

一方、[停止] ボタンをクリックした時に Timer を停止するのですから、Enabled を False とすればよいのです。この点は皆もすぐに理解できるでしょう。 続いて、OnTimer イベントのイベントハンドラは前ページで説明した通り、次の様になります。

つまり、Interval で指定した1秒毎に SpinEdit の値を1ずつ増やせば良い訳です。これで、完成です。動作を確かめてください。

　このように、Timer イベントを扱う場合、Enabled プロパティの切り替えと、Timer イベントのイベントハンドラの作成がポイントになります。

【基礎課題6-1】

上の【練習問題】に [リセット] ボタンをつけ、これをクリックすると初期状態、つまり0秒の状態に戻るようにしてください。

【応用課題6-1】

デモンストレーションをダウンロード

　【練習問題】を修正して、今度は次の様に制限時間をカウントするタイマーを作成しましょう。
　動作内容は以下の通りです。なお、今の場合 [停止] ボタンは必要ないので削除しました。

今、適当に制限時間を設定します (下の例では10秒)。

[開始] ボタンをクリックするとカウントが開始され、残り時間 (秒数) が減って行きます。そして、残り時間が0となった時点で、“終了しました!”というメッセージが現れてタイマーは止まります。

＜ヒント＞

OnTimerイベントの処理内容が変わります。その処理内容は次の様になるはずです。

残り時間を1つ (1秒) 減らす

If 残り時間=0 then
  '終了しました!' を表示する
  Timer を止める
else 
  何もしない

【応用課題6-2】

デモンストレーションをダウンロード

【応用課題6-1】に [リセット] ボタンをつけましょう。動作内容は以下の通りです。
制限時間が経過すると、次の状態になっているはずです。

ここで [リセット] ボタンをクリックすると、次のように、初期画面に戻るようにします。ここに制限時間 (残り時間) も最初に設定した値 (この例では10秒) に戻るようにしてください。

＜ヒント＞

　最初に設定した制限時間の値を何らかの変数に格納しておく必要があります。そしてそれはグローバル変数でなければなりません。