Código de Visual Basic.NET - Crear gráfica con datos de un DataTable

Imágen de perfil

Crear gráfica con datos de un DataTablegráfica de visualizaciones


Visual Basic.NET

Actualizado el 02 de Junio del 2016 por Hugo (Creado el 23 de Mayo del 2016)
1.210 visualizaciones desde el 23 de Mayo del 2016. Una media de 49 por semana
Para el ejemplo utilizaremos un Button y un Chart.

graf0
graf1

Creamos nuestra Form y configuraremos el Chart.

graf2

Seleccionamos SERIES y lo cambiamos por EDAD.

graf3

Dentro del botón tecleamos el siguiente código,

graf4

El resultado seria:

graf5

Requerimientos

VB:Net 2010

Publicado el 23 de Mayo del 2016gráfica de visualizaciones de la versión: VB:Net 2010
1.211 visualizaciones desde el 23 de Mayo del 2016. Una media de 49 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim miDataTable As New DataTable
        miDataTable.Columns.Add("Nombre")
        miDataTable.Columns.Add("Edad")
        Dim Renglon As DataRow = miDataTable.NewRow()
        'Guardamos los datos en un datatable
        Renglon("Nombre") = "Luis"
        Renglon("Edad") = "30"
        miDataTable.Rows.Add(Renglon)
        Renglon = miDataTable.NewRow()
        Renglon("Nombre") = "Carmen"
        Renglon("Edad") = "25"
        miDataTable.Rows.Add(Renglon)
        Renglon = miDataTable.NewRow()
        Renglon("Nombre") = "Pedro"
        Renglon("Edad") = "15"
        miDataTable.Rows.Add(Renglon)
        Renglon = miDataTable.NewRow()
        Renglon("Nombre") = "Juana"
        Renglon("Edad") = "45"
        miDataTable.Rows.Add(Renglon)
        Renglon = miDataTable.NewRow()
        Renglon("Nombre") = "Pablo"
        Renglon("Edad") = "18"
        miDataTable.Rows.Add(Renglon)
        Dim miView As DataView = New DataView(miDataTable) 'Enviamos a un dataview los datos
        For x = 0 To miView.Count - 1
            'Tomanos los datos de DataView para la gráfica
            Me.Chart1.Series("Edad").Points.AddXY(miView(x)("Nombre"), miView(x)("Edad"))
        Next
    End Sub



Comentarios sobre la versión: VB:Net 2010 (0)


No hay comentarios
 

Comentar la versión: VB:Net 2010

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s3535