Visual Basic - Primera consulta, se agradece la ayuda

Life is soft - evento anual de software empresarial
   
Vista:

Primera consulta, se agradece la ayuda

Publicado por Pablo Delgado (3 intervenciones) el 07/01/2015 17:16:25
Buenas tardes

Es mi primera vez con el visual basic, y mi problema es el siguiente:
Tengo una ecuación (por ejemplo y=2*x+1, u otra cualquiera) y me gustaría obtener una tabla de datos con parejas de la valores (x,y) y una representación gráfica de la misma, en un "Chart". Lo que me gustaría es poder hacer una matriz de dos columnas y muchas filas con las parejas (x,y)

Agradecería que me diesen alguna pista/tutorial para hacerlo

Muchas gracias

Un saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Primera consulta, se agradece la ayuda

Publicado por Pablo Delgado (3 intervenciones) el 08/01/2015 09:26:14
Buenos días

Ya pude hacerlo. Si quieren pueden cerrar el hilo

Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de xve

Primera consulta, se agradece la ayuda

Publicado por xve (178 intervenciones) el 08/01/2015 10:03:15
Hola Pablo, nos puedes comentar como lo solucionaste?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Primera consulta, se agradece la ayuda

Publicado por Pablo Delgado (3 intervenciones) el 08/01/2015 16:28:45
Para una tabla de una fila hice algo así (con un formulario con un botón y un DataGridView)

Public Class Form1

Public Sub Rellenar_Tabla1(d As DataGridView)
'Crear una matriz unidimensional
Dim N As Integer = 100
Dim a(N) As Double, i As Integer
For i = 0 To N
a(i) = 2 * i / 10
Next
'Un valor cualquiera para ver que la matriz se ha construido bien
MsgBox(a(50).ToString)

'Rellenamos una tabla DATAGRID. Vamos primero con la tabla de una sola dimensión
d.ColumnCount = 1
d.RowCount = N
d.Columns.Item(0).HeaderCell.Value = "Valores columna 1"

For i = 0 To d.RowCount - 1
d.Rows.Item(i).HeaderCell.Value = (i + 1).ToString
Next
For i = 0 To d.RowCount - 1
d.Item(0, i).Value = a(i)

Next
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Rellenar_Tabla1(DataGridView1)
End Sub

End Class

Y con dos columnas (y así haría si hubiese más)

Public Class Form1



Public Sub Rellenar_Tabla2(d As DataGridView)
Dim N As Integer = 100
Dim i As Integer
Dim b(2, N) As Double
Dim j As Integer = 5

'Crear una matriz bidimensional, dos columnas y N filas
For i = 0 To N
b(0, i) = i 'Valores de la primera columna
b(1, i) = 4 * i + 2 * j 'Valores de la segunda columna
Next
'Un valor cualquiera para ver que la matriz se ha construido bien
MsgBox(b(0, 100).ToString)

'Rellenamos una tabla DATAGRID.
d.ColumnCount = 2
d.RowCount = N
d.Columns.Item(0).HeaderCell.Value = "Valores columna 1"
d.Columns.Item(0).HeaderCell.Value = "Valores columna 2"

For i = 0 To d.RowCount - 1
d.Rows.Item(i).HeaderCell.Value = (i + 1).ToString
Next
For i = 0 To d.RowCount - 1
d.Item(0, i).Value = b(0, i)
d.Item(1, i).Value = b(1, i)
Next
End Sub


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Rellenar_Tabla2(DataGridView1)
End Sub
End Class

Me quedó pendiente lo de representar, pero no me era tan urgente

Si a alguien le sirve (suponiendo que esté bien) estaría encantado

Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar