martes, 24 de julio de 2012

Menu

Agregamos Menu strip
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