 |
「DIY競馬プログラミング JRA-VAN Data Lab.編」活用教室（2-9） | 更新 |
| 05-09-04 |
１．時系列オッズのダウンロードプログラム
前回までで応用編第一部の「レース解析」までのプログラムを作成しました。「レース解析」では、レース単位で単複オッズの票数や払戻情報を解析するだけで、各馬番ごとのオッズを解析することはしませんでした。今回は、各レースの馬番ごとの単複オッズの時系列データを解析するプログラムを作ります。今回作るプログラムの動作イメージは、
（１）「ﾚｰｽ一覧」のレース行をダブルクリックすると該当するレースの「時系列オッズ（単複枠）」をダウンロードする。
（２）解析した単勝オッズをワークシート「単勝ｵｯｽﾞ」に、複勝オッズをワークシート「複勝ｵｯｽﾞ」に時系列で表示し、さらに折れ線グラフで表示する。
（３）ダブルクリックしないレース番号の単複オッズの時系列データは、レース中にはダウンロードしませんが、レース終了後に「JVDataダウンロード」ボタンをクリックすると未取得のレース分の時系列オッズをダウンロードします。
（４）馬連オッズについては解析しませんが、レース終了後に「JVDataダウンロード」ボタンをクリックすると全レース分の時系列馬連オッズをダウンロードします。つまり解析はしないが、データだけは取り込んでおくというわけです。（単複オッズの時系列解析をしてみると予想以上の時間がかかることがわかり、馬連まで解析するとさらに時間がかかるので、割愛しました。どうしても解析したい人はご自分でトライしてください。）
２．ワークシートの追加（挿入）
（１）ワークシートの"Sheet2"のタブをダブルクリックして名前を「単勝ｵｯｽﾞ」（カタカナは半角）と変更します。
（２）メニューから「挿入」→「ワークシート」でワークシートが追加されるので、やはり名前を「複勝ｵｯｽﾞ」と変更し、下図のように並び替えてください。
３．ワークシート「ﾚｰｽ一覧」へのプログラム
（１）VBEモードで"Sheet1(ﾚｰｽ一覧)"をダブルクリックします。
（General)というページが表示されます。
（２）"Worksheet"を選択します。
（３）"BeforeDoubleClick"を選択します。
Private Sub WorksheetDoubleClickというプロシージャが自動的に作成される。メインのプログラムをここに記述していきます。（上で"Worksheet"を選択した際に作成されたPrivate Sub Worksheet_SelectionChange は使用しませんので削除してもしなくてもどちらでもかまいません）
（４）「時系列オッズ（単複枠）」ダウンロードのフローチャート
フローチャートのイメージは下図のとおりです。
注意するのは、ワークシートからダブルクリックで直接JV-Linkを呼び出す場合には、ワークシートごとにJV-Linkの初期設定が必要なことです。
（５）ワークシート「ﾚｰｽ一覧」へのプログラムコードの実際
①JV-Linkの定義
下記のコードをPrivate Sub Worksheet_BeforeDoubleClick の前に記述します。
これは、このワークシートで使うJV-Linkの定義をします。
"frmStart"で使用したJV-LinkはJVLink1 でしたが、ワークシートが変わるとJV-Linkを別にする必要があることがわかりました。
②[Private Sub Worksheet_BeforeDoubleClick]のコード
下記はコードの一部で、内部で使うサブルーチンの手前までのコードです。
[Set_JvLink_For_Worksheet]は、ワークシート用のJVLink初期設定ルーチンです。
青い下線部分は、DIY2固有のサブルーチンです。
このコードでは内部サブルーチンが多くありますが、メインは内部サブルーチンの[GetTimeChangeOdds1]と[ChartOddsData]です。
内部サブルーチンを順に記述していきます。以下のコードは上の Exit Sub の下に続けて記述します。
[CheckTargetArea]のコード
これはワークシート「ﾚｰｽ一覧」でダブルクリックされた行・列が適切な範囲かどうかをチェックするサブルーチンです。範囲外の場合はメッセージを出します。
[SetKAISAIJOHO]
ダブルクリックした行の頭の競馬場名と一致する開催情報を「ﾚｰｽ一覧」の左上の３つの情報から探ります。
[LineColorYellow]
ダブルクリックした行を「黄色」にします。
[GetKaisaiHenkoJoho]
開催変更情報を確認します。青い下線部分は、DIY2固有のサブルーチンです。
[DisplayKaisaiInfo]
開催情報（レース条件など）を「単勝ｵｯｽﾞ」「複勝ｵｯｽﾞ」シートに表示します。
[GetTimeChangeOdds1]
このサブルーチンは、２つの重要なことを行います。１つは発走時刻とオッズデータの時刻の差異でダウンロードするかどうかの判断と、もう１つは時系列オッズのデータ数に応じて表示する点数を調整することです。時系列オッズは、数分ごとに発表されるため、前日発売の場合は、かなりのデータ数になります。このため全部のデータを表示し、折れ線グラフにすると時間もかかるため、データ数に応じて表示点数を調整します。データ数が５０以下なら全部、５０～１００の間は１つおき、１００～２００の間は３分の１、２００以上の場合は４分の１の点数にします。
[DisplayOddsInfo]
これはオッズ情報を各ワークシートに表示するサブルーチンです。ここも２つのポイントがあります。１つは、前のオッズデータとの変化率によりセルの色づけをすることと、もう１つは１～３番人気のオッズのセル枠を色づけすることです。セル枠の色は１番人気が赤、2番人気が青、3番人気は緑です。
[ChartOddsData]
オッズデータをグラフにするルーチンです。
実際にグラフ化するのは[PlotOddsData]の部分です。
[DisplayBottomTitle]
これはオッズデータをグラフ化した後でワークシート「単勝ｵｯｽﾞ」「複勝ｵｯｽﾞ」のデータの下に馬番や着順を追加するルーチンです。
[ErrHandler]
エラーを処理するルーチンです。
（以上のコードはすべてPrivate Sub Worksheet_BeforeDoubleClickの中のものです。すべて続けて記述します。）
③共通プログラム
以下はワークシート「ﾚｰｽ一覧」のWorksheetページに記述する共通のプログラムです。上記Private Sub Worksheet_BeforeDoubleClick のEnd Sub の後に続けて記述します。
[DownloadJVRTData_Time]
時系列オッズのダウンロードを行うサブルーチンです。"frmStart"で記述したものと基本的には同じですが、JVLinkモジュールがJVLink2となっている点が違います。
[GetJVRTData]
これもJVLink2となる以外は、"frmStart"で使ったものと同じです。
[ReadRTData]
これは"frmStart"で使ったものと同じです。
[SaveRTData]
[Set_JVLink_For_Worksheet]
これはワークシート用のJVLink2を初期設定するためのサブルーチンです。
[Log]
これは"frmStart"で使ったものと同じです。
[CellBorderColor]
「単勝ｵｯｽﾞ」「複勝ｵｯｽﾞ」シートのオッズデータのセル枠を人気順に応じてカラー化するサブルーチンです。1番人気を赤、2番人気を青、3番人気を緑とします。
[PlotOddsData]
時系列オッズデータを折れ線グラフにするサブルーチンです。最初はグラフシートがないので自動的に挿入します。
[Worksheet_BeforeRightClick]
これはダブルクリックで黄色に変化した行を元に戻すサブルーチンで、黄色の行を右クリックすると動作します。
４．時系列オッズダウンロードプログラムの実行
以上までできたらプログラムを実行しましょう。
ワークシート「ﾚｰｽ一覧」の適当なレースの行をダブルクリックしてください。行のどこでもかまいません。下図のようになれば動作は正常です。単勝オッズがグラフ２、複勝オッズがグラフ１に表示されている場合がありますが、ワークシートのタブを左から「ﾚｰｽ一覧」「Graph1」「Graph2」「単勝ｵｯｽﾞ」「複勝ｵｯｽﾞ」の順に並べなおしてやってみてください。
セルの幅は自動的には調整しませんので自分で調整してください。
（この動作は時間がかかります。１０秒～前日発売のレースでは１分くらい）
次回は、ワークシート「ﾚｰｽ一覧」の枠線表を作るプログラムを作成します。
ホームへ 新タラレバ競馬倶楽部へ 応用編(2-1)へ (2-2)へ (2-3)へ (2-4)へ (2-5)へ (2-6)へ (2-7)へ (2-8)へ (2-9)へ (2-10)へ
活用教室：Chap5 →(1-1)へ (1-2)へ (1-3)へ
活用教室：Chap8 →(1-4)へ (1-5)へ (1-6)へ (1-7)へ (1-8)へ (1-9)へ (1-10)へ
活用教室：Chap9 →(1-11)へ (1-12)へ