File "SingleSeries.aspx.vb"

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

Imports Utilities
Imports InfoSoftGlobal
Partial Class ArrayExample_SingleSeries
    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 single series chart from data contained
        'in an array. The array will have two columns - first one for data label
        'and the next one for data values.

        'Let's store the sales data for 6 products in our array). We also store
        'the name of products. 
        Dim arrData(6, 2) As String
        ' Creating util Object
        Dim util As New Util()
        'Store Name of Products
        arrData(0, 1) = "Product A"
        arrData(1, 1) = "Product B"
        arrData(2, 1) = "Product C"
        arrData(3, 1) = "Product D"
        arrData(4, 1) = "Product E"
        arrData(5, 1) = "Product F"
        'Store sales data
        arrData(0, 2) = "567500"
        arrData(1, 2) = "815300"
        arrData(2, 2) = "556800"
        arrData(3, 2) = "734500"
        arrData(4, 2) = "676800"
        arrData(5, 2) = "648500"

        'Now, we need to convert this data into XML. We convert using string concatenation.
        Dim strXML As String, i As Integer
        'Initialize <graph> element
        strXML = "<graph caption='Sales by Product' numberPrefix='$' formatNumberScale='0' decimalPrecision='0'>"

        'Convert data to XML and append
        For i = 0 To UBound(arrData) - 1
            'add values using <set name='...' value='...' color='...'/>
            strXML = strXML & "<set name='" & arrData(i, 1) & "' value='" & arrData(i, 2) & "' color='" & util.getFCColor() & "' />"
        Next
        'Close <graph> element
        strXML = strXML & "</graph>"

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

    End Function

    
End Class