Axis b=Chart.YAxis.Calculate("Sales (CAD)", new ChangeValueDelegate(MyFunction)); b.Orientation = dotnetCHARTING.Orientation.Right; Chart.AxisCollection.Add(b);
//Add a series Chart.Series.Name="sales"; Chart.Series.StartDate=new System.DateTime(2022,1,1,0,0,0); Chart.Series.EndDate = new System.DateTime(2022,12,31,23,59,59); Chart.Series.SqlStatement= @"SELECT OrderDate, Total FROM Orders WHERE OrderDate >= #STARTDATE# AND OrderDate <= #ENDDATE# ORDER BY OrderDate"; Chart.Series.Type = SeriesType.Cylinder; Chart.Series.DefaultElement.ShowValue=true; Chart.DefaultSeries.DefaultElement.Transparency=40; Chart.SeriesCollection.Add();
//Add average series Chart.Series.Name = "Average"; Chart.Series.Type = SeriesType.AreaLine; Chart.SeriesCollection.Add(Calculation.RunningAverage);
//Add sum series Chart.Series.Name = "sum"; Chart.Series.Type = SeriesType.AreaLine; Chart.SeriesCollection.Add(Calculation.RunningSum); } public static string MyFunction(string value) { double dValue = Convert.ToDouble(value); dValue = dValue*1.36; return Convert.ToString(dValue); }
<script runat="server"> Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) 'set global properties Chart.DefaultSeries.ConnectionString = ConfigurationManager.AppSettings("DNCConnectionString") Chart.Title="Sales" Chart.XAxis.Label.Text="Months" Chart.YAxis.Label.Text="Sales (USD)" Chart.TempDirectory="temp" Chart.Debug=True Chart.XAxis.ReverseSeries =True Chart.YAxis.Minimum = -5 Chart.YAxis.ZeroTick.GridLine.Visible = False Chart.DateGrouping = TimeInterval.Year Chart.Use3D=True
Dim b As Axis=Chart.YAxis.Calculate("Sales (CAD)", New ChangeValueDelegate(AddressOf MyFunction)) b.Orientation = dotnetCHARTING.Orientation.Right Chart.AxisCollection.Add(b)
'Add a series Chart.Series.Name="sales" Chart.Series.StartDate = New System.DateTime(2022,1,1,0,0,0) Chart.Series.EndDate = New System.DateTime(2022,12,31,23,59,59) Chart.Series.SqlStatement= "SELECT OrderDate, Total FROM Orders WHERE OrderDate >= #STARTDATE# AND OrderDate <= #ENDDATE# ORDER BY OrderDate" Chart.Series.Type = SeriesType.Cylinder Chart.Series.DefaultElement.ShowValue=True Chart.DefaultSeries.DefaultElement.Transparency=40 Chart.SeriesCollection.Add()
'Add average series Chart.Series.Name = "Average" Chart.Series.Type = SeriesType.AreaLine Chart.SeriesCollection.Add(Calculation.RunningAverage)
'Add sum series Chart.Series.Name = "sum" Chart.Series.Type = SeriesType.AreaLine Chart.SeriesCollection.Add(Calculation.RunningSum) End Sub Public Shared Function MyFunction(ByVal value As String) As String Dim dValue As Double = Convert.ToDouble(value) dValue = dValue*1.36 Return Convert.ToString(dValue) End Function
Previous