Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

449 - Mostrar una gráfica con el Microsoft Chart

Ejemplo sencillo en visual basic el cual muestra una gráfica, la cual esta conectada a una base de datos para ver datos estadísticos.

Por T.S.U. Miguel Núñez

Descargar proyecto

vista previa del proyecto para ver los datos estadísticos con el control chart

Código fuente

Option Explicit Dim bd As Connection Dim rsVentas As Recordset Dim nLogrado, nEsperado As Double 'Controles: ' - MsChar :Chart ' - Combobox: cboYear ' - Command1 ''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() Chart.Visible = True If Len(cboYear.Text) = 4 Then ' Filtramos los Registros de la BD en base a el año seleccionado Set rsVentas = bd.Execute("SELECT * FROM ventas WHERE Año = " & Val(cboYear.Text)) ' Calculamos el Porcentaje de las Ventas ' Esperadas y Logradas nEsperado = (rsVentas.Fields("Esperado") / rsVentas.Fields("Esperado")) * 100 nLogrado = (rsVentas.Fields("Logrado") / rsVentas.Fields("Esperado")) * 100 ' Colocamos el titulo al Chart Chart.TitleText = "Ventas - " & cboYear.Text With Chart.DataGrid ' Establecemos las Etiquetas de las Columnas .RowLabel(1, 1) = "Logrado - " & Str(Int(nLogrado)) & "%" .RowLabel(2, 1) = "Esperado - " & Str(nEsperado) & "%" ' Establecemos el tamaño del Chart ' Parametros: Total Etiquetas Cols, Total Etiquetas Series, ' Total Columnas, Total Series .SetSize 2, 1, 2, 1 ' Establecemos los valores de cada columna ' Parametros: Columna, Serie, Valor .SetData 1, 1, nLogrado, 0 .SetData 2, 1, nEsperado, 0 End With End If End Sub Private Sub Form_Load() If App.PrevInstance Then Exit Sub: End ' Solo ejecutar la App una vez Set bd = New Connection bd.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" _ & App.Path & "\Ventas[97].mdb" & ";" bd.Open ' Establecemos la tabla Ventas Set rsVentas = bd.Execute("SELECT * FROM ventas") ' LLenamos el Combo With rsVentas .MoveFirst Do While Not .EOF cboYear.AddItem rsVentas.Fields("Año") .MoveNext Loop End With End Sub

Visualizar datos numéricos

Proyecto de ejemplo de la ayuda de visual basic , que muestra como cargar datos numéricos, leyendo en este caso los valores desde un archivo de excel.

Muestra como utilizar la propiedad CharData para crear el gráfico partir de una matriz., también el ejemplo permite cambiar el estilo del gráfico mediante la propiedad ChartType , asignar el título o leyenda, indicar los números de filas a visualizar , combinar gráficos o mostrar datos en forma individual

formulario

Descargar

Recursos vb 6.0 - Enlaces relacionados

Listado de Ejemplos sobre el Mschart

Buscar en Recursos vb