プログラミング言語や環境設定を中心としたパソコン関連の技術メモです。
主にシステム開発中に調べたことをメモしています。TIPS的な位置付けで、気が向いたときにちまちま更新していきます。
VB.NETでローソク足チャート作成
VB.NETでローソク足を作成する必要に迫られましてね。
色々調べてみたのですよ。
ふむふむ、色々あr・・・ないねぇ。

がんばれ、私。

取り合えずMicrosoft純正が無難だろうと言う事で
「Microsoft Chart Controls for Microsoft .NET Framework 3.5」導入。
これってVisualStudio2008以降じゃないと使えないのでしょうか?
まぁ良いや。

http://code.msdn.microsoft.com/mschart

から

・Chart Controls for .Net Framework
・Chart Controls Add-on for Visual Studio 2008

をダウンロードしてインストール。

これでVS2008のツールボックスに「Chart」が追加されたので
Form上にぐぐいっとドラッグ。

んで、コードはこんな感じにしてみましたφ(--)

Imports System.Windows.Forms.DataVisualization.Charting

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' チャート領域
Dim chartArea1 As New ChartArea()
chartArea1.Name = ""
chartArea1.BackColor = Color.AntiqueWhite
chartArea1.AxisX.IntervalType = DateTimeIntervalType.Days
chartArea1.AxisX.LabelStyle.Format = "MMM/dd"
chartArea1.AxisY.IsStartedFromZero = False
chartArea1.AxisX.MajorGrid.LineColor = Color.Gray
chartArea1.AxisX.MajorGrid.LineDashStyle = ChartDashStyle.Dash
chartArea1.AxisY.MajorGrid.LineColor = Color.Gray
chartArea1.AxisY.MajorGrid.LineDashStyle = ChartDashStyle.Dash
Chart1.ChartAreas.Add(chartArea1)

'シリーズ
Dim series1 As New Series()
series1.ChartType = SeriesChartType.Candlestick
series1.Color = Color.Blue
series1.BorderDashStyle = ChartDashStyle.Solid
series1.BorderColor = Color.Navy
series1.BorderWidth = 1
Chart1.Series.Add(series1)

'コントロールの外観
Chart1.BackGradientStyle = GradientStyle.TopBottom
Chart1.BackColor = Color.White
Chart1.BackSecondaryColor = Color.White
Chart1.ChartAreas(0).BackGradientStyle = GradientStyle.TopBottom
Chart1.ChartAreas(0).BackColor = Color.White
Chart1.ChartAreas(0).BackSecondaryColor = Color.White

'data(※表示数分設定)
Chart1.Series(0).Points.AddXY(【日付】, 【高値】,【安値】,【始値】,【終値】)

End Sub


取りあえずチャート自体は表示されたので後はデータの整形が出来れば
何とかなりそうです♪
スポンサーリンク
 
このエントリーをはてなブックマークに追加 

category:● VB.NET  thema:システム開発 - genre:コンピュータ  Posted by ササキマコト 

  関連記事