Jumat, 15 Juli 2011

Array 2 Dimensi

Array bisa menggunakan satu indeks yang disebut dengan satu dimensi seperti yang sudah dijelaskan di atas. Dan juga bisa menggunakan lebih dari satu, misalkan 2 indeks yang dinamakan dengan array 2 dimensi dan ditulis dengan: variabel(indeks1,indeks2)
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)
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.
Contoh 3:Membuat penjumlahan dua buah matrik a dan b yang berukuran sama (mxn)
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

Contoh 4:
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
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

Tidak ada komentar:

Posting Komentar