GoogleChart-Module for SpiderBasic
EnableExplicit
XIncludeFile "GoogleChart.sbi"
Enumeration ; Windows
#Window
#Chart
EndEnumeration
Procedure Main()
OpenWindow(#Window, 420, 320, 1000, 300, "LineChart")
ContainerGadget(#Chart, 0, 0, WindowWidth(#Window), WindowHeight(#Window), #PB_Container_Flat) : CloseGadgetList()
GoogleChart::BindGadget(#Chart, GoogleChart::#ChartTypeLine)
; Set Options
Protected ChartOptions
! v_chartoptions = {
! hAxis: { title: 'Time' },
! vAxis: { title: 'Popularity' }
! };
GoogleChart::SetChartGadgetAttribute(#Chart, GoogleChart::#ChartOptions, ChartOptions)
; Set Data
Protected ChartDataTable = GoogleChart::NewDataTable()
GoogleChart::DataTableAddColumn(ChartDataTable, "X", "number")
GoogleChart::DataTableAddColumn(ChartDataTable, "Dogs", "number")
! v_chartdatatable.addRows([
! [ 0, 0], [ 1, 10], [ 2, 23], [ 3, 17], [ 4, 18], [ 5, 9],
! [ 6, 11], [ 7, 27], [ 8, 33], [ 9, 40], [10, 32], [11, 35],
! [12, 30], [13, 40], [14, 42], [15, 47], [16, 44], [17, 48],
! [18, 52], [19, 54], [20, 42], [21, 55], [22, 56], [23, 57],
! [24, 60], [25, 50], [26, 52], [27, 51], [28, 49], [29, 53],
! [30, 55], [31, 60], [32, 61], [33, 59], [34, 62], [35, 65],
! [36, 62], [37, 58], [38, 55], [39, 61], [40, 64], [41, 65],
! [42, 63], [43, 66], [44, 67], [45, 69], [46, 69], [47, 70],
! [48, 72], [49, 68], [50, 66], [51, 65], [52, 67], [53, 70],
! [54, 71], [55, 72], [56, 73], [57, 75], [58, 70], [59, 68],
! [60, 64], [61, 60], [62, 65], [63, 67], [64, 68], [65, 69],
! [66, 70], [67, 72], [68, 75], [69, 80]
! ]);
GoogleChart::SetChartGadgetAttribute(#Chart, GoogleChart::#ChartDataTable, ChartDataTable)
EndProcedure
Define Packages
! v_packages = ["corechart"];
GoogleChart::Init(@Main(), Packages)