このスクリプトでできること

• 三連単の人気順をもとに、上位10点を自動で選択します。
• 選ばれた各買い目に対して、100円ずつ均等に投票します。
• 複雑な条件分岐を使わないため、サンプル確認用として扱いやすい構成です。

このサンプルが向いている方

• まずは「スクリプトで何ができるのか」を試してみたい方
• 複雑な条件を入れる前に、基本的な動作を確認したい方
• 人気順を基準にしたシンプルな買い方を比較対象として持っておきたい方

動きのイメージ

1. 対象レースの三連単オッズを取得します。
2. 人気順に並べ、上位10点を抽出します。
3. 抽出した10点に対して、各100円で投票内容を作成します。
4. その内容を使って、検証または実投票に利用できます。

ポイント

このスクリプトは、あえて条件を絞り込まず、
「人気上位だけで買った場合の基準」を作るためのサンプルです。

他の条件付きスクリプトと比較することで、
「条件を加えることで成績がどう変わるか」を明確に検証できます。

とことんボート君では、このようなシンプルな買い方でも、過去データを使って傾向を見たり、
他の条件付きスクリプトと比較したりできます。

ご利用時の見どころ

• 人気上位だけを買った場合に、どの程度の成績になるか
• 回収率・的中率・収支の推移がどうなるか
• 条件を追加したスクリプトと比べて、どのような違いが出るか
• このスクリプトを基準として、他の条件付きスクリプトと比較することで違いが明確になります

スクリプト本体

以下は、このサンプルの実際のスクリプトです。
内容を確認することで、「どのような条件で投票対象が決まるか」を具体的に理解できます。
この内容は、スクリプトの動きを詳しく確認したい方向けです。

Public Sub お試し_三連単人気上位10点_各100円()
    Dim i As Integer

    ' いずれかの選手が欠場の場合、投票を止めます。
    If 欠場確認() Then Return

    ' 三連単の人気上位 10 個の買い目を列挙します。
    Dim 投票候補 As List(Of 舟券) = New List(Of 舟券)
    For i = 1 To 10
        Dim 舟券データ = 選択レース.三連単人気(i)
        ' 想定した人気順位の買い目を取得できない場合は中止します。
        If 舟券データ Is Nothing Then Return
        投票候補.Add(New 舟券(舟券データ.買い目))
    Next

    ' 各舟券に指定された資金を設定します。
    ' 戻り値は、トータルの投票資金になります。
    ' 資金を設定できる舟券がなかった場合、戻り値は 負の値 になります。
    Dim 投票資金 As Integer = 指定均一(投票候補, 100)
    If 投票資金 < 0 Then Return

    ' 投票します。
    投票(投票候補)
End Sub
      

※ 内容をそのままコピーして、すぐに試すことができます。