Friday, March 29, 2013

BUAT APLIKASI KAMUS MENGGUNAKAN VISUAL BASIC

(BAGIAN 1)

Pembuatan kamus ini saya bagi menjadi 3 bagian utama, yakni :

1. Input Kamus, Input kamus berfungsi untuk memasukkan atau membuat database kamus.

2. Cari (Baca) Isi Kamus, Cari kamus adalah halaman pencarian dari dari kata yang ingin kita temukan

3. Menu Utama

 

Langkah-langkah pembuatan kamus bagian pertama adalah sebagai berikut :

1. Buat sebuah folder dengan nama “Kamus” (tanpa tanda petik) di C:\kamus

clip_image002

2. Buat file “DATAKAMUS.DAT” menggunakan Notepad dan simpan pada folder Kamus

3. Jalankan Visual Basic dan pilih Standard Exe

4. Isilah Form dengan :

    Properties  
  Component Name Caption / Text
  Label1 Label1 KAMUSKU
  text1 txtIstilah  
  text2 txtArti  
  CommandButton1 cmdSimpan Simpan
  CommandButton2 cmdBatal Batal
  CommandButton3 cmdKeluar Keluar

Simpan project anda di folder kamus yang telah dibuat sebelumnya

Oya…… Untuk Font silahkan menggunakan sesuai selera anda, saya menggunakan Tahoma 12

clip_image004

clip_image006

5. Bagian ini yang paling menyenangkan buat saya…..

- Double klik CommandButton1 (cmdSimpan) ketikkan source code berikut :

If txtIstilah = "" Or txtArti = "" Then GoTo AdaKosong

Open "c:\Kamus\DATAKAMUS.DAT" For Append As #1

Write #1, txtIstilah, txtArti

Close #1

txtIstilah = ""

txtArti = ""

txtIstilah.SetFocus

Exit Sub

AdaKosong:

Beep

If txtIstilah = "" Then txtIstilah.SetFocus

If txtArti = "" Then txtArti.SetFocus

clip_image008

- Double klik CommandButton2 (cmdBatal) ketikkan source code berikut :

txtIstilah = ""

txtArti = ""

txtIstilah.SetFocus

clip_image010

- Double klik CommandButton3 (cmdKeluar) ketikkan source code berikut :

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

If pesan = vbYes Then End

clip_image012

Jika telah selesai jalankan aplikasi menekan tombol F5 dan isilah kamus anda dengan istilah dan arti sesuai dengan keinginan anda………

Untuk bagian 1 (input data kamus) selesai dibuat….

bersambung …………

 

at

12 comments:

  1. Amir PorangSeptember 14, 2013 at 4:15 AM

    gan kalau data kamusnya di buat di mana ?

    ReplyDelete
    Replies
    1. muslimDecember 3, 2013 at 10:04 PM

      Amir ..
      Databese e I tos I notped , atau pake ms-office acces peh nguk ..
      Thank's

      Delete
    2. PENABURDecember 3, 2013 at 10:19 PM

      kalo mau edit Databasenya pake notepad++ gan.....
      Agan bisa download notepad++ disini :http://www.joydownload.com/download/85b4eef6fcac6c1e43ac5c69804bc685-46216.html

      Delete
  2. PENABURSeptember 14, 2013 at 12:23 PM

    @WÆk Æmir Æri Porangdata kamusnya tersimpan di file *.dat gan

    ReplyDelete
  3. Amir PorangOctober 9, 2013 at 7:56 AM

    kalau vb 06 standart exe
    tapi kalau vb 08 standart exenya di mana gan ?

    ReplyDelete
  4. Vj GammaNovember 16, 2013 at 12:59 PM

    gan... kenapa setiap kali simpan kata "If txtIstilah = "" Or txtArti = "" Then GoTo AdaKosong" berwarna merah.....

    ReplyDelete
    Replies
    1. PENABURNovember 16, 2013 at 2:59 PM

      Agan download file latihannya buat bahan perbandingan...
      http://www.4shared.com/zip/0bMx8L6H/Kamus.html

      Delete
  5. AnonymousJanuary 8, 2017 at 12:38 PM

    link buat edit databasenya file not found gan

    ReplyDelete
  6. Faqih ulyaAugust 12, 2017 at 8:26 PM

    Kalo datanya apa tidak bisa di masukkan secara keseluruhan? Biar tidak satu2 soalnya sudah ada d file excel lengkap

    ReplyDelete
  7. AnonymousNovember 1, 2017 at 1:28 PM

    punten gan ,lanjutannya mana ya cara menampilkan hasil dari input diatas ..maksudnya bentuk aplikasi kamusnya gitu loh pas kita pengen nyari2 kata

    ReplyDelete
  8. UnknownApril 13, 2018 at 3:45 PM

    nyoba pakai vb 2010 gabsa yak gan?

    ReplyDelete
  9. Rizky bayhaqkyApril 1, 2020 at 8:26 PM

    Vb 2010 gabisa gan?

    ReplyDelete

Terima Kasih Sudah Meninggalkan Komentar...