Tweet

amoxicillin 500g amoxicillin 500mg tds clomid uk to buy buy clomid tablets accutane without birth control reddit buy accutane pills buy naltrexone uk where to buy naltrexone in uk buy sertraline buy zoloft online mipnet.dk sertraline visa buy zoloft buy sertraline 25mg 일반 작은 게이지 차트와 라인 차트의 혼합형 차트 샘플입니다. 데이터 특성에 따라 이런 형태의 혼합형도 많이 이용될 수 있을듯 합니다

              

C#

 
Random r = new Random();

SeriesList sList = new SeriesList();

for(int i = 0; i < 1; i++)
{
Series sr = new Series();
sr.Line.LineWidth = 5;

for(int x = 0; x < 20; x++)
{
SeriesItem item = new SeriesItem();
item.Name = "item" + x.ToString();
item.YValue = r.Next(77, 99);

sr.items.Add(item);
}
sList.SeriesCollection.Add(sr);
}

SeriesList sList2 = new SeriesList();
sList2.ChartType = ChartType.Gauge;

for(int i = 0; i < 1; i++)
{
Series sr = new Series();
sr.Gauge.IsShowBorderLine = false;
sr.Name = "온도계" + i.ToString();

//sr.UnAxisFactor.Axis.MaxTickCount = 3;
sr.Gauge.ShapeType = ShapeType.Blend;
sr.Gauge.SmallTickCount = 3;


for(int x = 0; x < 5; x++)
{
SeriesItem item = new SeriesItem();
item.Name = "radar item" + x.ToString();
item.YValue = r.Next(10);
item.IsShowFigureText = true;

sr.items.Add(item);
}
sList2.SeriesCollection.Add(sr);
}

this.hHippoChart1.SeriesAreaRate = "1:7";
this.hHippoChart1.Direction = GraphAreaLocation.Horizontal;
this.hHippoChart1.LegendBox.Visible = false;
this.hHippoChart1.SeriesListDictionary.Add(sList2);
this.hHippoChart1.SeriesListDictionary.Add(sList);
this.hHippoChart1.DrawChart();

VB

 
Dim r As New. Random()

Dim sList As New. SeriesList()

For i As Integer = 0 To 0
Dim sr As New. Series()
sr.Line.LineWidth = 5

For x As Integer = 0 To 19
Dim item As New. SeriesItem()
item.Name = "item" & x.ToString()
item.YValue = r.[Next](77, 99)

sr.items.Add(item)
Next
sList.SeriesCollection.Add(sr)
Next

Dim sList2 As New. SeriesList()
sList2.ChartType = ChartType.Gauge

For i As Integer = 0 To 0
Dim sr As New. Series()
sr.Gauge.IsShowBorderLine = False
sr.Name = "온도계" & i.ToString()

`sr.UnAxisFactor.Axis.MaxTickCount = 3;
sr.Gauge.ShapeType = ShapeType.Blend
sr.Gauge.SmallTickCount = 3


For x As Integer = 0 To 4
Dim item As New. SeriesItem()
item.Name = "radar item" & x.ToString()
item.YValue = r.[Next](10)
item.IsShowFigureText = True

sr.items.Add(item)
Next
sList2.SeriesCollection.Add(sr)
Next

Me.hHippoChart1.SeriesAreaRate = "1:7"
Me.hHippoChart1.Direction = GraphAreaLocation.Horizontal
Me.hHippoChart1.LegendBox.Visible = False
Me.hHippoChart1.SeriesListDictionary.Add(sList2)
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()