Tweet

female viagra pills female viagra buy tamoxifen tamoxifen uk smpc read tamoxifen moa buy lyrica canada generic lyrica online click here buy lyrica 300 mg online lyrica 75 mg online lyrica online uk 컬럼 차트 Range 기능을 이용해서 그려본 WaterFall 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()