Penjumlahan dan Perkalian Matriks

Penjumlahan dan perkalian Matriks

1.        Penjumlahan dan Perkalian Matriks Berordo 2x2

       Listing Program Matriks Berordo 2x2

       Download Application Matriks Berordo 2x2

2.        Penjumlahan dan Perkalian Matriks Berordo 3x3
       Listing Program Matriks Berordo 3x3

       Download Application Matriks Berordo3x3

1.        Penjumlahan dan Perkalian Matriks Berordo 2x2

Listing Program Matriks Berordo 2x2

Public Class Form1

    Dim response As MsgBoxResult

    Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click

            'script Penjumlahan Matriks Berordo 2x2

            aw.Text = (Val(a.Text) + Val(w.Text))

            bx.Text = (Val(b.Text) + Val(x.Text))

            cy.Text = (Val(c.Text) + Val(y.Text))

            dz.Text = (Val(d.Text) + Val(z.Text))

            'script Perkalian Matriks Berordo 2x2

            awby.Text = ((Val(a.Text) * Val(w.Text)) + (Val(b.Text) * Val(y.Text)))

            axbz.Text = ((Val(a.Text) * Val(x.Text)) + (Val(b.Text) * Val(z.Text)))

            cwdy.Text = ((Val(c.Text) * Val(w.Text)) + (Val(d.Text) * Val(y.Text)))

            cxdz.Text = ((Val(c.Text) * Val(x.Text)) + (Val(d.Text) * Val(z.Text)))

    End Sub

    Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click

        'script Message Box

        response = MsgBox("Apakah Anda yakin ingin keluar", MsgBoxStyle.OkCancel, "Konfirmasi Keluar")

        If response = MsgBoxResult.Ok Then

            End

        End If

    End Sub

    Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click

        'script clear data input

        a.Text = ""

        b.Text = ""

        c.Text = ""

        d.Text = ""

        w.Text = ""

        x.Text = ""

        y.Text = ""

        z.Text = ""

        'script clear hasil jumlah

        aw.Text = ""

        bx.Text = ""

        cy.Text = ""

        dz.Text = ""

        'script clear hasil kali

        awby.Text = ""

        axbz.Text = ""

        cwdy.Text = ""

        cxdz.Text = ""

    End Sub

End Class

Download Application Matriks Berordo 2x2 

2.        Penjumlahan dan Perkalian Matriks Berordo 3x3

Listing Program Matriks Berordo 3x3

Public Class Form1

    Dim response As MsgBoxResult

    Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click

        'script Message Box

            response = MsgBox("Apakah Anda yakin ingin keluar", MsgBoxStyle.OkCancel, "Konfirmasi Keluar")

        If response = MsgBoxResult.Ok Then

            End

        End If

    End Sub

    Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click

        'script clear data input

        a.Text = ""

        b.Text = ""

        c.Text = ""

        d.Text = ""

        ee.Text = ""

        f.Text = ""

        g.Text = ""

        h.Text = ""

        i.Text = ""

        r.Text = ""

        s.Text = ""

        t.Text = ""

        u.Text = ""

        v.Text = ""

        w.Text = ""

        x.Text = ""

        y.Text = ""

        z.Text = ""

        'script clear hasil jumlah

        ar.Text = ""

        bs.Text = ""

        ct.Text = ""

        du.Text = ""

        ev.Text = ""

        fw.Text = ""

        gx.Text = ""

        hy.Text = ""

        iz.Text = ""

        'script clear hasil kali

        kaliarbucx.Text = ""

        kaliasbvcy.Text = ""

        kaliatbwcz.Text = ""

        kalidreufx.Text = ""

        kalidsevfy.Text = ""

        kalidtewfz.Text = ""

        kaligrhuix.Text = ""

        kaligshviy.Text = ""

        kaligthwiz.Text = ""

    End Sub

    Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click

        'script Penjumlahan Matriks Berordo 3x3

        ar.Text = (Val(a.Text) + Val(r.Text))

        bs.Text = (Val(b.Text) + Val(s.Text))

        ct.Text = (Val(c.Text) + Val(t.Text))

        du.Text = (Val(d.Text) + Val(u.Text))

        ev.Text = (Val(ee.Text) + Val(v.Text))

        fw.Text = (Val(f.Text) + Val(w.Text))

        gx.Text = (Val(g.Text) + Val(x.Text))

        hy.Text = (Val(h.Text) + Val(y.Text))

        iz.Text = (Val(i.Text) + Val(z.Text))

        'script Perkalian Matriks Berordo 3x3

        kaliarbucx.Text = (((Val(a.Text) * Val(r.Text))) + ((Val(b.Text) * Val(u.Text))) + ((Val(c.Text) * Val(x.Text))))

        kaliasbvcy.Text = (((Val(a.Text) * Val(s.Text))) + ((Val(b.Text) * Val(v.Text))) + ((Val(c.Text) * Val(y.Text))))

        kaliatbwcz.Text = (((Val(a.Text) * Val(t.Text))) + ((Val(b.Text) * Val(w.Text))) + ((Val(c.Text) * Val(z.Text))))

        kalidreufx.Text = (((Val(d.Text) * Val(r.Text))) + ((Val(ee.Text) * Val(u.Text))) + ((Val(f.Text) * Val(x.Text))))

        kalidsevfy.Text = (((Val(d.Text) * Val(s.Text))) + ((Val(ee.Text) * Val(v.Text))) + ((Val(f.Text) * Val(y.Text))))

        kalidtewfz.Text = (((Val(d.Text) * Val(t.Text))) + ((Val(ee.Text) * Val(w.Text))) + ((Val(f.Text) * Val(z.Text))))

        kaligrhuix.Text = (((Val(g.Text) * Val(r.Text))) + ((Val(h.Text) * Val(u.Text))) + ((Val(i.Text) * Val(x.Text))))

        kaligshviy.Text = (((Val(g.Text) * Val(s.Text))) + ((Val(h.Text) * Val(v.Text))) + ((Val(i.Text) * Val(y.Text))))

        kaligthwiz.Text = (((Val(g.Text) * Val(t.Text))) + ((Val(h.Text) * Val(w.Text))) + ((Val(i.Text) * Val(z.Text))))

    End Sub

End Class

 Download Application Matriks Berordo 3x3