🐤⑨IPATGOXの準備2・買目の表示
'参照設定 → Windows Script Host Object Model の指定が必要です
'IPATGOフォルダの中の20xxxxxx.logファイルが日に日に増えていきます
'開催日毎にファイルが増えていきます｡IPATGOが動作していない時であれば､いつでも削除して構いません
'========================================================================================================
'
' IPATGO サンプル Microsoft Excel 2016(VBA)
'
' fileモードによる投票を実行
'
'========================================================================================================
'========================================================================================================
'
' IPATGO サンプル Microsoft Excel 2016(VBA)
'
' IPAT購入状況を照会する
'
'========================================================================================================
' INIファイル文字列情報取得関数API定義
Public Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String) As Long
' IPATログイン情報構造体
Type IpatLogin
InetID As String 'INET_ID
UserNo As String '加入者番号
PassNo As String '暗証番号
ParsNo As String 'P-ARS番号
End Type
' IPAT購入状況情報構造体
Type StatInfo
date As String ' 取得年月日
Time As String ' 取得時刻
total_vote_amount As String ' 累計購入金額
total_repayment As String ' 累計払戻金額
daily_vote_amount As String ' 1日分購入金額
daily_repayment As String ' 1日分払戻金額
limit_vote_amount As String ' 購入限度額
limit_vote_count As String ' 購入可能件数
End Type
'************************************************************************************
Sub 買目表示()
Erase BetUma
Erase BetZiku
Erase Bethimo
'---------------------------------------------------軸ひもセット
BetN = 0 '-----馬券件数
H = 0 '------ひも件数
BetALL = 0 'Bet計
For Uma = 1 To 18
YR = Uma + 4
St1 = Worksheets("レース").Cells(YR, 3) '印
If St1 = "◎" Then
BetZiku(1) = Uma '-------------------軸
H = H + 1
Bethimo(H) = Uma '----------------ひも
ElseIf St1 = "〇" Then
BetZiku(2) = Uma
H = H + 1
Bethimo(H) = Uma
ElseIf St1 = "▲" Then
BetZiku(3) = Uma
H = H + 1
Bethimo(H) = Uma
ElseIf St1 = "△" Then
BetZiku(4) = Uma
H = H + 1
Bethimo(H) = Uma
ElseIf St1 = "×" Then
H = H + 1
Bethimo(H) = Uma
End If
Next
'---------------------------------------------------買目セット
Bet = Sheets("レース").Cells(7, 1) '単複Bet 金額 100円＝100 1万＝10000
'-------------------------------------------単勝
If Sheets("メモ").Cells(1, 4) = "True" Then 'チェックﾎﾞｯｸｽにチェックはTrue
For A = 1 To 4
Uma = BetZiku(A)
If Uma > 0 Then
If DAll(Uma, 1) >= 95 And Oz(Uma) < 10 Then '総合95以上 OZ10以下
BetN = BetN + 1 '馬券件数
BetALL = BetALL + Bet
BetUma(BetN, 1) = "単"
単複組
End If
End If
Next
End If
'-------------------------------------------複勝
If Sheets("メモ").Cells(2, 4) = "True" Then 'チェックﾎﾞｯｸｽにチェックはTrue
For A = 1 To H
Uma = Bethimo(A)
If Uma > 0 Then
If DAll(Uma, 1) >= 100 Then '-----------------総合100以上
BetN = BetN + 1 '馬券件数
BetALL = BetALL + Bet
BetUma(BetN, 1) = "複"
単複組
End If
End If
Next
End If
Bet = Sheets("レース").Cells(12, 1) 'ワイド馬Bet 金額 100円＝100 1万＝10000
If H > 1 Then '----------------------------ひもが有るなら
For C = 1 To H
For D = C + 1 To H
If Bethimo(C) > Bethimo(D) Then 'ひもソート
E = Bethimo(C)
Bethimo(C) = Bethimo(D)
Bethimo(C) = E
End If
Next
Next
If Sheets("メモ").Cells(1, 6) = 1 Then 'ラジオボタン1を選択 流し
'--------------------------------------------投票方式 ながし
'---------------------------ワイド
If Sheets("メモ").Cells(3, 4) = "True" Then 'チェックﾎﾞｯｸｽにチェックはTrue
BetN = BetN + 1
BetUma(BetN, 1) = "ワイド"
流し組
End If
'---------------------------馬連
If Sheets("メモ").Cells(4, 4) = "True" Then 'チェックﾎﾞｯｸｽにチェックはTrue
BetN = BetN + 1
BetUma(BetN, 1) = "馬連"
流し組
End If
End If
If Sheets("メモ").Cells(1, 6) = 2 Then 'ラジオボタン2を選択 Box
'----------------------------------------------投票方式 Box
'---------------------------ワイド
If Sheets("メモ").Cells(3, 4) = "True" Then 'チェックﾎﾞｯｸｽにチェックはTrue
BetN = BetN + 1
BetUma(BetN, 1) = "ワイド"
Box組
End If
'---------------------------馬連
If Sheets("メモ").Cells(4, 4) = "True" Then 'チェックﾎﾞｯｸｽにチェックはTrue
BetN = BetN + 1
BetUma(BetN, 1) = "馬連"
Box組
End If
End If
End If
'------------------------------------投票方式
'通常 NORMAL
'フォーメーション FORMATION
'ボックス BOX
'ながし WHEEL
'軸1頭ながし WHEEL1B
'軸2頭ながし WHEEL2B
'1 着ながし WHEEL1
'2 着ながし WHEEL2
'3 着ながし WHEEL3
'1-2着ながし WHEEL12
'1-3着ながし WHEEL13
'2-3着ながし WHEEL23
'------------------------------------マルチ
'しない 省略
'する MULTI
'-------------------------------------組番
'投票方式 コード 買い目
'通常 03-06 3-6
'フォーメーション 03-0608 3-6 3-8
'フォーメーション 010304-010304 1-1 1-3 1-4 3-3 3-4 4-4
'ボックス 010304 1-3 1-4 3-4
'ながし 01-0304 1-3 1-4
'※枠連においても枠番は数字2桁指定です
'※投票方式が通常の場合は左区分に若番を指定します
'※組番の区切り内では左から若番順で指定します
'組番 (三連複)
'投票方式 コード 買い目
'通常 03-06-11 03-06-11
'フォーメーション 03-0608-11 03-06-11 03-08-11
'フォーメーション 0103-0104-05 01-04-05 01-03-05 03-04-05
'ボックス 01030405 01-03-04 01-03-05 01-04-05 03-04-05
'軸1頭ながし 01-030405 01-03-04 01-03-05 01-04-05
'軸2頭ながし 0103-0405 01-03-04 01-03-05
'※投票方式が通常の場合は左区分､中区分､右区分と若番順に指定します
'※組番の区切り内では左から若番順で指定します
St1 = ""
For A = 1 To BetN
St1 = St1 & BetUma(A, 1) & "," & BetUma(A, 2) & "," & BetUma(A, 3) & "," & BetUma(A, 4) & " /"
Next
Sheets("レース").Cells(23, 3) = St1 '買目書き出し
End Sub
Sub 単複組()
BetUma(BetN, 2) = Format(CStr(Uma), "00")
BetUma(BetN, 3) = "通" ' "NORMAL" '投票方式
BetUma(BetN, 4) = CStr(Bet)
End Sub
Sub 流し組()
BetUma(BetN, 2) = Format(BetZiku(1), "00") & "-"
For C = 1 To H
If BetZiku(1) <> Bethimo(C) Then '◎以外
BetUma(BetN, 2) = BetUma(BetN, 2) & Format(Bethimo(C), "00")
End If
Next
BetUma(BetN, 3) = "流" '" WHEEL" '投票方式 ながし
BetALL = BetALL + Bet
BetUma(BetN, 4) = CStr(Bet)
End Sub
Sub Box組()
BetUma(BetN, 2) = ""
For C = 1 To H
BetUma(BetN, 2) = BetUma(BetN, 2) & Format(Bethimo(C), "00")
Next
BetUma(BetN, 3) = "B" ' "BOX" '投票方式 BOX
BetALL = BetALL + Bet
BetUma(BetN, 4) = CStr(Bet)
End Sub
Sub レース検索計算表示()
検索条件
馬場状態
騎手検索
場検索
レース計算
レース表示
買目表示
Beep 'ビープ音鳴らす
End Sub
競馬でプログラムの作成
お疲れ様でした😎
いいなと思ったら応援しよう！
