void Page_Load(Object sender,EventArgs e) { // This sample demonstrates a polar radar with columns using shadingEffectMode.Two.
// Set the title. //Chart.Title = "My Chart"; Chart.Debug = true; // Specify chart type. Chart.Type = ChartType.Radar;
Chart.DefaultSeries.Type = SeriesType.Column;
Chart.XAxis.RadarMode = RadarMode.Polar;
//JSCharting supports shading effects on radar columns. Chart.ShadingEffectMode = ShadingEffectMode.Two;
// Enable JSCharting Chart.JS.Enabled = true;
// Set the directory where the related JSC files will be created and stored. Chart.TempDirectory="temp";
// Set default transparency Chart.DefaultSeries.DefaultElement.Transparency = 25; Chart.YAxis.Interval = 20;
Chart.ChartArea.Padding = 20;
// Set he chart size. Chart.Width = 600; Chart.Height = 350;
// Add the random data. Chart.SeriesCollection.Add(getRandomData());
}
SeriesCollection getRandomData() { SeriesCollection SC = new SeriesCollection(); Random myR = new Random(); for (int a = 1; a < 4; a++) { Series s = new Series(); s.Name = "Series " + a; for (int b = 1; b < 7; b++) { Element e = new Element(); e.Name = "E " + b; e.YValue = myR.Next(50);
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) ' This sample demonstrates a polar radar with columns using shadingEffectMode.Two.
' Set the title. 'Chart.Title = "My Chart"; Chart.Debug = True ' Specify chart type. Chart.Type = ChartType.Radar
Chart.DefaultSeries.Type = SeriesType.Column
Chart.XAxis.RadarMode = RadarMode.Polar
'JSCharting supports shading effects on radar columns. Chart.ShadingEffectMode = ShadingEffectMode.Two
' Enable JSCharting Chart.JS.Enabled = True
' Set the directory where the related JSC files will be created and stored. Chart.TempDirectory="temp"
' Set default transparency Chart.DefaultSeries.DefaultElement.Transparency = 25 Chart.YAxis.Interval = 20
Chart.ChartArea.Padding = 20
' Set he chart size. Chart.Width = 600 Chart.Height = 350
' Add the random data. Chart.SeriesCollection.Add(getRandomData())
End Sub
Function getRandomData() As SeriesCollection Dim SC As SeriesCollection = New SeriesCollection() Dim myR As Random = New Random() For a As Integer = 1 To 3 Dim s As Series = New Series() s.Name = "Series " & a For b As Integer = 1 To 6 Dim e As Element = New Element() e.Name = "E " & b e.YValue = myR.Next(50)
Previous