Contoh Penggunaan Array (Menampilkan dan Mencari Data) VB6

Berikut ini adalah contoh sederhana penggunaan array dalam menampilkan dan mencari data di visual basic 6, untuk mempraktekannya siapkan :
1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 1 Commandbutton.
2. Beri nama pada masing-masing commanbutton dengan cmdTampil dan cmdCari. 
3. Copy-kan coding berikut ke dalam editor Module dan Form yang bertalian.
'--- Coding ini di Module...

          Public Type arrData
             Isi As String
          End Type
          Public tabData() As arrData

          '--- Batas coding di Module


          '--- Coding ini di Form...
          Private Sub cmdTampil_Click()

          Dim i As Integer
            'Tampilkan isi array tabData
            For i = 7 To 0 Step -1
                MsgBox tabData(i).Isi 'Tampilkan ke layar satu per satu

            Next i
          End Sub

          Private Sub cmdCari_Click()

          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

          Private Sub 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
          '--- Batas coding di Form

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module