Archive for the ‘Delphi’ Category

Kali ini saya akan mengajak kamu membuat program sederhana yang berfungsi untuk mengetahui posisi kursor dengan menggunakan Delphi.

 

1. Buat project baru dengan mengklik File > New > Application

 

2. Kemudian muncul sebuah Form baru

 

3. Letakkan 1 buah GroupBox, 1 buah Label, dan 1 buat Timer. Lalu kamu atur posisinya menjadi seperti gambar dibawah

 

4. Selanjutnya ubah Caption dari GroupBox1 menjadi ‘Posisi Kursor’, Caption Label1 menjadi ‘(0, 0)’, dan Interval Timer1 menjadi ‘10

 

 

 

5. Klik dua kali pada Timer1, dan kamu ketikkan kode berikut. Jangan lupa untuk menambahkan sebuah variable yaitu CurPos dengan tipe TPoint

 

 

6. Kemudian jalankan program dengan cara mengklik Run > Run pada menu utama delphi atau dengan menekan F9 pada keyboard kamu

 

Dibawah ini adalah tampilan setelah program dijalankan

 

Selamat mencoba..

 

 

Free Cd | Dating Friends | sk8ter | Free Gadgets

 

Iklan

Adakalanya pada suatu saat kita lupa akan sesuatu, misalkan lupa menonton acara televisi kesukaan kita dikarenakan terlalu asik mengotak-atik komputer, baik karena main game, mengerjakan tugas, atau hanya sekedar iseng. Tapi hal sepele seperti itu kadang membuat kita sangat kesal, maka dari itu mari kita membuat program aplikasi untuk menghindari kesalahan seperti diatas. Program yang akan dibuat cukup sederhana tapi semoga dapat bermanfaat, dan program tersebut kita beri nama ‘Alarm Pengingat’.

 

1. Buat aplikasi baru dengan cara klik File | New | Application pada menu utama Delphi.

 

2. Kemudian muncul form baru.

 

3. Ubah beberapa properti dari Form tersebut.

 

4. Letakkan 2 buah komponen TGroupBox pada FrmUtama.

 

5. Ubah beberapa properti dari GroupBox1.

 

6. Ubah beberapa properti dari GroupBox2.

 

7. Tambahkan 1 buah TLabel pada GroupBox1 dan 2 buah TLabel pada GroupBox2.

 

8. Ubah beberapa properti dari Label1.

 

9. Ubah beberapa properti dari Label2.

 

10. Ubah beberapa properti dari Label3.

 

11. Tambahkan 1 buah komponen TDateTimePicker dan 1 buah komponen TMemo pada RadioGroup2.

 

12. Ubah beberapa properti dari DateTimePicker1.

 

13. Ubah beberapa properti dari Memo1.

 

14. Tambahkan 2 buah komponen TButton pada FrmUtama.

 

15. Ubah beberapa properti dari Button1.

 

16. Ubah beberapa properti dari Button2.

 

17. Tambahkan 2 buah komponen TTimer pada FrmUtama.

 

18. Double Click Events OnShow dari FrmUtama.

 

19. Kemudian ketikkan kode program berikut.

 

20. Double Click Events OnTimer dari Timer1.

 

21. Kemudian ketikkan kode program berikut.

 

22. Double Click Events OnTimer dari Timer2.

 

23. Kemudian ketikkan kode program berikut.

 

24. Double Click Events OnClick dari BtnKeluar.

 

25. Kemudian ketikkan kode program berikut.

 

26. Double Click Events OnClick dari BtnAktifkan.

 

27. Kemudian ketikkan kode program berikut.

 

28. Buat Form baru dengan cara Klik | New | Form pada menu utama Delphi.

 

29. Kemudian muncul form baru.

 

30. Ubah beberapa properti dari Form tersebut.

 

31. Tambahkan 1 buah komponen TMemo pada FrmPesan.

 

32. Ubah beberapa properti dari Memo1.

 

33. Simpan aplikasi dengan cara klik File | SaveProjectAs pada menu utama Delphi.

 

34. Kemudian muncul kotak dialog Save As.

 

35. Beri nama ‘UAlarmPengingat’ untuk nama unit FrmUtama.

 

36. Beri nama ‘Unit2’ untuk nama unit FrmPesan.

 

37. Beri nama ‘AlarmPengingat’ untuk nama project.

 

38. Jalankan aplikasi dengan menekan F9 atau klik Run | Run pada menu utama delphi.

 

39. Berikut adalah tampilan aplikasi ‘Alarm Pengingat’ setelah dijalankan.

 

 

 

Cara kerja aplikasi ‘Alarm Pengingat’

 

 

Free Cd | Dating Friends | sk8ter | Free Gadgets

Anda pasti sangat kesal dan marah ketika adik atau teman anda membaca diary atau catatan anda yang sifatnya sangat pribadi dan rahasia, dan itu sangat wajar anda lakukan karena setiap orang memiliki sisi yang tidak ingin diketahui oleh orang lain. Tetapi anda tidak bisa sepenuhnya menyalahkan orang tersebut jika hanya karena keteledoran anda menyimpan diary atau catatan anda secara sembarangan.

Untuk mencegah hal tersebut mari kita membuat program sederhana yang kita beri nama ‘Catatan Rahasia’, yaitu sebuah program untuk menyimpan catatan-catatan anda yang diproteksi dengan password dan enkripsi.

Pertama-tama kita akan membuat Form Login, form ini yang akan muncul pertama-kali ketika program dijalankan dan meminta anda untuk memasuk-kan password. Jika password yang dimasukkan salah maka anda tidak bisa menuju form berikutnya, sebaliknya jika password yang anda masukkan benar maka anda akan dibawa menuju form berikutnya yang berisi catatan pribadi anda.

 

1. Untuk tahap yang pertama kita akan membuat tampilan Form Login, buat aplikasi baru dengan cara klik File | New | Application pada menu utama Delphi.

 

2. Kemudian muncul form baru yang masih kosong.

3. Ubah beberapa properti dari Form tersebut.

 

4. Tambahkan 1 buah komponen TLabel, 1 buah TEdit, dan 2 buah TButton kemudian atur posisinya seperti pada gambar berikut. Semua komponen tersebut ada pada Tab Standard.

 

5. Ubah beberapa properti dari Label1.

 

6. Ubah beberapa properti dari Edit1.

 

7. Ubah beberapa properti dari Button1.

 

8. Ubah beberapa properti dari Button2.

 

Pembuatan tampilan untuk Form Login telah selesai, sekarang kita menuju ke tahap selanjutnya yaitu menambahkan kode-kode program pada Form Login agar dapat berfungsi sebagaimana mestinya.

 

9. Double Click Events OnShow dari FrmLogin.

 

10. Kemudian ketikkan kode program berikut.

 

11. Double Click Events OnClick dari BtnKeluar.

 

12. Double Click Events OnClick dari BtnLogin.

 

Setelah semua kode program untuk Form Login selesai diketikkan kemu-dian simpan program dengan cara klik File | SaveProjectAs pada menu utama Delphi.

 

Kemudian muncul kotak dialog Save Unit As.

 

Kemudian muncul kotak dialog Save Project As.

 

Pada tahap berikutnya kita akan membuat Form Catatan yaitu form untuk menyimpan dan membaca catatan rahasia anda.

 

13. Buat Form baru dengan cara Klik | New | Form pada menu utama Delphi.

 

14. Kemudian muncul form baru yang masih kosong.

 

15. Ubah beberapa properti dari Form tersebut.

 

16. Tambahkan 1 buah komponen TPanel, 1 buah TMemo, dan 2 buah TButton kemudian atur posisinya seperti pada gambar berikut.

 

17. Ubah beberapa properti dari Panel1.

 

18. Ubah beberapa properti dari Memo1.

 

19. Ubah beberapa properti dari Button1.

 

20. Ubah beberapa properti dari Button2.

 

Setelah tampilan untuk Form Catatan telah selesai, sekarang kita menuju ke tahap selanjutnya yaitu menambahkan kode-kode program pada Form Catatan.

 

21. Double Click Events OnClick dari BtnKeluar.

 

22. Kemudian ketikkan kode program berikut.

 

23. Buat 2 buah Fungsi dengan nama Enkripsi dan Dekripsi.

 

Fungsi Enkripsi berguna untuk mengacak isi dari catatan-catatan anda, sedangkan Fungsi Dekripsi sebaliknya yaitu untuk mengembalikan isi catatan yang diacak sehingga dapat dibaca.

 

24. Double Click Events OnShow dari FrmCatatan.

 

25. Kemudian ketikkan kode program berikut.

 

26. Double Click Events OnClick dari BtnSave.

 

27. Setelah semua kode program untuk Form Catatan selesai diketikkan kemudian simpan program dengan cara klik File | Save pada menu utama Delphi.

 

Kemudian muncul kotak dialog Save Unit As.

 

28. Sebelum menjalankan program, buka windows explorer menuju folder tempan anda menyimpan project ini, dan buat sebuah file dengan nama ‘catatan.txt’.

 

File ini digunakan untuk menyimpan semua catatan rahasia anda.

 

29. Jalankan program dengan menekan F9 atau klik Run | Run pada menu utama delphi.

 

Untuk pertama-kalinya ketika program dijalankan maka akan muncul kotak dialog seperti dibawah ini, maka yang anda harus lakukan adalah meng-klik tombol ‘Yes’.

 

Berikut adalah cara kerja program ‘Catatan Rahasia’.

 

Jika password yang anda masukkan benar maka akan muncul Form Catatan

 

Coba anda ketikkan suatu kata pada Form Catatan kemudian klik tombol ‘Save’ dan lihat hasilnya pada file ‘catatan.txt’.

 

Selamat Mencoba..

 

Free Cd | Dating Friends | sk8ter | Free Gadgets

Komputer anda tetap menyata semalaman dan anda tertidur lelap!!, kini hal tersebut tidak akan terjadi lagi. Untuk mengatasinya mari kita membuat program yang akan mematikan komputer anda secara otomatis meskipun anda tiba-tiba tertidur, dan program tersebut kita beri nama ‘Auto Shutdown’.

1. Buat aplikasi baru dengan cara klik File | New | Application pada menu utama Delphi.

2. Kemudian muncul form baru.

3. Ubah beberapa properti dari Form tersebut.

4. Tambahkan 1 buah TLabel pada FrmUtama.

5. Ubah beberapa properti dari Label1.

6. Tambahkan 1 buah komponen TDateTimePicker pada FrmUtama.

7. Ubah beberapa properti dari DateTimePicker1.

8. Tambahkan 2 buah komponen TButton pada FrmUtama.

9. Ubah beberapa properti dari Button1.

10. Ubah beberapa properti dari Button2.

11. Tambahkan 1 buah komponen TTimer pada FrmUtama.

12. Double Click Events OnShow dari FrmUtama.

13. Kemudian ketikkan kode program berikut.

14. Double Click Events OnClick dari BtnKeluar.

15. Kemudian ketikkan kode program berikut.

16. Double Click Events OnClick dari BtnAktifkan.

17. Kemudian ketikkan kode program berikut.

18. Double Click Events OnTimer dari Timer1.

19. Kemudian ketikkan kode program berikut.

20. Simpan aplikasi dengan cara klik File | SaveProjectAs pada menu utama Delphi.

21. Kemudian muncul kotak dialog Save As.

22. Beri nama ‘UAutoShutdown’ untuk nama unit FrmUtama.

23. Beri nama ‘AutoShutdown’ untuk nama project.

24. Jalankan aplikasi dengan menekan F9 atau klik Run | Run pada menu

utama delphi.

25. Berikut adalah tampilan aplikasi ‘Auto Shutdown’ setelah dijalankan.

Cara kerja aplikasi ‘Alarm Pengingat’

 

Free Cd | Dating Friends | sk8ter | Free Gadgets