Mengenal Array Visual Basic 6.0

Mengenal Array Visual Basic 6.0

Ketik Visual Basic! - Array adalah sekumpulan nilai data yang dikelompokkan dalam sebuah variabel. Array sendiri digunakan jika ada sebuah ... 05.44

Ketik Visual Basic! - Array adalah sekumpulan nilai data yang dikelompokkan dalam sebuah variabel. Array sendiri digunakan jika ada sebuah nilai data yang mempunyai tipe sama dan akan mendapatkan perlakukan yang sama. Misalnya kita mempunyai 100 data dengan tipe yang sama dan akan diperlakukan yang sama pula, maka lebih mudah menggunakan array dibanding 100 variabel yang berbeda.

Setiap nilai data di dalam array disebut elemen array dan masing-masing dibedakan dengan nomor indeks. Array sendiri dideklarasikan dengan cara yang sama dengan variabel, yaitu menggunakan perintah Dim, kemudian diikuti tanda kurung dan jumlah elemennya dikurangi satu (karena indeks dimulai dari angka nol)

Cara menggunakan array

Dim nama_array(jumlah_elemen - 1) As tipe_data

Contoh:
Dim mahasiswa(99) As String --> array mahasiswa akan mempunyai elemen sebanyak 100 dimulai nomor 0 s/d 99

Berikut adalah cara mengisi nilai data pada array

mahasiswa(0) = "Maman"
mahasiswa(1) = "Nana"
dst...

Kita dapat mengisi atau mengosongkan elemen array dengan menggunakan kontrol perulangan For...Next seperti berikut (cara mengosongkan elemen array)

For i = 0 to 99
       mahasiswa(i) = ""
Next i

Note:
1. Secara default indeks elemen array dimulai dari 0 (nol) tetapi kita dapat mengubah nilai awal dari angka 1 (satu) menggunakan perintah Option Base 1 sebelum perintah Dim-nya

Option Base 1
Dim mahasiswa (100) As String

2. Selain menggunakan cara no. 1 diatas dapat juga menggunakan kata TO seperti contoh berikut

Dim mahasiswa (1 to 100) As String

3. Untuk mengetahui jumlah elemen array, kita dapat menggunakan perintah Ubound(nama_array)

Dim mahasiswa (1 to 100) As String
Dim JumlahElemen As Integer

JumlahElemen = Ubound(mahasiswa) --> 'akan menghasilkan JumlahElemen=100

4. Jika kita tidah tahu berapa jumlah elemen yang akan digunakan maka kita dapat menggunakan array dinamis yaitu dengan cara mengosongkan jumlah elemen pada data array

Dim mahasiswa() As String

5. Dapat juga kita mengubah jumlah elemen array dengan menggunakan perintah Redim

Redim [preserve] nama_array(JumlahElemen)

Contoh:
Redim mahasiswa(88)  --> 'Jumlah elemen akan berubah menjadi 89 elemen dimuali dari 0 s/d 88

Contoh Aplikasi Mengenal Array Visual Basic 6.0

1. Buatlah user interface (UI) seperti berikut

2. Aturlah property dan value dari masing-masing object seperti tabel berikut

Object	Property	Value
Form1	Caption	Apilkasi Kontrol Perulangan
Frame1	Caption	Pilih dan Input Data
Frame2	Caption	Rubah Array
List1	-	-
Combo1	-	-
Text1	-	-
Command1	Caption	Input
Command2	Caption	Redim

3. Buka jendela kode (code editor) dengan cara klik dua kali sembarang object, seperti gambar berikut,

4. Copy dan paste kode program berikut kedalam code editor,

Dim NamaSiswa() As String
Private Sub Form_Load()
    Dim i As Integer
    ReDim NamaSiswa(1 To 5)
    For i = 1 To 5
        Combo1.AddItem i
    Next i
    Combo1.ListIndex = 0
    Text1.Text = 5
End Sub

Private Sub Command1_Click()
    Dim no As Integer, i As Integer
    
    no = CInt(Combo1.Text)
    NamaSiswa(no) = InputBox("Tuliskan nama siswa no : " & no, "Input Nama Siswa")
    If NamaSiswa(no) <> "" Then
        List1.Clear
        For i = 1 To UBound(NamaSiswa)
            List1.AddItem "NamaSiswa(" & i & ")=" & NamaSiswa(i)
        Next i
    End If
End Sub

Private Sub Command2_Click()
    Dim num As Integer, i As Integer
    If Not IsNumeric(Text1.Text) Then Exit Sub
    num = CInt(Text1.Text)
    ReDim NamaSiswa(1 To num)
    Combo1.Clear
    List1.Clear
    For i = 1 To UBound(NamaSiswa)
        Combo1.AddItem i
        List1.AddItem "NamaSiswa(" & i & ")=" & NamaSiswa(i)
    Next i
    Combo1.ListIndex = 0
End Sub