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:
Post a Comment