Operaciones basicas entre matrices de suma resta multiplicación y division

Este programa esta hecho en .Net es una Matriz
Public Class Form64
    Dim M(1, 1), M2(1, 1), M3(1, 1), Filas, Columnas As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            'solicitar el tamaño
            Filas = InputBox("digite filas")
            Columnas = InputBox("digite columna")

            'redimencionar la matriz

            ReDim M(Filas, Columnas), M2(Filas, Columnas), M3(Filas, Columnas)
            'ajustar el objeto

            AxMSFlexGrid1.Rows = Filas
            AxMSFlexGrid1.Cols = Columnas
            AxMSFlexGrid2.Rows = Filas
            AxMSFlexGrid2.Cols = Columnas
            AxMSFlexGrid3.Rows = Filas
            AxMSFlexGrid3.Cols = Columnas
            'llenado de la matriz

            For i = 0 To Filas - 1
                For j = 0 To Columnas - 1
                    M(i, j) = InputBox("elementos de la matriz")
                Next
            Next
            For i = 0 To Filas - 1
                For j = 0 To Columnas - 1
                    M2(i, j) = InputBox("elementos de la matriz")
                Next
            Next
        Catch ex As Exception
            MsgBox("no digite letras ", MsgBoxStyle.Information)
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'visualizar
        For i = 0 To Filas - 1
            For j = 0 To Columnas - 1
                AxMSFlexGrid1.set_TextMatrix(i, j, M(i, j))
                AxMSFlexGrid2.set_TextMatrix(i, j, M2(i, j))
                AxMSFlexGrid3.set_TextMatrix(i, j, M3(i, j))
            Next
        Next
    End Sub

    Private Sub resta_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resta.CheckedChanged
        If Me.resta.Checked = True Then

            For i = 0 To Filas - 1
                For j = 0 To Columnas - 1
                    M3(i, j) = M(i, j) - M2(i, j)

                Next
            Next
        End If
    End Sub

    Private Sub suma_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles suma.CheckedChanged
        If Me.suma.Checked = True Then

            For i = 0 To Filas - 1
                For j = 0 To Columnas - 1
                    M3(i, j) = M(i, j) + M2(i, j)
                Next
            Next
        End If
    End Sub

    Private Sub multiplicacion_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles multiplicacion.CheckedChanged
        If Me.multiplicacion.Checked = True Then

            For i = 0 To Filas - 1
                For j = 0 To Columnas - 1
                    M3(i, j) = M(i, j) * M2(i, j)
                Next
            Next
        End If

    End Sub

    Private Sub division_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles division.CheckedChanged
        If Me.division.Checked = True Then

            For i = 0 To Filas - 1
                For j = 0 To Columnas - 1
                    M3(i, j) = M(i, j) / M2(i, j)
                Next
            Next
        End If
    End Sub

End Class

Comentarios

Publicar un comentario

Entradas populares de este blog

Google Glass llegará al mercado en 2014

Imagen
Las esperadas Google Glass llegarán al mercado en el 2014 y no a finales de este año como se habría anunciado. El motivo, según informa el medio tecnológico estadounidense ComputerWorldque, no es otro que un reajuste de los tiempos de comercialización del  producto : “Lo más importante para nosotros es centrarnos en construir un gran producto para los usuarios sin pensar en cuándo será el lanzamiento”. Sin embargo el retraso no sorprende a los analistas quienes de hecho lo ven como normal para que el producto salga al mercado lo más completo posible y después de haber realizado un exhaustivo análisis sobre cómo abordar el aterrizaje de un producto totalmente  nuevo . Además, no hay que olvidar que para que el dispositivo cale entre los usuarios y  empresas , es esencial que ya haya suficientes aplicaciones desarrolladas para éste.  Son muchos los ingenieros que ya están trabajando en este sentido. Google Glass lanzó un programa específico –Explorer– para que  desarrolladores  
Leer más

Suma y Multiplicacion de Matrices php

Imagen
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"  /> <title> Lea dos arreglos A y B de 5 filas y 5 columnas</title> <style type="text/css"> <!-- .Estilo1 {color: #0000FF} .Estilo2 {font-family: Arial, Helvetica, sans-serif} body { background-image: url(WP_YoshiMain_1280x1024_001.jpg); } .Estilo4 {font-family: "Comic Sans MS"; color: #006600; } --> </style> <script language="javascript"> function validarEntero(valor){      valor = parseInt(valor)       if (isNaN(valor)) {             return ""       }else{            return valor       } } function validar(){ i1 = document.frmdatos.i1.value i1 =
Leer más

Para Hombres griego

Imagen
Para Hombres griego Dirigida por Nicholas Stoller Producido por Judd Apatow   Josué Blake   Nicholas Stoller   David Bushell Rodney Rothman   Luc Besson Escrito por Nicholas Stoller Sobre la base de Caracteres por   Jason Segel Protagonizada por Jonah Hill   Russell Brand   Elisabeth Moss   Rose Byrne   Diddy   Colm Meaney Música por Lyle Workman Cinematografía Robert Yeoman Editado por William Kerr   Michael Venta Estudio Relativity Media   Spyglass Entertainment Apatow Producciones EuropaCorp Distribuido por Universal Pictures Fecha de   lanzamiento   (s) 04 de junio 2010 Tiempo de funcionamiento 109 minutos País Estados Unidos Lengua Inglés Presupuesto $ 40 millones ] Taquilla $ 91.390.982 ] Para Hombres griego
Leer más