Informática y programación

[pic 1]

[pic 2]

[pic 3] [pic 4][pic 5]

Introducción:

En este trabajo desarrollaremos los comandos y herramientas que con antes ya habíamos revisado en nuestro curso de informática y programación, utilizamos las diferentes herramientas, así como son Tex Box, label, button. Todas las funciones anteriores son fundamentales para el programa también poder obtener de manera correcta su algoritmo así al ejecutar el programa este lo hará de manera correcta y sin la mayor cantidad de errores posibles.

Un ejemplo claro de la aplicación de viajes consiste en determinar todas las rutas existentes de viaje de una ciudad a otra, que pueden ser directas o bien con escalas. Las matrices tienen diferentes usos uno de ellos es determinar todas las formas posibles de viaje de la ciudad c1 a la c2. Un ejemplo claro es como el que ponemos a continuación en el programa que desarrollamos.

Algoritmo: Multiplicación de Matrices

El programa permite calcular el producto de 3 matrices las cuales se van a ingresar los datos, con la finalidad de obtener el resultado lo más rápido posible.

Fila, columna, i, j, h y valor son variables de tipo real.

Inicio

1. Escribir “Fila”
2. Leer f
3. Escribir “Columna”
4. Leer c
5. Si f=c

    Dimensión matrizA (f, c)

    Dimensión matrizB (f, c)

    Dimensión matrizresultante (f, c)

De lo contrario

     Escribir=” Solo se puede multiplicar matrices cuadradas”

Fin  

1. Para h=0 hasta f-1

    Para i=0 hasta c-1

       Para j=0 hasta c-1

       Fin para

     Fin para

Fin para

1. Hacer valor=(matriz1*matriz2*matriz3)
2. Escribir matrizresultante=valor
3. Fin algoritmo

Código:

Public Class Matriz

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

        'Nombres asignados a las etiquetas

        Label1.Text = "Filas:"

        Label2.Text = "Columnas:"

        Label3.Text = "Matriz A"

        Label4.Text = "Matriz B"

        Label6.Text = "Matriz resultante"

        Label8.Text = "Multiplicación de matrices"

        'Cambio de diseño específico a Label7

        Label7.Text = "="

        Label7.Font = New Font("Arial", 30, FontStyle.Bold)

        Label8.Font = New Font("Arial", 25, FontStyle.Bold)

        'Nombres asignados a los botones

        Button1.Text = "Crear matriz"

        Button1.BackColor = Color.Black

        Button1.ForeColor = Color.White

        Button2.Text = "Multiplicar"

        Button2.BackColor = Color.Black

        Button2.ForeColor = Color.White

        Button3.Text = "Borrar"

        Button3.BackColor = Color.Black

        Button3.ForeColor = Color.White

        Button5.Text = "Salir"

        Button5.BackColor = Color.Red

        Button5.ForeColor = Color.White

        'Cambio de diseño general

        Me.Font = New Font("Arial", 12, FontStyle.Bold)

        Me.ForeColor = Color.Black

        Me.BackColor = Color.CadetBlue

        Me.Text = "Matrices"

    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        'Definición de variables

        Dim fila As Byte, columna As Byte, i As Byte

        ' Asignación de variables a los objetos

        fila = Val(TextBox1.Text) 'La variable fila será igual al valor que se ingrese al TextBox1

        columna = Val(TextBox2.Text) 'La variable columna será igual al valor que se ingrese al TextBox2

        'Creación de una condicional (If...) para crear las matrices

        If (fila = columna) Then

            'Para la matriz "A":

            DataGridView1.RowCount = fila 'En el DataGridView1 se van a crear las filas con la propiedad "RowCount" para poder visualizarlas  

            DataGridView1.ColumnCount = columna 'En el DataGridView1 se van a crear las columnas con la propiedad "ColumnCount" para poder visualizarlas

...