Crear grafico con microsoft chart

[lucius]

Bueno haber si algun experto me hecha una mano como dicen por ahi. quisiera hacer este grafico pero ni idea de como hacerlo con el msChart control.
En el campo principal en este caso sera "Motores" y este es el unico que cambiara lo demas solo debe mostrar las cantidades. La conexion y todo lo demas lo tengo solo me falta el report.

Lo mas importante de todo es que los valores se muestren en la misma barrita para leerlos facilmente, el report es bastante simple pero no encuentro nada.


Aqui otra imagen donde se muestran las cantidades en las misma barras.


NOTA:Lo curioso es que he intentado hacerlo con office2007 y hace lo que quiero menos mostrar la cantidad en las barras como en la imagen anterior.

[Virgil Tracy]

pone un mschart y el siguiente codigo en un form 

Código: (VB) [Seleccionar]

Option Explicit

Private Sub Form_Load()

DrawChart

End Sub



Private Sub DrawChart()

ReDim g(1 To 4, 1 To 2)

g(1, 1) = "15/01/2011"
g(1, 2) = 60

g(2, 1) = "25/05/2011"
g(2, 2) = 90

g(3, 1) = "14/06/2011"
g(3, 2) = 50

g(4, 1) = "18/08/2011"
g(4, 2) = 120

With MSChart1
     
     .AllowSelections = False
     .AllowSeriesSelection = False
     
     With .Title
          .Text = "Ejemplo MsChart"
     
          With .VtFont
               .Name = "Microsoft Sans Serif"
               .Size = 16
               .VtColor.Set 0, 128, 0
               .Style = VtFontStyleBold
          End With
     
     End With
     
     .ChartData = g

     .chartType = VtChChartType2dBar
     .SeriesType = VtChSeriesType2dBar
     .ShowLegend = False
     .Plot.DataSeriesInRow = False
     .ColumnLabel = ""

     With .Plot.Axis(VtChAxisIdX)
     
          .Pen.VtColor.Set 192, 192, 192
     
          With .AxisGrid.MajorPen
               .VtColor.Set 192, 192, 192
          End With
         
     End With
     
     With .Plot.Axis(VtChAxisIdY)
     
          .Pen.VtColor.Set 192, 192, 192
     
          With .AxisGrid.MajorPen
               .VtColor.Set 192, 192, 192
          End With
         
     End With
     
     .Plot.Axis(VtChAxisIdY2).AxisScale.Hide = True
     
     With .Plot.Axis(VtChAxisIdY).AxisTitle
         
          .TextLayout.Orientation = VtOrientationHorizontal
          .Text = "Motores"
         
          With .VtFont
               .Name = "Microsoft Sans Serif"
               .Size = 10
               .VtColor.Set 255, 0, 0
               .Style = VtFontStyleBold
          End With
         
     End With
     
     With .Plot.SeriesCollection(1).DataPoints(-1)
         
          With .Brush
               .Style = VtBrushStyleSolid
               .FillColor.Set 252, 159, 0
          End With
         
          With .EdgePen
               .Style = VtBrushStyleSolid
               .VtColor.Set 130, 73, 0
          End With
         
     End With

     With .Plot.SeriesCollection(1).DataPoints(-1).DataPointLabel
          .LocationType = VtChLabelLocationTypeAbovePoint
          .Component = VtChLabelComponentValue
          .PercentFormat = ""
         
          With .VtFont
               .Name = "Microsoft Sans Serif"
               .Size = 8
          End With
         
     End With

End With

End Sub



[lucius]

Virgil eres lo maximo actualmente lo habia logrado creando un grafico en Access2007 y exportandolo a Excel2007(Aqui utilizo las tablas dinamicas), jeje hoy tuve que aprender a utilizar los graficos, toda una aventura y dolor de cabeza.

El ejemplo que colocas se ve bien, los ejemplos que encontre me sacaban chispa, bueno ya que la idea era hacerlo en vb6 procedere con tu ejemplo, muchas gracias.

Espero no hacerme problemas ya que los registros los tengo cargados en un recordset intentare modificarlo supongo que utilizare un for, saludos

rs("id")
rs("Fecha")
rs("Motores")

[YAcosta]

Quiza te pueda interesar el grafico que uso y que en este hilo se comenta:

http://leandroascierto.com/foro/index.php?topic=890.msg4479#msg4479


Saludos

[cristian_19a]

hola muchachos bueno yo usaba en vb 6.0 este control

es un control OCX que controla gráficos muy dinamicos en flash con xml
lo pueden descargar aqui
http://www.fusioncharts.com/extensions/visual-basic-6/
en las cual les baja con ejemplos del control, lo pueden usar en NET en PHP en VB 6 en lo que desean

tambien existe el codigo fuente libre de esto que son los FLA de donde pueden manejara tu antojo
http://www.4shared.com/rar/KQX3Q9Qz/FusionCharts_Enterprise_v3.htm
el password para el archivo es pepe

úsenlo


gracias

[YAcosta]

juassss, excelente cristian, me interesa mucho. Gracias

[ssccaann43]

En el codigo fuente que envias no encuentro nada para VB6... Y en el primer link descarga es un trial... =(

Me habia emocionado...

[cristian_19a]

  disculpen yo pensé que captaban lo que iban hacer, como les dije antes es un control OCX que utiliza flash para mostrar los gráficos y lo que esta licenciado es los archivos FLASH que son de extension SWF
y les mencione que hay una versión libre donde con código fuente que son los FLA que se encuentran en el segundo link de 4shared en la cual pueden agarrar su editor FLA y editarlo a su antojo.

bueno aquí les paso los mismos ejemplos que bajan en el demo ya con los SWF de codigo fuente libre
http://www.4shared.com/rar/ZIG21aP5/FUSCH.html

la contraseña para acceder es 123456

chekeenlo lo dinámico que son estos gráficos, ya que en estos se reflejan la importancia para la toma de desiciones

Gracias

[ssccaann43]

Es decir que podemos usar estos así gratuitos sin problemas?

[cristian_19a]

Es decir que podemos usar estos así gratuitos sin problemas?

es decir?

eso no fue tu duda anteriormente

bueno claro yo lo tengo funcionando perfectamente y adaptado a mis necesidades


y si ah ustedes les surge un problema no duden en comentarlo


Gracias

[Virgil Tracy]

Y probaron RMChart 4.12 es gratuito y tiene incluido un diseñador de graficos ? 



http://www.4shared.com/file/m8LFFLbe/setup.html

[cristian_19a]

muy bien!!!, ahora hay mas opciones a eligir

Gracias

[seba123neo]

como casi siempre estos controles de terceros, no son gratis, te dan un trial y dessues a comprar, si te lo bajas de algun lado pirateado para hacerlo en tu casa esta bien, nadie te va a decir nada, pero para una empresa de software lo tenes que comprar no te queda otra.

[cristian_19a]

  como les comente antes los que estan licenciados son los SWF y existe un codigo libre 

[lucius]

cristian_19a no encuentro los archivos con extension .fla dentro de la carpeta FUSCH solo los .SWF y .xml entiendo que los datos son enviados a los archivos .SWF los cuales generan los graficos pero como estos estan licenciados ahi el problema. Esos mismos .swf los que mencionas que pueden editarse? bueno solo es curiosidad y para que quede claro a futuros usuarios.