Home » Array » Cara Mencari dan Menampilkan Array di Form VB6

Cara Mencari dan Menampilkan Array di Form VB6

Kategori
Cara Mencari dan Menampilkan Array di Form VB6 - Array adalah sekumpulan variabel yang memiliki tipe data yang sama dan dinyatakan dengan data yang sama. Array merupakan konsep yang sangat penting dalam dunia pemograman. Variabel array di deklarasikan dengan mencantumkan tipe dan nama variabel yang di ikuti dengan banyaknya lokasi memory.

Array dapat kita anggap sebagai deretan kamar pada suatu hotal dimana kamar-kamat tersebut memiliki tipe yang sama nama yang sama.Tipe kamar dengan tipe dan nama yang sama akan dibedakan berdasarkan nomor kamarnya. Array terbagi menjadi dua jenis Array, yaitu :
-Array yang ukurannya tetap (Fixed Array) artinya banyak elemen data yang dimiliki tidak berubbah   selama program berjalan
-Array yang ukurannya dapat berubah (Dynamic Array), artinya banyak elemen yang ditampung oleh   array dapat berubah saat program berjalan.

Pada pertemuan kali tip dan trik visual basic ingin meberikan sebuah tips bagaimana menampilkan dan mencari array di form Visual Basic 6.0.

Cara Mencari dan Menampilkan Array di Form VB6 :

1. Buka Form VB6 Anda
2. Pada Form Tambahkan 2 CommandButton: CommandButton1 Captionnya "Tampilkan               Array" dan pada CommandButton2 Captionnya "Cari Array".
3. Tambahkn 1 Buah Module dan ketik kode dibawah ini di Module :

Public Type arrData
Isi As String
End Type
Public tabData() As arrData
4. Double klik CommandButton1, kemudian ketik kode dibawah ini:

Dim i As Integer
'Tampilkan isi array tabData
For i = 7 To 0 Step -1
MsgBox tabData(i).Isi, 32, "Hasil Pencarian" 'Tampilkan ke layar satu per satu
Next i
End Sub

5. Double klik CommandButton2, kemudian ketik kode dibawah ini:

Dim kriteria As String
          Dim urut As Integer
          Dim ketemu As Boolean
            'Tampung data yang akan dicari
            kriteria = InputBox("Masukkan data yang akan dicari (1 karakter)")

            If kriteria = "" Then Exit Sub  'Jika kosong, langsung keluar
            ketemu = False 'Inisialisasi ketemu (masih belum ketemu)
            urut = 0 'Inisialisasi utk mengetahui posisi sebenarnya
            For i = 7 To 0 Step -1

                If tabData(i).Isi = kriteria Then 'Jika ditemukan
                   MsgBox "Data '" & kriteria & "' ditemukan setelah dibalik" & Chr(13) & _
                          "berada pada urutan ke-" & urut + 1 & "", vbInformation
                   ketemu = True 'berarti sudah pernah ketemu

                End If
                urut = urut + 1 'untuk mencari posisi dari awal
            Next i
            If ketemu = False Then
               'Jika tidak ditemukan, tampilkan pesan

               MsgBox "Data " & kriteria & " tidak ditemukan!", vbCritical
            Else 'jika sudah pernah ketemu, langsung keluar
               Exit Sub
            End If

End Sub

6.Langkah terakhir ketik kode dibawah ini di Form_Load( ):

ReDim tabData(8) 'Isi array sebanyak delapan elemen

            'Isi array tabData
            tabData(0).Isi = "H"
            tabData(1).Isi = "A"
            tabData(2).Isi = "C"
            tabData(3).Isi = "K"

            tabData(4).Isi = "1"
            tabData(5).Isi = "4"
            tabData(6).Isi = "1"
            tabData(7).Isi = "2"

End Sub

7. Simpan hasil pekerjaan Anda dan jalankan program

Demikian tip Cara Mencari dan Menampilkan Array di Form VB6. Semoga bermanfaat dan dapat menambah wawasab dunia pemograman Anda.Selamat mencoba semoga berhasil.