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 …………

 

Share this article :
 

+ comments + 12 comments

September 14, 2013 at 4:15 AM

gan kalau data kamusnya di buat di mana ?

September 14, 2013 at 12:23 PM

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

October 9, 2013 at 7:56 AM

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

November 16, 2013 at 12:59 PM

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

November 16, 2013 at 2:59 PM

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

December 3, 2013 at 10:04 PM

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

December 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

Anonymous
January 8, 2017 at 12:38 PM

link buat edit databasenya file not found gan

August 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

Anonymous
November 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

April 13, 2018 at 3:45 PM

nyoba pakai vb 2010 gabsa yak gan?

April 1, 2020 at 8:26 PM

Vb 2010 gabisa gan?

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