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)
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;"/>
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 ...
Saludos
'Tomanos los datos de DataView para la gráfica
'produccion es el nombre de la serie en las propiedades del chart
```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