void Page_Load(Object sender, EventArgs e) { // Set the title. //Chart.Title = "My Chart";
// Set the chart Type Chart.Type = ChartType.ComboHorizontal;
Chart.JS.Enabled = true;
// Set a default transparency Chart.DefaultSeries.DefaultElement.Transparency = 20;
Chart.LegendBox.Template = "%icon %name";
// Set the x axis scale to time. Chart.XAxis.Scale = Scale.Time;
//Set the directory where the related JSC files will be created and stored. Chart.TempDirectory = "temp";
// Set the 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 < 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.YDateTimeStart = new DateTime(2023, 4, 4).AddDays(myR.Next(50)); e.YDateTime = e.YDateTimeStart.AddDays(myR.Next(50)); e.Complete = myR.Next(50); s.Elements.Add(e); } SC.Add(s); } return SC; }
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) ' Set the title. 'Chart.Title = "My Chart";
' Set the chart Type Chart.Type = ChartType.ComboHorizontal
Chart.JS.Enabled = True
' Set a default transparency Chart.DefaultSeries.DefaultElement.Transparency = 20
Chart.LegendBox.Template = "%icon %name"
' Set the x axis scale to time. Chart.XAxis.Scale = Scale.Time
'Set the directory where the related JSC files will be created and stored. Chart.TempDirectory = "temp"
' Set the 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 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.YDateTimeStart = New DateTime(2023, 4, 4).AddDays(myR.Next(50)) e.YDateTime = e.YDateTimeStart.AddDays(myR.Next(50)) e.Complete = myR.Next(50) s.Elements.Add(e) Next b SC.Add(s) Next a Return SC End Function
Previous