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)

clip_image002

4. Dalam Form2 tambahkan :

    Properties  
  Component Name Caption / Text
  Label1 Label1 KAMUSKU
  Text1 txtIstilah  
  ListView1 ListView1  
  CommandButton1 cmdKeluar Keluar

clip_image004

5. Coding

- Double klik Text1 (txtIstilah) , selanjutnya klik Prosedure pilih KeyDown dan masukkan coding berikut :

If txtIstilah <> "" And KeyCode = 13 Then CariData

clip_image006

clip_image008

- 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

clip_image010

- Coding terakhir double klik CommandButton1 (cmdKeluar) dengan :

pesan = MsgBox("Apakah Anda Yakin Ingi Keluar?", vbInformation + vbYesNo, "Perhatian")

If pesan = vbYes Then End

clip_image012

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

 

Share this article :
 

Post a Comment

Terima Kasih Sudah Meninggalkan Komentar...

 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. ingin berbagi - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger