Entersoft Finance Frameworkサンプル
Entersoft Finance Frameworkの各提供クラスの簡単なサンプルコードです。
Visual Basic .NET 2003にてコーディングしています。
その他の各クラスのプロパティは提供Classを参照してください。
- BasicService Class / Frameworkのバージョン及びYahoo!ファイナンスのリンクURLの提供
- FinanceSearch Class / 証券コードの検索機能の提供
- BasisReport Class / 株価基本情報取得機能の提供
- TimeList Class / 株価の時系列データ取得機能の提供
- News Class / Yahooニュースのニューステキスト、記事URL、写真URLの提供
サンプルコードのプロジェクトダウンロード sample.zip (Visual Basic .NET 2003)
1. BasicService Class / Frameworkのバージョン及びYahoo!ファイナンスのリンクURLの提供
Dim BasicService As New FinanceFrameworkNet.BasicService
'Yahoo!ファイナンスのチャートURL
LinkLabel1.Text = BasicService.LinkBasicURL("8301.q", "c")
'Yahoo!ファイナンスの掲示板URL
LinkLabel2.Text = BasicService.LinkBulletinBoardURL("8301.q")
'Yahoo!ファイナンスのチャートURL
LinkLabel1.Text = BasicService.LinkBasicURL("8301.q", "c")
'Yahoo!ファイナンスの掲示板URL
LinkLabel2.Text = BasicService.LinkBulletinBoardURL("8301.q")
2. FinanceSearch Class / 証券コードの検索機能の提供
Dim i As Integer
Dim FinanceSearch As New FinanceFrameworkNet.FinanceSearch
ListBoxSearch.Items.Clear()
FinanceSearch.SearchString = TextSearch.Text '検索文字列
FinanceSearch.ResultGet() '検索実行メソッド
If FinanceSearch.ResultStatus Then
For i = 0 To FinanceSearch.Hit - 1
ListBoxSearch.Items.Add(FinanceSearch.FinanceCode(i) & " / " & FinanceSearch.FinanceName(i))
Next
End If
Dim FinanceSearch As New FinanceFrameworkNet.FinanceSearch
ListBoxSearch.Items.Clear()
FinanceSearch.SearchString = TextSearch.Text '検索文字列
FinanceSearch.ResultGet() '検索実行メソッド
If FinanceSearch.ResultStatus Then
For i = 0 To FinanceSearch.Hit - 1
ListBoxSearch.Items.Add(FinanceSearch.FinanceCode(i) & " / " & FinanceSearch.FinanceName(i))
Next
End If
3. BasisReport Class / 株価基本情報取得機能の提供
Dim BasisReport As New FinanceFrameworkNet.BasisReport
BasisReport.FinanceCode = "8301.q" '証券コード
BasisReport.ReportGet() '株価取得取得メソッド
If BasisReport.ResultStatus Then
'企業名
LabelFinanceName.Text = BasisReport.FinanceName
'取引値
LabelTorihikiNe.Text = BasisReport.TorihikiNe
'出来高
LabelDekidaka.Text = BasisReport.Dekidaka
End If
BasisReport.FinanceCode = "8301.q" '証券コード
BasisReport.ReportGet() '株価取得取得メソッド
If BasisReport.ResultStatus Then
'企業名
LabelFinanceName.Text = BasisReport.FinanceName
'取引値
LabelTorihikiNe.Text = BasisReport.TorihikiNe
'出来高
LabelDekidaka.Text = BasisReport.Dekidaka
End If
4. TimeList Class / 株価の時系列データ取得機能の提供
Dim i As Integer
Dim TimeList As New FinanceFrameworkNet.TimeList
TimeList.FinanceCode = "8301.q" '証券コード
TimeList.FromDate = CDate("2006/01/01") '検索年月日（自）
TimeList.ToDate = CDate("2006/05/31") '検索年月日（至）
TimeList.Unit = "d" '取得単位(d：デイリー w：週間 m：月間)
TimeList.ReportGet() '取得実行メソッド
If TimeList.ResultStatus Then
For i = 0 To TimeList.ListCount - 1
ListBoxTimeList.Items.Add(Format(TimeList.ListDate(i), "yyyy/MM/dd") & ":" & TimeList.OwariNe(i))
Next
End If
Dim TimeList As New FinanceFrameworkNet.TimeList
TimeList.FinanceCode = "8301.q" '証券コード
TimeList.FromDate = CDate("2006/01/01") '検索年月日（自）
TimeList.ToDate = CDate("2006/05/31") '検索年月日（至）
TimeList.Unit = "d" '取得単位(d：デイリー w：週間 m：月間)
TimeList.ReportGet() '取得実行メソッド
If TimeList.ResultStatus Then
For i = 0 To TimeList.ListCount - 1
ListBoxTimeList.Items.Add(Format(TimeList.ListDate(i), "yyyy/MM/dd") & ":" & TimeList.OwariNe(i))
Next
End If
5. News Class / Yahooニュースのニューステキスト、記事URL、写真URLの提供
Dim News As New FinanceFrameworkNet.News
Dim i As Long
News.NewsGet("p", "c_int", CDate("2006/09/08")) '写真ニュース（海外）取得
ListBoxNewsText.Items.Clear()
ListBoxDetailsLink.Items.Clear()
ListBoxPhotoLink.Items.Clear()
For i = 0 To News.NewsText.Count - 1
ListBoxNewsText.Items.Add(News.NewsText(i))
ListBoxDetailsLink.Items.Add(News.DetailsLink(i))
ListBoxPhotoLink.Items.Add(News.PhotoLink(i))
Next
Dim i As Long
News.NewsGet("p", "c_int", CDate("2006/09/08")) '写真ニュース（海外）取得
ListBoxNewsText.Items.Clear()
ListBoxDetailsLink.Items.Clear()
ListBoxPhotoLink.Items.Clear()
For i = 0 To News.NewsText.Count - 1
ListBoxNewsText.Items.Add(News.NewsText(i))
ListBoxDetailsLink.Items.Add(News.DetailsLink(i))
ListBoxPhotoLink.Items.Add(News.PhotoLink(i))
Next