Sabtu, 22 Agustus 2009

Fungsi Shortcut Keyboard

Ctrl A :
Memblok keseluruhan.
Ctrl B :
Mengorganisir favorite.
Ctrl C :
Menambah alamat halaman web yang sedang dibuka ke favorites.
Ctrl E :
Menampilkan/menyembunyikan search.
Ctrl F :
Mencari halaman web.
Ctrl H :
Menampakan/menyembunyikan history.
Ctrl I :
Menampilkan/menyembunyikan faforites.
Ctrl O :
Menampilkan kotak dialog open.
Ctrl P :
Mencetak halaman web yang sedang dibuka.
Ctrl R :
Merefresh galaman web terbaru.
Ctrl V :
Mem paste isi clipboard.
Ctrl W :
Keluar dari amplikasi dan menutup jendela.
Ctrl X :
Memotong blok terpilih.
Ctrl Z :
Membatalkan perintah dan menutup jenjdela.
F1 :
Fasilitas help.
F3 :
Memunculkan/menghilangkan bar search explorer.
F4:
Daftar drop down dari kotak address.
F5 :
Merefres halaman web yang aktif.
F10 :
Mengarahkan fokus ke menu bar.
Shift F10 :
Membuka menu pintas, sama seperti mengklik kanan.

Read more...

Selasa, 21 Juli 2009

Kamus Mini Menggunakan VB 0.6

Membuat Database Kamus Mini

Database yang digunakan adalah Microsoft Access.Ikuti langkah2 berikut ya...

  1. Buka aplikasi MS Access, caranya : dari Start, pilih All Program , pilih Microsoft Office, pilih Microsort Access.
  2. Buat database baru, caranya : klik menu File →New(Ctrl+N)
  3. Dari jendela yang muncul disebelah kanan, Klik Blan k Database.

  4. Ketikkan nama database Kamus.mdb. Tentukan juga tempat penyimpanan pada folder progaram yang akan dibuat.

  5. Klik tombol Create
  6. Buat tabel baru dengan mengklik 2 x menu Create table in Design Vew.
  7. Buatlah beberapa kolom berikut pada Design Vie w
  8. Arahlan pointer pada kolom id_kata. Klik kanan dan pilih menu Primary Key . Ne contoh hasilnya.
  9. Simpan database yang telah dibuat, cara : File → Save
  10. Ganti Table1 menjadi Kamus, & klik tombol OK
  11. Tabel Kamus telah terbentuk dalam database kamus.db. ne tampilannya

Membuat Aplikasi Kamus

Setelak kita buat databasenya, selanjutnya buat aplikasi kamus menggunakan Visual Basic 6.0. Untuk membuatnya ikuti langkah2 dibawah ini yak...

  1. Buka Proyek baru dengan Standar.Exe
  2. Tambah komponen Microsoft Ado Data Control 6.0 yg akan digunakan utk pemroses database
  3. Tambahkan Adodc pada form sperti gbr brkt:
  4. Klik ikon Run untuk menjalankan program. Untuk ADODB pada proyek yang baru dibuat
  5. Hentikan form yang telah dijalankan, dan hapus Adodc1 dari form.
  6. Tambahkan pada form dengan beberapa objek, yaitu 4 o bjek TextBox, 4 objek CommandButton, 2 objek Frame, dan 4 objek Label. Ne cth desain formnya...

Ketikkan Kode Berikut Pada Form Codenya

Option Explicit

Private Konekdb As ADODB.Connection

Private Rs_Kamus As ADODB.Recordset

Private StrKonek, TOMBOL As String

Private SqlSimpan, SqlCari As String

Sub FormBersih()

TxtAsing.Text = ""

TxtIndo.Text = ""

End Sub

Sub BukaDb()

Set Konekdb = New ADODB.Connection

StrKonek = "Provider=Microsoft.Jet.OLEDB.4.0;Persist " _

& "Security Info=False;Data Source=" _

& App.Path + "./Kamus.mdb"

If Konekdb.State = adStateOpen Then

Konekdb.Close

Set Konekdb = New ADODB.Connection

Konekdb.Open StrKonek

Else

Konekdb.Open StrKonek

End If

End Sub

Private Sub Form_Load()

Call BukaDb

End Sub

Private Sub TbKeluar_Click()

Unload Me

End Sub

Private Sub TbSimpan_Click()

If TxtAsing.Text = "" Then

MsgBox "Isi Dulu Bhs Inggrisnya.!", _

vbCritical, "Info"

TxtAsing.SetFocus

ElseIf TxtIndo.Text = "" Then

MsgBox "Isi Dulu Bhs Indonesianya..!", _

vbCritical, "Info"

TxtIndo.SetFocus

Else

SqlSimpan = ""

SqlSimpan = "Insert Into kamus(kata_asing,kata_indo)" _

& " Values('" & TxtAsing.Text _

& "','" & TxtIndo.Text & "')"

Konekdb.Execute SqlSimpan, , adCmdText

MsgBox "Kata baru telah ditambahkan dalam kamus", _

vbInformation, "Info"

Call FormBersih

End If

End Sub

Private Sub TbTambah_Click()

TxtAsing.Text = ""

TxtIndo.Text = ""

End Sub

Private Sub TbTrans_Click()

If TxtIn.Text = "" Then

MsgBox "Kata belum dimasukan..!", _

vbCritical, "Info"

TxtIn.SetFocus

Else

SqlCari = ""

SqlCari = "select kata_indo from kamus " _

& " WHERE kata_asing LIKE '" _

& TxtIn.Text & "'"

Set Rs_Kamus = New ADODB.Recordset

Rs_Kamus.Open SqlCari, Konekdb, _

adOpenDynamic, adLockBatchOptimistic

If Rs_Kamus.EOF And Rs_Kamus.BOF Then

MsgBox "kata yang Anda cari tidak ada..!", _

vbCritical, "Info"

Exit Sub

Else

TxtOut.Text = Rs_Kamus!kata_indo

End If

End If

End Sub

Private Sub TxtIn_Change()

Call FormBersih

End Sub


Read more...

About This Blog

Seguidores

  © Template Lar Doce Lar por Emporium Digital Graphics Jenny's Grandchild and Irene's Corner

TOPO