Pencarian Tahun Kabisat Pada Suatu Data Dengan Delphi 7
8:39:00 AM
Unknown
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 :
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 :
- Jika
angka tahun itu habis dibagi 400, maka tahun itu sudah pasti tahun
kabisat.
- Jika
angka tahun itu tidak habis dibagi 400 tetapi habis dibagi 100, maka tahun
itu sudah pasti bukan merupakan tahun kabisat.
- Jika
angka tahun itu tidak habis dibagi 400, tidak habis dibagi 100 akan tetapi
habis dibagi 4, maka tahun itu merupakan tahun kabisat.
- 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;
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
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 ^-^
