El chart de Codejock es algo que me ha encantado. Para poder usarlo, lo principal es crear uno de los estilos visuales dinamicamente via COM, si no lo hacemos, no se visualiza nada. Para ello, tenemos que hacer:
En REPOSITORY:
Luego en donde sea necesario, por ejemplo en "Opened" del Form que va a mostrar el Chart.
Para crear un estilo (por ejemplo el ChartAreaSeriesStyle) del Chart via COM, hacemos lo siguiente (todos los estilos posibles los podeis ver en el ejemplo que se instala para VB) :
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TXT PIC X(50).
01 CHART-STYLE OBJECT REFERENCE COM.
01 COB-CAPA OBJECT REFERENCE POW-COBJECT.
01 OBJ-CAPA OBJECT REFERENCE COM.
PROCEDURE DIVISION.
*> CREAMOS ESTILO EN DINAMICO
MOVE "Codejock.ChartAreaSeriesStyle.15.0.1" TO TXT
INVOKE COM "CREATE-OBJECT" USING TXT RETURNING CHART-STYLE
*> AÑADIMOS PRIMERA CAPA DE CHART
INVOKE "Series" OF "Content" OF ChartControl1 "Add"
USING "CAPA1" RETURNING COB-CAPA
*> CONVERTIMOS LA CAPA CREADA EN COM
CALL "POWERCONVTOCOM" USING COB-CAPA RETURNING OBJ-CAPA
*> APLICAMOS ESTILO
INVOKE OBJ-CAPA "SET-STYLE" USING CHART-STYLE
*> AÑADIMOS TEXTO DE ENCABEZADO DEL CHART
INVOKE "Titles" OF "Content" OF ChartControl1 "Add" USING "Datos del año"
*> SI QUEREMOS USAMOS PIEL OSCURA DEL ESTILO
INVOKE "Appearance" OF "Content" OF ChartControl1 "SetAppearance" USING "BLACK"
*> AÑADIMOS DATOS EN LA CAPA (0 = CAPA1, SI AÑADIMOS OTRA SERIA "Item"(1) ETC)
INVOKE "Points" OF "Item"(0) OF "Series" OF "Content" OF chartcontrol1 "Add" USING "Dato Nº1" 1000
INVOKE "Points" OF "Item"(0) OF "Series" OF "Content" OF chartcontrol1 "Add" USING "Dato Nº2" 589
INVOKE "Points" OF "Item"(0) OF "Series" OF "Content" OF chartcontrol1 "Add" USING "Dato Nº3" 1544
INVOKE "Points" OF "Item"(0) OF "Series" OF "Content" OF chartcontrol1 "Add" USING "Dato Nº4" 879
Resultado aqui en la imagen 1. El resto son ejemplos de apariencias.
Los 6 y 7 son 3D, movibles en ejecucion por raton.