Grafico: esempio di istrogramma a barre sovrapposte

' Il seguente snippet crea un grafico a barre sovrapposte definendo i "Settings" e assegnandoli all'omonima proprietà dell'oggetto "Grafico".
' Per informazioni sul significato dei singoli parametri di configurazione vedere qui: https://www.jqwidgets.com/jquery-widgets-documentation/documentation/jqxchart/jquery-chart-api.htm

Dim d As New DBArray()
d.Add(New DBArray("Day", "Running", "Swimming", "Cycling"))
d.Add(New DBArray("Monday", 30, 0, 25))
d.Add(New DBArray("Tuesday", 25, 25, 0))
d.Add(New DBArray("Wednesday", 30, 0, 25))
d.Add(New DBArray("Thursday", 35, 25, 45))
d.Add(New DBArray("Friday", 0, 20, 25))
d.Add(New DBArray("Saturday", 30, 0, 30))
d.Add(New DBArray("Sunday", 60, 45, 0))

form.findcontrol("Chart1").SetSeries(d)

Dim s As String

s = "title:  'Fitness & exercise weekly scorecard'," +
"description: 'Time spent in vigorous exercise by activity'," +
  "enableAnimations: true," +
 "showLegend: true," +
"padding: { left: 5, top: 5, right: 5, bottom: 5 }," +
"titlePadding:  { left: 90, top: 0, right: 0, bottom: 10 }," +
"xAxis:" +
	"{" +
		"dataField: 'Day'," +
		"unitInterval: 1," +
		"axisSize: 'auto',"+
		"tickMarks: {" +
			"visible: true," +
			"interval:  1," +
			"color:  '#BCBCBC'" +
		"}," +
		"gridLines: {" +
			"visible: true," +
			"interval: 1," +
			"color: '#BCBCBC'" +
		"}" +
	"}," +
"valueAxis:" +
"{" +
	"unitInterval: 10," +
	"minValue:  0," +
	"maxValue:  120," +
	"title:  { text: 'Time in minutes' }," +
	"labels:  { horizontalAlignment: 'right' }," +
	"tickMarks :  { color: '#BCBCBC' }" +
"}," +
"colorScheme: 'scheme06'," +
"seriesGroups:" +
	"[" +
		"{" +
			"type: 'stackedcolumn'," +
			"columnsGapPercent:  50," +
			"seriesGapPercent: 0," +
			"series: [" +
					"{ dataField: 'Running', displayText: 'Running' }," +
					"{ dataField: 'Swimming', displayText: 'Swimming' }," +
					"{ dataField: 'Cycling', displayText: 'Cycling' }" +
				"]" +
		"}" +
	"]"
	
form.findcontrol("Chart1").Settings=s