Pada bagian 2 ini kita akan membuat bagaimana Aplikasi Kamus ini menemukan apa yang kita cari sesuai dengan isi database yang telah kita buat sebelumnya pada latihan bagian 1.
1. Jalankan project1 yang telah kita buat
2. Tambahkan sebuah Form, maka Form ini akan menjadi Form2
3. Tambah component Microsoft Windows Common Control 6.0 (SP6)
4. Dalam Form2 tambahkan :
| | | Properties | |
| | Component | Name | Caption / Text |
| | Label1 | Label1 | KAMUSKU |
| | Text1 | txtIstilah | |
| | ListView1 | ListView1 | |
| | CommandButton1 | cmdKeluar | Keluar |
5. Coding
- Double klik Text1 (txtIstilah) , selanjutnya klik Prosedure pilih KeyDown dan masukkan coding berikut :
If txtIstilah <> "" And KeyCode = 13 Then CariData
- Masukkan pula coding ini :
Private Sub Form_Load()
Dim LI As ListItem
ListView1.View = lvwReport
ListView1.Sorted = True
ListView1.GridLines = True
ListView1.ColumnHeaders.Add , , "ISTILAH", ListView1.Width / 2
ListView1.ColumnHeaders.Add , , "ARTI", ListView1.Width / 2
End Sub
- Dan dilanjutkan dengan :
Private Sub CariData()
Dim Istilah, Arti As String
ListView1.ListItems.Clear
txtIstilah = UCase("" & txtIstilah & "")
Open "DATAKAMUS.DAT" For Input As #1
Do Until EOF(1)
Input #1, Istilah, Arti
If UCase(Istilah) Like txtIstilah Then
Set LI = ListView1.ListItems.Add(, , Istilah)
LI.SubItems(1) = Arti
End If
Loop
Close #1
End Sub
- Coding terakhir double klik CommandButton1 (cmdKeluar) dengan :
pesan = MsgBox("Apakah Anda Yakin Ingi Keluar?", vbInformation + vbYesNo, "Perhatian")
If pesan = vbYes Then End
6. Sebelum anda mencoba menjalankan aplikasi pada Form2 kita harus mengatur project propertinya dengan cara klik Project – klik Project1 Properties, pada Startup Object pilih Form2 dan klik Ok
7. Sekarang jalankan aplikasi dengan menekan F5
Demikian cara buat aplikasi kamus menggunakan visual basic bagian 2 ini.
Selamat Belajar
Tag Technorati: {grup-tag}
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,
artikel vb6,
semua tentang vb6,
vb6 api,
cara menggunakan module,
cara menggunakan class module
