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

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

　さて次は確変の計算をしなければなりません。従来までは確変率は1/2の固定でしたが、今はさまざまなものがあります。

　ちょっとサンプルで考えてみましょう。
------------------------------------------------------------
Dim MyTry As Integer

■2分の1の場合
MyTry = Int(Rnd(2))
’0のみ確変

■3分の2の場合
MyTry = Int(Rnd(3))
’0，1，2のうち0，1が確変

■4分の3の場合
MyTry = Int(Rnd(4))　　
’0，1，2，3のうち 0，1，2 が確変になる。

■100分の55の場合
MyTry = Int(Rnd(100))　　
’0〜54までが確変になる
------------------------------------------------------------
■All分のKakuhenの場合
MyTry = Int(Rnd(All))
’0〜Kakuhen-1までが確変になることが判明する。

------------------------------------------------------------