Sub Process_Globals
' Juan Antonio Villalpando
' juana1991@yahoo.com
' diciembre 2014 (adaptado)
End Sub
Sub Globals
Dim a(10, 10), b(10, 10) As Long
Dim i, j, h As Int
Dim producto As Long
Dim filas, filcolum, columnas As Int
Dim Label1 As Label
Dim id As InputDialog
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub btnIntroducir_Click
filas = InputBox("¿Cuántas filas en la matriz A?", "Crear Matriz A", "", "")
filcolum = InputBox("¿Cuántas columnas en la matriz A?, _
Recuerde que el número de columnas que ingrese aquí será igual al número de FILAS de la siguiente matriz", "Crear Matriz A", "", "")
columnas = InputBox("¿Cuántas columnas en la matriz B?", "Crear Matriz B", "", "")
For i = 1 To filas
For j = 1 To filcolum
a(i, j) = InputBox("Introduce un número entero", "MATRIZ A Posición: " & i & "," & j, "", "")
Next
Next
For i = 1 To filcolum
For j = 1 To columnas
b(i, j) = InputBox("Introduce un número entero", "MATRIZ B Posición: " & i & "," & j, "", "")
Next
Next
Label1.Text = Label1.Text & "Datos en la Matriz A:" & CRLF
For i = 1 To filas
Label1.Text = Label1.Text & " " & CRLF
For j = 1 To filcolum
Label1.Text = Label1.Text & a(i, j) & " "
Next
Next
Label1.Text = Label1.Text & CRLF & CRLF
Label1.Text = Label1.Text & "Datos en la Matriz B:" & CRLF
For i = 1 To filcolum
Label1.Text = Label1.Text & " " & CRLF
For j = 1 To columnas
Label1.Text = Label1.Text & b(i, j) & " "
Next
Next
End Sub
Sub btnCalcular_Click
Label1.Text = Label1.Text & CRLF
Label1.Text = Label1.Text & CRLF & "El producto de las matrices es: "
For i = 1 To filas
Label1.Text = Label1.Text & CRLF
For h = 1 To columnas
For j = 1 To filcolum
producto = producto + (a(i, j) * b(j, h))
Next
Label1.Text = Label1.Text & producto & " "
producto = 0
Next
Next
End Sub
Sub InputBox(Prompt As String, Title As String, Default As String, Hint As String) As String
Dim id As InputDialog
Dim ret As String
id.HintColor = Colors.ARGB(196, 255, 140, 0)
id.Hint = Hint ' Valor escrito en el casillero
id.Input = Default ' Valor por defecto en el casillero
' Cambiar, Borrar, Cancelar son los botones, si quieres quitar alguno: ""
id.InputType = id.INPUT_TYPE_NUMBERS
ret = id.Show(Prompt, Title, "Aceptar", "", "", Null)
If ret = -1 Then Return id.Input ' El valor del casillero es la salida
If ret = -3 Then Return ""
If ret = -2 Then Return
End Sub |