[PowerCOBOL + COM/OLE] Uso del ChartControl de Codejock

[Kuk]

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:

     CLASS COM AS "*COM"

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) :

 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.

[Fito]

Holaaaa:

Estoy usando este chart para hacer unas estadísticas, y no logro poner las etiquetas del eje X en ángulo.

Alguien lo ha probado?

Saludos

Fito....

[Paulo]

Hola.

Estou a tentar alterar o tamanho da fonte do titulo ("Title"), mas não estou a conseguir.
Alguém sabe como o fazer?
Estou a usar a versão 18.6.0 do codejock.
Gracias

[Paulo]

Hola a todos
Alguem sabe o codigo para não mostrar as labels ?
Gracias

[ATTACH=CONFIG]951[/ATTACH]

[Kuk]

@Paulo, se hace así:

     move pow-false to "Visible" OF "Label" OF "Style" OF "Item"(0) OF "Series" OF "Content" OF chartcontrol1

[Paulo]

Gracias Kuk

[Fito]

Hola Amigos:

Se puede hacer una gráfica más extensa que el tamaño de la ventana? que se pueda hacer scroll?

Saludos

Fito...

[Kuk]

@Fito, creo que lo hace automáticamente cuando ve que los datos ya no caben, pero no lo hacen todas las vistas sino solo en las del tipo Bar: https://forum.codejock.com/chartcont...opic17500.html

Dim Diagram As ChartDiagram2D
Set Diagram = ChartControl.Content.Series(0).Diagram
Diagram.AllowScroll = True
'Diagram.AllowZoom = True 'Optional
Diagram.AxisX.Range.ViewAutoRange = False
Diagram.AxisX.Range.ViewMaxValue = 5 (number of bars visible in view)

En Cobol es así:

 01  COB-DIAG        OBJECT REFERENCE POW-COBJECT.
 01  OBJ-DIAG        OBJECT REFERENCE COM.
 01  OBJ-AXIS        OBJECT REFERENCE COM.
 01  OBJ-RANG        OBJECT REFERENCE COM.
 
 01  VERDAD          PIC X VALUE "1".
 01  FALSO           PIC X VALUE "0".
 01  numBars         PIC 9 value 3.
...
 
     *> Scrollable
     move "Diagram" OF "Item"(0) OF "Series" OF "Content" OF chartcontrol1 to COB-DIAG
     CALL "POWERCONVTOCOM" USING COB-DIAG RETURNING OBJ-DIAG
     invoke OBJ-DIAG "get-AxisX" returning OBJ-AXIS
     invoke OBJ-AXIS "get-Range" returning OBJ-RANG
         
     invoke OBJ-DIAG "set-AllowScroll" using VERDAD
     invoke OBJ-RANG "set-ViewAutoRange" using FALSO
     invoke OBJ-RANG "set-ViewMaxValue" using numBars
     

En numBars hay que poner cuántas barras quieres que se vean, a partir de ahí habrá que usar el scroll.

Lo he probado y funciona.

[Fito]

Hola Carlos:

Lo voy a probar. Para zafar lo hice manualmente, metí el control adentro de un Frame y dos barras de scroll afuera, entonces mediante un cálculo agrando el control y después con las barras resto o sumo a las propiedades Top y Left. Bien casero

Otra cosa. No me puse a investigar, pero los valores sobre las barras, cuando son grandes los pone en notación científica, Me gustaría que salieran tal cual son. Ahora en la Argentina los importes son muy grandes debido a la inflación.

Muchas gracias

Saludos

Fito...

[Kuk]

@Fito, lo único que he encontrado es esto pero no hay respuestas: https://forum.codejock.com/display-b...opic24074.html

También he trasteado el Chart Builder que se instala con los OCX para ver las propiedades y no encuentro ninguna que hable de ello...

Se me ocurre que para el gráfico no necesitas demasiada precisión, así que puedes truncar/acortar las últimas 2 o 3 cifras y poner una "K" de kilo (miles), en plan en vez de 15.000.000 poner 15.000K o algo así.