<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="ChartDirector" %>
<%@ Register TagPrefix="chart" Namespace="ChartDirector" Assembly="netchartdir" %>
<script runat="server">
'
' Page Load event handler
'
Protected Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
' The x and y coordinates of the grid
Dim dataX() As Double = {-10, -9, -8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, _
4, 5, 6, 7, 8, 9, 10}
Dim dataY() As Double = {-10, -9, -8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, _
4, 5, 6, 7, 8, 9, 10}
' The values at the grid points. In this example, we will compute the values
' using the formula z = x * sin(y) + y * sin(x).
Dim dataZ((UBound(dataX) + 1) * (UBound(dataY) + 1) - 1) As Double
For yIndex As Integer = 0 To UBound(dataY)
Dim y As Double = dataY(yIndex)
For xIndex As Integer = 0 To UBound(dataX)
Dim x As Double = dataX(xIndex)
dataZ(yIndex * (UBound(dataX) + 1) + xIndex) = x * Math.Sin(y) + y * _
Math.Sin(x)
Next
Next
' Create a XYChart object of size 600 x 500 pixels
Dim c As XYChart = New XYChart(600, 500)
' Add a title to the chart using 15 points Arial Bold Italic font
c.addTitle("z = x * sin(y) + y * sin(x) ", "Arial Bold Italic", 15)
' Set the plotarea at (75, 40) and of size 400 x 400 pixels. Use semi-transparent
' black (80000000) dotted lines for both horizontal and vertical grid lines
c.setPlotArea(75, 40, 400, 400, -1, -1, -1, c.dashLineColor(&H80000000, _
Chart.DotLine), -1)
' Set x-axis and y-axis title using 12 points Arial Bold Italic font
c.xAxis().setTitle("X-Axis Title Place Holder", "Arial Bold Italic", 12)
c.yAxis().setTitle("Y-Axis Title Place Holder", "Arial Bold Italic", 12)
' Set x-axis and y-axis labels to use Arial Bold font
c.xAxis().setLabelStyle("Arial Bold")
c.yAxis().setLabelStyle("Arial Bold")
' When auto-scaling, use tick spacing of 40 pixels as a guideline
c.yAxis().setTickDensity(40)
c.xAxis().setTickDensity(40)
' Add a contour layer using the given data
Dim layer As ContourLayer = c.addContourLayer(dataX, dataY, dataZ)
' Move the grid lines in front of the contour layer
c.getPlotArea().moveGridBefore(layer)
' Add a color axis (the legend) in which the top left corner is anchored at (505,
' 40). Set the length to 400 pixels and the labels on the right side.
Dim cAxis As ColorAxis = layer.setColorAxis(505, 40, Chart.TopLeft, 400, _
Chart.Right)
' Add a title to the color axis using 12 points Arial Bold Italic font
cAxis.setTitle("Color Legend Title Place Holder", "Arial Bold Italic", 12)
' Set color axis labels to use Arial Bold font
cAxis.setLabelStyle("Arial Bold")
' Output the chart
WebChartViewer1.Image = c.makeWebImage(Chart.PNG)
End Sub
</script>
<html>
<body>
<chart:WebChartViewer id="WebChartViewer1" runat="server" />
</body>
</html> |