Monday, 30 January 2017T1/30/2017 08:25:00 am

PROGRAM PERULANGAN SEDERHANA DELPHI

Salam blogger…….pada postingan saya kali ini saya akan share cara membuat program perulangan di Delphi. Pada program perulangan kali ini yang saya buat adalah perulangan for to do, for down to, while do dan repeat until. Perulangan merupakan control program yang dipergunakan untuk suatu proses yang akan berjalan secara terus menerus. Dan akan berhenti ketika proses akan mendapatkan kondisi yang sudah ditentukan. Dalam ada 3 jenis perulangan yaitu for to do, for down to do, while do dan repeat until. untuk lebih jelas mengenai perulangan di delphi akan saya jelaskan pada paragraf selanjutnya.
 Perulangan for to do adalah jenis perulangan yang digunakan untuk melakukan suatu proses dalam sebuah blok program ayng dimulai dengan nilai yang terkecil ke besar. Perulangan for down to do adalah jenis perulangan yang menghitung suatu proses dengan nilai awal besar dan nilai akhirnya lebih kecil. Perulangan while do adalah statement perulangan akan terus melakukan suatu proses selama kondisi /syarat yang ditentukan bernilai benar. Perulangan repeat until digunakan untuk mengulang suatu kondisi sampai kondisi bernilai salah.

Nah untuk lebih jelasnya disini kita akan mencoba membuat program perulangan sederhannya, pertama tama buat project baru di Delphi sobat, selanjutnya tambahkan komponen 1 buah label, lalu ubah caption nya menjadi “ Input Angka” . lalu tambahkan sebuah Edit Text, pada objek inspector ubah Text menjadi 0. lalu tambahkan juga sebuah listbox, lalu tambahkan 5 buah button. Untuk lebih jelasnyadapat dilihat pada gambar dibawah ini.
Jika sudah maka selanjutnya kita akan menambah coding program pada form tersebut langkah – langkah nya adalah pertama tama klik pada edit text, lalu pada even OnKeyPress masukan koding dibawah ini :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not  (key in['0'..'9']) then
begin
key :=#0;
MessageDlg('Nilai yang diinput harus angka !!!',mtError,[mbOK],0);
edit1.Clear;
edit1.SetFocus;
end;
end;


Jika sudah lalu klik button For to do, lalu masukan koding dibawah ini :
procedure TForm1.BitBtn1Click(Sender: TObject);
 var
i:Integer;
begin
ListBox1.Clear;
for i:= 0 to StrToInt (Edit1.Text) do
begin
ListBox1.Items.Add(IntToStr(i));
end;
end;


Jika sudah lalu klik button For down to do, lalu masukan koding dibawah ini :
procedure TForm1.BitBtn2Click(Sender: TObject);
 var
i:Integer;
begin
ListBox1.Clear;
for i:= StrToInt (Edit1.Text) downto 0 do
begin
ListBox1.Items.Add(IntToStr(i));
end;
end;


Jika sudah lalu klik button For repeat until, lalu masukan koding dibawah ini :
procedure TForm1.BitBtn3Click(Sender: TObject);
 Var
i:integer;
Begin
ListBox1.Clear;
i:=0;
 Repeat
i:=i+1;
ListBox1.Items.Add(IntToStr(i));
Until i = StrToInt (Edit1.Text)
end;


Jika sudah lalu klik button While Do, lalu masukan koding dibawah ini :
procedure TForm1.BitBtn5Click(Sender: TObject);
 Var
i:integer;
Begin
ListBox1.Clear;
i:=0;
while i < 5 do
begin
ListBox1.Items.Add(IntToStr(i));
i:=i+1;
end;

Jika sudah lalu klik button Clear, lalu masukan koding dibawah ini :
procedure TForm1.BitBtn4Click(Sender: TObject);
 begin
Edit1.Clear;
ListBox1.Clear;
edit1.SetFocus;
edit1.Text:='0';
edit1.SelectAll;
end;


Jika coding program sudah dimasukan, maka selanjutnya sobat tinggal menjalankan program nya dengan cara menekan F9/RUN. lalu masukan nilai angka pada kolom input angka. Jika di jalankan maka program nya seperti pada contoh diatas.

Demikian postingan saya kali ini tentang program perulangan di Delphi yang dapat saya share kali ini. Semoga dapat bermanfaat dan selamat mencoba.
Previous
Next Post »
0 Komentar untuk "PROGRAM PERULANGAN SEDERHANA DELPHI"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status