Assalamualaikum,,
Hmmm,, sekarang saya akan jelaskan bagaimana penggunaan perulangan For To Do pada delphi dan bagaimana cara menginplementasikannya pada form. Penggunaan perulangan sering kali digunakan oleh para programer dalam mnjumlahkan nilai yang banyak, sebagai contoh, apabila kita mempunyai data sebanyak 1000 lebih, dan sangat tidak mungkin kita akan membuatnya satu-satu, maka itu perlu adanya perulangan. Perulangan Fo To Do ini dianggap sebagai perulangan yang paling sederhana, karna seorang programer harus menentukan nilai awal dan nilai akhirnya.
Format dari perulangan For To Do.
For Counter:= (nilai awal) to (Nilai akhir) Do
Begin
// isi
End;
Sekarang sebagi contoh, tambahkan beberapa component delphi ke aplikasi kita.
1 buah textbox
1 buah memo
2 buah button
designlah interfacenya sebagai berikut.
Ok, setelah kita selesai mendesign tampilannya, sekarang kita tambahkan beberapa sintak pada masing-masing button.
Double click pada button Proses kemudian isikan source code berikut ini.
procedure TForm1.Button1Click(Sender: TObject);
var
nilai,bilangan : integer;
begin
nilai:=StrToInt(edit1.Text);
for bilangan:=1 to nilai do
begin
if bilangan mod 2 = 0 then
begin
memo1.Lines.Add(IntToStr(bilangan));
end;
end;
end;
Double clik pada button Clear kemudian isikan sintak berikut.
procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Clear;
end;
end.
Penjelasan program
- Variabel nilai akan mendapatkan nilai inputan dari edit1.text, karna adanya perbedaan type data maka dilakukan pengkonpersian typedata.
- Pada saat pertama aplikasi dijalankan, maka secara otomatis akan bernilai 1, kemudian dilakukan pengecekan apakah nilai nya bisa dibagi 2 atau tidak, jika bernilai 0 maka bisa.
- Kemudian bilangan akan bernilai 2 secara otomatis,
Sekarang kita jalankan aplikasinya, dan untuk hasil akhirnya akan seperti ini.
Oke untuk tutorial kali ini sampai disini, selamat berkoding ria,,
Tag :
Delphi Programing
0 Komentar untuk "Penggunaan Perulangan For To Do Pada Delphi"