Matrices en Visual Basic 2010

Una matriz es un arreglo bidimensional de números, y en su mayor generalidad de elementos de un anillo. Las matrices se usan generalmente para describirsistemas de ecuaciones lineales, sistemas de ecuaciones diferenciales o representar una aplicación lineal (dada una base). Las matrices se describen en el campo de la teoría de matrices.

Matriz estática.

La matriz estática, es la forma común de hacer una matriz en Visual Basic, los componentes son para la inserción de los datos y para la impresión de los datos ya antes ingresados.

Se declaró una variable “número”, cuya característica es de una fila y dos columnas.

Por medio de un ciclo for se determina el número total de filas y columnas, este caso tiene 2 filas y 3 columnas.

 

 

Se declara una variable llamada resultado que irá almacenando conforme se almacenen los datos en las filas y columnas y al final se imprime.

Código fuente.

Public Class Form1

    Dim numeros(1, 2) As Integer

    Private Sub btnLeer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLeer.Click

        ' asi se declara una matriz

        'para una matriz se declaran 2 for,uno para filas y otro para columnas

        For filas As Integer = 0 To 1

            'es necesario que todas las columnas terminen para que se cambie de fila

            For columnas As Integer = 0 To 2

                numeros(filas, columnas) = InputBox("proporcione el valor(" & filas & "," & columnas & ")") 'sirve pra indicar en que fila

                ' y en que columna se esta ingresando el numero.

            Next

        Next

    End Sub

    Private Sub btnImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImprimir.Click

        Dim resultado As String = ""

        For filas As Integer = 0 To 1

            For columnas As Integer = 0 To 2

                If columnas <> 2 Then

                    ' MsgBox(numeros(filas & columnas & (filas,columnas)))

                    resultado = resultado & numeros(filas, columnas) & ", "

                Else

                    resultado = resultado & numeros(filas, columnas)

                End If

            Next

            resultado = resultado & vbCrLf

        Next

        MsgBox(resultado)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

Descargar proyecto:Matriz Estática

Matriz dinámica.

En esta actividad se realizó un procedimiento en el cual se puede introducir datos de características numéricas, se está hablando de una matriz la cual tiene como características se introduce las cantidades una vez llenado los campos se opta por la impresión de la totalidad de la matriz.

  

Se puede distinguir que este programa cuenta con tres botones en donde  se proporcionan dos matrices y una opción para que estos últimos se impriman.

Para la elaboración de este proyecto se declararon tres variables las cuales tienen funciones almacenamiento  de las dos primeras matrices y la matriz final o bien la impresión.

La función  de cada botón son las siguientes:

proporciona un número establecido  a la primera matriz por medio de un ciclo for de 3 números comenzando desde la posición 0 al 2 en cuanto a filas y columnas.

Una vez introducidas los datos en las anteriores matrices la tercera matriz se encarga de unir las anteriores ya mencionadas y las muestra en pantalla por medio de un ciclo for extrae las matrices y las ordena  para su posterior impresión.

Public Class Form1

    Dim matriz1(2, 2) As Integer

    Dim matriz2(2, 2) As Integer

    Dim matriz3(2, 2) As Integer

    Private Sub btnmatriz1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmatriz1.Click

        For filas As Integer = 0 To 2

            For columnas As Integer = 0 To 2

                matriz1(filas, columnas) = InputBox("proporcione el valor(" & filas & "," & columnas & ")")

            Next

        Next

    End Sub

    Private Sub btnmatriz2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmatriz2.Click

        For filas As Integer = 0 To 2

            For columnas As Integer = 0 To 2

                matriz2(filas, columnas) = InputBox("proporcione el valor(" & filas & "," & columnas & ")")

            Next

        Next

    End Sub

    Private Sub btnimprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnimprimir.Click

        Dim resultado As String = ""

        For filas As Integer = 0 To 1

            For columnas As Integer = 0 To 2

                matriz3(filas, columnas) = matriz1(filas, columnas) + matriz2(filas, columnas)

                'MsgBox(numeros(filas,columnas)

                resultado = resultado & matriz3(filas, columnas) & " "

                'Next

                'resultado = resultado & vbCrLf

                'Next

                'MsgBox(resultado)

                'MsgBox(numeros(filas, columnas))

                If columnas <> 2 Then

                    resultado = resultado & matriz2(filas, columnas) & ","

                Else

                    resultado = resultado & matriz2(filas, columnas)

                End If

            Next

            resultado = resultado & vbCrLf

        Next

        MsgBox(resultado)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

Descargar:Matriz dinámica