2017年3月31日金曜日

【競馬】20170401

<<2017/4/1(土)開催の穴馬予想>>
中山
1R ⑤
2R ⑯
5R ③
6R ⑬

阪神
4R ⑨
7R ⑥
12R ⑪

メインレースのみ指数を公開します。
中山11R ⑧⑦⑪③⑩⑤⑮
阪神11R ⑨⑤⑪⑦⑮①
+今走~前々走のアルファベットA~Eは、レースレベルです。
記号の↑/-\↓は、前走と比べて、馬の平均レベルより高いか低いかを表します。

参考までに。

【情報】パソコンからテレビを見るには

Dellのパソコン購入したので
テレビが見れない事に気が付きました💦
(チューナーがついていない為💦)

色々調べてみました。

3分のタイムラグがありますが、
日本電視台でテレビを見る事ができました。

海外に移住したら、ここのサイトにアクセスすれば、
日本の番組が見れますね。

参考までに。

2017年3月28日火曜日

【情報】PC画面を動画録音するフリーソフト

PC画面を動画録音するフリーソフトを探してました。

目的は、WEBセミナーや通信教育の内容を
録音しておきたかったからです。

色々なソフトを試しましたが、下記のフリーソフトで実現できました。
AG-デスクトップレコーダー

Windows10でも問題なく録音できてます。
感動!

参考URL:
https://matome.naver.jp/odai/2141863074626267201

参考までに。

2017年3月25日土曜日

【競馬】20170326

<<2017/3/26(日)開催の穴馬予想>>
中山
1R ⑮
3R ⑫
7R ⑪⑦
8R ⑧

中京
4R ①⑫

阪神
5R ⑪
8R ⑨

メインレースのみ指数を公開します。
中山11R ⑭⑪⑫⑥②⑨⑮⑤

中京11R ⑦③⑫⑥⑨⑮⑬

阪神11R ④⑧③⑥⑦⑨②⑤

今走~前々走のアルファベットA~Eは、レースレベルです。
記号の↑/-\↓は、前走と比べて、馬の平均レベルより高いか低いかを表します。
参考までに。

2017年3月24日金曜日

【競馬】20170325

<<2017/3/25(土)開催の穴馬予想>>
中山
1R ②
3R ④
4R ⑥
6R ⑥⑮
11R ⑩

中京
1R ⑥
5R ⑤

阪神
なし

メインレースのみ指数を公開します。
中山11R ⑫⑨⑩⑬⑭⑥⑤⑪⑧

中京11R ③⑧②①⑮⑭⑩

阪神11R ①⑥③④⑧②

今走~前々走のアルファベットA~Eは、レースレベルです。
記号の↑/-\↓は、前走と比べて、馬の平均レベルより高いか低いかを表します。
参考までに。

2017年3月21日火曜日

【VB】*.accdbを最適化する

なかなか最適化がうまくいかなかった・・・

海外のサイトを参考に、やっと最適化できました。

スタンダードアロンなので、*.accdbの最適化は、下記のようにしました。
最適化前ACCDB、最適化後ACCDBは、フルパスで指定します。

    Private Sub フォーム_Close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing
        '▼参照設定:Microsoft.Office.Interop.Access.Dao
        Dim _access2007 As New DBEngine
        Dim _password As String = GetConnectStrACE(True, ACCDB_PASSWORD)
        Try
            ERRMSG = ""
            '▼.accdbを最適化する
            '▼(1)最適化後ACCDBを削除する
            If IO.File.Exists(最適化後ACCDB) Then IO.File.Delete(最適化後ACCDB)
            '▼(2)最適化前ACCDBを最適化後ACCDBに移動する          
            IO.File.Move(最適化前ACCDB, 最適化後ACCDB)
            '▼(3)最適化後ACCDBを最適化前ACCDBで最適化する          
            _acc2007.CompactDatabase(最適化後ACCDB, 最適化前ACCDB, Nothing, Nothing, _sPWD)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(_acc2007)
            _acc2007 = Nothing
            '▼(4)最適化後ACCDBを消去する        
            IO.File.Delete(最適化後ACCDB)
        Catch ex As Exception
            ERRMSG = ex.Message
        Finally
            _access2007 = Nothing
            _password = Nothing
        End Try
        If ERRMSG <> "" Then MsgBox(ERRMSG, MsgBoxStyle.Critical, "エラー!!")
    End Sub
    Public Function GetConnectStrACE(ByVal bUseDBPassword As Boolean, ByVal sDBPassword As String) As String
        Dim _sConn As String = ""
        If (bUseDBPassword) Then _sConn = ";pwd=" & sDBPassword Else _sConn = ""
        GetConnectStrACE = _sConn
    End Function

参考までに。

2017年3月19日日曜日

【競馬】20170320

<<2017/3/20(月)開催の穴馬予想>>
中山
2R ①⑤
3R ⑪
4R ②
6R ⑩⑤
7R ⑩

阪神
1R ⑨
6R ⑪⑨

メインレースのみ指数を公開します。
中山11R ⑫①⑩⑤③⑥
阪神11R ③⑪⑬⑫⑦⑥①
今走~前々走のアルファベットA~Eは、レースレベルです。
記号の↑/-\↓は、前走と比べて、馬の平均レベルより高いか低いかを表します。

参考までに。

2017年3月18日土曜日

【競馬】20170319

<<2017/3/19(日)開催の穴馬予想>>
中山
1R ⑥
5R ⑦⑨
8R ②

阪神
3R ⑮
12R ⑮

メインレースのみ指数を公開します。
中山11R ⑨⑥⑩⑤⑦⑧⑪③
阪神11R ⑨③④⑦⑥①
今走~前々走のアルファベットA~Eは、レースレベルです。
記号の↑/-\↓は、前走と比べて、馬の平均レベルより高いか低いかを表します。

参考までに。

2017年3月17日金曜日

【競馬】20170318

当方、パソコンを買い替えました。
OSは、Windows10です。
早いですね・・・

競馬予想の作成(JRAからのデータ取得~Excel予想出力まで)が
たったの5分になりました・・・

感動です‼

現在、自作アプリケーションを
VB2017で、データをACCESS2016にして
作り直してます。

まだまだ先の話ですが、
①Accessの拡張子「.MDB」がいつまで使用できるのか
②OSのWindows7がいつまで使用できるか
この2点が心配になった為です。

さて、明日から3日開催です。
当たりますように!

<<2017/3/18(土)開催の穴馬予想>>
中京
1R ⑦
3R ⑥
6R ⑱③
8R ⑧

阪神
2R ⑤
3R ⑤
8R ⑪①

メインレースのみ指数を公開します。
中京11R ⑩⑫⑬⑤⑧③④⑯
阪神11R ③⑦②⑪⑩⑧①
今走~前々走のアルファベットA~Eは、レースレベルです。
記号の↑/-\↓は、前走と比べて、馬の平均レベルより高いか低いかを表します。

参考までに。

2017年3月11日土曜日

【競馬】20170312

<<2017/3/12(日)開催の穴馬予想>>
中山
3R ⑧
4R ③

中京
1R ⑮①
3R ⑨
6R ⑤
7R ⑧

阪神
3R ⑯

メインレースのみ指数を公開します。
中山11R ⑦⑨⑬⑫⑯⑩①④⑭
中京11R ④②⑰⑦⑪⑯⑫③
阪神11R ⑮⑥⑯⑨②⑦⑬④
今走~前々走のアルファベットA~Eは、レースレベルです。
記号の↑/-\↓は、前走と比べて、馬の平均レベルより高いか低いかを表します。

参考までに。

2017年3月10日金曜日

【競馬】20170311

<<2017/3/11(土)開催の穴馬予想>>
中山
1R ③
2R ⑤
3R ⑧④
4R ⑬
6R ⑬
8R ⑮

中京
1R ③
3R ⑭
6R ⑥

阪神
4R ⑨

メインレースのみ指数を公開します。
中山11R ⑭⑨⑫⑥⑯⑧⑮②
中京11R ⑨⑥①②⑦③⑬⑩
阪神11R ⑦⑥③⑨
今走~前々走のアルファベットA~Eは、レースレベルです。
記号の↑/-\↓は、前走と比べて、馬の平均レベルより高いか低いかを表します。

参考までに。

2017年3月4日土曜日

【競馬】20170305

<<2017/3/5(日)開催の穴馬予想>>
中山
5R ⑩
7R ④⑨

阪神
3R ⑪

小倉
1R ⑩
3R ⑨

メインレースのみ指数を公開します。
中山11R ⑪④⑨⑦⑩⑫③①
阪神11R ②①④⑤⑧⑬⑫⑪⑦
小倉11R ⑪⑤⑫⑬②⑧④⑥⑨
今走~前々走のアルファベットA~Eは、レースレベルです。
記号の↑/-\↓は、前走と比べて、馬の平均レベルより高いか低いかを表します。

参考までに。

2017年3月3日金曜日

【競馬】20170304

<<2017/3/4(土)開催の穴馬予想>>
中山
2R ⑯
3R ③
5R ①⑦
7R ④⑯⑭

阪神
2R ⑭

小倉
3R ⑭
4R ⑦
5R ⑯
7R ④⑦

メインレースのみ指数を公開します。
中山11R ⑨⑧②④⑪⑭③
阪神11R ⑩③⑤①④⑥
小倉11R ⑮⑫④⑩⑭⑪⑥①⑬
今走~前々走のアルファベットA~Eは、レースレベルです。
記号の↑/-\↓は、前走と比べて、馬の平均レベルより高いか低いかを表します。

参考までに。