Thursday, 3 October 2013

Program Untuk Menghitung Jumlah Tahun Kabisat Dalam Suatu Data

Hallo.. :D
Kali ini saya mendapatkan tugas UAS Struktur Data dari Mr.Hedi Ruswanto nih, berikut laporannya ..
Jika anda pemakai Lazarus(opensource) silahkan dibuka, tapi kali iinni saya akan menggunakan 
Borland Delphi 7. Baiklah, Buka programnya ---> lalu buat form seperti ini 

Atur Propertiesnya pada window Object Inspector seperti ini :
Name
Properties
Keterangan
Form1
Caption
ACHMAD MAULANA BAEHAQI (112222005)
Button1
Caption
INPUT
Button2
Caption
CLEAR
Button3
Caption
EXIT
Label1
Caption
DATA TAHUN
Label2
Caption
JUMLAH DATA
Label3
Caption
JUMLAH TAHUN KABISAT
Label4
Caption
Edit1
Text
kosongi
Edit2
Text
Kosongi
ListBox1
-
-

Setelah itu double klick pada Button1 yakni Input, kemudian masukkan script berikut :

var
x,a,t: integer;
tahun: array[1..10] of string;
s: string;
begin
  s:=inputbox('Input Data','Masukkan Jumlah Tahun : ','0');
  t:=0;
for x:=1 to strtoint(s) do
begin
tahun[x]:=inputbox('Tahun Ke : '+inttostr(x),'Masukkan Tahun','');
ListBox1.Items.Add(tahun[x]);
edit1.Text:=inttostr(ListBox1.Items.Count);
a:=strtoint(tahun[x]);
if a mod 4=0
then t:=t+1
else t:=t+0;
edit2.Text:=inttostr(t);
end;
end;

Kembali ke Form lalu Double Klick pada Button2 yakni CLEAR sisipkan Script ini untuk 
perintah menghapus pada Edit1 dan 2. pastikan seperti ini 
procedure TForm1.BTClearClick(Sender: TObject);
begin
ListBox1.Clear;
edit1.Text:='';
edit2.Text:='';
end;

Lalu kembali ke Form lagi lalu Double Klick pada Button3 Yakni EXIT dan sisipkan script 'close;' seperti dibawah ini
procedure TForm1.BTKeluarClick(Sender: TObject);
begin
close;
end;

Untuk mencobanya tekan F9 / Run (tampilan awal)

Tekan tombol INPUT untuk memasukkan data.. Masukkan jumlah data yang akan diinputkan (n-->banyaknya data) 

Kemudian Masukkan data mulai dari tahun ke :1 hingga jumlah tahun banyaknya data yang anda masukkan. 


Berikut hasilnya sodara :D

keterangan :
·        Var digunakan untuk  Mendefinisikan sebuah variable
·        Begin untuk memulai suatu penulisan script program
·  Integer untuk  mendefinisikan tipe data bilangan bulat yang hanya mengenal bilangan decimal dan tidak dapat mengenal bilangan pecahan (range -1024 sampai 32767)
·        StrToInt digunakan untuk merubah tipe data string ke tipe data integer.
·        IntToStr untuk merubah tipe data integer ke tipe data string.
·        Caption untuk Membuat caption pada table
·        End; untuk mengakhiri sebuah script namun masih ada lanjutannya
·        End. Untuk mengakhiri sebuah script
·      If untuk membuat pengandaian atau membuat pernyataan sesuai dengan kondisi
· Array adalah untuk tipe data bentukan yang merupakan wadah untuk menampung nilai2 data yang sejenis
·    String disini digunakan untuk data bentukan yang membentuk suatu kata atau satu kalimat yang diapit oleh dua tanda kutip
·        Mod perintah untuk menghitung hasil sisa bagi
·        Listbox digunakan untuk menampilkan hasil inputan

 Sekian.. Wassalam :D

Bagikan

Jangan lewatkan

Program Untuk Menghitung Jumlah Tahun Kabisat Dalam Suatu Data
4/ 5
Oleh

Subscribe via email

Suka dengan artikel di atas? Tambahkan email Anda untuk berlangganan.