Tweet

buy viagra gel viagra tablet online where to buy female viagra pill female viagra drops redirect where to buy female viagra pill amitriptyline 10mg buy amitriptyline prednisolone london cheap prednisolone celticcodingsolutions.com buy prednisolone eye drops over the counter prednisolone online buy prednisolone sertraline without prescription buy sertraline 1.23.146.82 buy sertraline 100mg 다각형1 타입, 면적형으로 그려본 방사형 차트

          

C#

 
SeriesList sList = new SeriesList();
sList.ChartType = ChartType.Radar;
sList.Radar.ShapeType = RadarShapeType.Polygon1;
sList.Transparency = 55;

Random r = new Random();
for(int i = 0; i < 2; i++)
{
Series sr = new Series();
sr.RadarType = RadarPointType.Area;

for(int x = 0; x < 12; x++)
{
SeriesItem item = new SeriesItem();
item.Name = "radar item" + x.ToString();
item.YValue = r.Next(90);

if (i == 1) item.YValue = r.Next(20);

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

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

VB

 
Dim sList As New. SeriesList()
sList.ChartType = ChartType.Radar
sList.Radar.ShapeType = RadarShapeType.Polygon1
sList.Transparency = 55

Dim r As New. Random()
For i As Integer = 0 To 1
Dim sr As New. Series()
sr.RadarType = RadarPointType.Area

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

If i = 1 Then
item.YValue = r.[Next](20)
End If

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

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