Tweet

buy viagra uk erectile dysfunction treatments azpodcast.azurewebsites.net viagra asda tamoxifen uk pct tamoxifen naltrexone in uk naltrexone in uk website-knowledge.com naltrexone without prescription in uk abortuspil online abortuspil kopen buy elavil uk amitriptyline for anxiety read here buy amitriptyline uk abortion pill abortion pill online usa antidepressant sertraline antidepressant sertraline blog.zycon.com antidepressant sertraline 원형 형태의 포인트 레이더 차트

          

C#

 
SeriesList sList = new SeriesList();
sList.ChartType = ChartType.Radar;
sList.Radar.ShapeType = RadarShapeType.Circle;

Random r = new Random();
for(int i = 0; i < 3; i++)
{
Series sr = new Series();
sr.Points.Width = 5;
sr.Points.PointType = PointType.FillCircle;

if (i == 1)
{
sr.Points.Width = 8;
sr.Points.PointType = PointType.FillRectangle;
}
else if (i == 2)
{
sr.Points.Width = 12;
sr.Points.PointType = PointType.FillTriangle;
}


sr.RadarType = RadarPointType.Point;

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

if (i < 2) item.YValue = r.Next(10);

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

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

VB

 
Dim sList As New. SeriesList()
sList.ChartType = ChartType.Radar
sList.Radar.ShapeType = RadarShapeType.Circle

Dim r As New. Random()
For i As Integer = 0 To 2
Dim sr As New. Series()
sr.Points.Width = 5
sr.Points.PointType = PointType.FillCircle

If i = 1 Then
sr.Points.Width = 8
sr.Points.PointType = PointType.FillRectangle
ElseIf i = 2 Then
sr.Points.Width = 12
sr.Points.PointType = PointType.FillTriangle
End If


sr.RadarType = RadarPointType.Point

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

If i < 2 Then
item.YValue = r.[Next](10)
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()