API Text Viewer - part 2

Yoohow.. Akhirnya datang juga mood (baca: mut) untuk melanjutkan blog mengenai API Text Viewer. Kalau dihitung jarak lamanya masa tenggang antar blog pertama dan lanjutannya ini cukup panjang juga. Bayangkan blog pertama saya buat pada tanggal 11 Januari 2008 dan sekarang ( 2 Februari 2008) baru dilanjutkan, yah...hampir 1 bulan lamanya. :) Bukan maksud malas atau ingin menunda-nunda, melaikan mood (baca lagi: mut) -nya baru datang saat sekarang ini he he - *berdalih*. Oke langsung saja...

Pada blog sebelumnya saya telah jelaskan bagaimana cara mengaktifkan tool API Viewer di IDE (Integrated Development Environtment) Visual Basic 6.0. Nah, pada blog ini saatnya kita tau cara menggunakannya (khususnya bagi anda yang belum tahu... :) .

Baiklah... Asumsikan bahwa kita telah mengaktifkan tool ATV (API Text Viewer) pada lingkungan IDE VB (Visual Basic) dan juga telah me-Load daftar fungsi, type, dan konstanta API.

Sekarang, asumsikan bahwa kita akan membuat sebuah prosedur (Sub) untuk membuka Optical Drive (CD-ROM) dengan mempergunakan salah satu fungis API yakni mciSendString. Perhatikan langkah -langkahnya:

1. Buat sebuah project baru (Standart EXE) dan tambahkan 1 (satu) buah Command Button pada form project anda, berinama cmdOpen.
2. Pada jendela ATV, pastikan anda memilih "Declares" pada Combobox API Type.
3. Tentukan Declare Scope-nya yakni "Public" atau "Private". Untuk semetara ini pilihlah "Private".
   
4. Ketik mciSendString pada Textbox yang bertuliskan "Type the first view letters of the words you are looking for :" diatasnya.
5. Nama fungsi tersebut akan tampil dalam keadaan tersorot pada Listbox "Available Items", kemudian klik-ganda nama fungsi tersebut.
6. Bentuk umum deklaraasi fungsi yang kita inginkan akan tampil pada Textbox "Selected Items", kemudian klik tombol Copy atau klik tombol Clear untuk membersihkan Textbox tersebut (membatalkan).
7. Kembalilah ke jendela project anda, buka code editor untuk form anda, arahkan pointer mouse ke baris paling atas code editor tersebut kemudian Paste (tekan Shift+Insert) disana.

Bentuk deklarasi fungsi API yang tadi kita copy akan muncul disini. Nah, sampai disini kita telah mengetahui cara menggunakan tool ATV. Tugas selanjutnya ialah tinggal memanggil fungsi tersebut dari event yang anda inginkan. Contoh:

Kembali ke modus grafik (GUI : Graphic User Interface) form anda, klik-ganda pada Command Button cmdOpen. Masukan perintah dibawah ini pada sub (prosedur) yang terbentuk secara otomatis :

Dim x as Long, retStr as String
x = mciSendString("Set CDAudio Door Open", retStr, 128, 0)

Sehingga menjadi :

Private Sub cmdOpen_Click()
Dim x as Long, retStr as String
x = mciSendString("Set CDAudio Door Open", retStr, 128, 0)
End Sub

Untuk mencoba apakah fungsi API berjalan dengan lancar, lakukan pengetesan dengan menekan F5 pada keyboard, lalu klik tombol tersebut. Jika Drive Optik (CD ROM) komputer anda terbuka maka anda telah berhasil.

Nah, begitulah kira-kira cara menggunakan tool ATV berikut menggunakan fungsi API-nya. Semoga bermanfaat.....


Salam


xpartacvs