Y Creamos
Suma: Unidimensional- Bidimensional
Multiplicar: Matriz 2x2-Matriz 3x2
Archivo:Salir
Y Dos GroupBox
1 Suma: Unidimensional- Bidimensional
Y otro Multiplicar: Matriz 2x2-Matriz 3x2
En la opcion Unidimensional creamos un Formulario 2 con el nombre y programamos el button para que se traslade del form 1 al form 2
Ejemplo:
Le damos click a cada opcion y colocamos
Suma_unidimensional.Show() que nos llevara al Form2 que sera el que cargara el proceso
Para Programar los Button llenar hacemos nuestra declaracion
Public Class Suma_unidimensional
Dim numero(4) As Integer
Dim numero2(4) As Integer
Dim i As Integer
Dim suma(4) As Integer
La instrucción Randomize utiliza Number para inicializar el generador de números aleatorios de la función Rnd asignándole un nuevo valor de inicialización. Si se omite Number, el valor devuelto por el temporizador del sistema se utilizará como nuevo valor de inicialización.
Si no se emplea Randomize, la función Rnd
(sin argumentos) utilizará el mismo número como valor de inicialización
la primera vez que se le llame y más adelante utilizará como valor de
inicialización el último número generado.
Randomize()
For i = 0 To 3
numero(i) = CInt(50 * Rnd() + 1)
Next i
TextBox1.Text = numero(0)
TextBox2.Text = numero(1)
TextBox3.Text = numero(2)
TextBox4.Text = numero(3)
Programamos el 2do button de llenar
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Randomize()
For i = 0 To 3
numero2(i) = CInt(50 * Rnd() + 1)
Next i
TextBox5.Text = numero2(0)
TextBox6.Text = numero2(1)
TextBox7.Text = numero2(2)
TextBox8.Text = numero2(3)
End Sub
Y luego el de calcular
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
For i = 0 To 3
suma(i) = numero(i) + numero2(i)
Next i
TextBox12.Text = suma(0)
TextBox11.Text = suma(1)
TextBox10.Text = suma(2)
TextBox9.Text = suma(3)
End Sub
Button Salir
ME.CLOSE
Suma Bidimensional
Igual que en la suma unidimensional aqui programamos los buttos que nos lleven a un formulario que sera el que haga la suma bidimensional. Le corresponde al FORM 3 que llevama como nombre Suma Bidimensional.
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Suma_Bidimensional.Show()
End Sub
Aqui declaramos
Public Class Suma_Bidimensional
Dim numero(2, 3) As Integer
Dim numero2(2, 3) As Integer
Dim i As Integer
Dim j As Integer
Dim suma(2, 3) As Integer
Y en el button de llenar:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize()
For i = 0 To 2
For j = 0 To 3
numero(i, j) = CInt(50 * Rnd() + 1)
numero2(i, j) = CInt(50 * Rnd() + 1)
Next j
Next i
TextBox1.Text = numero(0, 0)
TextBox2.Text = numero(0, 1)
TextBox3.Text = numero(0, 2)
TextBox4.Text = numero(0, 3)
TextBox5.Text = numero(1, 0)
TextBox6.Text = numero(1, 1)
TextBox7.Text = numero(1, 2)
TextBox8.Text = numero(1, 3)
TextBox9.Text = numero(2, 0)
TextBox10.Text = numero(2, 1)
TextBox11.Text = numero(2, 2)
TextBox12.Text = numero(2, 3)
TextBox24.Text = numero2(0, 0)
TextBox23.Text = numero2(0, 1)
TextBox22.Text = numero2(0, 2)
TextBox21.Text = numero2(0, 3)
TextBox20.Text = numero2(1, 0)
TextBox19.Text = numero2(1, 1)
TextBox18.Text = numero2(1, 2)
TextBox17.Text = numero2(1, 3)
TextBox16.Text = numero2(2, 0)
TextBox15.Text = numero2(2, 1)
TextBox14.Text = numero2(2, 2)
TextBox13.Text = numero2(2, 3)
End Sub
Button Calcular
rivate Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
For i = 0 To 2
For j = 0 To 3
suma(i, j) = numero(i, j) + numero2(i, j)
Next j
Next i
TextBox36.Text = suma(0, 0)
TextBox35.Text = suma(0, 1)
TextBox34.Text = suma(0, 2)
TextBox33.Text = suma(0, 3)
TextBox32.Text = suma(1, 0)
TextBox31.Text = suma(1, 1)
TextBox30.Text = suma(1, 2)
TextBox29.Text = suma(1, 3)
TextBox28.Text = suma(2, 0)
TextBox27.Text = suma(2, 1)
TextBox26.Text = suma(2, 2)
TextBox25.Text = suma(2, 3)
End Sub
Button Limpiar
TEXTBOX.TEXT= " "
Ahora vamos con la multiplicacion
Le damos click a los Button de Matriz 2x2 y caemos al formulario que hara su calculo
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Matriz2x2.Show()
End Sub
Le damos click al button de llenar
Public Class Matriz2x2
Dim numero(2, 2) As Integer
Dim numero2(2, 2) As Integer
Dim i As Integer
Dim j As Integer
Dim multiplicacion(2, 2) As Integer
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Randomize()
For i = 0 To 2
For j = 0 To 2
numero(i, j) = CInt(50 * Rnd() + 1)
numero2(i, j) = CInt(50 * Rnd() + 1)
Next j
Next i
TextBox1.Text = numero(0, 0)
TextBox2.Text = numero(0, 1)
TextBox3.Text = numero(0, 2)
TextBox4.Text = numero(1, 0)
TextBox5.Text = numero(1, 1)
TextBox6.Text = numero(1, 2)
TextBox7.Text = numero(2, 0)
TextBox8.Text = numero(2, 1)
TextBox9.Text = numero(2, 2)
TextBox21.Text = numero(0, 0)
TextBox20.Text = numero(0, 1)
TextBox19.Text = numero(0, 2)
TextBox18.Text = numero(1, 0)
TextBox17.Text = numero(1, 1)
TextBox16.Text = numero(1, 2)
TextBox15.Text = numero(2, 0)
TextBox14.Text = numero(2, 1)
TextBox19.Text = numero(2, 2)
End Sub
No hay comentarios:
Publicar un comentario