Home 소개       다운로드       온라인 설명서      주식/코인 차트    Q & A     Blog    

WaterFall chart







buy lyrica canada

generic lyrica online click here buy lyrica 300 mg online

lyrica 75 mg online

lyrica online uk
컬럼 차트 Range 기능을 이용해서 그려본 WaterFall chart




Column chart - Gradation  Column chart - 3D, GridDirection, WidthType  Column chart - AxisOrientation, PaletteType  Range Column Chart   WaterFall chart  [히포차트 4.2] Boxplot(박스 플롯) 차트  히포차트 4.3 - 렌코차트(Renko chart) 샘플  


C#
 
double[] datas = new double[7] { 23.1, 11.6, 23.5, -70.9, 22.9, 45.2, 30 };

SeriesList sList = new SeriesList();
sList.ChartType = ChartType.Column;

Random r = new Random();
for(int i = 0; i < 1; i++)
{
Series sr = new Series();
sr.ColumnRangeType = ColumnRangeType.Range;

for(int x = 0; x < 7; x++)
{
SeriesItem item = new SeriesItem();
item.Name = x.ToString();

double sval = 0;

if (x == 0)
{
sval = 0;
}
else
{
//sval = datas[x - 1];

for(int zz = 0; zz < x; zz++)
{
sval += datas[zz];
}
}

double val1 = datas[x] + sval;
double val2 = sval;

if (val1 > val2)
{
item.YValue = val1;
item.YStartValue = val2;

item.ItemColor = Color.YellowGreen;
}
else
{
item.YValue = val2;
item.YStartValue = val1;

item.ItemColor = Color.Red;
}

sr.items.Add(item);
}
sList.SeriesCollection.Add(sr);
}
this.hHippoChart1.LegendBox.Visible = false;
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();


VB
 
Dim datas As Double() = New Double(6) {23.1, 11.6, 23.5, -70.9, 22.9, 45.2, _
30}

Dim sList As New. SeriesList()
sList.ChartType = ChartType.Column

Dim r As New. Random()
For i As Integer = 0 To 0
Dim sr As New. Series()
sr.ColumnRangeType = ColumnRangeType.Range

For x As Integer = 0 To 6
Dim item As New. SeriesItem()
item.Name = x.ToString()

Dim sval As Double = 0

If x = 0 Then
sval = 0
Else
`sval = datas[x - 1];

For zz As Integer = 0 To x - 1
sval += datas(zz)
Next
End If

Dim val1 As Double = datas(x) + sval
Dim val2 As Double = sval

If val1 > val2 Then
item.YValue = val1
item.YStartValue = val2

item.ItemColor = Color.YellowGreen
Else
item.YValue = val2
item.YStartValue = val1

item.ItemColor = Color.Red
End If

sr.items.Add(item)
Next
sList.SeriesCollection.Add(sr)
Next
Me.hHippoChart1.LegendBox.Visible = False
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()



※ 히포차트 샘플 코드는 버전별로 상이한 결과를 나타낼 수 있습니다.

이 코드 관련 문의 사항은 페이스북 리플을 달아주시거나 아래 이메일로 이 페이지 주소와 함께 문의주세요.

helpdesk@hippochart.com





Copyright © 2009-2018 투데이트레이딩. Inc.  All Rights Reserved.