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ón | Tipo | |
|---|---|---|
| Título | El título de la porción del gráfico | String |
| ID | Identificador numérico | Long |
| Color | Color de la porción del gráfico | Long |
| Valor | Valor numérico de la porción del gráfico | Single |
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(1.867 descargas)
Comentarios
luis valderrama
19/07/2018 - 06:51:25
Luis A.
21/11/2017 - 18:58:18