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’
0 komentar:
Posting Komentar