• Lunes 23 de Diciembre de 2024, 04:56

Autor Tema:  Multiplicar Matrices  (Leído 1283 veces)

Dhanny

  • Nuevo Miembro
  • *
  • Mensajes: 24
    • Ver Perfil
Multiplicar Matrices
« en: Miércoles 26 de Septiembre de 2007, 19:05 »
0
Hola amigos, necesito automatizar la multiplicacion de dos matrices, la primera debo ingresar los datos la seguunda igual y en la tercera me de el resultado de la multiplicacion de ambas.

Pueden ayudarme por favor,

Gracias

Jose Arriagada

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Re: Multiplicar Matrices
« Respuesta #1 en: Viernes 30 de Noviembre de 2007, 17:09 »
0
Coloca los siguientes controles en el formulario, en las posiciones que te indico

label1     text1      text2

label2     text3      text4


command1          command2

Y ahora copia, este codigo completo en el formulario... y prueba...

Dim Matriz1(1 To 10, 1 To 10) As Double

Dim Matriz2(1 To 10, 1 To 10) As Double
Dim Matriz3(1 To 10, 1 To 10) As Double


Private Sub Command1_Click()
    For i = 1 To Text1.Text
        For j = 1 To Text2.Text
            Matriz1(i, j) = InputBox("Ingresar valor (" & i & ":" & j & ")", "Ingreso Matriz 1")
        Next j
    Next i
    For i = 1 To Text3.Text
        For j = 1 To Text4.Text
            Matriz2(i, j) = InputBox("Ingresar valor (" & i & ":" & j & ")", "Ingreso Matriz 2")
        Next j
    Next i
    Command2.Enabled = True
End Sub

Private Sub Command2_Click()
msg = Empty
For i = 1 To Text1.Text
    For j = 1 To Text4.Text
        For k = 1 To Text3.Text
            Matriz3(i, j) = Matriz3(i, j) + Matriz1(i, k) * Matriz2(k, j)
        Next k
        msg = msg & "(" & i & ":" & j & ")=" & Matriz3(i, j) & "     "
    Next j
    msg = msg & vbLf
Next i
msg = msg & vbLf
MsgBox msg
End Sub

Private Sub Form_Load()
    Label1.Caption = "Matriz 1"
    Text1.Text = ""
    Text2.Text = ""
    Label2.Caption = "Matriz 2"
    Text3.Text = ""
    Text4.Text = ""
    Command1.Caption = "Ingresar valores..."
    Command2.Caption = "Calcular..."
    Command2.Enabled = False
       
End Sub



Las correcciones, verificaciones y validaciones te las dejo, para que le pongas un poco de tus sesos...