Aplikasi Matrix
- Form Design
- Code
Dim kalimatrix, matrixA(20, 20), matrixB(20, 20), BarisA, KolomA, BarisB, KolomB As Integer
Dim hasilMatrixA, hasilMatrixB, hasilMatrix As String
'Proses Input Matrix
Sub input_matrixA()
Dim B, K As Integer
BarisA = Val(Me.txt_BarisA.Text)
KolomA = Val(Me.txt_KolomA.Text)
For B = 0 To BarisA - 1
For K = 0 To KolomA - 1
matrixA(B, K) = InputBox("Masukkan Nilai Matrix A untuk posisi" & B + 1 & " x " & K + 1 & " : ")
Next
Next
End Sub
Sub input_matrixB()
Dim B, K As Integer
BarisB = Val(Me.txt_BarisB.Text)
KolomB = Val(Me.txt_KolomB.Text)
For B = 0 To BarisB - 1
For K = 0 To KolomB - 1
matrixB(B, K) = InputBox("Masukkan Nilai Matrix B untuk posisi" & B + 1 & " x " & K + 1 & " : ")
Next
Next
End Sub
Sub cetak_matrixA()
Dim B, K As Integer
BarisA = Val(Me.txt_BarisA.Text)
KolomA = Val(Me.txt_KolomA.Text)
For B = 0 To BarisA - 1
For K = 0 To KolomA - 1
hasilMatrixA = hasilMatrixA & matrixA(B, K).ToString & " "
Next
hasilMatrixA = hasilMatrixA & Chr(13)
Next
Me.lbMatrixA.Text = hasilMatrixA.ToString
End Sub
Sub cetak_matrixB()
Dim B, K As Integer
BarisB = Val(Me.txt_BarisB.Text)
KolomB = Val(Me.txt_KolomB.Text)
For B = 0 To BarisB - 1
For K = 0 To KolomB - 1
hasilMatrixB = hasilMatrixB & matrixB(B, K).ToString & " "
Next
hasilMatrixB = hasilMatrixB & Chr(13)
Next
Me.lbMatrixB.Text = hasilMatrixB.ToString
End Sub
Sub kali_matrixAB()
Dim Ba, Ka, Bb, Kb As Integer
BarisA = Val(Me.txt_BarisA.Text)
KolomA = Val(Me.txt_KolomA.Text)
BarisB = Val(Me.txt_BarisA.Text)
KolomB = Val(Me.txt_KolomA.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
kalimatrix = kalimatrix + matrixA(Ba, Ka) * matrixB(Bb, Kb)
Next
Next
'--
hasilMatrix = hasilMatrix & " "
Next
hasilMatrix = hasilMatrix & Chr(13)
Next
'---
Me.lbHasilMatrix.Text = hasilMatrix.ToString
End Sub
Private Sub B_Proses_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles B_Proses.Click
Call input_matrixA()
Call input_matrixB()
Call cetak_matrixA()
Call cetak_matrixB()
Call kali_matrixAB()
End Sub
- Start Debugging
