Visual Basic Array MultiDimensi

ARRAY MULTIDIMENSI 

 

Array multidimensi, adalah suatu array yang memiliki lebih dari dua dimensi dan fungsinya hampir sama dengan array satu dimensi, hanya saja pada array multidimensi ini mewakili nilai – nilai tabel yang terdiri dari informasi yang di atur dalam baris dan kolom.

Untuk mengidentifikasi elemen tabel tertentu, kita harus menentukan dua indeks, pertama mengidentifikasi elemen baris dan yang kedua mengidentifikasi elemen kolom.

Contoh :
       Dim Arr(1,1) As String
       Arr(0.0) = “Mangga”
       Arr(0.1) = “Apel”
       Arr(1,0) = “Jeruk”
       Arr(1,1) = “Nanas”










    
1) Klik ganda pada lembar form, lalu pada event Form1_Load ketikkan kode program berikut ini : 

Dim Arr(4, 1) As String      
  Arr(0, 0) = "Kode Buku"       
  Arr(0, 1) = "Judul Buku"       
  Arr(1, 0) = "Kategori"       
  Arr(1, 1) = "Penulis"        
  Arr(2, 0) = "Design Grafis"        
  Arr(2, 1) = "Pemrograman"       
  Arr(3, 0) = "Sadeli"        
  Arr(3, 1) = "Fandi"        
  Arr(4, 0) = "Jayan"       
  Arr(4, 1) = "Irawan"

        'Mengatur ListView        
       ListView1.GridLines = True        
       ListView1.View = View.Details        
       For baris = 0 To 1            
       For kolom = 0 To 1                
       ListView1.Columns.Add(Arr(baris, kolom), 100)            
       Next kolom        
       Next baris

        For baris = 2 To 2          
             For kolom = 0 To 1                
             cmbKategori.Items.Add(Arr(baris, kolom))           
             Next kolom       
        Next baris

        For baris = 3 To 4            
              For kolom = 0 To 1                
              cmbPenulis.Items.Add(Arr(baris, kolom))            
              Next kolom        
        Next baris


 2) Klik ganda tombol simpan (button1), lalu ketikkan kode program berikut ini :

        Dim Arr(4) As String        
          Arr(0) = txtKodeBuku.Text        
          Arr(1) = txtJudulBuku.Text       
          Arr(2) = cmbKategori.Text        
          Arr(3) = cmbPenulis.Text

        Dim listitem As ListViewItem        
          listitem = New ListViewItem        
          listitem = ListView1.Items.Add(Arr(0))        
          listitem.SubItems.Add(Arr(1))        
           listitem.SubItems.Add(Arr(2))       
          listitem.SubItems.Add(Arr(3))

        txtKodeBuku.Text = txtKodeBuku.Text + 1       
        txtJudulBuku.Text = ""   
        cmbKategori.Text = ""       
        cmbPenulis.Text = ""   
        txtJudulBuku.Focus()