perdonen la molestia que les pudiera ocasionar, quisiera ayuda con un tema en especial:
debo crear en visual basic 2010 un programa que mande una matriz almacenada en notepad hacia un richtextbox y que me de aparte las posiciones de los elementos de la matriz, para despues realizar una suma transversal con los elementos de dicha matriz en el note pad aqui dejo el codigo que tengo hasta ahorita, cabe mencionar que debe darme las medidas de la matriz (algo que mas o menos ya tengo)
Porfavor necesito mucha ayuda soy nuevo en esto y se me olvida estoy haciendolo en visual basic 2010
debo crear en visual basic 2010 un programa que mande una matriz almacenada en notepad hacia un richtextbox y que me de aparte las posiciones de los elementos de la matriz, para despues realizar una suma transversal con los elementos de dicha matriz en el note pad aqui dejo el codigo que tengo hasta ahorita, cabe mencionar que debe darme las medidas de la matriz (algo que mas o menos ya tengo)
Código (vbnet) [Seleccionar]
Public Class Form1
Private Sub cargar_Click(sender As System.Object, e As System.EventArgs) Handles cargar.Click
datos2.LoadFile("C:\\Users\\Elio\\Desktop\\algodon.txt", RichTextBoxStreamType.PlainText)
End Sub
Private Sub cargaraka_Click(sender As System.Object, e As System.EventArgs) Handles cargaraka.Click
datosabajo.Text = datos2.Text
End Sub
Private Function contar(ByVal registro As String) As Integer
Dim coma As Integer
Dim x As Integer
For y = 0 To registro.Length - 1
If registro.Chars(x) = "," Then
coma = coma + 1
End If
Next
Return coma + 1
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles lines.Click
TextBox1.Text = datos2.Lines.Count.ToString
lineas.Text = datos2.Lines(1)
Label1.Text = lineas.TextLength
'TextBox1.Text = Label1.Text & " " & "X" & " " & datos2.Lines.Count
TextBox1.Text = datos2.Lines.Count
End Sub
Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim x As Integer
Dim y As Integer
Dim cucho(x, y) As Integer
Dim columnas As Integer
Dim filas As Integer
columnas = Val(Label1.Text)
filas = Val(TextBox1.Text)
x = 0
y = 0
For y = 0 To columnas Step 1
For x = 0 To filas Step 1
cucho(x, y) = datos2.Lines(y).Substring(3, 3)
Next
Next
End Sub
End Class
Porfavor necesito mucha ayuda soy nuevo en esto y se me olvida estoy haciendolo en visual basic 2010
