ARRAY VISUAL BASIC.NET 2010
Pada Artikel kali ini yang akan dibahas adalah:
- Array
- Array Dinamis
- Array Multi Dinamis
5.1. ARRAY
Array adalah struktur data yang menyimpan sekumpulan elemen yang bertipe sama. Perbedaan mendasar dalam program yang memakai variabel biasa dengan variabel yang dideklarasikan mneggunakan Array adalah setiap variabel atau pengenal hanya menyimpan sebuah nilai dari tipe data tertentu artinya tidak bisa digunakan untuk menyimpan beberapa buah nilai yang bertipe sejenis.
Penggunaan array kadang diperlukan untuk menyimpan beberapa data sejenis untuk di lakukan manipulasi teretntu, misalnya penggunaan Array untu mengolah sekumpulan data nilai mahasiswa, untuk mengelola sekumpulan daftar harga di mini markert, dan lain-lain.
Sebagai contoh penggunaan Array, berikut ini kita akan membaut beberapa Project yang menggunakan Array, Array Dinamis dan Array Multidinamis untuk kasus pengolahan data oabt.
Buatlah suatu project baru sebagai berikut :
- Klik File → New Project
- Namakan File sebagai berikut dan simpan pada Lokasi seperti pada Tabel berikut ini :
Name | Array |
Location | D:\DataNgajar\Informatika\VBNet10 |
- Rancang design form seperti pada gambar berikut ini :
Gambar 5.1 Design Interface Array
- Aturlah properties, sesuai dengan setting pada Tabel berikut ini :
No | Nama Komponen | Properties | Values |
1 | Form1 | Name Text BackColor | fmArray_Tunggal Array White |
2 | Label1 | Name Text Font → Style | Label1 Data Obat Bold |
3 | Label2 | Name Text | Label2 Kode obat |
4 | Label3 | Name Text | Label3 Nama obat |
5 | Label4 | Name Text | Label4 Kemasan |
6 | Label5 | Name Text | Label5 Harga beli |
7 | Label6 | Name Text | Label6 Harga jual |
8 | TextBox1 | Name Text | txtKode_obat ’’ |
9 | TextBox2 | Name Text | txtNama_obat ’’ |
10 | TextBox3 | Name Text | TxtKemasan ’’ |
11 | TextBox4 | Name Text | Txtharga_beli ’’ |
12 | TextBox5 | Name Text | Txtharga_jual ’’ |
13 | Combobox1 | Name Text | cmbData ’’ |
14 | Button1 | Name Text | btnSimpan &Simpan |
15 | Button2 | Name Text | btnKeluar &Keluar |
15 | Button3 | Name Text | btnTampilkan &Tampilkan data |
16 | ListBox1 | Name | ListData |
- Deklarasikan beberapa variabel Array sebagi berikut ini :
Public Class fmArray_Tunggal
Private indeks_data As Byte = 0
Private jml_data As Byte = 5
Private kode_obat(5) As String
Private nama_obat(5) As String
Private kemasan(5) As String
Private harga_beli(5) As Integer
Private harga_jual(5) As Integer
- Tuliskan kode program berikut pada Event BtnSimpan_click :
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
If indeks_data >= jml_data - 1 Then
MsgBox("List sudah penuh")
Else
kode_obat(indeks_data) = txtkode_obat.Text
nama_obat(indeks_data) = txtnama_obat.Text
kemasan(indeks_data) = txtkemasan.Text
harga_beli(indeks_data) = CInt(txtharga_beli.Text)
harga_jual(indeks_data) = CInt(txtharga_jual.Text)
indeks_data = indeks_data + 1
txtkode_obat.Text = ""
txtnama_obat.Text = ""
txtkemasan.Text = ""
txtharga_beli.Text = ""
txtharga_jual.Text = ""
txtkode_obat.Focus()
End If
End Sub
- Tuliskan kode program berikut pada Event BtnTampilkan_click :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTampilkan.Click
Dim i As Byte
listdata.Items.Clear()
If indeks_data > 0 Then
Select Case cmbdata.SelectedIndex
Case Is = 0
For i = 0 To indeks_data - 1
listdata.Items.Add(kode_obat(i))
Next
Case Is = 1
For i = 0 To indeks_data - 1
listdata.Items.Add(nama_obat(i))
Next
Case Is = 2
For i = 0 To indeks_data - 1
listdata.Items.Add(harga_jual(i))
Next
End Select
End If
End Sub
- Tuliskan kode program berikut pada Event BtnKeluar_click :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
End
End Sub
5.2. Pembahasan Program :
Program aplikasi diatas digunakan untuk mengelola data obat ( menyimpan dan menampilkanya kembali dalam ListBox) berdasarkan kode_obat, nama_obat, kemasan, harga_beli dan harga_jual, setiap data tersebut hanya menampung masksimum lima data seperti dideklarasikan sebagai berikut :
Public Class fmArray_Tunggal
Private indeks_data As Byte = 0
Private jml_data As Byte = 5
Private kode_obat(5) As String
Private nama_obat(5) As String
Private kemasan(5) As String
Private harga_beli(5) As Integer
Private harga_jual(5) As Integer
Pernyataan Private indeks_data as byte = 0 artinya dideklarasikan Array indeks_data dengan tipe byte dan diisi dengan nilai 0, Array jml_data dengan tipe byte diisi dengn 5, selanjutnya dideklarasikan variabel kode_obat, nama_obat, kemasan, harga_beli, harga_jual masing-masing bertipe array dengan maksimum data yang dapat diisikan sebanyak lima buah, kode_obat, nama_obat dan kemasan bertipe string dan harga_beli, harga_jual bertipe integer.
Pada event click btnSimpan akan dilakukan penyeleksian jika indeks_data lebih besar atau sama dengan jumlah data maka tampilkan pesan bahwa Listbox sudah penuh, jika indeks_data kurang dari jumlah data maka lakukan pengisian untuk tiap data array berdasarkan urutan indeksnya (indeks 0 ← kode_obat, indeks 1←nama_obat, dan seterusnya), selanjutnya indeks_data ditambah satu supaya datanya masing-masing array dapat bertambah sampai batas yang sudah ditentukan. Pada btnTampilkan_click program akan menampilkan data array yang sudah disimpan sementara dalam memori, penampilan akan dipilih berdasarkan kode_obat, nama_obat dan harga_jual.
5.3. Array Dinamis
Array dinamis memugkinkan kita untuk mengabaikan jumlah elemen data yang akan ditampung dan hanya menggunakan patokan jumlah memori sesuai dengan ukuran jumlah data yang masuk.
Untuk memahami penggunaan Array dinamis, buatlah suatu project baru sebagai berikut :
- Klik File → New Project
- Namakan File sebagai berikut dan simpan pada Lokasi seperti pada Tabel berikut ini :
Name | PArray_dinamis |
Location | D:\WriteBook_VBNET05 |
- Rancang design form seperti pada gambar berikut ini :
Gambar 5.2 Design Interface Parray_Dinamis
- Aturlah properties, sesuai dengan setting pada Tabel berikut ini :
No | Nama Komponen | Properties | Values |
1 | Form1 | Name Text BackColor | fmArray_Dinamis Array Dinamis White |
2 | Label1 | Name Text Font → Style | Label1 Data Kemasan Obat Bold |
3 | Label2 | Name Text | Label2 Kode kemasan |
4 | Label3 | Name Text | Label3 Nama kemasan |
8 | TextBox1 | Name Text | txtKode_kemasan ’’ |
9 | TextBox2 | Name Text | txtNama_kemasan ’’ |
10 | Button1 | Name Text | btnSimpan &Simpan |
11 | Button2 | Name Text | btnLihat &Lihat |
12 | Button3 | Name Text | btnSet &Set Array |
13 | Button4 | Name Text | btnKeluar &Keluar |
14 | Label4 | Name Text BackColor ForeColor TextAlign | Label4 Kode Gray ControlText MiddleCenter |
15 | Label5 | Name Text BackColor ForeColor TextAlign | Label5 Kemasan Gray ControlText MiddleCenter |
16 | Label4 | Name Text | Label4 Kode |
17 | BackColor ForeColor TextAlign | White ControlText MiddleCenter | |
18 | ListBox1 | Name | ListKode |
19 | ListBox2 | Name | ListKemasan |
- Deklarasikan beberapa variabel Array sebagi berikut ini :
Public Class Form1
Dim indeks_data As Byte = 0
Private jml_data As Byte = 5
Dim kode_kemasan() As String
Dim nama_kemasan() As String
- Tuliskan kode program berikut ini, pada event fmArray_Dinamis_load :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ReDim kode_kemasan(5)
ReDim nama_kemasan(5)
End Sub
- Tuliskan kode program berikut pada Event BtnSimpan_click :
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btnsimpan.Click
If indeks_data > jml_data - 1 Then
MsgBox("List sudah penuh")
Else
kode_kemasan(indeks_data) = txtkode_kemasan.Text
nama_kemasan(indeks_data) = txtnama_kemasan.Text
txtkode_kemasan.Text = ""
txtnama_kemasan.Text = ""
txtkode_kemasan.Focus()
indeks_data = indeks_data + 1
End If
End Sub
- Tuliskan kode program berikut pada Event BtnLihat_click :
Private Sub btnlihat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlihat.Click
Dim i As Byte
If indeks_data > 0 Then
listkode.Items.Clear()
listkemasan.Items.Clear()
For i = 0 To indeks_data - 1
listkode.Items.Add(kode_kemasan(i))
listkemasan.Items.Add(nama_kemasan(i))
Next
End If
End Sub
- Tuliskan kode program berikut pada Event BtnSet_click :
Private Sub btnset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnset.Click
jml_data = InputBox("Jumlah array", "Set Jumlah Array", 5)
ReDim kode_kemasan(jml_data)
ReDim nama_kemasan(jml_data)
indeks_data = 0
End Sub
- Tuliskan kode program berikut ini, pada btnKeluar_click :
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
5.4. Pembahasan Program :
Inti dari pemrogram pada aray dianamis ini hampir sama dengan contoh program Array diatas, hanya pada program array_dinamis ini digunakan untuk mengelola dua data kemasan obat yaitu kode_kemasan dan nama_kemasan. Pada btnSet_click digunakan untuk menambah jumlah data. Pada event load terdapat pernyataan :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ReDim kode_kemasan(5)
ReDim nama_kemasan(5)
End Sub
Redim digunakan untuk mengubah ukuran dari array satu atau array dinamis yang sudah dideklarasikan sebelumnya, jadi dalam program Array pertama diatas data sudah pasti maskimum berisi lima buah, pada program array_dinamis ini program dapat kita ubah pada saat running yang dilkaukan pada btnSet_click.
5.5. Array Multi Dinamis
Untuk memahami penggunaan Array multidinamis, buatlah suatu project sebagai beikut :
- Klik File → New Project
- Namakan File sebagai berikut dan simpan pada Lokasi seperti pada Tabel berikut ini :
Name | PArray_MultiDinamis |
Location | D:\WriteBook_VBNET05 |
- Rancang design form seperti pada gambar berikut ini :
Gambar 5.3 Design Interface Parray_MultiDinamis
- Aturlah properties, sesuai dengan setting pada Tabel berikut ini :
No | Nama Komponen | Properties | Values |
1 | Form1 | Name Text BackColor | fmArray_MultiDimensi Array Multi Dimensi White |
2 | Label1 | Name Text Font → Style | Label1 Data Kemasan Obat Bold |
3 | Label2 | Name Text | Label2 Kode kemasan |
4 | Label3 | Name Text | Label3 Nama kemasan |
5 | TextBox1 | Name Text | txtKode_kemasan ’’ |
6 | TextBox2 | Name Text | txtNama_kemasan ’’ |
7 | Button1 | Name Text | btnSimpan &Simpan |
8 | Button2 | Name Text | btnLihat &Lihat Data |
9 | Button3 | Name Text | btnKeluar &Keluar |
10 | Label4 | Name Text Backcolor Forecolor TextAlign | Label4 Kode Gray ControlText MiddleCenter |
11 | Label5 | Name Text Backcolor Forecolor TextAlign | Label5 Kemasan Gray ControlText MiddleCenter |
12 | ListBox1 | Name | ListKode |
13 | ListBox2 | Name | ListKemasan |
- Deklarasikan beberapa variabel Array sebagi berikut ini :
Public Class Form1
Dim indeks_data As Byte = 0
Private jml_data As Byte = 5
Dim kemasan(5, 2) As String
- Tuliskan kode program berikut pada Event BtnSimpan_click :
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
If indeks_data > jml_data - 1 Then
MsgBox("List sudah penuh")
Else
kemasan(indeks_data, 0) = txtkode_kemasan.Text
kemasan(indeks_data, 1) = txtnama_kemasan.Text
txtkode_kemasan.Text = ""
txtnama_kemasan.Text = ""
txtkode_kemasan.Focus()
indeks_data = indeks_data + 1
End If
End Sub
- Tuliskan kode program berikut pada Event BtnLihat_click :
Private Sub btnlihat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlihat.Click
Dim i As Byte
If indeks_data > 0 Then
listkode.Items.Clear()
listkemasan.Items.Clear()
For i = 0 To indeks_data - 1
listkode.Items.Add(kemasan(i, 0))
listkemasan.Items.Add(kemasan(i, 1))
Next
End If
End Sub
- Tuliskan kode program berikut ini, pada btnKeluar_click :
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
5.6. Pembahasan Program :
Pada Array multi dinamis kita hanya mendeklarasikan suatu variabel array dua dimensi diikuti dengan jumlah data yang diperlukan dan jumlah data yang akan digunakan untuk mengelola data Array serta diikuti tipe data dari varibel tersebut
[Dim kemasan(5, 2) As String],
Statement diatas digunakan sebagai pengganti beberapa variabel seperti pada Program Array_dinamis sebelumnya
Dim kode_kemasan() As String
Dim nama_kemasan() As String
SEKIAN PEMBAHASAN MENGENAI ARRAY PADA VB.NET 2010, SEMOGA BERMANFAAT