Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Cocina Casera > Cocina PowerCOBOL + COM/OLE
Cocina PowerCOBOL + COM/OLE Código PowerCOBOL en utilización con OLE/COM
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Componente] Graficos con Codejock y PW9 hbetancur PowerCOBOL (ActiveX, v4 - v11) 1 13 de julio de 2018 11:17
[Sintaxis] Uso del raton para ampliar un registro de CmList Breew PowerCOBOL (ActiveX, v4 - v11) 10 3 de junio de 2018 13:09
[Problema con el Foro] Uso del Foro... jasb COBOLForo.es 13 7 de diciembre de 2017 09:15
[Sintaxis] Uso del control CmProgress Breew PowerCOBOL (ActiveX, v4 - v11) 17 25 de abril de 2016 06:55
[Noticia] Codejock Xtreme Suite Pro ActiveX Kuk Controles y Componentes de Pago 3 6 de abril de 2015 14:24
Respuesta
 
Herramientas

  #1
Antiguo 28 de mayo de 2015, 19:47
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
23.09.2021 08:44
PROCEDURE DIVISION
Posts: 1.807
Enviado: 583
Recibido: 756
Soluiones: 95
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Lightbulb Uso del ChartControl de Codejock

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:

Código COBOL:
  1.      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) :

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  TXT              PIC X(50).
  5.  01  CHART-STYLE     OBJECT REFERENCE COM.
  6.  01  COB-CAPA        OBJECT REFERENCE POW-COBJECT.
  7.  01  OBJ-CAPA        OBJECT REFERENCE COM.
  8.  PROCEDURE       DIVISION.
  9.    
  10.      *> CREAMOS ESTILO EN DINAMICO
  11.      MOVE "Codejock.ChartAreaSeriesStyle.15.0.1" TO TXT    
  12.      INVOKE COM "CREATE-OBJECT" USING TXT RETURNING CHART-STYLE
  13.  
  14.      *> AÑADIMOS PRIMERA CAPA DE CHART
  15.      INVOKE "Series" OF "Content" OF ChartControl1 "Add"
  16.       USING "CAPA1" RETURNING COB-CAPA
  17.  
  18.      *> CONVERTIMOS LA CAPA CREADA EN COM
  19.      CALL "POWERCONVTOCOM" USING COB-CAPA RETURNING OBJ-CAPA
  20.  
  21.      *> APLICAMOS ESTILO
  22.      INVOKE OBJ-CAPA "SET-STYLE" USING CHART-STYLE
  23.  
  24.      *> AÑADIMOS TEXTO DE ENCABEZADO DEL CHART
  25.      INVOKE "Titles" OF "Content" OF ChartControl1 "Add" USING "Datos del año"  
  26.  
  27.      *> SI QUEREMOS USAMOS PIEL OSCURA DEL ESTILO
  28.      INVOKE "Appearance" OF "Content" OF ChartControl1 "SetAppearance" USING "BLACK"
  29.  
  30.      *> AÑADIMOS DATOS EN LA CAPA (0 = CAPA1, SI AÑADIMOS OTRA SERIA "Item"(1) ETC)
  31.      INVOKE "Points" OF "Item"(0) OF "Series" OF "Content" OF chartcontrol1 "Add" USING "Dato Nº1" 1000
  32.      INVOKE "Points" OF "Item"(0) OF "Series" OF "Content" OF chartcontrol1 "Add" USING "Dato Nº2" 589
  33.      INVOKE "Points" OF "Item"(0) OF "Series" OF "Content" OF chartcontrol1 "Add" USING "Dato Nº3" 1544
  34.      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.
Imágenes Adjuntas
Tipo de Archivo: jpg Chart.jpg (49,5 KB, 56 descargas)
Tipo de Archivo: jpg Ejemplo1.jpg (37,8 KB, 44 descargas)
Tipo de Archivo: jpg Ejemplo2.jpg (68,4 KB, 42 descargas)
Tipo de Archivo: jpg Ejemplo3.jpg (57,1 KB, 41 descargas)
Tipo de Archivo: jpg Ejemplo4.jpg (59,5 KB, 41 descargas)
Tipo de Archivo: jpg Ejemplo5.jpg (35,1 KB, 37 descargas)
Tipo de Archivo: jpg Ejemplo6.jpg (47,2 KB, 47 descargas)



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 4
Angel (16 de diciembre de 2017), Eslopes (16 de febrero de 2016), Fito ( 6 de julio de 2021), Josber (29 de mayo de 2015)
  #2
Antiguo 6 de julio de 2021, 17:03
IDENTIFICATION DIVISION
Fito
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por el Avatar  Activista del Foro: Activista del Foro - Razón: Por aportar ideas 
ENVIRONMENT DIVISION
Avatar de Fito
DATA DIVISION
febrero 2015
Córdoba, Villa María
50 años
22.09.2021 12:17
PROCEDURE DIVISION
Posts: 281
Enviado: 146
Recibido: 141
Soluiones: 14
Reputación: 20
Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road
Predeterminado

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....
Fito no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
chart , codejock


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 09:17.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.