Pencarian Tahun Kabisat Pada Suatu Data Dengan Delphi 7

 Selamat Siang Uhti...

Kali Ini saya akan membuat Tutorial "Pencarian Tahun Kabisat Pada Suatu Data Dengan Delphi 7" sebagai tugas Untuk UAS saya nich...

Oke langsung saja tutorial dari saya ... Let's Go Go!!!!

*Pengertian
Tahun Kabisat adalah Tahun Syamsiah dimana pada tahun tersebut jumlah hari tidak terdiri dari 365 hari tetapi 366 hari. Setiap 4 tahun sekali diberi ekstra 1 hari ekstra: 29 Februari. Maka tahun-tahun yang bisa di bagi 100 ( seperti tahun 1990 ) bukan tahun kabisat, kecuali bisa dibagi dengan 400 (seperti tahun 2000).
Terdapat algoritma mudah untuk menentukan apakah suatu tahun termasuk tahun kabisat atau bukan :

1. Jika angka tahun itu habis dibagi 400, maka tahun itu sudah pasti tahun kabisat.
2. Jika angka tahun itu tidak habis dibagi 400 tetapi habis dibagi 100, maka tahun itu sudah pasti bukan merupakan tahun kabisat. 
3. Jika angka tahun itu tidak habis dibagi 400, tidak habis dibagi 100 akan tetapi habis dibagi 4, maka tahun itu merupakan tahun kabisat.
4. Jika angka tahun tidak habis dibagi 400, tidak habis dibagi 100, dan tidak habis dibagi 4, maka tahun tersebut bukan merupakan tahun kabisat.

Untuk membuat program menghitung jumlah tahun kabisat suatu data menggunakan operasi modulo ( sisa dari pembagian ). Langkah-Langkahnya sebagai berikut kawan !!

1. Install dulu program delphi 7 anda

2. kemudian buka borland delphi 7 kalian sobat

3. lalu buat form seperti dibawah ini

Kemudian atur propertiesnya seperti ini:

Nama	Propertis	keterangan
Form1	Caption	Fauzani Ikrimannisa  ( 112222033 )
Button1	Caption	Input
Button2	Caption	Clear
Button3	Caption	Keluar
Label1	Caption	Data Tahun
Label2	Caption	Jumlah Data
Label3	Caption	Jumlah Tahun Kabisat
Label4	Caption	Tekan Tombol Input Untuk Mulai..!!!
Edit1	Text	Dikosongkan
Edit2	Text	Dikosongkan
ListBox1	-	-

4. Selanjutnya ikuti langkah berikut :

tekan dua kali button1 (Input) dan isikan script dibawah ini :

procedure TForm1.BTInputClick(Sender: TObject);

var

i,a,t:integer;

tahun:array[1..10] of string;

s:string;

begin

s:=inputbox(‘Input Data’,'Masukkan Jumlah Tahun : ‘,’0’);

t:=0;

for i:=1 to strtoint(s) do

begin

tahun[i]:=inputbox(‘Tahun Ke : ‘+inttostr(i),’Masukkan Tahun’,’’);

ListBox1.Items.Add(tahun[i]);

edit1.Text:=inttostr(ListBox1.Items.Count);

a:=strtoint(tahun[i]);

if a mod 4=0

then t:=t+1

else t:=t+0;

edit2.Text:=inttostr(t);

end;

end;

Lalu tekan button2 (Clear) dan isikan scriptnya dibawah ini :

procedure TForm1.BTClearClick(Sender: TObject);
begin
ListBox1.Clear;
edit1.Text:=”;
edit2.Text:=”;
end;

Lalu tekan button3 (Keluar) dan isikan scriptnya dibawah ini :

procedure TForm1.BTKeluarClick(Sender: TObject);

begin

close;

end;

end.

terakhir tekan F9 untuk melihat hasilnya :

tampilan awal

anda diminta untuk memasukkan jumlah data tahun yang anda inginkan, disini saya memasukkan angka 5 sebagai contoh

tampilan program yang berhasil

Keterangan :

• var : digunakan untuk mendefinisikan sebuah variabel
• array : digunakan untuk membuat kumpulan data yang bertipe sama yang   menggunakan nama yang sama
• integer : untuk merubah tipe data bilangan bulat yang hanya mengenal bilangan decimal dan tidak dapat mengenal bilangan pecahan
• string : merupakan type data yang isinya berupa Anumerik yang tidak dapat diberikan operator perhitungan karena bukan bersifat numerik value
• begin : untuk memulai suatu penulisan scrip pada program
• inputbox : untuk menampilkan kotak masukkan dan menyimpan text
• strtoint : untuk merubah type data string ke type data integer
• ListBox : untuk memilih dari daftar pilihan data yang ada (menampilkan semua daftar pilihan)
• Inttostr : merubah tipe data integer ke tipe data string
• Then : menyatakan perbandingan
• Else : menyatakan satu kondisi ke satu pernyataan
• end;  : untuk mengakhiri sebuah scrip namun masih ada lanjutannya
• end.  : untuk mengakhiri scrip 
• if a mod 4 : untuk menghitung sisa bilangan yang telah dibagi 4

Terima Kasih Dan SELAMAT MENCOBA ^-^