File "Combination.aspx.vb"

Full Path: /home/analogde/www/MassageV3/VBNET/ArrayExample/Combination.aspx.vb
File size: 3.21 KB
MIME-type: text/plain
Charset: utf-8

Imports InfoSoftGlobal
Partial Class Combination
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ' Generate chart in Literal Control
        FCLiteral.Text = CreateChart()
    End Sub

    Public Function CreateChart() As String
        'In this example, we plot a Combination chart from data contained
        'in an array. The array will have three columns - first one for Quarter Name
        'second one for sales figure and third one for quantity. 

        Dim arrData(4, 3) As String
        'Store Quarter Name
        arrData(0, 1) = "Quarter 1"
        arrData(1, 1) = "Quarter 2"
        arrData(2, 1) = "Quarter 3"
        arrData(3, 1) = "Quarter 4"
        'Store revenue data
        arrData(0, 2) = "576000"
        arrData(1, 2) = "448000"
        arrData(2, 2) = "956000"
        arrData(3, 2) = "734000"
        'Store Quantity
        arrData(0, 3) = "576"
        arrData(1, 3) = "448"
        arrData(2, 3) = "956"
        arrData(3, 3) = "734"

        'Now, we need to convert this data into combination XML. 
        'We convert using string concatenation.
        'strXML - Stores the entire XML
        'strCategories - Stores XML for the <categories> and child <category> elements
        'strDataRev - Stores XML for current year's sales
        'strDataQty - Stores XML for previous year's sales
        Dim strXML As String, strCategories As String, strDataRev As String, strDataQty As String, i As Integer

        'Initialize <graph> element
        strXML = "<graph caption='Product A - Sales Details' PYAxisName='Revenue' SYAxisName='Quantity (in Units)' numberPrefix='$' formatNumberScale='0' showValues='0' decimalPrecision='0' anchorSides='10' anchorRadius='3' anchorBorderColor='FF8000'>"

        'Initialize <categories> element - necessary to generate a multi-series chart
        strCategories = "<categories>"

        'Initiate <dataset> elements
        strDataRev = "<dataset seriesName='Revenue' color='AFD8F8' >"
        strDataQty = "<dataset seriesName='Quantity' parentYAxis='S' color='FF8000' >"


        'Iterate through the data	
        For i = 0 To UBound(arrData) - 1
            'Append <category name='...' /> to strCategories
            strCategories = strCategories & "<category name='" & arrData(i, 1) & "' />"
            'Add <set value='...' color='...'/> to both the datasets

            strDataRev = strDataRev & "<set value='" & arrData(i, 2) & "' />"
            strDataQty = strDataQty & "<set value='" & arrData(i, 3) & "' />"
        Next

        'Close <categories> element
        strCategories = strCategories & "</categories>"

        'Close <dataset> elements
        strDataRev = strDataRev & "</dataset>"
        strDataQty = strDataQty & "</dataset>"

        'Assemble the entire XML now
        strXML = strXML & strCategories & strDataRev & strDataQty & "</graph>"

        'Create the chart - MS Column 3D Line Combination Chart with data contained in strXML
        Return FusionCharts.RenderChart("../FusionCharts/FCF_MSColumn3DLineDY.swf", "", strXML, "productSales", "600", "300", False, False)
    End Function


End Class