19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
' Gambas class filePUBLIC SUB _new()ENDPUBLIC SUB Form_Open()ENDPUBLIC SUB Button1_Click() SetMyChartENDSUB SetMyChart() DIM mychart AS Chart mychart.Headers = ["a", "b", "c"] mychart[0].Values = [1.0, 2.0, 3.0] mychart.Title = "Chart test" mychart.Legend.Visible = TRUE mychart.Legend.Title = "My legend" mychart.Type = ChartType.Lines mychart.Style = ChartStyle.Custom mychart.Colors.Values = [Color.Yellow, Color.Red, Color.Blue] mychart.Width = DrawingArea1.ClientHeight mychart.Height = DrawingArea1.ClientWidth mychart.DrawEND
PUBLIC SUB Button1_Click() DIM mychart AS NEW Chart mychart.Headers.Add("a") mychart.Headers.Add("b") mychart.Headers.Add("c") mychart[0].Values.Add(1.0) mychart[0].Values.Add(2.0) mychart[0].Values.Add(3.0) mychart.Title.Text = "Chart test" mychart.Legend.Visible = TRUE mychart.Legend.Title = "My legend" mychart.Type = ChartType.Lines mychart.Style = ChartStyle.Custom mychart.Colors.Values = [Color.Yellow, Color.Red, Color.Blue] mychart.Width = DrawingArea1.ClientHeight mychart.Height = DrawingArea1.ClientWidth mychart.DrawEND
PUBLIC SUB Button1_Click() DIM myChart AS NEW Chart mychart.Headers.Add("a") mychart.Headers.Add("b") mychart.Headers.Add("c") mychart[0].Values.Add(1.0) mychart[0].Values.Add(2.0) mychart[0].Values.Add(3.0) mychart.Title.Text = "Chart test" mychart.Legend.Visible = TRUE mychart.Legend.Title = "My legend" mychart.Type = ChartType.Lines mychart.Style = ChartStyle.Custom mychart.Colors.Values = [Color.Yellow, Color.Red, Color.Blue] Draw.Begin(DrawingArea1) myChart.Width = DrawingArea1.ClientHeight myChart.Height = DrawingArea1.ClientWidth TRY myChart.Draw() Draw.End END