Membuat Aplikasi menghitung Tahun Kabisat Dengan DELPHI 7

Buka aplikasi DELPHI 7
Lalu buat diagram seperti dibawah ini dengan menambahkan buttom, Edit,label

Kemudian Ketikan script program

1.      Klik Ganda Button Input kemudian ketikan script seperti berikut

procedure TForm1.Button1Click(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;

Ket: 

·         Var digunakan untuk merubah Edit1: TEdit1; menjadi variabel nantinya atau Mendefinisikan sebuah variabel

·         Arrya untuk membuat data yang bertipi samamenggunakan nama yang sama

·         Integer untuk merubah tipe data bilangan bulat yang hanya mengenal bilangan decimal dan tidak dapat mengenal bilangan pecahan

·         Inputbox untuk kotak masukkan dan menyimpan text

·         StrToInt digunakan untuk merubah tipe data string ke tipe data integer.

·         lisbox untuk memilih dari daftar pilihan yang ada

·         IntToStr untuk merubah tipe data integer ke tipe data string.

·         End; untuk mengakhiri sebuah scrip namun masih ada lanjutannya

·         Begin untuk memulai suatu penulisan scrip pada program

·         For I untuk perulangan

·         if a mod 4 utuk menghitung sisa yg telah di bagi 4

2.      Klik Ganda Button Clear ketikan script seperti berikut

procedure TForm1.Button2Click(Sender: TObject);

begin

ListBox1.Clear;

edit1.Text:='';

edit2.Text:='';

end;

Ket:

Clear meng hapus data yg telah di disave agar bisa di pakai lagi

3.      Klik Ganda Button Close ketikan script seperti berikut

procedure TForm1.Button3Click(Sender: TObject);

begin

halt;

end;

Ket:

Halt untuk menyetop progm atau mengeluarkan program

di terahir script harus ketikkan end. Tujuanya script uda selesai semua

lalu coba uji cobah deh klik run atau F9

Masukan jumlah tahun yg mau di hitiung ini saya contohkan saya masukan 3 aja jumlah tahun

Kemudian akan keluar tmpilan untuk memasukan tahun yang mau di hitung(masukan tahun ke satu sampai tahun ketiga

Setelah selesai tampilan akan seperti di bvawa ini