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

Imágen de perfil
Val: 50
Ha disminuido su posición en 5 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

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


Visual Basic.NET

Actualizado el 2 de Junio del 2016 por Hugo (2 códigos) (Publicado el 23 de Mayo del 2016)
29.591 visualizaciones desde el 23 de Mayo del 2016
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
estrellaestrellaestrellaestrellaestrella(5)

Publicado el 23 de Mayo del 2016gráfica de visualizaciones de la versión: VB:Net 2010
29.592 visualizaciones desde el 23 de Mayo del 2016
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 (5)

conejo
25 de Septiembre del 2019
estrellaestrellaestrellaestrellaestrella
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
estrellaestrellaestrellaestrellaestrella
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
Imágen de perfil
22 de Octubre del 2020
estrellaestrellaestrellaestrellaestrella
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
estrellaestrellaestrellaestrellaestrella
1
2
3
4
5
6
7
8
9
10
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
estrellaestrellaestrellaestrellaestrella
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
1
='editor_code'>='editor_code'>
Responder

Comentar la versión: VB:Net 2010

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

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s3535