Programacion_Grafica

Pasos para hacer una grafica

Dar clic en activebound control ahí se cambia las propiedades:

strech en 2

name olGrafico

En el formulario en propiedades vomos a cambiar:

autocenter a verdadero

data secion private 2

min y max butoon a falso               

button programar

Imports System.Data.OleDb
Public Class grafica
    Public Cadena As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = C:\Visual_S\Colegio.accdb"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cSQL As String = "Select Carrera,count(Carrera) as Total from Estudiantes group by Carrera"
        Dim oConexion As New OleDbConnection(Cadena)
        oConexion.Open()
        Dim Comando As New OleDbCommand(cSQL, oConexion)
        Dim Lector As OleDbDataReader = Comando.ExecuteReader
        'Limpiar la grafica anterior
        oGrafico.ChartAreas.Clear()
        oGrafico.Series.Clear()
        oGrafico.Titles.Clear()
        'agregar nun area, titulo y tamaño del titulo a la grafica
        oGrafico.ChartAreas.Add(0)
        oGrafico.Titles.Add("numero de Estudiantes por Carrera")
        oGrafico.Titles(0).Font = New Font("Garamond", 18, FontStyle.Bold)
        'Enlazar la grafica con los datos obtenidos mediante la SQL
        oGrafico.DataBindTable(Lector, "Carrera")
        oGrafico.Series(0).IsValueShownAsLabel = True
        oGrafico.ChartAreas(0).Area3DStyle.Enable3D = True
        cmbtipo.Enabled = True
        oConexion.Close()

    End Sub
cmbtipo programar

Private Sub cmbtipo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbtipo.SelectedIndexChanged
        Select Case cmbtipo.SelectedIndex
            Case 0
                oGrafico.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Area
            Case 1
                oGrafico.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Bar
            Case 2
                oGrafico.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Column
            Case 3
                oGrafico.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Pie
            Case 4
                oGrafico.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Point
            Case Else
                oGrafico.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Line

        End Select
    End Sub
End Class