void Page_Load(Object sender,EventArgs e) { // This sample demonstrates error bars on markers in a horizontal chart.
// Enable JSCharting Chart.JS.Enabled = true;
// Set the chart type Chart.Type = ChartType.ComboHorizontal; // Set the size Chart.Width = 600; Chart.Height = 350; // Set the temp directory Chart.TempDirectory = "temp"; // Debug mode. ( Will show generated errors if any ) Chart.Debug = true; //Chart.Title = "My Chart"; Chart.XAxis.Label.Text = "X Value"; Chart.YAxis.Label.Text = "Y Value";
// *DYNAMIC DATA NOTE* // This sample uses random data to populate the chart. To populate // a chart with database data see the following resources: // - Classic samples folder // - Help File > Data Tutorials // - Sample: features/DataEngine.aspx SeriesCollection mySC = getRandomData();
// Add the random data. Chart.SeriesCollection.Add(mySC); }
SeriesCollection getRandomData() { SeriesCollection SC = new SeriesCollection(); Random myR = new Random(); for (int a = 1; a < 5; a++) { Series s = new Series(); s.Name = "Series " + a; for (int b = 1; b < 5; b++) { Element e = new Element(); //e.Name = "Element " + b; e.XValue = (a + 1) * 4 + b; e.YValue = 20 + myR.Next(50); s.Elements.Add(e); } SC.Add(s); }
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) ' This sample demonstrates error bars on markers in a horizontal chart.
' Enable JSCharting Chart.JS.Enabled = True
' Set the chart type Chart.Type = ChartType.ComboHorizontal ' Set the size Chart.Width = 600 Chart.Height = 350 ' Set the temp directory Chart.TempDirectory = "temp" ' Debug mode. ( Will show generated errors if any ) Chart.Debug = True 'Chart.Title = "My Chart"; Chart.XAxis.Label.Text = "X Value" Chart.YAxis.Label.Text = "Y Value"
' *DYNAMIC DATA NOTE* ' This sample uses random data to populate the chart. To populate ' a chart with database data see the following resources: ' - Classic samples folder ' - Help File > Data Tutorials ' - Sample: features/DataEngine.aspx Dim mySC As SeriesCollection = getRandomData()
' Add the random data. Chart.SeriesCollection.Add(mySC) End Sub
Function getRandomData() As SeriesCollection Dim SC As SeriesCollection = New SeriesCollection() Dim myR As Random = New Random() For a As Integer = 1 To 4 Dim s As Series = New Series() s.Name = "Series " & a For b As Integer = 1 To 4 Dim e As Element = New Element() 'e.Name = "Element " + b; e.XValue = (a + 1) * 4 + b e.YValue = 20 + myR.Next(50) s.Elements.Add(e) Next b SC.Add(s) Next a
Previous