BLOGGER TEMPLATES AND TWITTER BACKGROUNDS

Selasa, 11 Juni 2013

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 ^-^


2 komentar:

selvi mengatakan...

Sulit sekali ukhti :)

Blognya diperbagus donk

Unknown mengatakan...

gk sulit kok uhti..

iya terimakasih sarannya :D

Posting Komentar

popular post

Read more: http://farhanshare.blogspot.com/2013/03/cara-membuat-popular-post-warna-warni-di-blog.html#ixzz2QRFs256w

Menu Tab View

- See more at: http://infodariom.blogspot.com/2013/03/cara-membuat-menu-tab-view-keren-dengan.html#sthash.Uo40iDpo.dpuf
Pretty Blinking Hello Kitty
Copyright© All Rights Reserved by Fauzani Ikrimannisa