Tutorial Blog Mas Andes Official - Tips Blogging | Trik Blogger | Tutorial Blogger | Widget Blogger | Blog Design | Taktik SEO (Search Engine Optimization)

Konsep Array dan Aplikasi Array



Array dalam bahasa Indonesia adalah indeks, maka variabel array adalah variabel yang mempunyai indeks. Sehingga penulisannya adalah var(indeks). Array sangat penting di dalam pemrograman, karena array mampu menampung banyak data yang bertipe sama. Sebagai contoh variabel array x menampung nilai-nilai bilangan bulat {3, 6, 8, 7, 5, 1} berarti indeks untuk variabel x ini adalah 1 sampai dengan 6, dan ditulis sebagai x(1), x(2), x(3), x(4), x(5) dan x(6).
Array dapat diibaratkan  sebagai kereta api dalam komputer, yang di dalamnya tedapat gerbong-gerbong memory yang berisi data-data yang mempunyai tipe dan perlakuan yang sama. Untuk mengambil atau menampilkan nilai array dapat dianalogikan dengan mencari kursi dalam gerbong kereta api, maka pada karcis perlu dituliskan nomor gerbong, Array juga demikian, untuk menampilkan nilai array tinggal menyebutkan indeks-nya. Misalkan untuk menampilkan nilai variabel x yang ke 5 dituliskan dengan x(5).
Untuk dapat membuat variabel array maka terlebih dahulu harus didefinisikan nama variabel array dan berapa jumlah maksimalnya dengan cara:
Dim nama_variabel(jumlah_array) as Tipe_Data
Perintah ini diletakkan sesuai kebutuhan apakah array ini hanya untuk subroutine (event) lokal atau pada seluruh event di form. Sebagai contoh untuk membuat array bilangan bulat yang dapat menampung 10 bilangan dapat dituliskan dengan:
Dim bilangan(10) as integer
Bila jumlah array sudah ditentukan 10 maka tidak boleh menggunakan data lebih dari 10, karena 10 menyatakan jumlah maksimum dari data yang akan ditampung adalan suatu array. Sebagai contoh: 
Bilangan(4) = 100           >Perintah ini benar
Bilangan(12) = 8             > Perintah ini salah karena batasnya sudah ditentukan 10.
Contoh 1:
Memasukkan 6 nama sebagai berikut “Basuki”, “Achmad”, “Rizki”, “Widya”, “Dian”, dan “Teguh” ke dalam array dan menampilkan semua nama ke dalam List saat form di panggil. 
Dim nama(6) as String

Private Sub Form_Load()
nama(0) = ”Basuki” nama(1) = ”Achmad”
nama(2) = ”Rizki” nama(3) = ”Widya”
nama(4) = ”Dian”
nama(5) = ”Teguh”
List1.Clear
For i=0 To 5
List1.AddItem nama(i)
Next i
End Sub

Array pada Visual Basic dimulai dari indeks 0. Sehingga data pertama dituliskan dengan var(0).
Visual Basic juga mengenal array dinamis, dimana jumlahnya bisa tak terbatas. Untuk mendefinisikan array dinamis dapat dilakukan dengan mendefinisikan array tanpa menuliskan jumlah maksimum array-nya sebagai berikut:
Dim variabel() as tipe_data
Untuk contoh nama di atas, dapat dituliskan dengan:
Dim nama() as string
Contoh Aplikasi 1:
Membuat project untuk menuliskan data-data nama siswa dengan nomor dibuat otomatis, dengan jumlah data siswa maksimum adalah 20. Kemudian menampilkan semua data nama siswa yang sudah dimasukkan.

  • Buat project baru dengan StandardEXE.

  • Tambahkan komponen-komponen: 1 label, 1 textbox, 1 listbox dan 2 command button. 
  • Masukkan nilai property dari masing-masing komponen dan form seperti tabel di bawah ini, dan atur penempatan.
KomponenPropertyNilai
Form1


Name
Caption
StartUpPosition
formLatihan1


Label1 Caption Masukkan Nama
Text1 Text (Kosong)
Command1 Caption Simpan
Command2 Caption Tampilkan

(Gambar 1)
  • Tambahkan kode program pada jendela kode sebagai berikut:
‘Mendefinisikan variabel global nama sebagai array
‘dan jumlah data
Dim nama(20) As String
Dim n As Integer

Private Sub Command1_Click()
‘Menambah nomor array dan memindahkan isi text1
‘ke array nama
n = n + 1
nama(n) = Trim(Text1.Text)
‘Mengosongkan isi text1 dan menaruh kursor ke text1 Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click()
‘Menampilkan semua isi array nama
List1.Clear
For i = 1 To n
List1.AddItem nama(i)
Next i
End Sub

Private Sub Form_Load()
‘Saat form dipanggil jumlah array diisi dengan nol n = 0
End Sub
  • Simpan project dengan nama projectLatihan1.

Contoh Aplikasi 2:
Membuat project untuk memasukkan data-data penjualan yang berisi jumlah produk penjualan dalam satu bulan. Kemudian dihitung rata-rata penjualan, bulan yang mengalami penjualan tertinggi dan bulan yang mengalami penjualan terendah.

  • Buat project baru dengan StandardEXE.
  • Tambahkan komponen-komponen: 2 buah label, 2 textbox, 1 listbox dan 4 command button.
  • Isi property dari setiap komponen seperti tabel di bawah ini dan atur posisi tiap komponen seperti gambar 2.
Komponen PropertyNilaiKomponen Property
Form1


Name
Caption
StartUpPosition
formLatihan2
Latihan Array 2
2-CenterScreen
Label1 Caption Masukkan Nama
Text1 Text (Kosong)
Command1 Caption Simpan
Command2 Caption Rata-rata
Command3 Caption Nilai Maksimal
Command4 Caption Nilai Minimal

(Gambar 2)
  • Pada jendela kode, tambahkan kode program berikut:
'Mendefinisikan array data penjualan jual(n)
'Dan jumlah data penjualan n
Dim jual(100) As Single
Dim n As Integer

Private Sub Command1_Click()
'Jumlah data bertambah dan ambil data dari text1
n = n + 1
jual(n) = Val(Text1)
'Tampilkan ke list
List1.AddItem jual(n)
End Sub

Private Sub Command2_Click()
'Menghitung nilai rata-rata dari data jumlah = 0
For i = 1 To n
jumlah = jumlah + jual(i)
Next i
rata2 = jumlah / n
List1.AddItem ""
List1.AddItem "Rata-rata = " & rata2
End Sub

Private Sub Command3_Click()
'Menghitung nilai maksimal dari data
jualMaks = jual(1)
For i = 2 To n
If jual(i) > jualMaks Then jualMaks = jual(i) Next
List1.AddItem ""
List1.AddItem "Penjualan maksimum = " & jualMaks End Sub

Private Sub Command4_Click()
'Menghitung nilai minimal dari data
jualMin = jual(1)
For i = 2 To n
If jual(i) < jualMin Then jualMin = jual(i) Next
List1.AddItem ""
List1.AddItem "Penjualan maksimum = " & jualMin End Sub

Private Sub Form_Load()
'Nilai awal jumlah data diberi nol
n = 0
List1.Clear
End Sub
  • Simpan project dengan nama projectLatihan2. 

Berlangganan artikel via email

  • Berkomentarlah dengan sopan dan bijak sesuai dengan isi konten.
  • Komentar yang tidak diperlukan oleh pembaca lain [spam] akan segera dihapus.
  • Apabila artikel yang berjudul "Konsep Array dan Aplikasi Array" ini bermanfaat, share ke jejaring sosial.
Konversi Kode