cb027 「簡単な乱数」（04/11/21 Sun）

ランダムな数（サイコロ振ったみたいな）が簡単に得られます。

☆簡単な乱数☆

//-------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
randomize();
}
//-------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int a;
a = random(5);
Label1->Caption = a;
}
//-------------------------------------------------

上段は、フォーム起動時に、乱数の種を初期化しています。

これをしないと、乱数の出現パターンが一定になります。

下段は、整数型変数に、ランダム数発生関数「random」で返される値を入れてます。

randomは、0〜（）の中の数字-1までの中の適当な数（この場合0,1,2,3,4）を返します。