Operasi Matrix dengan Array

• Buat project baru dengan nama “ Operasi Matrix”
• Tambahkan:  

Toolbox	nama
button	Input matrix 1
	Input matrix 2
	proses
Textbox	Textbox1
	Textbox2
	Textbox3 (hasil)
Label	Label 1  (untuk matrix1) ,text=” ”
	Label 2  (untuk matrix1) ,text=” ”
	Label 3 text=”Hasil”
Combobox

• Seperti berikut:

 

• Pada combobox tambahkan operasi dengan click 1x => ada tanda panah keci  => click n edit item. ketik “penjumlahan , pengurangan dan perkalian”
• Definisikan variabel berikut:

Public i, j, k, baris1, kolom1, baris2, kolom2, elemen As Integer Public arry1(,) As Integer 'definisikan array ke 1 dua demensi bertipe integer Public arry2(,) As Integer 'definisikan array ke 2 dua demensi bertipe integer

• Ketik code berikut pada input matrix 1: 

baris1 = InputBox("Masukan Julah Baris", "Input Baris") kolom1 = InputBox("Masukan Julah Kolom", "Input Kolom") Me.Label1.Text = "Matrix Ordo " & baris1 & "X" & kolom1 ReDim arry1(baris1, kolom1) For i = 1 To baris1 For j = 1 To kolom1 elemen = InputBox("Masukan baris" & i & " Kolom " & j, "Input Element") arry1(i, j) = elemen Next j Next i For i = 1 To baris1 For j = 1 To kolom1 TextBox1.Text &= arry1(i, j) TextBox1.Text &= " " Next j TextBox1.Text &= vbCrLf Next i

• Ketik code berikut pada input matrix 2: 

baris2 = InputBox("Masukan Julah Baris", "Input Baris") kolom2 = InputBox("Masukan Julah Kolom", "Input Kolom") Me.Label2.Text = "Matrix Ordo " & baris2 & "X" & kolom2 ReDim arry2(baris2, kolom2) For i = 1 To baris2 For j = 1 To kolom2 elemen = InputBox("Masukan baris" & i & " Kolom " & j, "Input Element") arry2(i, j) = elemen Next j Next i For i = 1 To baris2 For j = 1 To kolom2 TextBox2.Text &= arry2(i, j) TextBox2.Text &= " " Next j TextBox2.Text &= vbCrLf Next i

• Ketik code berikut pada proses: 

TextBox3.Text = "" If ComboBox1.SelectedIndex = 0 Then penjumlahan() ElseIf ComboBox1.SelectedIndex = 1 Then pengurangan() ElseIf ComboBox1.SelectedIndex = 2 Then perkalian() Else MessageBox.Show("Anda Harus memilih Operasi Matrix", "Program error", MessageBoxButtons.OK) Exit Sub End If

        

•  Tambahkan tiga fungsi berikut: 

Fungsi Penjumlahan Dim hasil(,) As Integer If baris1 = baris2 And kolom1 = kolom2 Then ReDim hasil(baris1, kolom1) For i = 1 To baris1 For j = 1 To kolom1 hasil(i, j) = arry1(i, j) + arry2(i, j) Next j Next i For i = 1 To baris1 For j = 1 To kolom1 TextBox3.Text &= hasil(i, j) TextBox3.Text &= " " Next j TextBox3.Text &= vbCrLf Next i Else MessageBox.Show("Penjumlahan Tidak Dapat Dilakukan Jika Ordo Tidak Sama", "Program error", MessageBoxButtons.OK, MessageBoxIcon.Warning) Exit Sub End If
Fungsi Pengurangan Dim hasil(,) As Integer If baris1 = baris2 And kolom1 = kolom2 Then ReDim hasil(baris1, kolom1) For i = 1 To baris1 For j = 1 To kolom1 hasil(i, j) = arry1(i, j) - arry2(i, j) Next j Next i For i = 1 To baris1 For j = 1 To kolom1 TextBox3.Text &= hasil(i, j) TextBox3.Text &= " " Next j TextBox3.Text &= vbCrLf Next i Else MessageBox.Show("Penngurangan Tidak Dapat Dilakukan Jika Ordo Tidak Sama", "Program error", MessageBoxButtons.OK, MessageBoxIcon.Warning) Exit Sub End If
Fungsi Perkalian Dim hasil(,), temp1 As Integer If baris1 = kolom2 Then ReDim hasil(baris1, kolom1) For i = 1 To baris1 For j = 1 To kolom1 For k = 1 To kolom1 temp1 += arry1(i, k) * arry2(k, j) Next k hasil(i, j) = temp1 temp1 = 0 'menghilangkan nilai yang ditampung Next j Next i For i = 1 To baris1 For j = 1 To kolom1 TextBox3.Text &= hasil(i, j) TextBox3.Text &= " " Next j TextBox3.Text &= vbCrLf Next i Else MessageBox.Show("Perkalian Tidak Dapat Dilakukan Jika baris Tidak Sama dengan Kolom", "Program error", MessageBoxButtons.OK, MessageBoxIcon.Warning) Exit Sub End If

• Tekan F5 untuk menjalakan project.

DOWNLOAD FILE (pdf)

DOWNLOAD PROJECT(rar)