Estoy repasando aplicaciones antiguas que tenía en Gambas2 para recordar un poco como iban y tenerlas en Gambas3.
En este caso es un ejemplo de gráfico de tarta usando el componente gb.chart.
Os muestro directamente la conversión que ha hecho Gambas3, en este caso esta usando la clase Draw, en vez de Paint.
Draw aun funciona. Aunque hay ejemplos mas bien por una propiedad Painted, que es la que da error en algunas aplicaciones
hechas con versiones un poco mas antiguas de Gambas3.(Es que ya no existe la propiedad)
Esto es lo que hace:
Su propiedad cached=false
Y esta usando gtk.
Public Sub Form_Open()
'Texto de la leyenda
Chart.Headers.Values = ["Alimentacion", "Agua", "Electricidad"]
'Valores de la gráfica tipo Float
'Chart[0].Values = [1.0, 2.0, 3.0]
Chart[0].Values = [25.0, 50.0, 100.0]
'Titluo de la gráfica
Chart.Title.Text = "Mi Gráfica"
'Leyenda
Chart.Legend.Visible = True
Chart.Legend.Title = "Mi leyenda"
'Tipo de Gráfica
Chart.Type = ChartType.Pie
DrawingArea1.Refresh()
End
Public Sub DrawingArea1_Draw()
Chart.Width = DrawingArea1.Height
Chart.Height = DrawingArea1.Width
Chart.Draw 'Muestra la gráfica
End
'Texto de la leyenda
Chart.Headers.Values = ["Alimentacion", "Agua", "Electricidad"]
'Valores de la gráfica tipo Float
'Chart[0].Values = [1.0, 2.0, 3.0]
Chart[0].Values = [25.0, 50.0, 100.0]
'Titluo de la gráfica
Chart.Title.Text = "Mi Gráfica"
'Leyenda
Chart.Legend.Visible = True
Chart.Legend.Title = "Mi leyenda"
'Tipo de Gráfica
Chart.Type = ChartType.Pie
DrawingArea1.Refresh()
End
Public Sub DrawingArea1_Draw()
Chart.Width = DrawingArea1.Height
Chart.Height = DrawingArea1.Width
Chart.Draw 'Muestra la gráfica
End
El error en la consola es un número que se repite:
73
Y no hace el mismo efecto a parar la aplicación quedando solo ese número en consola.
A cuando cierro en la esquina.
Citar:
Debió quedarse muy antiguo.
Añado. En Gambas3 no existe el componente gb.chart. Se habrá implementado de otra manera.
He cambiado el titulo del mensaje.
Saludos