【練習問題】
下のようなフォームを持つプログラムを作って下さい。
コンポーネントの Name
プロパティは、次のようにして下さい。
| コンポーネント |
Name |
| スピンエディット |
SpinEditNumber |
| ボタン「乱数発生」 |
Button |
ボタンをクリックしたときの命令を、次のように書いてください。
解説
- Random(10) は、0から9までの数のうちのいずれかを、ランダムに(不規則に)返します。
- 0から99までの数のうちのいずれかを返したければ、Random(100)
と書きます。
- 「Randomize;」は、乱数系列(乱数の発生順序)を変更する命令です。コンピュータは決まった順序で乱数を発生させます。例えば、「0,3,9,5,…」というように。そこで、この並びが変更されなければ、二度目にプログラムを実行した時にも「0,3,9,5,…」と最初と同じ順序で乱数が発生してしまいます。「Randomize」はこの系列もランダムに変更する命令なのです。ですから、Random
関数を使う前に1度だけ書いておくのが普通です。
それでは、実行して動作を確かめてみてください。
【応用課題 5-1】
デモンストレーションをダウンロード
このようなフォームを持つプログラムを作って下さい。
ボタンを押すと3つのスピンエディットに0から2までの乱数を発生させるようにしてください。
そして、3つの数がそろったら「大当たり!」と表示して下さい。
3つの数がそろっていないときは「はずれ!」と表示して下さい。
【応用課題 5-2】
デモンストレーションをダウンロード
下のようなフォームをもつ、パネルの色が赤／青／黄にランダムに変わるカラースロットマシンをつくります。
色の変わるパネルは、「パネルコンポーネント」を使います。コンポーネントパレットの
Standard タブにあるパネルを、フォームに3つ貼ります。
パネルの色を変えるには、Color
プロパティの値を変えます。図の枠で囲った部分をダブルクリックするか、下向きの三角形をクリックして、左のパネルを赤に、中央のパネルを青に、右のパネルを黄色に変えてください。
パネルの色をランダムに変えるプログラムを書きましょう。色々な方法がありますが、例えば、0, 1, 2の乱数を発生させて、0のとき赤、1のとき青、2のとき黄にするようにしましょう。
Panel1 の色を赤、青、黄色に変える命令は、それぞれ次のように書きます。
Panel1.Color := clRed;
Panel1.Color := clBlue;
Panel1.Color := clYellow;
最後に、色がそろったときには「大当たり!」、そろわなかったときには「はずれ!」のメッセージを出すのも忘れないでください。
