CEK ONGKOS KIRIM

Monday, November 29, 2010

Pemakaian Koleksi pada VB6

Dalam mendevelop sebuah software tentu akan selalu melibatkan banyak data. untuk itu bisa pakai array dan bisa juga pakai koleksi.

bila kesulitan memakai array gunakan saja koleksi dengan koleksi akan mudah dalam pemanggilan kembali data. pemanggilan data dalam koleksi tidaklah begitu sulit, tinggal memasukan key yang disertakannya


Untuk contoh pemakaian koleksi, key dibuat memakai hurup pertama pada data untuk memudahkan dalam pencarian. misal: Merah Putih key MP, Siang malam key SM, Tanam Pohon key TP dan seterusnya ...

ingat Langkahnya adalah :
1. Buka VB6. Pada New File pilih StandardExe lalu klik OK
2. tambahkan textBox pada form1
3. tambahkan commandButton pada form1
4. klik kanan pada form1 pilih View code

Copykan Kode catatan dibawah ini:

'---code

Dim Kol As New Collection
Dim a

Private Sub Command1_Click()
On Error GoTo Euweuh
    a = Kol.Item(Text1.Text)
    MsgBox Text1.Text &
" adalah kunci sedang " & a & " adalah Data yang dipanggil "
    Text1.Text = ""
    Exit Sub
Euweuh:
    Text1.Text = ""
    MsgBox
"Data tidak ditemukan, silahkan tambah data"
End Sub

Private Sub Form_Load()

    'Pengisian data pada Koleksi
    Text1.Text = ""
    With Kol
        .Add "Merah Putih", "MP" ' "Merah Putih" adalah data, "MP" adalah key
        .Add "Siang Malam", "SM"
        .Add "Tanam Pohon", "TP"
    End With
End Sub

'--- end code

untuk menjalankannya:
1. tekan tombol F5
2. pada textbox masukan MP atau SM atau TP atau apa saja
3. tekan tombol Command1

1 comment:

  1. Pengen yang lebih seru ...
    Ayo kunjungi www.asianbet77.com
    Buktikan sendiri ..

    Real Play = Real Money

    - Bonus Promo Red Card pertandingan manapun .
    - Bonus Mixparlay .
    - Bonus Tangkasnet setiap hari .
    - New Produk Sabung Ayam ( minimal bet sangat ringan ) .
    - Referal 5 + 1 % ( seumur hidup ) .
    - Cash Back up to 10 % .
    - Bonus Royalty Rewards setiap bulan .

    untuk Informasi lebih jelasnya silahkan hubungi CS kami :
    - YM : op1_asianbet77@yahoo.com
    - EMAIL : asianbet77@yahoo.com
    - WHATSAPP : +63 905 213 7234
    - WECHAT : asianbet_77
    - SMS CENTER : +63 905 209 8162
    - PIN BB : 2B4BB06A / 28339A41

    Salam Admin ,
    http://asianbet77.com/

    ReplyDelete