File "AngularGauge.aspx.vb"

Full Path: /home/analogde/www/php/integrations/asp.net-vb/samples/Pages/AngularGauge.aspx.vb
File size: 971 bytes
MIME-type: text/plain
Charset: utf-8

Imports FusionCharts.Charts
Partial Class AngularGauge
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'store chart config data as json string
        Dim jsonData As String
        jsonData = "{'chart': {'caption': 'Nordstorm\'s Customer Satisfaction Score for 2017','lowerLimit': '0','upperLimit': '100','showValue': '1','numberSuffix': '%','theme': 'fusion','showToolTip': '0'},'colorRange': {'color': [{'minValue': '0','maxValue': '50','code': '#F2726F'}, {'minValue': '50','maxValue': '75','code': '#FFC533'}, {'minValue': '75','maxValue': '100','code': '#62B58F'}]},'dials': {'dial': [{'value': '81'}]}}"
        'create gauge instance
        'gauge type, gauge id, width, height, data format, data source as string
        Dim gauge As New Chart("angulargauge", "gauge", "400", "400", "json", jsonData)
        'render gauge
        Literal1.Text = gauge.Render()
    End Sub
End Class