(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
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
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
- Double klik CommandButton2 (cmdBatal) ketikkan source code berikut :
txtIstilah = ""
txtArti = ""
txtIstilah.SetFocus
- Double klik CommandButton3 (cmdKeluar) ketikkan source code berikut :
pesan = MsgBox("Apakah Anda Ingin Keluar?", vbInformation + vbYesNo, "Perhatian")
If pesan = vbYes Then End
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 …………
+ comments + 12 comments
gan kalau data kamusnya di buat di mana ?
@WÆk Æmir Æri Porangdata kamusnya tersimpan di file *.dat gan
kalau vb 06 standart exe
tapi kalau vb 08 standart exenya di mana gan ?
gan... kenapa setiap kali simpan kata "If txtIstilah = "" Or txtArti = "" Then GoTo AdaKosong" berwarna merah.....
Agan download file latihannya buat bahan perbandingan...
http://www.4shared.com/zip/0bMx8L6H/Kamus.html
Amir ..
Databese e I tos I notped , atau pake ms-office acces peh nguk ..
Thank's
kalo mau edit Databasenya pake notepad++ gan.....
Agan bisa download notepad++ disini :http://www.joydownload.com/download/85b4eef6fcac6c1e43ac5c69804bc685-46216.html
link buat edit databasenya file not found gan
Kalo datanya apa tidak bisa di masukkan secara keseluruhan? Biar tidak satu2 soalnya sudah ada d file excel lengkap
punten gan ,lanjutannya mana ya cara menampilkan hasil dari input diatas ..maksudnya bentuk aplikasi kamusnya gitu loh pas kita pengen nyari2 kata
nyoba pakai vb 2010 gabsa yak gan?
Vb 2010 gabisa gan?
Post a Comment
Terima Kasih Sudah Meninggalkan Komentar...