Funciones y Matrices en Visual Basic
Cargado por
A BFunciones y Matrices en Visual Basic
Cargado por
A BUNIVERSIDAD TECNOLÓGICA DE PANAMÁ
FACULTAD DE INGENIERÍA DE SISTEMAS
COMPUTACIONALES
ASIGNACIÓN:
LABORATORIO #3
TÍTULO DE LA EXPERIENCIA:
PROGRAMA DE FUNCIONES Y MATRICES EN VISUAL BASIC
ESTUDIANTE:
ARLAND BARRERA (9-763-400)
ELBIN PUGA (2-751-1082)
FACILITADOR:
MILKA DE GRACIA
ASIGNATURA:
HERRAMIENTAS DE PROGRAMACIÓN APLICADA III
FECHA DE ENTREGA:
02 DE 09 DE 2024
Contenido
Introducción ................................................................................................................... 3
Programa ...................................................................................................................... 4
Ejecución del programa.................................................................................................. 8
Conclusiones ............................................................................................................... 10
Consideraciones Finales .............................................................................................. 10
Introducción
Visual Basic es un lenguaje de programación desarrollado por Microsoft que se
caracteriza por su sencillez y potencia para desarrollar aplicaciones de Windows.
Este lenguaje de programación ha sido una herramienta clave para desarrolladores
de todos los niveles, desde principiantes hasta expertos, debido a su estructura
clara y su enfoque en la facilidad de uso.
En Visual Basic, las funciones y las matrices son componentes fundamentales que
permiten a los programadores crear aplicaciones más eficientes y organizadas. Las
funciones son bloques de código que realizan tareas específicas y pueden ser
reutilizadas en diferentes partes de un programa. Esto no solo reduce la
redundancia, sino que también facilita el mantenimiento y la legibilidad del código.
Por otro lado, las matrices son estructuras de datos que permiten almacenar
múltiples valores del mismo tipo en un solo contenedor, lo que facilita la
manipulación de grandes conjuntos de datos. Las matrices pueden ser
unidimensionales o multidimensionales, y son esenciales para manejar datos
complejos y realizar operaciones como búsquedas, ordenamiento y manipulación
de datos en secuencia.
Programa
Module Module1
Sub Main()
Dim matrixA(,), matrixB(,) As Double
Dim filas, columnas As Integer
Console.Write("Ingrese la cantidad de filas: ")
filas = Console.ReadLine()
Console.Write("Ingrese la cantidad de columnas: ")
columnas = Console.ReadLine()
ReDim matrixA(filas, columnas)
ReDim matrixB(filas, columnas)
Console.WriteLine()
Console.WriteLine("Matriz A")
CargarMatrix(matrixA, filas, columnas)
MostrarMatrix(matrixA, filas, columnas)
Console.WriteLine()
Console.WriteLine("Matriz B")
CargarMatrix(matrixB, filas, columnas)
MostrarMatrix(matrixB, filas, columnas)
SumarMatrices(matrixA, matrixB, filas, columnas)
RestarMatrices(matrixA, matrixB, filas, columnas)
MultiplcarMatrices(matrixA, matrixB, filas, columnas)
DividirMatrices(matrixA, matrixB, filas, columnas)
SumaDiagonal(matrixA, matrixB, filas, columnas)
Console.Write("Presione Enter para salir...")
Console.ReadKey()
End Sub
Function CargarMatrix(ByRef matrix(,) As Double, ByVal f As Integer, ByVal c As
Integer)
Console.WriteLine("Ingrese Numeros en la Matriz: ")
For i As Integer = 1 To f
For j As Integer = 1 To c
Console.Write("[" & i & "][" & j & "]: ")
matrix(i, j) = Console.ReadLine()
Next
Next
End Function
Function MostrarMatrix(ByVal matrix(,) As Double, ByVal f As Integer, ByVal c As
Integer)
For i As Integer = 1 To f
For j As Integer = 1 To c
Console.Write(matrix(i, j) & " ")
Next
Console.WriteLine()
Next
End Function
Function SumarMatrices(ByVal matrixA(,) As Double, ByVal matrixB(,) As
Double, ByVal f As Integer, ByVal c As Integer)
Dim matrixResultado(f, c) As Double
For i As Integer = 1 To f
For j As Integer = 1 To c
matrixResultado(i, j) = matrixA(i, j) + matrixB(i, j)
Next
Console.WriteLine()
Next
Console.WriteLine("Suma de matrices")
MostrarMatrix(matrixResultado, f, c)
End Function
Function RestarMatrices(ByVal matrixA(,) As Double, ByVal matrixB(,) As
Double, ByVal f As Integer, ByVal c As Integer)
Dim matrixResultado(f, c) As Double
For i As Integer = 1 To f
For j As Integer = 1 To c
matrixResultado(i, j) = matrixA(i, j) - matrixB(i, j)
Next
Console.WriteLine()
Next
Console.WriteLine("Resta de matrices")
MostrarMatrix(matrixResultado, f, c)
End Function
Function MultiplcarMatrices(ByVal matrixA(,) As Double, ByVal matrixB(,) As
Double, ByVal f As Integer, ByVal c As Integer)
Dim matrixResultado(f, c) As Double
For i As Integer = 1 To f
For j As Integer = 1 To c
matrixResultado(i, j) = matrixA(i, j) * matrixB(i, j)
Next
Console.WriteLine()
Next
Console.WriteLine("Multiplicacion de matrices")
MostrarMatrix(matrixResultado, f, c)
End Function
Function DividirMatrices(ByVal matrixA(,) As Double, ByVal matrixB(,) As
Double, ByVal f As Integer, ByVal c As Integer)
Dim matrixResultado(f, c) As Double
For i As Integer = 1 To f
For j As Integer = 1 To c
matrixResultado(i, j) = matrixA(i, j) / matrixB(i, j)
Next
Console.WriteLine()
Next
Console.WriteLine("Division de matrices")
MostrarMatrix(matrixResultado, f, c)
End Function
Function SumaDiagonal(ByVal matrixA(,) As Double, ByVal matrixB(,) As
Double, ByVal f As Integer, ByVal c As Integer)
Dim resultado As Double = 0
For i As Integer = 1 To f
For j As Integer = 1 To c
If i = j Then
resultado += matrixA(i, j) + matrixB(i, j)
End If
Next
Console.WriteLine()
Next
Console.WriteLine("La suma de las diagonales es: " & resultado)
End Function
End Module
Ejecución del programa:
Conclusiones
Visual Basic continúa siendo una herramienta poderosa en el ámbito del desarrollo
de software, gracias a su enfoque en la simplicidad y su capacidad para manejar
tareas complejas de manera eficiente. Las funciones y las matrices son pilares
dentro de este lenguaje, permitiendo a los desarrolladores crear aplicaciones
robustas y eficientes. Entender cómo utilizar estas herramientas no solo mejora la
calidad del código, sino que también optimiza el rendimiento de las aplicaciones y
facilita su mantenimiento a largo plazo. A medida que los desarrolladores continúan
explorando y aprovechando Visual Basic, las funciones y las matrices seguirán
siendo esenciales para la creación de soluciones innovadoras y efectivas.
Consideraciones Finales
Elbin:
Este laboratorio me pareció interesante porque aplicamos la lógica de calculo 3 de
matrices cuadradas usando el concepto de matrices en Visual Basic. Aprendí a
cuando usar los procedimientos que no retornan valores y funciones que si lo
hacen.
Arland: He utilizado funciones y matrices en otros lenguajes como Python, por lo
que tengo experiencia respecto a cómo funciones. Es interesante conocer la
sintaxis de Visual Basic.
