Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: lucius en Marzo 31, 2012, 12:01:34 am
-
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.
(http://www.uploadimage.co.uk/images/67833045455465648.png)
Aqui otra imagen donde se muestran las cantidades en las misma barras.
(http://www.disfrutalasmatematicas.com/definiciones/images/bar-graph.gif)
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.
-
(http://i43.tinypic.com/1581mdy.png)
pone un mschart y el siguiente codigo en un form :)
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
-
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")
-
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 (http://leandroascierto.com/foro/index.php?topic=890.msg4479#msg4479)
Saludos
-
hola muchachos bueno yo usaba en vb 6.0 este control
(http://www.fusioncharts.com/demos/extensions/vb6/images/screens/multiplechart_form.jpg)
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/ (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 (http://www.4shared.com/rar/KQX3Q9Qz/FusionCharts_Enterprise_v3.htm)
el password para el archivo es pepe
úsenlo
gracias
-
juassss, excelente cristian, me interesa mucho. Gracias
-
En el codigo fuente que envias no encuentro nada para VB6... Y en el primer link descarga es un trial... =(
Me habia emocionado...
-
;D 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
(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
-
Es decir que podemos usar estos así gratuitos sin problemas?
-
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
-
Y probaron RMChart 4.12 es gratuito y tiene incluido un diseñador de graficos ? :)
(http://www.findmysoft.com/screen/19556.jpg)
http://www.4shared.com/file/m8LFFLbe/setup.html (http://www.4shared.com/file/m8LFFLbe/setup.html)
-
muy bien!!!, ahora hay mas opciones a eligir
Gracias
-
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.
-
:( como les comente antes los que estan licenciados son los SWF y existe un codigo libre :(
-
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.
-
http://www.4shared.com/rar/KQX3Q9Qz/FusionCharts_Enterprise_v3.htm
el password para el archivo es pepe
hay estan los archivos editables que son los FLA lo puedes editar con Adobe Flash
cuando he dicho que estan los FLA en la carpeta FUSCH
En la carpeta FUSCH hay ejemplos XML y Base de Datos en ACCESS
tiene que leer todo el tema ps muchachos para vean que sucede