SeriesList sList = new SeriesList();
sList.ChartType = ChartType.Gauge2;
Random r = new Random();
for(int i = 0; i < 4; i++)
{
Series sr = new Series();
sr.UnAxisFactor.Axis.SetAxisStep(0, 90, 10);
sr.UnAxisFactor.Axis.Decimalpoint = 0;
if (i == 0) sr.Gauge.ShapeType2 = ShapeType2.Gauge6;
if (i == 1) sr.Gauge.ShapeType2 = ShapeType2.Gauge7;
if (i == 2) sr.Gauge.ShapeType2 = ShapeType2.Gauge5;
if (i == 3) sr.Gauge.ShapeType2 = ShapeType2.Gauge2;
sr.Name = "게이지" + i.ToString();
for(int x = 0; x < 1; x++)
{
SeriesItem item = new SeriesItem();
item.Name = x.ToString();
item.YValue = r.Next(90);
sr.Gauge.Label.Text = sr.Name + " : " + item.YValue.ToString();
sr.items.Add(item);
}
sList.SeriesCollection.Add(sr);
}
this.hHippoChart2.SeriesListDictionary.Add(sList);
this.hHippoChart2.DrawChart();
Dim sList As New. SeriesList()
sList.ChartType = ChartType.Gauge2
Dim r As New. Random()
For i As Integer = 0 To 3
Dim sr As New. Series()
sr.UnAxisFactor.Axis.SetAxisStep(0, 90, 10)
sr.UnAxisFactor.Axis.Decimalpoint = 0
If i = 0 Then
sr.Gauge.ShapeType2 = ShapeType2.Gauge6
End If
If i = 1 Then
sr.Gauge.ShapeType2 = ShapeType2.Gauge7
End If
If i = 2 Then
sr.Gauge.ShapeType2 = ShapeType2.Gauge5
End If
If i = 3 Then
sr.Gauge.ShapeType2 = ShapeType2.Gauge2
End If
sr.Name = "게이지" + i.ToString()
For x As Integer = 0 To 0
Dim item As New. SeriesItem()
item.Name = x.ToString()
item.YValue = r.[Next](90)
sr.Gauge.Label.Text = sr.Name + " : " + item.YValue.ToString()
sr.items.Add(item)
Next
sList.SeriesCollection.Add(sr)
Next
Me.hHippoChart2.SeriesListDictionary.Add(sList)
Me.hHippoChart2.DrawChart()