Array 2 dimensi ini biasa digunakan untuk keperluan matrik, dimana indeks pertama menyatakan baris dan indeks kedua menyatakan kolom. Sebagai contoh a(2,3) adalah nilai a pada baris 2 dan kolom 3.
Contoh Aplikasi 1:
Membuat program untuk memasukkan matrik dan menampilkan matrik sebagai berikut:
(1) Buat project baru dengan standardEXE
(2) Tambahkan komponen-komponen: 1 buah labe, 1 buah textbox, 1 buah listbox, dan 2 buah command buttom
(3) Isi property setiap komponen seperti pada tabel d bawah ini, dan atur posisinya
seperti gambar
(4) Pada jendela code, tambahkan kode perogram sebagai berikut:
'Definisi matrik berukuran 4x4
Dim m(4, 4) As Single
Private Sub Command1_Click()'Memasukkan nilai matrik sesuai dengan
'baris dan kolom yang dimasukkan
baris = Val(Text1)
'Definisi matrik berukuran 4x4
Dim m(4, 4) As Single
Private Sub Command1_Click()'Memasukkan nilai matrik sesuai dengan
'baris dan kolom yang dimasukkan
baris = Val(Text1)
kolom = Val(Text2)
m(baris, kolom) = Val(Text3)
End Sub
Private Sub Command2_Click()'Menampilkan semua isi matrik
List1.Clear
For i = 1 To 4
kal = ""
For j = 1 To 4
kal = kal & m(i, j) & " "
Next j
List1.AddItem kal
Next i
End Sub(5) Simpan project ini dengan nama projectLatihan.
m(baris, kolom) = Val(Text3)
End Sub
Private Sub Command2_Click()'Menampilkan semua isi matrik
List1.Clear
For i = 1 To 4
kal = ""
For j = 1 To 4
kal = kal & m(i, j) & " "
Next j
List1.AddItem kal
Next i
End Sub(5) Simpan project ini dengan nama projectLatihan.
Contoh 3:Membuat penjumlahan dua buah matrik a dan b yang berukuran sama (mxn)
menggunakan rumus:
menggunakan rumus:
dapat dilakukan dengan:
For baris=1 To m
For kolom=1 To n
c(baris,kolom) = a(baris,kolom) + b(baris,kolom)
Next kolom
Next baris
For baris=1 To m
For kolom=1 To n
c(baris,kolom) = a(baris,kolom) + b(baris,kolom)
Next kolom
Next baris
Contoh 4:
Membuat perkalian dua buah matrik a dan b yang berukuran sama (nxn)
menggunakan rumus:
Membuat perkalian dua buah matrik a dan b yang berukuran sama (nxn)
menggunakan rumus:
dapat dilakukan dengan:
For baris=1 To n
For kolom=1 To n
For baris=1 To n
For kolom=1 To n
z = 0
For i=1 To n
z = z + a(baris,i) * b(i,kolom)
Next i
c(baris,kolom) = z
Next kolom
Next baris
For i=1 To n
z = z + a(baris,i) * b(i,kolom)
Next i
c(baris,kolom) = z
Next kolom
Next baris
Tidak ada komentar:
Posting Komentar