皆さん、こんにちは。山本美孝です。

 さて、作る言語は何でも良いのですが、インタプリタでサクサク動くのでVisual Basic 6.0を使います。
 ホントはVisual Basic .NETやVisual C# .NETやDelphiなどを使った方が良いのですが、とりあえずVisual Basic 6.0で作ってから他の言語に移植するのが私にはお気楽でいいです。

 で、乱数を作らなければなりません。乱数を得るには、Rnd関数を使います。これを使うと以下のようにコーディングできます。

------------------------------------------------------------
Dim Kakuritu As Integer ’確率の分母を整数として宣言
Kakuritu = 500

Randomize Time ’乱数の初期化
Dim Rno As Integer ’得られた数字を整数として宣言
Dim Kaiten As Integer ’回転数を整数として宣言
Kaiten = 0

’Do Loop で無限に繰り返す

Do
  Kaiten = Kaiten + 1 ’Kaitenをひとつ増やす
  Rno = Int(Rnd * Kakuritu) ’0〜Kakuritu-1 の乱数を取得
  If Rno = 0 Then Exit Do ’Rnoが0なら大当たりなので脱出
Loop

MsgBox Kaiten & "回転目で揃いました。"

------------------------------------------------------------
こんな感じになります。確変か否かの判断は次回に持ち越します。

コメント