MÉTODO DE CRAMER (Matriz 3 x 3)

El método de Cramer es uno de los cuales utiliza un tipo de secuencia para hallar el valor de x, y, z para calcular el valor se realiza mediante el siguiente código;

Este el Diseño a realizar

Para la realización de este proyecto se utilizo el siguiente código:

Public Class Form1

    'Este es el codigo de las operaciones para obtener el valor de x, y y z'

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcular.Click

        Dim identidad As Integer

        identidad = (((txtx1.Text * txty2.Text * txtz3.Text) + (txtx2.Text * txty3.Text * txtz1.Text) + (txtx3.Text * txty1.Text * txtz2.Text)) - ((txtx3.Text * txty2.Text * txtz1.Text) + (txty3.Text * txtz2.Text * txtx1.Text) + (txtz3.Text * txtx2.Text * txty1.Text)))

        Dim x As Integer

        x = (((txttotalA.Text * txty2.Text * txtz3.Text) + (txttotalB.Text * txty3.Text * txtz1.Text) + (txttotalC.Text * txty1.Text * txtz2.Text)) - ((txttotalC.Text * txty2.Text * txtz1.Text) + (txty3.Text * txtz2.Text * txttotalA.Text) + (txtz3.Text * txttotalB.Text * txty1.Text)))

        Dim Y As Integer

        Y = (-1 * (((txtx3.Text * txttotalB.Text * txtz1.Text) + (txttotalC.Text * txtz2.Text * txtx1.Text) + (txtz3.Text * txtx2.Text * txttotalA.Text)) - ((txtx1.Text * txttotalB.Text * txtz3.Text) + (txtx2.Text * txttotalC.Text * txtz1.Text) + (txtx3.Text * txttotalA.Text * txtz2.Text))))

        Dim Z As Integer

        Z = (((txtx1.Text * txty2.Text * txttotalC.Text) + (txtx2.Text * txty3.Text * txttotalA.Text) + (txtx3.Text * txty1.Text * txttotalB.Text)) - ((txtx3.Text * txty2.Text * txttotalA.Text) + (txty3.Text * txttotalB.Text * txtx1.Text) + (txttotalC.Text * txtx2.Text * txty1.Text)))

        txtresultadox.Text = x / identidad

        txtresultadoy.Text = Y / identidad

        txtresultadoz.Text = Z / identidad

    End Sub

    Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'limpia la caja de texto'

        Me.txtx1.Text = ""

        Me.txtx2.Text = ""

        Me.txtx3.Text = ""

        Me.txtresultadox.Text = ""

        Me.txty1.Text = ""

        Me.txty2.Text = ""

        Me.txty3.Text = ""

        Me.txtresultadoy.Text = ""

        Me.txtz1.Text = ""

        Me.txtz2.Text = ""

        Me.txtz3.Text = ""

        Me.txtresultadoz.Text = ""

        Me.txttotalA.Text = ""

        Me.txttotalB.Text = ""

        Me.txttotalC.Text = ""

    End Sub

End Class

Este el link para descargar el programa ya funcional.

https://drive.google.com/file/d/0B4efdeDUNI9XWkt0eGpCZ3NtazA/edit?usp=sharing