BUAT APLIKASI KAMUS MENGGUNAKAN VISUAL BASIC (Bagian 2)

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