パチンコ予想ソフト(2)
2005年2月14日 コンピュータ 皆さん、こんにちは。山本美孝です。
さて、作る言語は何でも良いのですが、インタプリタでサクサク動くので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 & "回転目で揃いました。"
------------------------------------------------------------
こんな感じになります。確変か否かの判断は次回に持ち越します。
さて、作る言語は何でも良いのですが、インタプリタでサクサク動くので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 & "回転目で揃いました。"
------------------------------------------------------------
こんな感じになります。確変か否かの判断は次回に持ち越します。
コメント