Apa itu Array di Microsoft Visual Studio 2008

♞ Array adalah sekumpulan data yang memiliki tipe yang sama, sejumlah tetap, serta disusun secara terstruktur dan disimpan dalam satu variabel yang sama, dan diurutkan dengan index.

1. Array Satu Dimensi
Suatu array yang nilai dan ukurannya yang sudah ditentukan terlebih dahulu, dan memiliki satu dimensi. Bentuk umum :
Dim Array[indeks] As Tipe_Data
Contoh :
      Dim Arr(2) As String
      Arr(0) = TxtNim.Text
      Arr(1) = TxtNama.Text
      Arr(2) = TxtProdi.Text

2. Array Multi Dimensi
Suatu array yang fungsinya hampir sama dengan array satu dimensi hanya saja pada array multi dimensi ini mewakili nilai table yang terdiri dari informasi yang diatur dalam baris dan kolom. Untuk mendefenisikan elemen table tertentu, kita harus menentukan dua indeks, pertama mengidentifikasi elemen barisdan yang mengidentifikasi elemen kolom.Array multi dimensi memiliki lebih dari dua dimensi. Bentuk umum :
Dim Array[indeks,Indeks] As Tipe_Data
Dim Array[indeks,indeks,indeks] As Tipe_Data
Contoh :
        Dim Arr(3, 1) As String
        Arr(0, 0) = "NIM"
        Arr(0, 1) = "NAMA"
        Arr(1, 0) = "JENIS KELAMIN"
        Arr(1, 1) = "PRODI"
        Arr(2, 0) = "Laki-laki"
        Arr(2, 1) = "Perempuan"
        Arr(3, 0) = "Manajemen Informatika"
        Arr(3, 1) = "Teknik Informatika"

♜ Contoh:
1. Array Satu Dimensi
a. Buat project baru, dengan nama Prak9.
b. Desain Tampilan form seperti gambar berikut ini:

c. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

d. Klik ganda pada Form Load, kemudian ketikkan kode program berikutini:
ListView1.GridLines = True
ListView1.View = View.Details
ListView1.Columns.Add("NIM")
ListView1.Columns.Add("NAMA", 115)
ListView1.Columns.Add("PRODI", 110)
TxtNim.Text = 1
TxtNama.Focus()

e. Klik ganda pada BtnTambah, kemudian ketikkan kode program berikut ini:
Dim Arr(2) As String
Arr(0) = TxtNim.Text
Arr(1) = TxtNama.Text
Arr(2) = TxtProdi.Text
Dim listitem As ListViewItem
listitem = New ListViewItem
listitem = ListView1.Items.Add(Arr(0))
listitem.SubItems.Add(Arr(1))
listitem.SubItems.Add(Arr(2))
TxtNim.Text = TxtNim.Text + 1
TxtNama.Text = ""
TxtProdi.Text = ""
TxtNama.Focus()

f. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
g. Simpan aplikasi Anda.

2. Array Multi Dimensi
1. Tambahkan Form baru, dengan nama Form2.
2. Desain Tampilan form seperti gambar berikut ini:

3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

4. Klik ganda pada Form Load, kemudian ketikkan kode program berikut ini:
Dim Arr(3, 1) As String
Arr(0, 0) = "NIM"
Arr(0, 1) = "NAMA"
Arr(1, 0) = "JENIS KELAMIN"
Arr(1, 1) = "PRODI"
Arr(2, 0) = "Laki-laki"
Arr(2, 1) = "Perempuan"
Arr(3, 0) = "Manajemen Informatika"
Arr(3, 1) = "Teknik Informatika"
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
CmbKelamin.Items.Add(Arr(Baris, Kolom))
Next Kolom
Next Baris

5. Klik ganda pada BtnProses, kemudian ketikkan kode program berikutini:
Dim Arr(3) As String
Arr(0) = TxtNIM.Text
Arr(1) = TxtNAMA.Text
Arr(2) = CmbKelamin.Text
Arr(3) = CmbProdi.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))
TxtNIM.Text = TxtNIM.Text + 1
TxtNAMA.Text = ""
CmbKelamin.Text = ""
CmbProdi.Text = ""
TxtNAMA.Focus()

6. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
7. Simpan aplikasi anda.

• Tweet
• Share
• Share