Membuat Dialog Killer dengan Delphi 7.0

Membuat Dialog Killer dengan Delphi 7.0 Taufik Adi S [email protected] http://www.kaya-syariah.blogspot.com

Lisensi Dokumen: Copyright © 2003-2007 IlmuKomputer.Com Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.

Dialog killer adalah sebuah aplikasi yang mampu menutup sebuah kotak dialog secara otomatis. Biasanya dimanfaatkan untuk menutup kotak dialog yang ditampilkan oleh sebuah program tertentu terkait pesan kesalahan, peringatan dan sebagainya. Aplikasi sederhana ini dapat digunakan bagi kita yang tentunya kurang senang melakukan suatu pekerjaan yang sama secara berulang. Hal seperti ini (baca: melakukan suatu pekerjaan yang sama secara berulang), mungkin bukanlah merupakan masalah ketika dilakukan sebanyak 1x,2x,3x, sampai 20x. Namin bagaimana jika kita harus melakukannya 100x, 1000x atau mungkin malah lebih.? Dialog Killer adalah sebuah solusi.

Pendahuluan Apakah dialog killer itu? Dialog killer adalah sebuah aplikasi yang mampu menutup sebuah kotak dialog secara otomatis, sebagai contoh adalah kotak dialog sebagai berikut:

Gambar 1. Kotak dialog Ketika sebuah kotak dialog seperti diatas ditampilkan berkali-kali tentu akan sangat merepotkan sekali jika harus menutupnya dengan menekan tombol OK yang disediakan. Satu kali kotak dialog ditampilkan tidak akan menjadi masalah namun jika kotak dialog tersebut ditampilkan 1000 kali apakah kita akan sanggup untuk menutupnya? Tentu saja tidak kan? Untuk itulah perlu dibuat sebuah aplikasi sederhana untuk menutup kotak dialog tersebut. Aplikasi ini disebut dengan “Dialog Killer”.

Komunitas eLearning IlmuKomputer.Com Copyright © 2003-2007 IlmuKomputer.Com

1

Lets start !!!

Langkah-langkah membuat Dialog Killer 1. Buka Delphi 7.0 2. Masukkan komponen sebagai berikut: No Komponen Properti 1

2

3

4

5

Button1

Button2

Edit1

Label1

Timer1

Nilai

Caption

Non Aktifkan Dialog Killer

Name

BtnNonAktif

Caption

Aktifkan Dialog Killer

Name

BtnAktif

Caption

-

Name

EdText

Name

LblKet

Caption

Kondisi Dialog Killer

Enabled

False

3. Atur desain tamplan program menjadi sebagai berikut:

Gambar 2. Desain tampilan dialog killer. 4. Kemudian masukkan source code sebagai berikut pada masing-masing komponen yang disebutkan dalam tabel di bawah ini: No. Nama Komponen 1 BtnNonaktif 2

Btnaktif

Source Code timer1.Enabled:=false; lblket.Caption:='Dialog killer non aktif'; timer1.Enabled:=true;


2

3

Timer1

4

Form1

LblKet.Caption:='Dialog killer aktif' ; hwnd := FindWindow(nil, pChar(edText.Text)); application.ProcessMessages; PostMessage(hWnd,WM_KEYDOWN,VK_RETURN,1); application.ProcessMessages; var i :integer; begin Lblket.Caption:=' Dialog killer non aktif ' ; Form1.Caption:=ParamStr(0); for i := 1 to ParamCount do begin if lowercase(paramstr(i))= 'exit' then Application.Terminate else if paramstr(i)<>'' then Edtext.Text:=paramstr(i); end; end;

5. Kemudian eksekusi program, hasilnya adalah sebagai berikut

Gambar 3. Dialog Killer dalam kondisi nonaktif dan aktif Contoh penggunaan dialog Killer adalah sebagai berikut : 1. Ada sebuah kotak dialog yang ditampilkan di monitor dengan nama SWKendali

Gambar 4. Muncul kotak dialog dengan nama Swkendali


3

2. Aktifkan dialog killer untuk menutup kotak dialog dengan nama Swkendali

Gambar 5. Mengaktifkan Dialog Killer 3. Secara otomatis kotak dialog Swkendali yang ditampilkan akan langsung tertutup. 4. Hehehe ada versi tampilan menarik dari dialog killer yang tadi dibuat lho

Gambar 6. Modifikasi Dialog Killer

Penutup Sekian tulisan saya yang berjudul “Membuat Dialog Killer dengan Delphi 7.0”. Silakan baca tulisan saya di IlmuKomputer.com sebagai berikut:

1. “Kirim dan terima SMS di Hand Phone Nokia dengan Mudah menggunakan komponen Oxygen SMS pada Delphi7.0” 2. “Mengakses database Access dengan Delphi 7.0” 3. “Membuat report pada Delphi 7.0 menggunakan komponen Rave Report” 4. “Mengakses port parallel PC dengan Delphi 7.0 menggunakan komponen Small Port” 5. “Cara Instalasi komponen Oxygen SMS pada Delphi 7.0” 6. “Cara Instalasi komponen Small Port pada Delphi 7.0” 7. “Cara Mempercantik tampilan Program yag dibuat dengan Visual Basic menggunakan komponen VB Skinner Pro” 8. “Mempercantik tampilan Program yag dibuat dengan Delphi 7.0 menggunakan Komponen Suipack” 9. “Membuat Web sederhana dengan Joomla”

Referensi


4

Zakaria, Teddy Marcus, Joseph Widiadhi. 2006. Membangun Aplikasi SMS Untuk Berbagai Keperluan,Bandung: Penerbit Informatika.

Biografi Penulis Taufik Adi S. Numpang lahir di Garut, Jawa Barat. Dibesarkan di Kulon Progo. Saat ini tinggal di Bantul. sedang dalam proses menyelesaikan S1 Jurusan Pendidikan Teknik Elektro Universitas Negeri Yogyakarta. Konsentrasi Study yang diambil adalah Kendali Industri. Salah satu alumni angkatan 2006 SMA Negeri 2 Wates Kulon Progo, yang pernah memiliki prestasi cukup membanggakan bagi sekolah saat itu. Kegiatan yang dilakukan saat ini adalah bermainmain dengan bahasa Pemrograman Delphi (khususnya Akses Port Paralel PC, Database dan Reporting, Akses SMS pada HP) Pernah juga sedikit belajar tentang Visual Basic, serta bahasa C. serta sedikit belajar pengembangan web sederhana dengan Joomla (Open Source) Hobi menulis artikel singkat, membaca buku , serta olah raga (Bela diri). Aktif di beberapa kegiatan Kampus serta kegiatan sosial sebagai sarana pengembangan diri.


5

Membuat Dialog Killer dengan Delphi 7.0

Recommend Documents