Tweet

buy amoxicillin cvs amoxicillin 500mg for dogs buy accutane singapore accutane without side effects 주식차트(양봉, 음봉, 도기)

                        

C#

 
HippoEngine en = new HippoEngine();
en.DataType = DataSourceType.Excel;
en.Query = select * from [자료2$];
en.ConnectionString = @Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\MY Docu\stock34.xls;Extended Properties=Excel 12.0;HDR=YES;

SeriesList sList = en.GetSeriesListOfStock(DataSourceType.Excel, "년/월", "시가", "종가", "저가", "고가");

sList.ChartType = ChartType.Stock;

sList.SeriesCollection[0].Name = "주가";

sList.GraphArea.Grid.Interval = 10;
sList.GraphArea.Grid.GridDirection = GridDirection.Vertical;

sList.AxisFactor.XAxis.LabelFormat.FormatFlags = StringFormatFlags.DirectionVertical;
sList.AxisFactor.XAxis.Interval = 10;

sList.AxisFactor.XAxis.IsVisibleFigures = false;
sList.AxisFactor.XAxis.IsShowTick = false;

sList.AxisFactor.YAxis.SetAxisStep(10000, 40000, 5000);

sList.SeriesCollection[0].SeriesMinusCandleColor = Color.Green;
sList.SeriesCollection[0].SeriesPlusCandleColor = Color.Orange;

this.hHippoChart1.Direction = GraphAreaLocation.Vertical;
this.hHippoChart1.DesignType = ChartDesignType.Simple;
this.hHippoChart1.Titles.Label.ForeColor = Color.SteelBlue;

this.hHippoChart1.LegendBox.Visible = false;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();

VB

 
Dim en As New. HippoEngine()
en.DataType = DataSourceType.Excel
en.Query = select * from [자료2$]
en.ConnectionString = Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\MY Docu\stock34.xls;Extended Properties=Excel 12.0;HDR=YES

Dim sList As SeriesList = en.GetSeriesListOfStock(DataSourceType.Excel, "년/월", "시가", "종가", "저가", "고가")

sList.ChartType = ChartType.Stock

sList.SeriesCollection(0).Name = "주가"

sList.GraphArea.Grid.Interval = 10
sList.GraphArea.Grid.GridDirection = GridDirection.Vertical

sList.AxisFactor.XAxis.LabelFormat.FormatFlags = StringFormatFlags.DirectionVertical
sList.AxisFactor.XAxis.Interval = 10

sList.AxisFactor.XAxis.IsVisibleFigures = False
sList.AxisFactor.XAxis.IsShowTick = False

sList.AxisFactor.YAxis.SetAxisStep(10000, 40000, 5000)

sList.SeriesCollection(0).SeriesMinusCandleColor = Color.Green
sList.SeriesCollection(0).SeriesPlusCandleColor = Color.Orange

Me.hHippoChart1.Direction = GraphAreaLocation.Vertical
Me.hHippoChart1.DesignType = ChartDesignType.Simple
Me.hHippoChart1.Titles.Label.ForeColor = Color.SteelBlue

Me.hHippoChart1.LegendBox.Visible = False
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()