Yang suka pemrogaman gan,..

Kali ini saya akan membuat tutorial tentang pencarian tahun kabisat pada pemrogaman DELPHI 7..

Oke langsung saja tutorial dari : www.ilmumumed.blogspot.com

 

Pertama Buat desain seperti ini :

 

 

Kemudian atur propertinya seperti ini :

 

 

Nama	Propertis	keterangan
Form1	Name	M. NURFAIZIN ( 112222054 )
Button1	Caption	Input
Button2	Caption	Clear
Label1	Caption	Data Tahun
Label2	Caption	Jumlah Data
Label3	Caption	Jumlah Tahun Kabisat
Edit1	Text	Dikosongkan
Edit2	text	Dikosongkan
ListBox1	-	-

 

 

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

 

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 : ','');

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.Button2Click(Sender: TObject);
begin
ListBox1.Clear;
edit1.Text:='';
edit2.Text:='';
end;

 

terakhir tekan F9 untuk melihat hasilnya :

 

Terimakasih

Semoga sukses... By : www.ilmumumed.blogspot.com