Radar Without Lines (Demonstrating ParsingXY ONLY]

Coordinator
Oct 2, 2013 at 7:57 AM
Sub DhtmlxCharts23()
        Dim dhtmlxChart2 As New dhtmlxChart2
        dhtmlxChart2.SaveAllColors()
        dhtmlxChart2.Title = "dhtmlxChart: Scatter Chart"
        dhtmlxChart2.Heading = dhtmlxChart2.Title
        dhtmlxChart2.ChartType = dhtmlxChart2.ChartTypeEnum.scatter
        dhtmlxChart2.Width = "500px"
        dhtmlxChart2.Height = "300px"
        dhtmlxChart2.border = "border:1px solid #A4BED4"
        dhtmlxChart2.value = "b"
        dhtmlxChart2.ScatterChart.xValue = "a"
        dhtmlxChart2.ScatterChart.yAxis.title = "Value B"
        dhtmlxChart2.ScatterChart.xAxis.title = "Value A"
        dhtmlxChart2.ScatterChart.tooltip.template = "#a# - #b#"
        dhtmlxChart2.ScatterChart.item.visible = True
        dhtmlxChart2.ScatterChart.item.radius = 5
        'dhtmlxChart2.ScatterChart.item.borderColor = dhtmlxChart2.ColorFromHTML("#f38f00")
        dhtmlxChart2.ScatterChart.item.borderWidth = 1
        'dhtmlxChart2.ScatterChart.item.color = dhtmlxChart2.ColorFromHTML("#ff9600")
        dhtmlxChart2.ScatterChart.item.type = dhtmlxChart2.ItemTypeEnum.d
        dhtmlxChart2.ScatterChart.item.shadow = True
        ' the first column name should alwways be the x axis column name
        dhtmlxChart2.AddColumns("a", "b", "type")
        dhtmlxChart2.ParseXY("b:4,a:4.7, type:Type A")
        dhtmlxChart2.ParseXY("b:3.5,a:0.8, type:Type B")
        dhtmlxChart2.ParseXY("b:2.4,a:1.1, type:Type C")
        dhtmlxChart2.ParseXY("b:5.1,a:10.5, type:Type A")
        dhtmlxChart2.ParseXY("b:4.8,a:9.1, type:Type B")
        dhtmlxChart2.ParseXY("b:5.9,a:8.5, type:Type A")
        dhtmlxChart2.ParseXY("b:3.1,a:7.7, type:Type B")
        dhtmlxChart2.ParseXY("b:4.5,a:7.2, type:Type B")
        dhtmlxChart2.ParseXY("b:5.9,a:12.9, type:Type C")
        dhtmlxChart2.ParseXY("b:2.8,a:5.8, type:Type B")
        dhtmlxChart2.ParseXY("b:3.7,a:8.1, type:Type C")
        dhtmlxChart2.ParseXY("b:5.5,a:14.0, type:Type A")
        dhtmlxChart2.ParseXY("b:4.1,a:1.5, type:Type A")
        dhtmlxChart2.ParseXY("b:4.2,a:6.1, type:Type B")
        dhtmlxChart2.ParseXY("b:2.7,a:1.9, type:Type C")
        dhtmlxChart2.ParseXY("b:3.1,a:5.5, type:Type A")
        dhtmlxChart2.ParseXY("b:6.3,a:12.1, type:Type B")
        dhtmlxChart2.ParseXY("b:4.9,a:11.5, type:Type C")
        dhtmlxChart2.ParseXY("b:2.8,a:2.7, type:Type A")
        dhtmlxChart2.ParseXY("b:5.5,a:10.2, type:Type B")
        dhtmlxChart2.ParseXY("b:8.2,a:21.5, type:Type C")
        dhtmlxChart2.ParseXY("b:7.2,a:15.8, type:Type A")
        dhtmlxChart2.ParseXY("b:3.9,a:11.1, type:Type B")
        dhtmlxChart2.ParseXY("b:6.5,a:15.0 , type:Type C")
        dhtmlxChart2.ParseXY("b:7.0,a:16.1, type:Type A")
        dhtmlxChart2.ParseXY("b:2.9,a:5.2, type:Type C")
        dhtmlxChart2.ParseXY("b:7.4,a:18.5, type:Type C")
        dhtmlxChart2.ParseXY("b:6.5,a:17.8, type:Type A")
        dhtmlxChart2.ParseXY("b:4.7,a:7.1, type:Type C")
        dhtmlxChart2.ParseXY("b:7.7,a:17.0 , type:Type B")
        dhtmlxChart2.ParseXY("b:8.3,a:16.5, type:Type C")
        dhtmlxChart2.ParseXY("b:3.9,a:9.6, type:Type A")
        dhtmlxChart2.ParseXY("b:8.4,a:23.0 , type:Type B")
        dhtmlxChart2.ParseXY("b:7.7,a:18.1, type:Type A")
        dhtmlxChart2.ParseXY("b:3.9,a:7.2, type:Type A")
        dhtmlxChart2.ParseXY("b:7.4,a:20.5, type:Type B")
        dhtmlxChart2.ParseXY("b:6.2,a:15.8, type:Type C")
        dhtmlxChart2.ParseXY("b:4.2,a:9.1, type:Type B")
        dhtmlxChart2.ParseXY("b:8.7,a:19.2 , type:Type A")
        WebSite.File_Write("~/dhtmlxChart.html", dhtmlxChart2.Render)
        regLeft.IFrameUrl = "dhtmlxChart.html"
    End Sub