Cargar en un Arreglo 10 datos de un TextBox y almacenarlos en una tabla
Publicado por Andrés (27 intervenciones) el 10/09/2018 18:09:58
Buenas noches amigos, quisiera saber si me pueden ayudar en como realizar un arreglo para el siguiente caso:
Tengo un programa que me calcula una serie de valores de una función, y específicamente unos de esos valores es el área total de esa función la cual la muestro en un TextBox, y funciona de la siguiente manera cada vez que yo corro el programa pues me genera un área diferente y lo que deseo es poder guardar en una tabla o bien sea un DataGridView 10 veces esa área que me esta generando.
Creería que lo mas viable es poder cargar esos 10 datos o eventos en un Arreglo y luego pasarlos al DataGridView. Aquí dejo una imagen y el codigo, por si necesitan...
Muchas Gracias, siempre ayudan sus aportes!!!
Tengo un programa que me calcula una serie de valores de una función, y específicamente unos de esos valores es el área total de esa función la cual la muestro en un TextBox, y funciona de la siguiente manera cada vez que yo corro el programa pues me genera un área diferente y lo que deseo es poder guardar en una tabla o bien sea un DataGridView 10 veces esa área que me esta generando.
Creería que lo mas viable es poder cargar esos 10 datos o eventos en un Arreglo y luego pasarlos al DataGridView. Aquí dejo una imagen y el codigo, por si necesitan...
Muchas Gracias, siempre ayudan sus aportes!!!
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Public Class Montecarlo
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim tabla As New List(Of Fila)
Dim r As New Random
For k As Integer = 1 To 2000Dim fila As New Fila
fila.n = k
fila.X = r.NextDouble() * 2
fila.Y = r.NextDouble() * 4
'Nuestras constantes asignadas fueron: para a = 2 y b = 7
Dim exp As Double = Math.Exp(-7 * fila.X ^ 2)
fila.expX = Math.Pow(2 * exp, 1)
If fila.Y <= fila.expX Then
fila.Z = 1
Else
fila.Z = 0
End If
tabla.Add(fila)
Next
DataGridView1.DataSource = tabla
DataGridView1.Columns("X").DefaultCellStyle.Format = "N4"
DataGridView1.Columns("Y").DefaultCellStyle.Format = "N4"
DataGridView1.Columns("expX").DefaultCellStyle.Format = "N4"
DataGridView1.Columns("expX").HeaderText = "EXP"
DataGridView1.Columns("Z").HeaderText = "Esta o no esta"
'Aca sumanos la cantidad de unos que esta dentro del area en la Integral
Dim TotalUnos As Single
Dim Col As Integer = DataGridView1.CurrentCell.ColumnIndex
For Each row As DataGridViewRow In DataGridView1.RowsTotalUnos += Val(row.Cells(4).Value)
Next
txtdentro.Text = TotalUnos.ToString
'Aca contamos la cantidad de ceros que son los que estan fuera del area en la Integral
txtarea.Text = TotalUnos / 2000 * (2 - 0) * 4
Dim TotalCeros As Single
TotalCeros = 0For x = 0 To DataGridView1.RowCount - 1
If DataGridView1.Item(4, x).Value = 0 Then
TotalCeros += 1
End If
Next
txtfuera.Text = TotalCeros.ToString
End Sub
End Class
Class Fila
Public Property n() As Integer
Public Property X() As Double
Public Property Y() As Double
Public Property expX() As Double
Public Property Z() As Integer
End Class
Valora esta pregunta
0
