Graficos estadisticos

09/11/2005 - 04:13 por Ivan Gallego | Informe spam
Wenas, tengo unas tablas que contienen unas estadisticas y me gustaria
plasmar esas estadisticas mediante un grafico (barras o la tarta redondita
esa :p), El caso es que he estado mirando pero la verdad es que no
encuentro gran cosa.

He visto que hay un componente llamado Microsoft Office Chart 11 pero no se
como utilizarlo para sacar algo legible. Alguien que me pueda echar una
mano, Gracias

Preguntas similare

Leer las respuestas

#1 Lord Voldemort
09/11/2005 - 22:09 | Informe spam
puedes usar el mschart de visual estudio 6..
solo buscalo es las referencias .com

sabes crear graficar no es tan complicado... yo aprendi muy rapido y aprendi
de un codigo de formulario de vb6 de un antiguo programa
te voy a pegar el codigo del formulario ...

en el load el llena los datos del grafico desde un array o algo asi..

Private Sub Form_Load()
On Error Resume Next
Bitacora "Abrir FrmGraficos", "Ver Graficos"

If CssTraspaso.Reporte = 1 Then GetDatFin
MSChart1.TitleText = "Comparativo de producción (Cajas enviadas por
finca)"
With MSChart1.Title.Location
.Visible = True
.LocationType = VtChLocationTypeTopLeft
End With

With MSChart1.Legend.Location
.Visible = True
.LocationType = VtChLocationTypeBottom
End With
With MSChart1
' Displays a 3d chart with 8 columns and 8 rows
' data.
.ChartType = VtChChartType2dBar
.ColumnCount = UBound(ArrDatFincas, 2)
.RowCount = 3
For Column = 1 To UBound(ArrDatFincas, 2)
.Column = Column
.ColumnLabel = ArrDatFincas(1, Column)
.Row = 1
.RowLabel = "C.Enviadas"
.Data = ArrDatFincas(2, Column)
.Row = 2
.RowLabel = "C.Recibidas"
.Data = ArrDatFincas(3, Column)
.Row = 3
.RowLabel = "Diferencia"
.Data = ArrDatFincas(2, Column) - ArrDatFincas(3, Column)
Next Column
' Use the chart as the backdrop of the legend.
.ShowLegend = True
End With



' esta funcion devuelve llena el recordset con los datos necesarios.. o sea
tu tendrias tu recordset ya y no ocuparias esta funcion..
Private Sub GetDatFin()
Dim x As Integer
Dim rssRegCom As rdoResultset
On Error Resume Next
StrSql = "select * from Proyectos"
Set RrssRegcom = RdoCnn.OpenResultset(StrSql, rdOpenKeyset,
rdConcurLock, rdExecDirect)
ReDim ArrDatFincas(3, 0)
If RrssRegcom.BOF And RrssRegcom.eof Then
RrssRegcom.Close
Set RrssRegcom = Nothing
Exit Sub
End If
RrssRegcom.MoveLast
RrssRegcom.MoveFirst
For x = 1 To RrssRegcom.RowCount
If VarType(RrssRegcom!Nombre) <> vbNull Then
ReDim Preserve ArrDatFincas(3, UBound(ArrDatFincas, 2) + 1)
ArrDatFincas(0, UBound(ArrDatFincas, 2)) = RrssRegcom!ID
ArrDatFincas(1, UBound(ArrDatFincas, 2)) = RrssRegcom!Nombre
End If
RrssRegcom.MoveNext
Next
Dim y As Integer
For x = 1 To UBound(ArrDatFincas, 2)
StrSql = "SELECT Sum(DetalleEnvio.CajEnviadas) AS SumaDeCajEnviadas,
Sum(DetalleEnvio.Cajrecibidas) AS SumaDeCajrecibidas "
StrSql = StrSql & " From DetalleEnvio"
StrSql = StrSql & " WHERE (((DetalleEnvio.IdProyecto)=" &
ArrDatFincas(0, x) & "));"
Set RrssRegcom = RdoCnn.OpenResultset(StrSql, rdOpenKeyset,
rdConcurLock, rdExecDirect)
If Not (RrssRegcom.BOF And RrssRegcom.eof) Then
RrssRegcom.MoveFirst
If VarType(RrssRegcom(0)) <> vbNull Then
ArrDatFincas(2, x) = CLng(RrssRegcom(0))
End If
If VarType(RrssRegcom(1)) <> vbNull Then
ArrDatFincas(3, x) = CLng(RrssRegcom(1))
End If
End If
Next
RrssRegcom.Close
Set RrssRegcom = Nothing
End Sub

'aqui sirve para cambiar el tipo de grafico en runtime...
Private Sub Command2_Click()
Dim x As Integer
x = MSChart1.ChartType
x = x + 1
If x > 9 Then x = 0
MSChart1.ChartType = x
End Sub


"Ivan Gallego" wrote in message
news:
Wenas, tengo unas tablas que contienen unas estadisticas y me gustaria
plasmar esas estadisticas mediante un grafico (barras o la tarta redondita
esa :p), El caso es que he estado mirando pero la verdad es que no
encuentro gran cosa.

He visto que hay un componente llamado Microsoft Office Chart 11 pero no
se
como utilizarlo para sacar algo legible. Alguien que me pueda echar una
mano, Gracias
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida