Jumpa lagi gan…..
Kali ini aku akan
sharing nih…. Aplikasi “PROGRAM PENCARI TAHUN KABISAT” dengan menggunakan
Delphi.
Langsung aja gan buka
program Borland Delphi 7. Kalo gak punya silahkan tanya om google deh….
He… 10rbx
Buka program Borland
Delhi 7. Buat desain form kayak gini :
Atur komponen dari form diatas dengan properties seperti dibawah ini :
Properties tidak harus seperti diatas. Bisa agan2 ganti sendiri sesuai selera.
Klik tombol Tambah.
Masukkan script dibawah ini :
procedure
TForm1.btntambahClick(Sender: TObject);
var
i,a,b:integer;
tahun:
array[1..10] of string;
s:string;
begin
s:=inputbox('Input
Data','Masukkan Jumlah Masukan (Max 10) : ','');
b:=0;
for i:=1 to
strtoint(s) do
begin
tahun[i]:=inputbox('Tahun
Ke : '+inttostr(i),'Masukkan Tahun','');
LBtahun.Items.Add(tahun[i]);
tdata.Text:=inttostr(LBtahun.Items.Count);
a:=strtoint(tahun[i]);
if a mod 4=0
then b:=b+1
else b:=b;
tkabisat.Text:=inttostr(b);
end;
end;
Klik Tombol Bersih.
Masukkan script dibawah ini :
procedure
TForm1.btnbersihClick(Sender: TObject);
begin
LBtahun.Clear;
tdata.Clear;
tkabisat.Clear;
end;
Klik Tombol Keluar.
Masukkan script dibawah ini :
procedure
TForm1.btnkeluarClick(Sender: TObject);
begin
close;
end;
Selesai deh.......
Klik Run atau tekan F9 di keyboard. Maka inilah tampilan awal programnya :
Klik Tambah. Maka akan muncul tampilan seperti dibawah ini :
Masukkan Jumlah data masukan (Max 10). Misalkan 4. Klik OK. Maka akan muncul tampilan seperti dibawah ini :
Masukkan Tahun Ke : 1. Misalkan 2008. Klik OK.
Kemudian Masukkan Tahun Ke : 2 dan seterusnya sampai 4. Kemudian klik OK
Dan inilah hasil pencarian tahun kabisatnya :
Bagaimana Gan???? Keren Khan....................
Selamat Mencoba dan semoga bermanfaat. Jangan lupa tinggalkan komentar dibawah.
Oke................
Sampai Jumpa di postingan selanjutnya.
