パチンコ予想ソフト(2)

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

　さて、作る言語は何でも良いのですが、インタプリタでサクサク動くので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 & "回転目で揃いました。"

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