Saturday 2 February 2013



Apakabar sob….. kali ini saya akan membahas cara membuat program perulangan sederhana di Borland Delphi 7… cukup mudah ko…..tidak sesulit yang kita bayangkan…..
Langsung aja ya dari pada kelamaan curhat hehehee 
Seperti biasa buatlah desain formnya seperti gambar dibawah ini!


Aturlah properties controlnya dibawah ini.
Nama Control
Properties
Nilai Pengaturan
Form
Caption
Contoh Program Perulanagn
GroupBox1
Caption
Menu Pilihan
BitButton1
Caption
&FOR TO DO
BitButton2
Caption
&REPEAT UNTIL
BitButton3
Caption
&WHILE DO
BitButton4
Caption
&CLOSE
Listbox1
Caption



Selanjutnya kita tinggal mengetikan kode programnya seperti dibawah ini !!!
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
listbox1.Items.Clear;
for i:= 1 to 10 do
begin
listbox1.Items.Add('perulanahm for ke'+inttostr(i));

end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
i:integer;
begin
i:=0;
listbox1.Items.Clear;
repeat
inc(i);
listbox1.Items.add('perulangan repeat ke'+inttostr(i));
until i > 15
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var
i:integer;
begin
i:=0;
listbox1.Items.Clear;
while i < 15 do
begin
 inc(i);
 listbox1.Items.add('perulanagn while ke'+inttostr(i));
end;
end;
end.

Setelah selesai mengetikan kode programnya janagan lupa simpan terlebih dahulu Project dan Unitnya.
Coba dech jalankannya programnya dengan menekan tombol F9 pada keyboard atau lihat pada gambar dibawah ini




Tekan tombol yang warna hijau pada menu Delphi untuk menjalankan programnya.
Maka hasilnya akan seperti ini….
Program Sudah Jalan dech......

Selamat Mencoba Ya.... sob........   Goodlock !!!!!!!!!! 
Jangan lupa komentarnya ya,,,,,, hehe





0 comments:

Link list

About

Cool Blogs

Total Pengunjung

Blogroll

Get this widget

Blogger templates

Get this widget

Blogger news

Clock

Powered by Blogger.

Labels

About Me

Follower