パチンコ予想ソフト(3)
2005年2月15日 コンピュータ 皆さん、こんにちは。山本美孝です。
何回転目に揃うか(Kaitensu)の予想ができたら、次は投資金額の計算をします。
------------------------------------------------------------
Dim Border As Integer
Border = 30 ’1000円で何回回るのかをボーダーと呼びます
Border = Border / 2 ’500円で何回回るのか
Dim Toushi As Integer
Toushi = (Int(Kaiten ¥ Border) + 1) * 500
If Kaiten Mod Border = 0 Then
Toushi = Toushi - 500
End If
------------------------------------------------------------
何回転目に揃うか(Kaitensu)の予想ができたら、次は投資金額の計算をします。
------------------------------------------------------------
Dim Border As Integer
Border = 30 ’1000円で何回回るのかをボーダーと呼びます
Border = Border / 2 ’500円で何回回るのか
Dim Toushi As Integer
Toushi = (Int(Kaiten ¥ Border) + 1) * 500
If Kaiten Mod Border = 0 Then
Toushi = Toushi - 500
End If
------------------------------------------------------------
コメント