Contoh Program Visual Basic 2010 : Latihan 17

'Latihan 17 (Program Matriks)

               'Tampilan Form

'Coding

Public Class frmLat_17

    Dim matrixA(20, 20), matrixB(20, 20), barisA, kolomA, barisB, kolomB As Integer

    Dim hasilmatrixA, hasilmatrixB, hasilMatrix As String

    'Proses input matrixA

    Sub input_matrixA()

        Dim b, k As Integer

        barisA = Val(Me.txtBarisA.Text)

        kolomA = Val(Me.txtKolomA.Text)

        For b = 0 To barisA - 1

            For k = 0 To kolomA - 1

                matrixA(b, k) = InputBox("Masukkan nilai Matriks A untuk posisi" & b + 1 & " x " & k & " : ")

            Next

        Next

    End Sub

    'Proses input matriks B

    Sub input_matrixB()

        Dim b, k As Integer

        barisB = Val(Me.txtBarisB.Text)

        kolomB = Val(Me.txtKolomB.Text)

        For b = 0 To barisB - 1

            For k = 0 To kolomB - 1

                matrixB(b, k) = InputBox("Masukkan nilai Matriks B untuk posisi" & b + 1 & " x " & k & " : ")

            Next

        Next

    End Sub

    Sub cetak_matrixA()

        Dim b, k As Integer

        For b = 0 To barisA - 1

            For k = 0 To kolomA - 1

                hasilmatrixA = hasilmatrixA & matrixA(b, k) & " "

            Next

            hasilmatrixA = hasilmatrixA & Chr(13)

        Next

        Me.lbMatriksA.Text = hasilmatrixA.ToString

    End Sub

    Sub cetak_matrixB()

        Dim b, k As Integer

        For b = 0 To barisB - 1

            For k = 0 To kolomB - 1

                hasilmatrixB = hasilmatrixB & matrixB(b, k) & " "

            Next

            hasilmatrixB = hasilmatrixB & Chr(13)

        Next

        Me.lbMatriksB.Text = hasilmatrixB.ToString

    End Sub

    Private Sub frmLat_17_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub frmLat_17_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub bProses_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bProses.Click

        Call input_matrixA()

        Call input_matrixB()

        Call cetak_matrixA()

        Call cetak_matrixB()

        Call kali_matrixAB()

        'Call cetak_matrix()

    End Sub

    Sub kali_matrixAB()

        Dim bA, kA, bB, kB As Integer

        barisA = Val(Me.txtBarisA.Text)

        kolomA = Val(Me.txtKolomA.Text)

        barisB = Val(Me.txtBarisB.Text)

        kolomB = Val(Me.txtKolomB.Text)

        'Matrix A

        For bA = 0 To barisA - 1

            For kA = 0 To kolomA - 1

                'Matrix B

                For bB = 0 To barisB - 1

                    For kB = 0 To kolomB - 1

                        hasilMatrix = hasilMatrix + matrixA(bA, kA) * matrixB(bB, kB)

                    Next

                Next

                '--

                hasilMatrix = hasilMatrix & "  "

            Next

            hasilMatrix = hasilMatrix & Chr(13)

        Next

        '--

        Me.lbHasilMatriks.Text = hasilMatrix.ToString

    End Sub

End Class