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

Pos: 51

Val: 50

Ha disminuido su posición en 5 puestos en Visual Basic.NET (en relación al último mes)

Crear gráfica con datos de un DataTable

Visual Basic.NET

(5)

Actualizado el 2 de Junio del 2016 por Hugo (2 códigos) (Publicado el 23 de Mayo del 2016)

31.642 visualizaciones desde el 23 de Mayo del 2016

Para el ejemplo utilizaremos un Button y un Chart.

graf0

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

VISITA: http://vbpuntonet.blogspot.mx/

VB:Net 2010
(5)

Publicado el 23 de Mayo del 2016

gráfica de visualizaciones de la versión: VB:Net 2010

31.643 visualizaciones desde el 23 de Mayo del 2016

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 (5)

conejo

25 de Septiembre del 2019

Si, muy bueno.
Sólo añadiría que en el web.config hay que eliminar la línea que hace referencia al chart y reemplazarla por esta: <add key="ChartImageHandler" value="storage=memory;deleteAfterServicing=true;"/>

Responder

DULCE

20 de Octubre del 2020

Estoy trabajando en un programa pero las graficas no se como hacerlas

Quiero tomar los datos dentro de dos datagriedview y hacer graficas de puntos pero no encuento como en ek eje x un data y el y el otro

pueden ayudarme ...

Responder

Hugo

22 de Octubre del 2020

Lo que puede hacer es crear un datatable con los 2 gridview y tomar el código de este ejemplo.

Saludos

Responder

luis

23 de Octubre del 2020

llenargrid("select item,produccion,fecha from mov where empleado='" & TextBox1.Text & "' and fechal>='" & fecha0 & "' and fecha<='" & fecha1 & "' group by empleado,fecha", DataGridView6)

For x = 0 To DataGridView6.Rows.Count - 1

    'Tomanos los datos de DataView para la gráfica

    DateTimePicker3.Value = DataGridView6.Item(2, x).Value.ToString

    Dim serie2 As String = Format(DateTimePicker3.Value.Date, "yyyy/MM/dd")

    Me.Chart1.Series("Produccion").Points.AddXY(serie2, DataGridView6.Item(1, x).Value)

    'produccion es el nombre de la serie en las propiedades del chart

Next

Responder

camilo villa

9 de Mayo del 2023

Claro, aquí te proporciono un ejemplo de cómo podrías representar el diagrama de las 5 fuerzas de Porter utilizando Visual Basic (VB). Ten en cuenta que este es solo un ejemplo básico y podrías personalizarlo según tus necesidades:

```vb
Imports System.Drawing
Imports System.Windows.Forms

Public Class PorterDiagram
Inherits Form

Public Sub New()
' Establecer el título del formulario
Me.Text = "Diagrama de las 5 fuerzas de Porter"

' Establecer el tamaño del formulario
Me.Size = New Size(800, 600)

' Llamar al método para dibujar el diagrama
Me.DoubleBuffered = True
End Sub

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
MyBase.OnPaint(e)

' Crear un objeto Graphics para dibujar en el formulario
Dim g As Graphics = e.Graphics

' Establecer el tamaño y la posición de los elementos del diagrama
Dim width As Integer = 100
Dim height As Integer = 50
Dim spacing As Integer = 150
Dim xCenter As Integer = Me.Width \ 2
Dim yCenter As Integer = Me.Height \ 2

' Dibujar las flechas y símbolos de las fuerzas de Porter
DrawArrow(g, xCenter, yCenter - spacing, xCenter, yCenter - height, Color.Red) ' Amenaza de nuevos entrantes
DrawSymbol(g, "Nuevos Entrantes", xCenter - width, yCenter - spacing - height - 20, Color.Red)

DrawArrow(g, xCenter - spacing, yCenter, xCenter - width, yCenter, Color.Blue) ' Poder de negociación de los proveedores
DrawSymbol(g, "Proveedores", xCenter - spacing - width - 50, yCenter - height, Color.Blue)

DrawArrow(g, xCenter + spacing, yCenter, xCenter + width, yCenter, Color.Green) ' Poder de negociación de los clientes
DrawSymbol(g, "Clientes", xCenter + spacing + width + 30, yCenter - height, Color.Green)

DrawArrow(g, xCenter, yCenter + spacing, xCenter, yCenter + height, Color.Orange) ' Amenaza de productos o servicios sustitutos
DrawSymbol(g, "Sustitutos", xCenter - width, yCenter + spacing + 20, Color.Orange)

DrawCircle(g, xCenter, yCenter, width, Color.Purple) ' Rivalidad entre empresas existentes
DrawSymbol(g, "Competidores", xCenter - width, yCenter + height + 20, Color.Purple)
End Sub

Private Sub DrawArrow(ByVal g As Graphics, ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal color As Color)
Using pen As New Pen(color, 2)
g.DrawLine(pen, x1, y1, x2, y2)

' Dibujar las puntas de flecha
Dim arrowSize As Integer = 10
Dim angle As Single = Math.Atan2(y2 - y1, x2 - x1)
g.DrawLine(pen, x2, y2, x2 - CInt(arrowSize * Math.Cos(angle - Math.PI / 6)), y2 - CInt(arrowSize * Math.Sin(angle - Math.PI / 6)))
g.DrawLine