cara perkalian 2 matriks

Berikut merupakan cara melakukan perkalian matriks atau kuadrat matriks menggunakan visual basic 6. Saya sumsikan bahwa anda sudah tahu rumus perkalian matriks. Karena yang akan saya tulis di sini adalah bagaimana source code nya menggunakan visual basic 6.

Contoh yang akan saya gunakan adalah untuk matriks 5 x 5. Sehingga bisa dianggap perkalian bisa juga dianggap sebagai kuadrat matriks. Buat desain form seperti gambar berikut :

form input perkalian matriks

Untuk nama teksbox saya menggunakan array, yaitu dari txtM(0) sampai txtM(24) sedangkan yang teksbox output namanya adalah dari txtM(49) – txtM(25). Sedangkan source code nya adalah sebagai berikut :

Dim i, j, totalmatriks, totalmatriks1 As Single
Dim M(5, 5) As Single
Dim O(5, 5) As Single
Dim c(5) As Single
Dim d(5) As Single

Private Sub cmdkuadrat_Click()
’simpan data di teksbox ke dalam
N = 0
For i = 0 To 4
For j = 0 To 4
M(i, j) = txtM(N).Text
N = N + 1
Next j
Next i

resetMatriks
‘kuadratkan matriks
z = 0
For j = 0 To 4
For i = 0 To 4
For k = 0 To 4
O(i, j) = O(i, j) + (M(i, k) * M(k, j))
z = z + 1
Next k
Next i
Next j

‘isikan matriks ke textbox
N = 49
For i = 0 To 4
For j = 0 To 4
txtM(N).Text = O(i, j)
N = N – 1
Next j
Next i

End Sub
Sub resetMatriks()
z = 0
For j = 0 To 4
For i = 0 To 4
For k = 0 To 4
O(i, j) = 0
z = z + 1
Next k
Next i
Next j
End Sub
Sub resetsubtotalmatriks()
For i = 0 To 4
c(i) = 0
Next i
End Sub

Hasil :

Hasil perkalian matriks

Selamat mencoba

Download berbagai macam tutorial,
source code, dan aplikasi sistem informasi