Gráfico Circular en forma de tarta en Visual Basic 6.0.

imagen principal Fecha de publicación: 15/10/2015

OCX en Visual Basic 6.0. que nos permite generar un gráfico circular en forma de tarta. Su funcionamiente es el el siguiente:

1) Creación del formulario

Creamos un nuevo formulario e insertamos una instancia del control Grafico_Circular.

Es posible que para que funcione tenga que registra el control OCX. En este caso debe ejecutar la siguiente sentencia: regsvr32 c:\carpeta_donde_ha_guardado_el_control\admrell.ocx

2) Introducción de Valores

Para introducir los valores utilizaremos la función Añadir_Sector:

ADMPorc1.Añadir_Sector(Título, ID, Color , Valor)

DescripciónTipo
TítuloEl título de la porción del gráficoString
IDIdentificador numéricoLong
ColorColor de la porción del gráficoLong
ValorValor numérico de la porción del gráficoSingle

Después de Añadir los valores deberemos indicar cual es el valor total numérico del gráfico. Este valor no debe coincidir obligatoriamente con la suma de los valores de las porciones. Es decir, que si coincide se dibuja todo el gráfico y si no dejará un hueco. La propiedad que deberemos rellenar es Valor_Total . Ejemplo:

ADMPorc1.Valor_Total=10

Por último una vez hayamos incluido los sectores y el valor total debemos ejecutar la función Dibujar:

ADMPorc1.Dibujar

3) Ejemplo

ADMPorc1.Limpiar
ADMPorc1.Valor_Total = 2400
ADMPorc1.Añadir_Sector "F.C. Barcelona", 1, QBColor(9), 700
ADMPorc1.Añadir_Sector "Bayern de Munich", 2, QBColor(10), 600
ADMPorc1.Añadir_Sector "Chelsea", 3, QBColor(11), 500
ADMPorc1.Añadir_Sector "Manchester United", 4, QBColor(12), 300
ADMPorc1.Añadir_Sector "Milan", 5, QBColor(13), 200
ADMPorc1.Añadir_Sector "Borussia de Dormunt", 6, QBColor(14), 100
ADMPorc1.Dibujar

DESCARGAR Grafico_Circular.rar(415 descargas)

Si te gusta este artículo compártelo en las redes sociales

Comentarios

Luis A.

21/11/2017 - 18:58:18

Responder

No permite valores con variables, solo valores directos, cuando se colocan variables con los tipos de datos marca error en tiempo de ejecución.
Publicar un comentario

Introduzca un comentario

Nombre:
Comentario:
Introduce los números
de la imagen de arriba
Introducir

Si te gusta o te es útil esta página puedes hacer una donación para permitir su mantenimiento