Judul Program : Ramalan Sifat Zodiak
Program ramalan ini memiliki tampilan dan fungsi yang sangat sederhana sekali. Dengan satu form utama yang berisi menu untuk memasukkan nama dan tanggal lahir, program ini dapat menampilkan zodiac dan sifat yang terkandung dalam zodiac tersebut. Kelebihan program ini yaitu bisa dengan mudah memasukkan nama atau tanggal lahir dan secara langsung bisa mengenal zodiac . Namun kekurangannya masih banyak fitur-fitur atau kalimat-kalimat yang belum sempurna.
Adapun tampilan utama program ini dapat dilihat pada gambar 1 di bawah ini:
Gambar. 1
Dan tampilan ketika sudah dijalankan dapat dilihat pada gambar 2 dibawah ini:
Gambar.2
Listing……
unit UZODIAK;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TFZODIK = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FZODIK: TFZODIK;
implementation
uses UZODIAKF2;
{$R *.dfm}
procedure TFZODIK.Button1Click(Sender: TObject);
var tgl,bln,thn: real;
begin
FZODIK2.Show;
begin
FZODIK2.Edit2.Text:=(Edit1.Text); //menampilkan nama di form2
FZODIK2.Edit3.Text:=(Edit2.Text); //menampilkan tgl di form 2
FZODIK2.Edit4.Text:=(Edit3.Text); //menampilkan bln di form 2
FZODIK2.Edit5.Text:=(Edit4.Text); //menampilkan thn di form 2
end;
begin
tgl:= StrToInt(Edit2.Text);
bln:= StrToInt(Edit3.Text);
thn:= StrToInt(Edit4.Text);
if (tgl>=20) and (tgl<=31) and (bln=1) then
begin
FZODIK2.Edit1.Text :='AQUARIUS';
FZODIK2.sifat.Text :='Umum: Hasilnya akan kurang maksimal jika Anda melakukan pekerjaan tanpa konsep jelas. Buat jadwal pekerjaan yang tersusun rapi dan kerjakan perlahan-lahan karena akan mempermudah dan mempercepat pekerjaan. Jangan sampai Anda kena sasaran amarah atasan. '
end;
if (tgl>=1) and (tgl<=18) and (bln=2) then
begin
FZODIK2.Edit1.Text :='AQUARIUS';
FZODIK2.sifat.Text :='Umum: Hasilnya akan kurang maksimal jika Anda melakukan pekerjaan tanpa konsep jelas. Buat jadwal pekerjaan yang tersusun rapi dan kerjakan perlahan-lahan karena akan mempermudah dan mempercepat pekerjaan. Jangan sampai Anda kena sasaran amarah atasan. '
end;
if (tgl>=21) and (tgl<=31) and (bln=3) then
begin
FZODIK2.Edit1.Text :='ARIES (21 Maret–19 April)';
FZODIK2.sifat.Text :='Cinta: Tanpa disadari Anda kangen dengan canda tawanya. Sepertinya Anda terlalu cepat memutuskan hubungan. Semestinya setiap langkah Anda dipertimbangkan dengan matang.'
end;
if (tgl>=1) and (tgl<=19) and (bln=4) then
begin
FZODIK2.Edit1.Text :='ARIES (21 Maret–19 April)';
FZODIK2.sifat.Text :='Cinta: Tanpa disadari Anda kangen dengan canda tawanya. Sepertinya Anda terlalu cepat memutuskan hubungan. Semestinya setiap langkah Anda dipertimbangkan dengan matang.'
end;
if (tgl>=22) and (tgl<=31) and (bln=11) then
begin
FZODIK2.Edit1.Text :='SAGITARIUS (22 November–21 Desember)';
FZODIK2.sifat.Text :='Umum: Dalam karier, Anda akan disibukkan dengan berbagai macam pekerjaan. Selesaikan dengan cepat dan efisien. Anda juga akan bekerja sama dengan sekumpulan orang. Pastikan tidak ada yang terabaikan. '
end;
if (tgl>=1) and (tgl<=21) and (bln=12) then
begin
FZODIK2.Edit1.Text :='SAGITARIUS (22 November–21 Desember)';
FZODIK2.sifat.Text :='Umum: Dalam karier, Anda akan disibukkan dengan berbagai macam pekerjaan. Selesaikan dengan cepat dan efisien. Anda juga akan bekerja sama dengan sekumpulan orang. Pastikan tidak ada yang terabaikan. '
end;
if (tgl>=22) and (tgl<=31) and (bln=12) then
begin
FZODIK2.Edit1.Text :='CAPRICORN (22 Desember–19 Januari)';
FZODIK2.sifat.Text :='Cinta: Perlu Anda ketahui cinta yang selama ini diharapkan ternyata tidak berbuah. Tampaknya, Anda perlu memberi perhatian lebih padanya. '
end;
if (tgl>=1) and (tgl<=19) and (bln=1) then
begin
FZODIK2.Edit1.Text :='CAPRICORN (22 Desember–19 Januari)';
FZODIK2.sifat.Text :='Cinta: Perlu Anda ketahui cinta yang selama ini diharapkan ternyata tidak berbuah. Tampaknya, Anda perlu memberi perhatian lebih padanya. '
end;
if (tgl>=19) and (tgl<=31) and (bln=2) then
begin
FZODIK2.Edit1.Text :='PISCES (19 Februari–20 Maret)';
FZODIK2.sifat.Text :='Cinta: Jangan mengumbar janji yang Anda sendiri masih ragu untuk merealisasikan. Berikan si dia kepastian'
end;
if (tgl>=1) and (tgl<=20) and (bln=3) then
begin
FZODIK2.Edit1.Text :='PISCES (19 Februari–20 Maret)';
FZODIK2.sifat.Text :='Cinta: Jangan mengumbar janji yang Anda sendiri masih ragu untuk merealisasikan. Berikan si dia kepastian '
end;
if (tgl>=20) and (tgl<=31) and (bln=4) then
begin
FZODIK2.Edit1.Text :='TAURUS (20 April–20 Mei)';
FZODIK2.sifat.Text :='Umum: Kembalikan semangat kerja Anda. Soal kesehatan, hati-hati mengalami gangguan pencernaan'
end;
if (tgl>=1) and (tgl<=20) and (bln=5) then
begin
FZODIK2.Edit1.Text :='TAURUS (20 April–20 Mei)';
FZODIK2.sifat.Text :=' Umum: Kembalikan semangat kerja Anda. Soal kesehatan, hati-hati mengalami gangguan pencernaan'
end;
if (tgl>=21) and (tgl<=31) and (bln=1) then
begin
FZODIK2.Edit1.Text :='GEMINI (21 Mei–21 Juni)';
FZODIK2.sifat.Text :='Cinta: Anda mengharapkan pria incaran menjadi milik Anda. Ungkapkan perasaan lewat sikap terhadapnya. Berikan perhatian-perhatian kecil agar si dia tahu isi perasaan Anda. '
end;
if (tgl>=1) and (tgl<=21) and (bln=6) then
begin
FZODIK2.Edit1.Text :='GEMINI (21 Mei–21 Juni)';
FZODIK2.sifat.Text :='Cinta: Anda mengharapkan pria incaran menjadi milik Anda. Ungkapkan perasaan lewat sikap terhadapnya. Berikan perhatian-perhatian kecil agar si dia tahu isi perasaan Anda. '
end;
if (tgl>=22) and (tgl<=31) and (bln=6) then
begin
FZODIK2.Edit1.Text :='CANCER (22 Juni–22 Juli)';
FZODIK2.sifat.Text :='Cinta: Cinta berawal dari senyuman, tumbuh bersemi, namun sering kali berakhir dengan airmata. Agar hubungan bisa langgeng, nyalakan kembali kemesraan dengan sering menghabiskan waktu berdua. '
end;
if (tgl>=1) and (tgl<=22) and (bln=7) then
begin
FZODIK2.Edit1.Text :='CANCER (22 Juni–22 Juli)';
FZODIK2.sifat.Text :='Cinta: Cinta berawal dari senyuman, tumbuh bersemi, namun sering kali berakhir dengan airmata. Agar hubungan bisa langgeng, nyalakan kembali kemesraan dengan sering menghabiskan waktu berdua. '
end;
if (tgl>=22) and (tgl<=31) and (bln=7) then
begin
FZODIK2.Edit1.Text :='LEO (22 Juli–22 Agustus)';
FZODIK2.sifat.Text :='Cinta: Meski hubungan sudah di ujung tanduk, sebaiknya pertimbangkan secara matang sebelum memutuskan hubungan.'
end;
if (tgl>=1) and (tgl<=22) and (bln=8) then
begin
FZODIK2.Edit1.Text :='LEO (22 Juli–22 Agustus)';
FZODIK2.sifat.Text :='Cinta: Meski hubungan sudah di ujung tanduk, sebaiknya pertimbangkan secara matang sebelum memutuskan hubungan.'
end;
if (tgl>=22) and (tgl<=31) and (bln=8) then
begin
FZODIK2.Edit1.Text :='VIRGO (22 Agustus–22 September)';
FZODIK2.sifat.Text :='Cinta: Bila si dia sudah tak memberi respons positif, sebaiknya Anda mundur. Jangan khawatir masih banyak pria lain yang yang bersedia menerima cinta Anda.'
end;
if (tgl>=1) and (tgl<=22) and (bln=9) then
begin
FZODIK2.Edit1.Text :='VIRGO (22 Agustus–22 September)';
FZODIK2.sifat.Text :='Cinta: Bila si dia sudah tak memberi respons positif, sebaiknya Anda mundur. Jangan khawatir masih banyak pria lain yang yang bersedia menerima cinta Anda. '
end;
if (tgl>=23) and (tgl<=31) and (bln=9) then
begin
FZODIK2.Edit1.Text :='LIBRA (23 September–22 Oktober)';
FZODIK2.sifat.Text :='Cinta: Cinta Anda bertepuk sebelah tangan. Hati si dia sudah menjadi milik orang lain. Jika kesal di kantor sebaiknya jangan mengeluh terus-menerus. '
end;
if (tgl>=1) and (tgl<=22) and (bln=10) then
begin
FZODIK2.Edit1.Text :='LIBRA (23 September–22 Oktober)';
FZODIK2.sifat.Text :='Cinta: Cinta Anda bertepuk sebelah tangan. Hati si dia sudah menjadi milik orang lain. Jika kesal di kantor sebaiknya jangan mengeluh terus-menerus. '
end;
if (tgl>=23) and (tgl<=31) and (bln=10) then
begin
FZODIK2.Edit1.Text :='SCORPIO (23 Oktober–21 November)';
FZODIK2.sifat.Text :='Cinta: Lama-kelamaan Anda mulai merasa jenuh dengan hubungan yang tak pasti. Maka itu, sebelum ada yang sakit hati sebaiknya cari kejelasan hubungan. Anda tak sengaja menyeret taman ke masalah pribadi Anda '
end;
if (tgl>=1) and (tgl<=21) and (bln=11) then
begin
FZODIK2.Edit1.Text :='SCORPIO (23 Oktober–21 November)';
FZODIK2.sifat.Text :='Cinta: Lama-kelamaan Anda mulai merasa jenuh dengan hubungan yang tak pasti. Maka itu, sebelum ada yang sakit hati sebaiknya cari kejelasan hubungan. Anda tak sengaja menyeret taman ke masalah pribadi Anda '
end;
end;
end;
procedure TFZODIK.Button3Click(Sender: TObject);
begin
if MessageBox(Handle,'Mau Keluar?','konfirmasi',
MB_ICONINFORMATION + MB_YESNO)=mryes then
begin
close;
end;
end;
procedure TFZODIK.Button2Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit1.SetFocus;
end;
end.
Kritik / Saran
Kritik dan saran sangat-sangat saya harapkan untuk memperbaiki kesalahan yang terdapat dalam program ini. Saya sangat berharap jika ada listing program yang lebih singkat atau simple untuk program ramalan bintang dengan menggunakan Delphi.
Keluhan saya saat ini adalah saya tidak bisa menggunakan DateTimePicker untuk program ini.
Email saya : amryagus@yahoo.co.id
Agus amri
Jurusan: Sistem komputer Stmik Handayani Makassar
Terima kasih